Serialize and deserialize tokens to and from SXML

2 files changed, 61 insertions, 56 deletions

diff --git a/po/disfluid.pot b/po/disfluid.pot
index 67b4c36..7702c98 100644
--- a/po/disfluid.pot
+++ b/po/disfluid.pot
@@ -8,7 +8,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: disfluid SNAPSHOT\n"
 "Report-Msgid-Bugs-To: vivien@planete-kraus.eu\n"
-"POT-Creation-Date: 2021-09-21 22:28+0200\n"
+"POT-Creation-Date: 2021-09-21 22:30+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"
@@ -924,126 +924,130 @@ msgstr ""
 msgid "invalid content-type: ~s"
 msgstr ""
 
-#: src/scm/webid-oidc/jws.scm:127
+#: src/scm/webid-oidc/jws.scm:131
 #, scheme-format
 msgid "unsupported JWS algorithm: ~s"
 msgstr ""
 
-#: src/scm/webid-oidc/jws.scm:137
+#: src/scm/webid-oidc/jws.scm:141
 msgid ""
 "when making a token either #:alg or (#:jwt-header and #:jwt-payload) should "
 "be passed"
 msgstr ""
 
-#: src/scm/webid-oidc/jws.scm:202
+#: src/scm/webid-oidc/jws.scm:206
 msgid "#:iat should be a date"
 msgstr ""
 
-#: src/scm/webid-oidc/jws.scm:207
+#: src/scm/webid-oidc/jws.scm:211
 msgid "#:exp should be a date"
 msgstr ""
 
-#: src/scm/webid-oidc/jws.scm:217
+#: src/scm/webid-oidc/jws.scm:221
 msgid ""
 "when making a time-bound token, either its required fields (#:iat, and "
 "either #:exp or #:validity) or (#:jwt-header and #:jwt-payload) should be "
 "passed"
 msgstr ""
 
-#: src/scm/webid-oidc/jws.scm:245
+#: src/scm/webid-oidc/jws.scm:249
 msgid "#:iss should be an URI"
 msgstr ""
 
-#: src/scm/webid-oidc/jws.scm:256
+#: src/scm/webid-oidc/jws.scm:260
 msgid ""
 "when making an OIDC token, either its required #:iss field or (#:jwt-header "
 "and #:jwt-payload) should be passed"
 msgstr ""
 
-#: src/scm/webid-oidc/jws.scm:300
+#: src/scm/webid-oidc/jws.scm:304
 msgid "#:nonce should be a string"
 msgstr ""
 
-#: src/scm/webid-oidc/jws.scm:309
+#: src/scm/webid-oidc/jws.scm:313
 msgid ""
 "when making a single-use token, either its required #:nonce field or (#:jwt-"
 "header and #:jwt-payload) should be passed"
 msgstr ""
 
-#: src/scm/webid-oidc/jws.scm:354
+#: src/scm/webid-oidc/jws.scm:358
 msgid "the encoded JWS is not in 3 parts"
 msgstr ""
 
-#: src/scm/webid-oidc/jws.scm:365
+#: src/scm/webid-oidc/jws.scm:369
 #, scheme-format
 msgid ""
 "the encoded JWS header or payload is not a JSON object encoded in base64: ~a"
 msgstr ""
 
-#: src/scm/webid-oidc/jws.scm:367
+#: src/scm/webid-oidc/jws.scm:371
 msgid ""
 "the encoded JWS header or payload is not a JSON object encoded in base64"
 msgstr ""
 
-#: src/scm/webid-oidc/jws.scm:426
+#: src/scm/webid-oidc/jws.scm:430
 msgid "the JWS is not signed by any of the expected set of public keys"
 msgstr ""
 
-#: src/scm/webid-oidc/jws.scm:437
+#: src/scm/webid-oidc/jws.scm:441
 #, scheme-format
 msgid "while verifying the JWS signature: ~a"
 msgstr ""
 
