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

gopher: set 1 minute timeout by default.

db4
John Benediktsson 2014-12-26 19:20:22 -08:00
parent b2dec21d3e
commit e68c0ae8bd
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
extra/gopher/gopher.factor
View File

@ -1,12 +1,13 @@
! Copyright (C) 2014 John Benediktsson ! Copyright (C) 2014 John Benediktsson
! See http://factorcode.org/license.txt for BSD license ! See http://factorcode.org/license.txt for BSD license
USING: accessors byte-arrays colors.constants combinators USING: accessors byte-arrays calendar colors.constants
formatting fry images images.loader images.loader.private combinators formatting fry images images.loader
images.viewer io io.encodings.binary io.encodings.string images.loader.private images.viewer io io.encodings.binary
io.encodings.utf8 io.sockets io.styles kernel make math io.encodings.string io.encodings.utf8 io.sockets io.styles
math.parser namespaces present prettyprint sequences splitting io.timeouts kernel make math math.parser namespaces present
summary urls urls.encoding vocabs ; prettyprint sequences splitting summary urls urls.encoding
vocabs ;
IN: gopher IN: gopher
@ -57,7 +58,10 @@ ERROR: not-a-gopher-url url ;
[ port>> 70 or <inet> binary ] [ port>> 70 or <inet> binary ]
[ path>> rest [ "1/" ] when-empty ] [ path>> rest [ "1/" ] when-empty ]
[ query>> [ assoc>query url-decode "?" glue ] when* ] [ query>> [ assoc>query url-decode "?" glue ] when* ]
} cleave '[ _ gopher-get ] with-client ; } cleave '[
1 minutes input-stream get set-timeout
_ gopher-get
] with-client ;
<PRIVATE <PRIVATE