add a copy of the regexp definitions HEX and ESCAPED from structure

url to resolve mutual dependency
This commit is contained in:
vibr 2005-04-15 15:34:48 +00:00
parent 184c284c4a
commit d174ad3954
2 changed files with 4 additions and 5 deletions

View File

@ -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

View File

@ -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