-#: src/scm/webid-oidc/jws.scm:439
+#: src/scm/webid-oidc/jws.scm:443
 msgid "an unexpected error happened while verifying a JWS"
 msgstr ""
 
-#: src/scm/webid-oidc/jws.scm:478
+#: src/scm/webid-oidc/jws.scm:482
 #, scheme-format
 msgid "I cannot query the identity provider configuration: ~a"
 msgstr ""
 
-#: src/scm/webid-oidc/jws.scm:480
+#: src/scm/webid-oidc/jws.scm:484
 msgid "I cannot query the identity provider configuration"
 msgstr ""
 
-#: src/scm/webid-oidc/jws.scm:501
+#: src/scm/webid-oidc/jws.scm:505
 #, scheme-format
 msgid "I cannot query the JWKS URI of the identity provider: ~a"
 msgstr ""
 
-#: src/scm/webid-oidc/jws.scm:503
+#: src/scm/webid-oidc/jws.scm:507
 msgid "I cannot query the JWKS URI of the identity provider"
 msgstr ""
 
-#: src/scm/webid-oidc/jws.scm:531
+#: src/scm/webid-oidc/jws.scm:535
 #, scheme-format
 msgid "the token is signed in the future, ~a, relative to current ~a"
 msgstr ""
 
-#: src/scm/webid-oidc/jws.scm:540
+#: src/scm/webid-oidc/jws.scm:544
 #, scheme-format
 msgid "the token expired ~a, which is in the past (from ~a)"
 msgstr ""
 
-#: src/scm/webid-oidc/jws.scm:563
+#: src/scm/webid-oidc/jws.scm:567
 #, scheme-format
 msgid "cannot decode a JWS: ~a"
 msgstr ""
 
-#: src/scm/webid-oidc/jws.scm:565
+#: src/scm/webid-oidc/jws.scm:569
 msgid "cannot decode a JWS"
 msgstr ""
 
-#: src/scm/webid-oidc/jws.scm:583
+#: src/scm/webid-oidc/jws.scm:587
 #, scheme-format
 msgid "cannot encode a JWS: ~a"
 msgstr ""
 
-#: src/scm/webid-oidc/jws.scm:585
+#: src/scm/webid-oidc/jws.scm:589
 msgid "cannot encode a JWS"
 msgstr ""
 
+#: src/scm/webid-oidc/jws.scm:636
+msgid "cannot parse a token"
+msgstr ""
+
 #: src/scm/webid-oidc/oidc-configuration.scm:59
 #, scheme-format
 msgid "the OIDC configuration is invalid: ~a"
diff --git a/po/fr.po b/po/fr.po
index 8767117..a13197e 100644
--- a/po/fr.po
+++ b/po/fr.po
@@ -2,8 +2,8 @@ msgid ""
 msgstr ""
 "Project-Id-Version: webid-oidc 0.0.0\n"
 "Report-Msgid-Bugs-To: vivien@planete-kraus.eu\n"
-"POT-Creation-Date: 2021-09-21 22:28+0200\n"
-"PO-Revision-Date: 2021-09-21 22:28+0200\n"
+"POT-Creation-Date: 2021-09-21 22:30+0200\n"
+"PO-Revision-Date: 2021-09-21 22:30+0200\n"
 "Last-Translator: Vivien Kraus <vivien@planete-kraus.eu>\n"
 "Language-Team: French <vivien@planete-kraus.eu>\n"
 "Language: fr\n"
@@ -1007,12 +1007,12 @@ msgstr "type de contenu manquant"
 msgid "invalid content-type: ~s"
 msgstr "type de contenu invalide : ~s"
 
-#: src/scm/webid-oidc/jws.scm:127
+#: src/scm/webid-oidc/jws.scm:131
 #, scheme-format
 msgid "unsupported JWS algorithm: ~s"
 msgstr "algorithme JWS non supporté : ~s"
 
