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