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

urls: simpler url-port.

clean-linux-x86-64
John Benediktsson 2019-09-07 07:31:33 -07:00
parent 0f537f0c45
commit b1b3483ce0
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
basis/urls/urls.factor
View File

@ -1,9 +1,12 @@
! Copyright (C) 2008, 2011 Slava Pestov. ! Copyright (C) 2008, 2011 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays ascii assocs combinators fry io.pathnames
io.sockets io.sockets.secure kernel lexer linked-assocs make USING: accessors arrays ascii assocs combinators fry
math.parser namespaces peg.ebnf present sequences splitting io.pathnames io.sockets io.sockets.secure kernel lexer
strings strings.parser urls.encoding vocabs.loader multiline ; linked-assocs make math.parser multiline namespaces peg.ebnf
present sequences splitting strings strings.parser urls.encoding
vocabs.loader ;
IN: urls IN: urls
TUPLE: url protocol username password host port path query anchor ; TUPLE: url protocol username password host port path query anchor ;
@ -101,7 +104,7 @@ M: pathname >url string>> >url ;
] [ 2drop ] if ; ] [ 2drop ] if ;
: url-port ( url -- port/f ) : url-port ( url -- port/f )
[ port>> ] [ port>> ] [ protocol>> protocol-port ] tri = [ port>> ] [ protocol>> protocol-port ] bi over =
[ drop f ] when ; [ drop f ] when ;
: unparse-host-part ( url -- ) : unparse-host-part ( url -- )