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
! See http://factorcode.org/license.txt for BSD license
USING: accessors byte-arrays colors.constants combinators
formatting fry images images.loader images.loader.private
images.viewer io io.encodings.binary io.encodings.string
io.encodings.utf8 io.sockets io.styles kernel make math
math.parser namespaces present prettyprint sequences splitting
summary urls urls.encoding vocabs ;
USING: accessors byte-arrays calendar colors.constants
combinators formatting fry images images.loader
images.loader.private images.viewer io io.encodings.binary
io.encodings.string io.encodings.utf8 io.sockets io.styles
io.timeouts kernel make math math.parser namespaces present
prettyprint sequences splitting summary urls urls.encoding
vocabs ;
IN: gopher
@ -57,7 +58,10 @@ ERROR: not-a-gopher-url url ;
[ port>> 70 or <inet> binary ]
[ path>> rest [ "1/" ] when-empty ]
[ 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