Hello, World CGI - Scheme VM を書く
原始的ですが。
work.scm
(define (print s) (display s) (display "\n")) (print "Status: 200 OK") (print "Content-type: text/html") (print "\n") (print "Hello, World\n")
work.scmc
#!/usr/local/bin/mosh (30 1 (2 (9 1 (16 (11 "\n" (2 (30 0 (36 1 1 (0 1))))) (32 0 (2 (30 0 (0 1))))) 1 #f (13 print (17)))))(16 (17) (11 "Status: 200 OK" (2 (31 print (0 1)))))(16 (17) (11 "Content-type: text/html" (2 (31 print (0 1)))))(16 (17) (11 "\n" (2 (31 print (0 1)))))(16 (17) (11 "Hello, World\n" (2 (31 print (0 1)))))