c3b2: add wiredtiger boilerplate

3 files changed, 15 insertions, 6 deletions

diff --git a/.gitignore b/.gitignore
index eb37ab0..f100498 100644
--- a/.gitignore
+++ b/.gitignore
@@ -12,4 +12,6 @@ gnunet/config.scm
 pre-inst-env
 *.info
 doc/stamp-vti
-doc/version.texi
\ No newline at end of file
+doc/version.texi
+
+prototypes/c3b2/wt/*
\ No newline at end of file
diff --git a/prototypes/c3b2/web.scm b/prototypes/c3b2/web.scm
index aadd744..78d8cf2 100755
--- a/prototypes/c3b2/web.scm
+++ b/prototypes/c3b2/web.scm
@@ -26,6 +26,10 @@ exec guile -L $(pwd) -e '(@@ (web) main)' -s "$0" "$@"
 
 ;; third party
 (use-modules (fibers web server))
+(use-modules (wiredtiger wiredtiger))
+(use-modules (wiredtiger extra))
+(use-modules (wiredtiger feature-space))
+(use-modules (wiredtiger grf3))
 
 ;; local
 (use-modules (web decode))
@@ -53,12 +57,14 @@ exec guile -L $(pwd) -e '(@@ (web) main)' -s "$0" "$@"
 
 
 (define (handler request body)
-  (match (cons (request-method request) (request-path-components request))
-    (('GET) (render-html (template "index" '(div "Héllo Guilers"))))
-    (('GET "static" path ...) (render-static-asset path))
-    (_ (not-found (uri->string (request-uri request))))))
+  (with-context*
+   (match (cons (request-method request) (request-path-components request))
+     (('GET) (render-html (template "index" '(div "Héllo Guilers"))))
+     (('GET "static" path ...) (render-static-asset path))
+     (_ (not-found (uri->string (request-uri request)))))))
 
 
 (define (main _)
   (format #t "Server running @ http://localhost:8080\n")
-  (run-server handler))
+  (with-env (env-open* "wt" (list *feature-space*) "create,log=(enabled=true)")
+    (run-server handler)))
diff --git a/prototypes/c3b2/wt/README b/prototypes/c3b2/wt/README
new file mode 100644
index 0000000..dc9a8d7
--- /dev/null
+++ b/prototypes/c3b2/wt/README
@@ -0,0 +1 @@
+this file exists to keep the directory in git history
\ No newline at end of file