From d3bf49345469a59727f753d7990822103fd71d34 Mon Sep 17 00:00:00 2001 From: interp Date: Wed, 28 Aug 2002 15:42:15 +0000 Subject: [PATCH] added --dump flag --- start-web-server | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/start-web-server b/start-web-server index 4a1e022..d49ecc1 100755 --- a/start-web-server +++ b/start-web-server @@ -10,6 +10,7 @@ exec scsh -lm packages.scm -dm -o http-test -e main -s "$0" "$@" httpd-basic-handlers httpd-file-directory-handlers cgi-server + seval-handler let-opt scsh scheme) @@ -82,6 +83,12 @@ exec scsh -lm packages.scm -dm -o http-test -e main -s "$0" "$@" ((string=? (car options) "--help") (display (usage)) (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 (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 (alist-path-dispatcher (list (cons "h" (home-dir-handler "public_html")) + (cons "seval" seval-handler) (cons "cgi-bin" (cgi-handler cgi-bin-dir))) (rooted-file-or-directory-handler htdocs-dir))))))))) ))