From 7e125cc85c79e0854ca300dec6f819598e3fc6b0 Mon Sep 17 00:00:00 2001
From: Vivien Kraus <vivien@planete-kraus.eu>
Date: Fri, 27 Nov 2020 19:28:50 +0100
Subject: Add a base64 encoder and decoder

---
 src/scm/webid-oidc/stubs.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'src/scm/webid-oidc/stubs.scm')

diff --git a/src/scm/webid-oidc/stubs.scm b/src/scm/webid-oidc/stubs.scm
index 273546c..12006e6 100644
--- a/src/scm/webid-oidc/stubs.scm
+++ b/src/scm/webid-oidc/stubs.scm
@@ -5,3 +5,14 @@
 (load-extension
  (format #f "~a/libwebidoidc" libdir)
  "init_webidoidc")
+
+(define (fix-base64-decode data)
+  (catch 'base64-decoding-error
+    (lambda ()
+      (base64-decode data))
+    (lambda error
+      (raise-not-base64 data error))))
+
+(export
+ base64-encode
+ (fix-base64-decode . base64-decode))
-- 
cgit v1.2.3