This isn't quite a hello-world, because I want to show how to use macros for building HTTP services.
First, we need to tell Ruby to load webrick module and bind class name into RLisp namespace (there is no automatic importing of constants, maybe there should me):
(ruby-eval "require 'webrick'") ; import module
(let HTTPServer (ruby-eval "WEBrick::HTTPServer")) ; Configure the server
(let config [Hash new])
[config set 'Port 1337]
; Tell the class to make us a server object
(let server (send HTTPServer 'new config)); Tell server to call our Hello World handler
(send server 'mount_proc "/hello"
(lambda (req res)
[res body= "<html><body><h3>Hello, world!</h3></body></html>"]
[res field_set "Content-Type" "text/html"]
)
); Define a macro for HTML mounts
(defsyntax def-server-html-mount args
`(send ,[args get 0] 'mount_proc ,[args get 1]
(lambda (req res)
(send res 'field_set "Content-Type" "text/html")
(send res 'body= (do ,@(tl (tl args))))
(print res)
)
)
); Tell server to call our Hello World handler
(def-server-html-mount server "/hello"
"<html><body><h3>Hello, world!</h3></body></html>"
); Define a macro for HTML tag function
(defsyntax def-html-tag (tagname)
`(defun ,tagname args
(+
"<" (send ',tagname to_s) ">"
[args join]
"</" (send ',tagname to_s) ">"
)
)
)(def-html-tag html)
(def-html-tag body)
(def-html-tag h3)(def-server-html-mount server "/hello2"
(html (body (h3 "Macros Greet you")))
); Tell the server to go !
(send server 'start)
2 comments:
Can you post here how does look http_server_hello.rl implemented in plain Ruby?
It looks remarkably similar:
require 'webrick'
# Configure the server
config = {:Port => 1337}
# Tell the class to make us a server object
server = WEBrick::HTTPServer.new(config)
# Tell server to call our Hello World handler
server.mount_proc("/hello") {|req,res|
res.body = "<html><body><h3>Hello, world!</h3></body></html>"
res["Content-Type"] = "text/html"
}
# Tell the server to go !
server.start
Post a Comment