Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Clean up tcp listener in webgate-main using dynamic wind |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
22158254d84b0d464018856fc70487fe |
User & Date: | murphy 2013-05-31 23:14:11.931 |
Context
2013-06-02
| ||
15:19 | The parameters table should not be part of the serialization context check-in: 853b10e568 user: murphy tags: trunk | |
2013-05-31
| ||
23:14 | Clean up tcp listener in webgate-main using dynamic wind check-in: 22158254d8 user: murphy tags: trunk | |
12:37 | More consistent signature for make-redirect-response check-in: bc50958c55 user: murphy tags: trunk | |
Changes
Changes to webgate.scm.
︙ | ︙ | |||
64 65 66 67 68 69 70 | resource-context current-resource-context resource-context? resource-context-getenv resource-context-method resource-context-path response make-response response? collect-response make-html-response make-error-response make-redirect-response response-status response-status-message write-response | | > | 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 | resource-context current-resource-context resource-context? resource-context-getenv resource-context-method resource-context-path response make-response response? collect-response make-html-response make-error-response make-redirect-response response-status response-status-message write-response resource-handler resource-uri (define-resource resource-handler extend-procedure procedure-data) handle-query-parameters handle-request) (import scheme chicken srfi-1 srfi-4 srfi-13 srfi-18 srfi-69 srfi-99 data-structures ports extras lolevel irregex protobuf-generic suspension webgate-utils) |
︙ | ︙ | |||
104 105 106 107 108 109 110 | scheme chicken srfi-13 srfi-18 srfi-69 data-structures irregex webgate-utils tcp) (include "webgate-scgi.scm")) (module webgate | > > > > > > > > > > | | > | < < < < > > > | > | 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 | scheme chicken srfi-13 srfi-18 srfi-69 data-structures irregex webgate-utils tcp) (include "webgate-scgi.scm")) (module webgate (webgate-main) (import scheme chicken srfi-13 webgate-cgi webgate-scgi tcp (only webgate-core handle-request) (only webgate-suspend current-suspension-key)) (reexport (only webgate-core message make-message message? message-type message-headers message-body message-text parameter-list-ref parameter-ref resource-context current-resource-context resource-context? resource-context-getenv resource-context-method resource-context-path response make-response response? collect-response make-html-response make-error-response make-redirect-response response-status response-status-message define-resource resource-uri) (only webgate-suspend send/suspend)) (define (webgate-main #!optional (arguments (command-line-arguments))) (apply (lambda (#!key port (backlog 4) (host "localhost") (suspension-key #f)) (cond (suspension-key => current-suspension-key)) (if port (let ((ear (tcp-listen port backlog host))) (dynamic-wind void (cut scgi-main-loop handle-request ear) (cut tcp-close ear))) (cgi-main-loop handle-request))) (map (lambda (arg) (if (string-prefix? "-" arg) (string->keyword (substring/shared arg 1)) (or (string->number arg) arg))) arguments))) ) |