Compare commits
5 Commits
42753c1b18
...
661b3c35a9
| Author | SHA1 | Date |
|---|---|---|
|
|
661b3c35a9 | |
|
|
6b4ebde2ef | |
|
|
50d71b5a60 | |
|
|
970ce3c482 | |
|
|
6be4953ffa |
|
|
@ -0,0 +1,7 @@
|
||||||
|
To install library run
|
||||||
|
|
||||||
|
make SCHEME=chibi LIBRARY=fcgi build install
|
||||||
|
|
||||||
|
|
||||||
|
Change chibi to any other implementation supported by snow-chibi, and library
|
||||||
|
to any filename without suffix in retropikzel/*.sld
|
||||||
|
|
@ -52,18 +52,15 @@ hello.scm:
|
||||||
(scheme write)
|
(scheme write)
|
||||||
(retropikzel cgi))
|
(retropikzel cgi))
|
||||||
|
|
||||||
|
(handle-request
|
||||||
|
'()
|
||||||
|
(lambda (request headers parameters cookies body files)
|
||||||
(display "Content-type: text/html")
|
(display "Content-type: text/html")
|
||||||
(display "
|
(display "
|
||||||
")
|
")
|
||||||
(display "
|
(display "
|
||||||
")
|
")
|
||||||
(display "Hello")
|
(display "Hello")))
|
||||||
(display "</br>")
|
|
||||||
|
|
||||||
(display "Request: ")
|
|
||||||
(write (get-request))
|
|
||||||
(display "</br>")
|
|
||||||
(cgi-exit)
|
|
||||||
|
|
||||||
Run:
|
Run:
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -52,16 +52,13 @@ hello.scm:
|
||||||
(scheme write)
|
(scheme write)
|
||||||
(retropikzel cgi))
|
(retropikzel cgi))
|
||||||
|
|
||||||
|
(handle-request
|
||||||
|
'()
|
||||||
|
(lambda (request headers parameters cookies body files)
|
||||||
(display "Content-type: text/html")
|
(display "Content-type: text/html")
|
||||||
(display "\r\n")
|
(display "\r\n")
|
||||||
(display "\r\n")
|
(display "\r\n")
|
||||||
(display "Hello")
|
(display "Hello")))
|
||||||
(display "</br>")
|
|
||||||
|
|
||||||
(display "Request: ")
|
|
||||||
(write (get-request))
|
|
||||||
(display "</br>")
|
|
||||||
(cgi-exit)
|
|
||||||
|
|
||||||
Run:
|
Run:
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1 +1 @@
|
||||||
1.1.0
|
1.2.0
|
||||||
|
|
|
||||||
|
|
@ -5,8 +5,11 @@
|
||||||
(retropikzel cgi)
|
(retropikzel cgi)
|
||||||
(srfi 64))
|
(srfi 64))
|
||||||
|
|
||||||
(test-begin "cgi")
|
(handle-request
|
||||||
|
'()
|
||||||
|
(lambda (request headers parameters cookies body files)
|
||||||
|
(display "Content-type: text/html")
|
||||||
|
(display "\r\n")
|
||||||
|
(display "\r\n")
|
||||||
|
(display "Hello")))
|
||||||
|
|
||||||
(display "Hello")
|
|
||||||
|
|
||||||
(test-end "cgi")
|
|
||||||
|
|
|
||||||
|
|
@ -1 +1 @@
|
||||||
1.0.0
|
1.1.0
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue