Changeset 15452 in project


Ignore:
Timestamp:
08/14/09 05:22:43 (10 years ago)
Author:
Ivan Raikov
Message:

modified the constructors for uri-generic to return #f if there are any characters left in the input stream after parsing the uri string.

Location:
release/4/uri-generic/trunk
Files:
2 edited

Legend:

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

    r15040 r15452  
    293293                         ((uf rst)      (match rst ((#\# . rst) (fragment rst))
    294294                                               (else (list #f rst)))))
    295                         (make-URI scheme: (string->symbol (list->string us)) authority: ua
    296                                   path: (uri-path-list->path up) query: (and uq (uri-char-list->string uq))
    297                                   fragment: (and uf (uri-char-list->string uf)))))
     295                        (and (null? rst)
     296                             (make-URI scheme: (string->symbol (list->string us)) authority: ua
     297                                       path: (uri-path-list->path up) query: (and uq (uri-char-list->string uq))
     298                                       fragment: (and uf (uri-char-list->string uf))))))
    298299         (else #f))))
    299300
     
    690691                    ((uf rst)     (match rst ((#\# . rst) (fragment rst))
    691692                                         (else (list #f rst)))))
    692                    (make-URI scheme: #f authority: ua path: (uri-path-list->path up)
    693                              query: (and uq (uri-char-list->string uq))
    694                              fragment: (and uf (uri-char-list->string uf))))))
     693                   (and (null? rst)
     694                        (make-URI scheme: #f authority: ua path: (uri-path-list->path up)
     695                                  query: (and uq (uri-char-list->string uq))
     696                                  fragment: (and uf (uri-char-list->string uf)))))))
    695697
    696698(define (relative-ref? u)
  • release/4/uri-generic/trunk/uri-generic.setup

    r15040 r15452  
    1313
    1414  ;; Assoc list with properties for your extension:
    15   '((version 2.3)
     15  '((version 2.31)
    1616    (documentation "uri-generic.html")))
Note: See TracChangeset for help on using the changeset viewer.