Changeset 11823 in project


Ignore:
Timestamp:
08/31/08 12:04:26 (13 years ago)
Author:
sjamaan
Message:

Merge changes from uri-generic in release 3 into release 4

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

Legend:

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

    r11802 r11823  
    635635
    636636(define (absolute-uri s)
    637   (match (scheme s)
    638          ((us rst) 
    639           (match-let (((ua up rst)  (hier-part rst))
    640                       ((uq rst)     (match rst ((#\? . rst)  (query rst))
    641                                            (else (list (list) rst)))))
    642                      (make-URI scheme: us authority: ua path: up query: uq fragment: #f)))))
     637  (let ((s (if (string? s) (uri-string->char-list s) s)))
     638    (match (scheme s)
     639           ((us rst) 
     640            (match-let (((ua up rst)  (hier-part rst))
     641                        ((uq rst)     (match rst ((#\? . rst)  (query rst))
     642                                             (else (list (list) rst)))))
     643                       (make-URI scheme: (string->symbol (list->string us)) authority: ua
     644                                 path: (map uri-char-list->string up) query: (and uq (filter-map query->string uq))
     645                                 fragment: #f))))))
    643646                     
    644647
     
    654657            (string-append
    655658             ((lambda (x) (or (and x (string-append (->string x) ":")) ""))  scheme)
    656              (if authority (string-append (uri-auth->string authority userinfomap) "/") "")
     659             (if authority (string-append (uri-auth->string authority userinfomap) 
     660                                          (if (or (null? path) (not (string-prefix? "/" (car path)))) "/" ""))
     661                 "")
    657662             (string-concatenate path)
    658663             (if query (string-concatenate (cons "?" (intersperse query "&"))) "")
  • release/4/uri-generic/trunk/uri-generic.setup

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