Changeset 12599 in project


Ignore:
Timestamp:
11/26/08 21:00:49 (11 years ago)
Author:
sjamaan
Message:

Export authority accessors

File:
1 edited

Legend:

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

    r12582 r12599  
    4444   uri? uri-auth uri-authority uri-scheme uri-path uri-query
    4545   uri-fragment uri-host uri-port uri-username uri-password
     46   authority? authority-host authority-port
     47   authority-username authority-password
     48   
    4649   absolute-uri uri->string uri->list
    4750   uri-relative-to uri-relative-from
     
    98101  (let ((auth (URI-authority x)))
    99102    (and auth (URIAuth-password auth))))
     103
     104(define authority? URIAuth?)
     105(define authority-host URIAuth-host)
     106(define authority-port URIAuth-port)
     107(define authority-username URIAuth-username)
     108(define authority-password URIAuth-password)
    100109
    101110(define update-authority update-URIAuth)
Note: See TracChangeset for help on using the changeset viewer.