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

use the new with-logging

db4
Doug Coleman 2009-02-17 11:30:06 -06:00
parent 4440a210b1
commit d92b02b0c2
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/io/servers/connection/connection.factor
View File

@ -12,6 +12,7 @@ IN: io.servers.connection
TUPLE: threaded-server TUPLE: threaded-server
name name
log-level
secure insecure secure insecure
secure-config secure-config
sockets sockets
@ -29,6 +30,7 @@ ready ;
: new-threaded-server ( class -- threaded-server ) : new-threaded-server ( class -- threaded-server )
new new
"server" >>name "server" >>name
DEBUG >>log-level
ascii >>encoding ascii >>encoding
1 minutes >>timeout 1 minutes >>timeout
V{ } clone >>sockets V{ } clone >>sockets
@ -115,7 +117,7 @@ M: threaded-server handle-client* handler>> call ;
: (start-server) ( threaded-server -- ) : (start-server) ( threaded-server -- )
init-server init-server
dup threaded-server [ dup threaded-server [
dup name>> [ [ ] [ name>> ] [ log-level>> ] tri [
[ listen-on [ start-accept-loop ] parallel-each ] [ listen-on [ start-accept-loop ] parallel-each ]
[ ready>> raise-flag ] [ ready>> raise-flag ]
bi bi