extend plugin-utilities structure (send-html/suspend, etc.)
This commit is contained in:
parent
8f67c75101
commit
0d9b85d156
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue