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

add comment on uri-parser

This commit is contained in:
vibr 2004-10-06 13:29:06 +00:00
parent 53e3e9672f
commit 649f374e8b
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/lib/uri.scm
View File

@ -12,12 +12,18 @@
;;; - http://www.w3.org/Addressing/rfc1630.txt ;;; - http://www.w3.org/Addressing/rfc1630.txt
;;; Original RFC ;;; Original RFC
;;; - http://www.w3.org/hypertext/WWW/Addressing/URL/URI_Overview.html ;;; - http://www.w3.org/hypertext/WWW/Addressing/URL/URI_Overview.html
;;; General Web page of URI pointers. ;;; General Web page of URI pointers.
(define uri-reserved (string->char-set ";/#?: =")) (define uri-reserved (string->char-set ";/#?: ="))
(define uri-reserved-sans-= (char-set-delete uri-reserved #\=)) (define uri-reserved-sans-= (char-set-delete uri-reserved #\=))
;;; Note: this "uri-parser" has never been adapted to RCF 2396
;;; (Uniform Resource Identifiers: Generic Syntax)
;;; It is rather useless by now since it's hard to determine
;;; exactly which subset of RFC 2396's URIs it works for
;;;(plus the subset it works for is a rather arbitrary one).
(define (parse-uri s) (define (parse-uri s)
(let* ((slen (string-length s)) (let* ((slen (string-length s))
;; Search forwards for colon (or intervening reserved char). ;; Search forwards for colon (or intervening reserved char).