Changeset 13105 in project


Ignore:
Timestamp:
01/26/09 20:15:48 (11 years ago)
Author:
sjamaan
Message:

Remove three more unused procedures and add a note about "path" not being used in the grammar

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/uri-generic/trunk/uri-generic.scm

    r12953 r13105  
    138138(define (hexdigit-char? c)    (and (char? c) (char-set-contains? char-set:hex-digit c)))
    139139
    140 (define (reserved-char? c)    (and (char? c) (char-set-contains? char-set:uri-reserved c)))
    141 
    142140(define (unreserved-char? c)  (and (char? c) (char-set-contains? char-set:uri-unreserved c)))
    143141
     
    157155                    (char-set-contains? extras-set c) ))))
    158156 
    159 ;; same as uchar, but without sub-delims
    160 (define (schar extras)
    161   (let ((extras-set (or (and (char-set? extras) extras) (string->char-set extras))))
    162     (lambda (c) (or (pct-encoded? c)  (unreserved-char? c)
    163                     (char-set-contains? extras-set c) ))))
    164                  
    165157(define (many pred?)
    166158  (lambda (s)
     
    588580;;                 / path-empty      ; zero characters
    589581;;
     582;;  oddly, "path" is never used in the grammar. The following are used
     583;;  in "hier-part" and "relative-ref", however:
     584;;
    590585;;   path-abempty  = *( "/" segment )
    591586;;   path-abs      = "/" [ segment-nz *( "/" segment ) ]
     
    600595;;   pchar         = unreserved / pct-encoded / sub-delims / ":" / "@"
    601596
    602 (define (path s)
    603   (or (path-abempty s)  (path-abs s) (path-noscheme s)
    604       (path-rootless s) (list (list) s)))
    605 
    606  
    607597(define (slash-segment s)
    608598  (match s
Note: See TracChangeset for help on using the changeset viewer.