steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add relative-url to urls

db4
Doug Coleman 2008-10-04 13:26:17 -05:00
parent a057da4116
commit 12afcd2c2c
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/urls/urls-docs.factor
View File

@ -135,6 +135,12 @@ HELP: relative-url
} }
} ; } ;
HELP: relative-url?
{ $values
{ "url" url }
{ "?" "a boolean" } }
{ $description "Tests whether a given url is relative to a domain." } ;
HELP: secure-protocol? HELP: secure-protocol?
{ $values { "protocol" string } { "?" "a boolean" } } { $values { "protocol" string } { "?" "a boolean" } }
{ $description "Tests if protocol connections must be made with secure sockets (SSL/TLS)." } { $description "Tests if protocol connections must be made with secure sockets (SSL/TLS)." }

2
basis/urls/urls.factor
View File

@ -155,6 +155,8 @@ PRIVATE>
f >>host f >>host
f >>port ; f >>port ;
: relative-url? ( url -- ? ) protocol>> not ;
! Half-baked stuff follows ! Half-baked stuff follows
: secure-protocol? ( protocol -- ? ) : secure-protocol? ( protocol -- ? )
"https" = ; "https" = ;