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

gopher.server: sillyness.

char-rename
John Benediktsson 2016-10-28 15:18:06 -07:00
parent 1a29e1b03e
commit 563fa33382
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/gopher/server/server.factor
View File

@ -93,7 +93,7 @@ TUPLE: gopher-server < threaded-server
readln dup [ "\t\r\n" member? ] find drop [ head ] when* readln dup [ "\t\r\n" member? ] find drop [ head ] when*
trim-tail-separators ; trim-tail-separators ;
: handle-gopher-client ( server -- ) M: gopher-server handle-client*
dup serving-directory>> read-gopher-path append-path dup serving-directory>> read-gopher-path append-path
dup file-info type>> { dup file-info type>> {
{ +directory+ [ send-directory ] } { +directory+ [ send-directory ] }
@ -110,8 +110,7 @@ PRIVATE>
swap resolve-symlinks >>serving-directory swap resolve-symlinks >>serving-directory
"gopher.server" >>name "gopher.server" >>name
binary >>encoding binary >>encoding
5 minutes >>timeout 5 minutes >>timeout ;
dup '[ _ handle-gopher-client ] >>handler ;
: start-gopher-server ( directory port -- server ) : start-gopher-server ( directory port -- server )
<gopher-server> start-server ; <gopher-server> start-server ;