44 lines
1.2 KiB
Scheme
44 lines
1.2 KiB
Scheme
|
;;; Scheme 48 module definitions for Scheme program execution.
|
||
|
|
;;; Gebhard Engelhart.
|
||
|
|
|
||
|
|
(define-structure scheme-program-server-package (export scheme-program-handler
|
||
|
|
runprogram)
|
||
|
|
(open strings
|
||
|
|
rfc822
|
||
|
|
crlf-io ; WRITE-CRLF
|
||
|
|
uri-package
|
||
|
|
url-package ; HTTP-URL record type
|
||
|
|
httpd-core ; REQUEST record type, HTTP-ERROR & reply codes
|
||
|
|
; version stuff
|
||
|
|
httpd-basic-handlers ; HTTP-HOMEDIR, SERVE-ROOTED-FILE-PATH
|
||
|
|
httpd-error ; HTTP-ERROR
|
||
|
|
scsh-utilities ; INDEX
|
||
|
|
scsh ; syscalls
|
||
|
|
formats ; format
|
||
|
|
condhax ; ? is COND
|
||
|
|
switch-syntax ; SWITCHQ
|
||
|
|
scheme)
|
||
|
|
(files scheme-program-server))
|
||
|
|
|
||
|
|
;;; package to load scheme programs
|
||
|
|
|
||
|
|
(define-structure scheme-programs-package (export testprog
|
||
|
|
info2www)
|
||
|
|
(open scsh ; syscalls & INDEX
|
||
|
|
condhax ; WHEN, ? for COND
|
||
|
|
switch-syntax ; Conditionals
|
||
|
|
defrec-package ; Records
|
||
|
|
htmlout-package ; Formatted HTML output
|
||
|
|
httpd-core ; REQUEST record type, HTTP-ERROR & reply codes
|
||
|
|
; version stuff
|
||
|
|
uri-package ; UNESCAPE-URI
|
||
|
|
error-package ; ERROR
|
||
|
|
pp ; Pretty-printer
|
||
|
|
strings rfc822
|
||
|
|
toothless-eval ; EVAL-SAFELY
|
||
|
|
handle ; IGNORE-ERROR
|
||
|
|
strings ; SKIP-WHITESPACE
|
||
|
|
parse-html-forms ; PARSE-HTML-FORM-QUERY
|
||
|
|
scheme)
|
||
|
|
(files testprog
|
||
|
|
info2www))
|