sunet/program-modules.scm

;;; 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))