48 lines
1.1 KiB
Scheme
48 lines
1.1 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!?
|
|
;;
|
|
|
|
;;; cheme-programs-package (export testprog
|
|
;;; info2www)
|
|
;;; ; syscalls & INDEX
|
|
;;; ; WHEN, ? for COND
|
|
;;; ax ; Conditionals
|
|
;;; age ; Records
|
|
;;; kage ; Formatted HTML output
|
|
;;; ; REQUEST record type, HTTP-ERROR & reply codes
|
|
;;; ; version stuff
|
|
;;; ; UNESCAPE-URI
|
|
;;; ge ; ERROR
|
|
;;; ; Pretty-printer
|
|
;;; 822
|
|
;;; val ; EVAL-SAFELY
|
|
;;; ; IGNORE-ERROR
|
|
;;; ; SKIP-WHITESPACE
|
|
;;; forms ; PARSE-HTML-FORM-QUERY
|
|
;;;
|
|
;;;
|
|
;;; |