49 lines
1.3 KiB
Scheme
49 lines
1.3 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 (httpd scheme-program-server)))
|
|
|
|
;;; package to load scheme programs
|
|
|
|
;;
|
|
;; source files are missing!?
|
|
;;
|
|
|
|
;;; (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))
|