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

dns.server: new networking code

db4
Eduardo Cavazos 2008-06-16 16:29:49 -05:00
parent e60f25fe2b
commit aa1708d0b5
1 changed files with 9 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
extra/dns/server/server.factor
View File

@ -1,6 +1,6 @@
USING: kernel combinators sequences sets math threads USING: kernel combinators sequences sets math threads namespaces continuations
io.sockets unicode.case accessors debugger io io.sockets unicode.case accessors destructors
combinators.cleave combinators.lib combinators.cleave combinators.lib
newfx fry newfx fry
dns dns.util dns.misc ; dns dns.util dns.misc ;
@ -193,34 +193,14 @@ DEFER: query->rrs
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: (socket) ( -- vec ) V{ f } ; : (handle-request) ( packet -- )
[ [ find-answer ] with-message-bytes ] change-data respond ;
: socket ( -- socket ) (socket) 1st ; : handle-request ( packet -- ) [ (handle-request) ] curry in-thread ;
: init-socket-on-port ( port -- ) : receive-loop ( socket -- )
f swap <inet4> <datagram> 0 (socket) as-mutate ; [ receive-packet handle-request ] [ receive-loop ] bi ;
: init-socket ( -- ) 53 init-socket-on-port ; : loop ( addr-spec -- )
[ <datagram> '[ , [ receive-loop ] with-disposal ] try ] [ loop ] bi ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: (handle-request) ( byte-array addr-spec -- )
>r
parse-message
find-answer
message->ba
r>
socket send ;
: handle-request ( byte-array addr-spec -- )
'[ , , (handle-request) ] in-thread ;
: loop ( -- ) socket receive handle-request loop ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: start ( -- ) init-socket loop ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
MAIN: start