-#: src/scm/webid-oidc/jws.scm:137
+#: src/scm/webid-oidc/jws.scm:141
 msgid ""
 "when making a token either #:alg or (#:jwt-header and #:jwt-payload) should "
 "be passed"
@@ -1020,15 +1020,15 @@ msgstr ""
 "lors de la création d’un jeton il faut passer soit #:alg soit (#:jwt-header "
 "et #:jwt-payload)"
 
-#: src/scm/webid-oidc/jws.scm:202
+#: src/scm/webid-oidc/jws.scm:206
 msgid "#:iat should be a date"
 msgstr "#:iat doit être une date"
 
-#: src/scm/webid-oidc/jws.scm:207
+#: src/scm/webid-oidc/jws.scm:211
 msgid "#:exp should be a date"
 msgstr "#:exp doit être une date"
 
-#: src/scm/webid-oidc/jws.scm:217
+#: src/scm/webid-oidc/jws.scm:221
 msgid ""
 "when making a time-bound token, either its required fields (#:iat, and "
 "either #:exp or #:validity) or (#:jwt-header and #:jwt-payload) should be "
@@ -1038,11 +1038,11 @@ msgstr ""
 "champs requis (#:iat et soit #:exp soit #:validity) soit (#:jwt-header et #:"
 "jwt-payload)"
 
-#: src/scm/webid-oidc/jws.scm:245
+#: src/scm/webid-oidc/jws.scm:249
 msgid "#:iss should be an URI"
 msgstr "#:iss doit être une URI"
 
-#: src/scm/webid-oidc/jws.scm:256
+#: src/scm/webid-oidc/jws.scm:260
 msgid ""
 "when making an OIDC token, either its required #:iss field or (#:jwt-header "
 "and #:jwt-payload) should be passed"
@@ -1050,11 +1050,11 @@ msgstr ""
 "lors de la création d’un jeton OIDC, il faut passer soit le champs requis #:"
 "iss soit (#:jwt-header et #:jwt-payload)"
 
-#: src/scm/webid-oidc/jws.scm:300
+#: src/scm/webid-oidc/jws.scm:304
 msgid "#:nonce should be a string"
 msgstr "#:nonce doit être une chaîne de caractères"
 
-#: src/scm/webid-oidc/jws.scm:309
+#: src/scm/webid-oidc/jws.scm:313
 msgid ""
 "when making a single-use token, either its required #:nonce field or (#:jwt-"
 "header and #:jwt-payload) should be passed"
@@ -1062,11 +1062,11 @@ msgstr ""
 "lors de la création d’un jeton à usage unique, il faut soit passer le champs "
 "requis #:nonce soit (#:jwt-header et #:jwt-payload)"
 
-#: src/scm/webid-oidc/jws.scm:354
+#: src/scm/webid-oidc/jws.scm:358
 msgid "the encoded JWS is not in 3 parts"
 msgstr "le JWS encodé n’est pas en 3 parties"
 
-#: src/scm/webid-oidc/jws.scm:365
+#: src/scm/webid-oidc/jws.scm:369
 #, scheme-format
 msgid ""
 "the encoded JWS header or payload is not a JSON object encoded in base64: ~a"
@@ -1074,74 +1074,78 @@ msgstr ""
 "l’en-tête ou la charge utile du JWS encodé n’est pas un objet JSON encodé en "
 "base64 : ~a"
 
-#: src/scm/webid-oidc/jws.scm:367
+#: src/scm/webid-oidc/jws.scm:371
 msgid ""
 "the encoded JWS header or payload is not a JSON object encoded in base64"
 msgstr ""
 "l’en-tête ou la charge utile du JWS encodé n’est pas un objet JSON encodé en "
 "base64"
 
-#: src/scm/webid-oidc/jws.scm:426
+#: src/scm/webid-oidc/jws.scm:430
 msgid "the JWS is not signed by any of the expected set of public keys"
 msgstr "le JWS n’est signé par aucune des clés attendues"
 
