added samle webserver application

examples/website/config.ru

@@ -0,0 +1,15 @@
+$LOAD_PATH.unshift(File.join("..", "..", "lib"))
+require "rlisp"
+
+interpreter = Lisp::Interpreter.new
+interpreter.import("web.lisp")
+
+app =lambda do |env|
+  [
+    200, 
+    {'Content-Type' => 'text/html'}, 
+    interpreter.eval([:rack_handler, env])
+  ]
+end
+
+run app

examples/website/web.lisp

@@ -0,0 +1,54 @@
+;; Helper
+
+(defmacro (defun) 
+  (defun name parameter expr)
+  (label name (lambda parameter expr)))
+
+(defun tag (name text) (string "<" name ">" text "</" name ">"))
+
+(defun tag_class (name class text) (
+  string "<" name " class='" class "'>" text "</" name ">"))
+
+(defun h1 (text) (tag h1 text))
+
+(defun para (text) (tag p text))
+
+(defun div (class text) (tag_class div class text))
+
+(defun pre (text) (tag pre text))
+
+(defun html (title text)
+  (string
+    (tag html 
+      (string
+        (tag head (tag "title" title))
+        (tag body text)
+      )
+    )
+  )
+)
+
+;; Website
+
+(setq TITLE "RLISP Webserver")
+
+(defun template (content)
+  (html TITLE
+    (string
+      (div container content)
+    )
+  )
+)
+
+(defun start_page(env)
+  (template
+    (string 
+      (h1 TITLE)
+      (para "Welcome to the first rlisp site!")
+      (para "It's very cool")
+      (para (string (+ 23 42)))
+    )  
+  )
+)
+
+(defun rack_handler (env) (start_page env))