1 files changed, 71 insertions, 0 deletions
diff --git a/gn3-guile/web/webserver.scm b/gn3-guile/web/webserver.scm
new file mode 100755
index 0000000..f5fedd7
--- /dev/null
+++ b/gn3-guile/web/webserver.scm
@@ -0,0 +1,71 @@
+#!/usr/bin/env guile \
+-e main -s
+!#
+;; Minimal web server can be started from command line. Current example routes:
+;;
+;;    localhost:8080/version.json
+;;
+;; Note that this is a single blocking thread server right now.
+
+(use-modules (json)
+             (web server)
+             (web request)
+             (web response)
+             (web uri))
+
+(define (get-version-str)
+  "\"1.0\"")
+
+(define info-list (scm->json-string '(
+                                      ("name"."GeneNetwork REST API")
+                                      ("version"."1.0")
+                                      ("note"."work in progress (WIP)")
+                                      )))
+
+(define (get-gn-info-str)
+  info-list
+  )
+
+(define (get-species-str)
+  "{
+\"Mus_musculus\": {
+  \"id\": \"mouse\"
+  },
+\"Rattus_norvegicus\": {
+  \"id\": \"rat\"
+  }
+}")
+
+;; ---- REST API web server handler
+
+(define (hello-world-handler request body)
+  (let ((path (uri-path (request-uri request))))
+    (cond
+     ((member path (list "/version.json"))
+      (values '((content-type . (application/json)))
+              (get-version-str)
+              ))
+     ((member path (list "/species/"))
+      (values '((content-type . (application/json)))
+              (get-species-str)
+              ))
+     ((member path (list "/"))
+      (values '((content-type . (application/json)))
+              (get-gn-info-str)
+              ))
+     (else
+      (not-found request)))))
+
+(define (not-found request)
+  (values (build-response #:code 404)
+          (string-append "Resource not found: "
+                         (uri->string (request-uri request)))))
+
+(define (main args)
+  (write "Starting Guile REST API server!")
+  (write args)
+  (newline)
+  (let ((listen (inexact->exact (string->number (car (cdr args))))))
+    (display `("listening on" ,listen))
+    ;; (write listen)
+    (run-server hello-world-handler 'http `(#:port ,listen))))