-#: src/scm/webid-oidc/jws.scm:437
+#: src/scm/webid-oidc/jws.scm:441
 #, scheme-format
 msgid "while verifying the JWS signature: ~a"
 msgstr "en vérifiant la signature du JWS : ~a"
 
-#: src/scm/webid-oidc/jws.scm:439
+#: src/scm/webid-oidc/jws.scm:443
 msgid "an unexpected error happened while verifying a JWS"
 msgstr "une erreur inattendue est survenue pendant la vérification d’un JWS"
 
-#: src/scm/webid-oidc/jws.scm:478
+#: src/scm/webid-oidc/jws.scm:482
 #, scheme-format
 msgid "I cannot query the identity provider configuration: ~a"
 msgstr ""
 "je ne peux pas requêter la configuration du fournisseur d’identité : ~a"
 
-#: src/scm/webid-oidc/jws.scm:480
+#: src/scm/webid-oidc/jws.scm:484
 msgid "I cannot query the identity provider configuration"
 msgstr "je ne peux pas requêter la configuration du fournisseur d’identité"
 
-#: src/scm/webid-oidc/jws.scm:501
+#: src/scm/webid-oidc/jws.scm:505
 #, scheme-format
 msgid "I cannot query the JWKS URI of the identity provider: ~a"
 msgstr "je ne peux pas requêter l’URI de JWKS du fournisseur d’identité : ~a"
 
-#: src/scm/webid-oidc/jws.scm:503
+#: src/scm/webid-oidc/jws.scm:507
 msgid "I cannot query the JWKS URI of the identity provider"
 msgstr "impossible de requêter l’URI de JWKS du fournisseur d’identité"
 
-#: src/scm/webid-oidc/jws.scm:531
+#: src/scm/webid-oidc/jws.scm:535
 #, scheme-format
 msgid "the token is signed in the future, ~a, relative to current ~a"
 msgstr ""
 "le jeton est signé dans le futur, ~a, par rapport à la date courante, ~a"
 
-#: src/scm/webid-oidc/jws.scm:540
+#: src/scm/webid-oidc/jws.scm:544
 #, scheme-format
 msgid "the token expired ~a, which is in the past (from ~a)"
 msgstr "le jeton a expiré le ~a, qui est dans le passé (depuis ~a)"
 
-#: src/scm/webid-oidc/jws.scm:563
+#: src/scm/webid-oidc/jws.scm:567
 #, scheme-format
 msgid "cannot decode a JWS: ~a"
 msgstr "impossible de décoder un JWS : ~a"
 
-#: src/scm/webid-oidc/jws.scm:565
+#: src/scm/webid-oidc/jws.scm:569
 msgid "cannot decode a JWS"
 msgstr "impossible de décoder un JWS"
 
-#: src/scm/webid-oidc/jws.scm:583
+#: src/scm/webid-oidc/jws.scm:587
 #, scheme-format
 msgid "cannot encode a JWS: ~a"
 msgstr "impossible d’encoder un JWS : ~a"
 
-#: src/scm/webid-oidc/jws.scm:585
+#: src/scm/webid-oidc/jws.scm:589
 msgid "cannot encode a JWS"
 msgstr "impossible d’encoder un JWS"
 
+#: src/scm/webid-oidc/jws.scm:636
+msgid "cannot parse a token"
+msgstr "impossible d’analyser le jeton"
+
 #: src/scm/webid-oidc/oidc-configuration.scm:59
 #, scheme-format
 msgid "the OIDC configuration is invalid: ~a"
@@ -2619,9 +2623,6 @@ msgstr ""
 #~ msgid "cannot encode the ID token: ~a"
 #~ msgstr "impossible d’encoder le jeton d’ID : ~a"
 
-#~ msgid "cannot encode the ID token"
-#~ msgstr "impossible d’encoder le jeton d’ID"
-
 #, scheme-format
 #~ msgid "unknown key type ~s"
 #~ msgstr "type de clé inconnu ~s"