add a copy of the regexp definitions HEX and ESCAPED from structure
url to resolve mutual dependency
This commit is contained in:
parent
184c284c4a
commit
d174ad3954
|
@ -15,6 +15,10 @@
|
|||
;;; decode a URI
|
||||
;;; walk over string s and unescape all occurrences of RegExp 'escaped' (see url.scm).
|
||||
|
||||
;copy from url.scm:
|
||||
(define hex (rx hex-digit))
|
||||
(define escaped (rx (: "%" ,hex ,hex)))
|
||||
|
||||
;;; Remark:
|
||||
;;; we assume no non-ASCII characters occur in the URI; therefore the
|
||||
;;; ascii table is used for conversion of the octet the hexnumber
|
||||
|
|
|
@ -463,7 +463,6 @@
|
|||
|
||||
(define-structure uri uri-interface
|
||||
(open scheme-with-scsh
|
||||
(subset url (escaped))
|
||||
ascii
|
||||
bitwise)
|
||||
(files (lib uri)))
|
||||
|
@ -724,11 +723,7 @@
|
|||
(define-structure httpd-handler-lib httpd-handler-lib-interface
|
||||
(open scheme-with-scsh
|
||||
format-net
|
||||
; sigevents
|
||||
(subset srfi-13 (string-trim-both string-trim string-prefix? string-reverse string-contains string-take))
|
||||
; let-opt ; :optional
|
||||
; locks
|
||||
; handle-fatal-error
|
||||
sunet-utilities
|
||||
httpd-requests
|
||||
httpd-responses
|
||||
|
|
Loading…
Reference in New Issue