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

More structure name normalization.

This commit is contained in:
sperber 2002-11-29 14:42:02 +00:00
parent 61c8b7fba2
commit b45c23df44
2 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
scheme/httpd/server.scm
View File

@ -14,11 +14,10 @@ exec scsh -lm ../packages.scm -dm -o http-top -e top -s "$0" "$@"
(define-structure http-top (export top) (define-structure http-top (export top)
(open httpd-core (open httpd-core
httpd-make-options httpd-make-options
cgi-server httpd-cgi-server
httpd-basic-handlers httpd-basic-handlers
seval-handler httpd-seval-handlers
scsh scheme-with-scsh)
scheme)
(begin (begin
;; Kitchen-sink request handler. ;; Kitchen-sink request handler.

18
scheme/packages.scm
View File

@ -380,15 +380,15 @@
rooted-file-handler rooted-file-handler
rooted-file-or-directory-handler)) rooted-file-or-directory-handler))
(define-interface seval-handler-interface (define-interface httpd-seval-handlers-interface
(export seval-handler)) (export httpd-seval-handler))
(define-interface info-gateway-interface (define-interface httpd-info-gateway-interface
(export info-handler (export info-handler
find-info-file find-info-file
info-gateway-error)) info-gateway-error))
(define-interface rman-gateway-interface (define-interface httpd-rman-gateway-interface
(export rman-handler (export rman-handler
man man
parse-man-entry parse-man-entry
@ -398,7 +398,7 @@
cat-n-decode cat-n-decode
nroff-n-decode)) nroff-n-decode))
(define-interface cgi-server-interface (define-interface httpd-cgi-handlers-interface
(export cgi-default-bin-path (export cgi-default-bin-path
cgi-handler)) cgi-handler))
@ -784,7 +784,7 @@
) )
(files (httpd file-dir-handler))) (files (httpd file-dir-handler)))
(define-structure seval-handler seval-handler-interface (define-structure httpd-seval-handler httpd-seval-handler-interface
(open scheme-with-scsh ; syscalls & INDEX (open scheme-with-scsh ; syscalls & INDEX
httpd-error httpd-error
httpd-requests ; v0.9-request httpd-requests ; v0.9-request
@ -803,7 +803,7 @@
) )
(files (httpd seval))) (files (httpd seval)))
(define-structure info-gateway info-gateway-interface (define-structure httpd-info-gateway httpd-info-gateway-interface
(open scheme-with-scsh (open scheme-with-scsh
big-scheme big-scheme
srfi-13 srfi-13
@ -817,7 +817,7 @@
handle-fatal-error) handle-fatal-error)
(files (httpd info-gateway))) (files (httpd info-gateway)))
(define-structure rman-gateway rman-gateway-interface (define-structure httpd-rman-gateway httpd-rman-gateway-interface
(open scheme-with-scsh (open scheme-with-scsh
httpd-responses httpd-responses
httpd-requests httpd-requests
@ -833,7 +833,7 @@
srfi-13) srfi-13)
(files (httpd rman-gateway))) (files (httpd rman-gateway)))
(define-structure cgi-server cgi-server-interface (define-structure httpd-cgi-handlers httpd-cgi-handlers-interface
(open scheme-with-scsh (open scheme-with-scsh
srfi-13 srfi-13
rfc822 rfc822