suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added url-structs.ss

Browse Source 
svn: r384
This commit is contained in:
Robby Findler 2005-07-16 14:06:01 +00:00
parent 5072476095
commit 1f8b083b0d
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/net/url-structs.ss Normal file
View File

@ -0,0 +1,16 @@
(module url-structs mzscheme
(require (lib "contract.ss"))
(define-struct url (scheme user host port path query fragment))
(define-struct path/param (path param))
(provide/contract
(struct url ([scheme (union false/c string?)]
[user (union false/c string?)]
[host (union false/c string?)]
[port (union false/c number?)]
[path (listof (union string? path/param?))]
[query (listof (cons/c symbol? string?))]
[fragment (union false/c string?)]))
(struct path/param ([path string?]
[param string?]))))