add server

theschemer · Feb 23, 2018 · 787058b · 787058b
1 parent db61196
commit 787058b
Show file tree

Hide file tree

Showing 8 changed files with 718 additions and 365 deletions.
diff --git a/.gitignore b/.gitignore
@@ -0,0 +1 @@
+/lib
diff --git a/demo.ss b/demo.ss
@@ -0,0 +1,14 @@
+(import (libra libra))
+
+(get! "/"
+	 (lambda (p) (default-make-response "GET request")))
+
+(post! "/" 
+	(lambda (p) (default-make-response "POST request")))
+
+(get! "/blog/:user/:age" 
+	(lambda (p)
+		(define content (string-append "p是储存所有参数(路由/请求)的关联表; " "User: " (params-ref p "user" "") ",Ages: " (params-ref p "age" "")))
+		(default-make-json (cons (cons "content" content) p))))
+
+(libra:run 8080)
diff --git a/libra/libra.core.ss b/libra/libra.core.ss