Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Removed serialization context customization in the wrong place |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
c1e1794f4518c1851fd366d8234af3ae |
| User & Date: | murphy 2013-06-02 15:52:06 |
Context
|
2013-11-24
| ||
| 22:17 | Optional direct HTTP support using soup check-in: 11d7807ffd user: murphy tags: trunk | |
|
2013-06-02
| ||
| 15:52 | Removed serialization context customization in the wrong place check-in: c1e1794f45 user: murphy tags: trunk | |
| 15:19 | The parameters table should not be part of the serialization context check-in: 853b10e568 user: murphy tags: trunk | |
Changes
Changes to webgate-core.scm.
470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 |
405 "The access method used to request the document is not supported."
#:headers
(list
(cons "Allow" (string-join (handled-request-methods) ", "))))))
(cond
((resource-handler path)
=> (lambda (proc)
(current-resource-context
(%make-resource-context
getenv method path))
(current-serialization-context
(make-serialization-context
(current-input-port) input-port
(current-output-port) output-port
(current-error-port)
(current-resource-context) getenv))
(with-limited-continuation
(cut proc parameters))))
(else
(make-error-response
404 "The requested resource was not found by the server.")))
(make-response 204 '()))))
output-port))
|
> > | | < < < < < < < < | |
470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 |
405 "The access method used to request the document is not supported."
#:headers
(list
(cons "Allow" (string-join (handled-request-methods) ", "))))))
(cond
((resource-handler path)
=> (lambda (proc)
(with-limited-continuation
(lambda ()
(current-resource-context
(%make-resource-context getenv method path))
(proc parameters)))))
(else
(make-error-response
404 "The requested resource was not found by the server.")))
(make-response 204 '()))))
output-port))
|
Changes to webgate.scm.
72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 |
(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)
(include
"webgate-core.scm"))
(module webgate-suspend
(current-suspension-key
suspended
send/suspend)
|
| |
72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 |
(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 suspension webgate-utils) (include "webgate-core.scm")) (module webgate-suspend (current-suspension-key suspended send/suspend) |