extend plugin-utilities structure (send-html/suspend, etc.)

This commit is contained in:
interp 2002-09-24 08:19:41 +00:00
parent 8f67c75101
commit 0d9b85d156
1 changed files with 23 additions and 5 deletions

View File

@ -68,10 +68,14 @@
(define-interface servlet-handler-interface (define-interface servlet-handler-interface
(export servlet-handler)) (export servlet-handler))
(define-interface servlet-handler/plugin-interface
(export send/suspend
send/finish
))
(define-structures (define-structures
((servlet-handler servlet-handler-interface) ((servlet-handler servlet-handler-interface)
(plugin-utilities plugin-utilities-interface)) (servlet-handler/plugin servlet-handler/plugin-interface))
(open httpd-responses (open httpd-responses
httpd-request httpd-request
uri ;URI-PATH-LIST->PATH uri ;URI-PATH-LIST->PATH
@ -87,20 +91,34 @@
profiling ;PROFILE-SPACE profiling ;PROFILE-SPACE
httpd-logging ;HTTP-SYSLOG httpd-logging ;HTTP-SYSLOG
shift-reset ;SHIFT and RESET shift-reset ;SHIFT and RESET
sxml-to-html ;SXML->HTML
conditions ;exception conditions ;exception
scsh ;regexp et al. scsh ;regexp et al.
scheme scheme
) )
(files servlet-handler)) (files servlet-handler))
(define-interface plugin-utilities-interface (define-interface plugin-utilities-interface
(export send-html/suspend (export send/suspend
send/finish
send-html/suspend
send-html/finish send-html/finish
)) form-query
extract-bindings
extract-single-binding))
(define-structure plugin-utilities plugin-utilities-interface
(open servlet-handler/plugin
httpd-responses
parse-html-forms
sxml-to-html ;SXML->HTML
srfi-1 ;FILTER
scsh
scheme)
(files utilities))
(define-interface plugin-interface (define-interface plugin-interface
(export main)) (export main)) ; MAIN gets one parameter, the REQUEST
(define-interface shift-reset-interface (define-interface shift-reset-interface
(export (reset :syntax) (export (reset :syntax)