scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add record disclosers.

This commit is contained in:
sperber 2005-06-10 09:51:18 +00:00
parent f3c436d746
commit 64e2e8bc8a
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scheme/lib/url.scm
View File

@ -39,6 +39,11 @@
(host server-host) (host server-host)
(port server-port)) (port server-port))
(define-record-discloser :server
(lambda (s)
(list 'server
(server->string s))))
;;; Parse a URI path (a list representing a path, not a string!) into ;;; Parse a URI path (a list representing a path, not a string!) into
;;; a server record. Default values are taken from the server ;;; a server record. Default values are taken from the server
;;; record DEFAULT except for the host. Returns a server record if ;;; record DEFAULT except for the host. Returns a server record if
@ -115,6 +120,11 @@
(search http-url-search) (search http-url-search)
(fragment-identifier http-url-fragment-identifier)) (fragment-identifier http-url-fragment-identifier))
(define-record-discloser :http-url
(lambda (url)
(list 'http-url
(http-url->string url))))
;;; The URI parser (parse-uri in uri.scm) maps a string to four parts: ;;; The URI parser (parse-uri in uri.scm) maps a string to four parts:
;;; <scheme> : <path> ? <search> # <frag-id> <scheme>, <search>, and ;;; <scheme> : <path> ? <search> # <frag-id> <scheme>, <search>, and
;;; <frag-id> are strings; <path> is a non-empty string list -- the ;;; <frag-id> are strings; <path> is a non-empty string list -- the