scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added --dump flag

This commit is contained in:
interp 2002-08-28 15:42:15 +00:00
parent a2aed3280e
commit d3bf493454
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
start-web-server
View File

@ -10,6 +10,7 @@ exec scsh -lm packages.scm -dm -o http-test -e main -s "$0" "$@"
httpd-basic-handlers httpd-basic-handlers
httpd-file-directory-handlers httpd-file-directory-handlers
cgi-server cgi-server
seval-handler
let-opt let-opt
scsh scsh
scheme) scheme)
@ -82,6 +83,12 @@ exec scsh -lm packages.scm -dm -o http-test -e main -s "$0" "$@"
((string=? (car options) "--help") ((string=? (car options) "--help")
(display (usage)) (display (usage))
(exit 0)) (exit 0))
((string=? (car options) "--dump")
(let ((image-name (if (null? (cdr options))
"server"
(cadr options))))
(dump-scsh-program main image-name))
(exit 0))
(else (else
(unknown-option-error (car options))))))))) (unknown-option-error (car options)))))))))
@ -115,6 +122,7 @@ exec scsh -lm packages.scm -dm -o http-test -e main -s "$0" "$@"
(with-path-handler (with-path-handler
(alist-path-dispatcher (alist-path-dispatcher
(list (cons "h" (home-dir-handler "public_html")) (list (cons "h" (home-dir-handler "public_html"))
(cons "seval" seval-handler)
(cons "cgi-bin" (cgi-handler cgi-bin-dir))) (cons "cgi-bin" (cgi-handler cgi-bin-dir)))
(rooted-file-or-directory-handler htdocs-dir))))))))) (rooted-file-or-directory-handler htdocs-dir)))))))))
)) ))