Add a base64 encoder and decoder

2 files changed, 100 insertions, 43 deletions

diff --git a/po/fr.po b/po/fr.po
index 1358d0f..2b85f0e 100644
--- a/po/fr.po
+++ b/po/fr.po
@@ -2,7 +2,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: webid-oidc 0.0.0\n"
 "Report-Msgid-Bugs-To: vivien@planete-kraus.eu\n"
-"POT-Creation-Date: 2021-05-10 14:44+0200\n"
+"POT-Creation-Date: 2021-05-10 14:45+0200\n"
 "PO-Revision-Date: 2021-05-10 14:31+0200\n"
 "Last-Translator: Vivien Kraus <vivien@planete-kraus.eu>\n"
 "Language-Team: French <vivien@planete-kraus.eu>\n"
@@ -12,14 +12,61 @@ msgstr ""
 "Content-Transfer-Encoding: 8bit\n"
 "Plural-Forms: nplurals=2; plural=(n > 1);\n"
 
-#: src/libwebidoidc.c:6
+#: src/libwebidoidc.c:7
 msgid "This is the main function."
 msgstr "Ceci est la fonction principale."
 
-#: src/scm/webid-oidc/errors.scm:25
+#: src/scm/webid-oidc/errors.scm:35
 msgid "that’s how it is"
 msgstr "c’est comme ça"
 
+#: src/scm/webid-oidc/errors.scm:40
+#, scheme-format
+msgid "the value ~s is not a base64 string (because ~a)"
+msgstr "la valeur ~s n’est pas une chaîne base64 (parce que ~a)"
+
+#: src/scm/webid-oidc/errors.scm:45
+msgid "that’s it"
+msgstr "c’est tout"
+
+#: src/scm/webid-oidc/errors.scm:49
+#, scheme-format
+msgid "~a and ~a"
+msgstr "~a et ~a"
+
+#: src/scm/webid-oidc/errors.scm:52
+#, scheme-format
+msgid "~a, ~a"
+msgstr "~a, ~a"
+
+#: src/scm/webid-oidc/errors.scm:56
+msgid "there is an undefined variable"
+msgstr "il y a une variable non définie"
+
+#: src/scm/webid-oidc/errors.scm:58
+#, scheme-format
+msgid "the origin is ~a"
+msgstr "l’origine est ~a"
+
+#: src/scm/webid-oidc/errors.scm:61
+#, scheme-format
+msgid "a message is attached: ~a"
+msgstr "un message est attaché : ~a"
+
+#: src/scm/webid-oidc/errors.scm:64
+#, scheme-format
+msgid "the values ~s are problematic"
+msgstr "les valeurs ~s sont problématiques"
+
+#: src/scm/webid-oidc/errors.scm:67
+msgid "there is a kind and args"
+msgstr "il y a un type et des arguments"
+
+#: src/scm/webid-oidc/errors.scm:69
+#, scheme-format
+msgid "Unhandled exception type ~a."
+msgstr "Type d’exception non pris en charge ~a."
+
 #, c-format
 #~ msgid "Could not set the global random generator up.\n"
 #~ msgstr ""
@@ -113,10 +160,6 @@ msgstr "c’est comme ça"
 #~ msgstr "Utilisation : generate-key [NOMBRE DE BITS | COURBE]\n"
 
 #, scheme-format
-#~ msgid "the value ~s is not a base64 string (because ~a)"
-#~ msgstr "la valeur ~s n’est pas une chaîne base64 (parce que ~a)"
-
-#, scheme-format
 #~ msgid "the value ~s is not JSON (because ~a)"
 #~ msgstr "la valeur ~s n’est pas du JSON (parce que ~a)"
 
@@ -541,39 +584,10 @@ msgstr "c’est comme ça"
 #~ msgid ", "
 #~ msgstr ", "
 
-#~ msgid "that’s it"
-#~ msgstr "c’est tout"
-
-#, scheme-format
-#~ msgid "~a and ~a"
-#~ msgstr "~a et ~a"
-
-#, scheme-format
-#~ msgid "~a, ~a"
-#~ msgstr "~a, ~a"
-
 #, scheme-format
 #~ msgid "the signature ~a does not match key ~s with payload ~a"
 #~ msgstr "la signature ~a ne correspond pas à la clé ~s avec le contenu ~a"
 
-#~ msgid "there is an undefined variable"
-#~ msgstr "il y a une variable non définie"
-
-#, scheme-format
-#~ msgid "the origin is ~a"
-#~ msgstr "l’origine est ~a"
-
-#, scheme-format
-#~ msgid "a message is attached: ~a"
-#~ msgstr "un message est attaché : ~a"
-
-#, scheme-format
-#~ msgid "the values ~s are problematic"
-#~ msgstr "les valeurs ~s sont problématiques"
-
-#~ msgid "there is a kind and args"
-#~ msgstr "il y a un type et des arguments"
-
 #~ msgid "there is an assertion failure"
 #~ msgstr "il y a un échec d’assertion"
 
@@ -587,10 +601,6 @@ msgstr "c’est comme ça"
 #~ msgid "there is an error"
 #~ msgstr "il y a une erreur"
 
-#, scheme-format
-#~ msgid "Unhandled exception type ~a."
-#~ msgstr "Type d’exception non pris en charge ~a."
-
 #~ msgid "Warning: generating a new key pair."
 #~ msgstr "Attention : génération d'une nouvelle paire de clé."
 
diff --git a/po/webid-oidc.pot b/po/webid-oidc.pot
index 4e24105..148ff7e 100644
--- a/po/webid-oidc.pot
+++ b/po/webid-oidc.pot
@@ -8,7 +8,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: webid-oidc SNAPSHOT\n"
 "Report-Msgid-Bugs-To: vivien@planete-kraus.eu\n"
-"POT-Creation-Date: 2021-05-10 14:44+0200\n"
+"POT-Creation-Date: 2021-05-10 14:45+0200\n"
 "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
 "Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
 "Language-Team: LANGUAGE <LL@li.org>\n"
@@ -17,10 +17,57 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
-#: src/libwebidoidc.c:6
+#: src/libwebidoidc.c:7
 msgid "This is the main function."
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:25
+#: src/scm/webid-oidc/errors.scm:35
 msgid "that’s how it is"
 msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:40
+#, scheme-format
+msgid "the value ~s is not a base64 string (because ~a)"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:45
+msgid "that’s it"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:49
+#, scheme-format
+msgid "~a and ~a"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:52
+#, scheme-format
+msgid "~a, ~a"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:56
+msgid "there is an undefined variable"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:58
+#, scheme-format
+msgid "the origin is ~a"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:61
+#, scheme-format
+msgid "a message is attached: ~a"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:64
+#, scheme-format
+msgid "the values ~s are problematic"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:67
+msgid "there is a kind and args"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:69
+#, scheme-format
+msgid "Unhandled exception type ~a."
+msgstr ""