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

Merge branch 'master' of git://github.com/slavapestov/factor into highlight

db4
John Benediktsson 2011-04-12 18:07:09 -07:00
parent cfbc08e7ac 07f2d75316
commit fad33fdfc8
2 changed files with 13 additions and 7 deletions
extra
dns
game/debug/tests

16
extra/dns/dns.factor
View File

@ -6,7 +6,8 @@ io io.binary io.encodings.binary io.encodings.string
io.encodings.utf8 io.sockets io.sockets.private
io.streams.byte-array io.timeouts kernel make math math.bitwise
math.parser namespaces nested-comments random sequences
slots.syntax splitting system vectors vocabs.loader strings ;
slots.syntax splitting system vectors vocabs.loader strings
ascii ;
IN: dns
: with-input-seek ( n seek-type quot -- )
@ -238,10 +239,15 @@ M: SOA parse-rdata 2drop parse-soa ;
[ [ parse-rr ] replicate ] change-additional-section
] with-byte-reader ;
: >n/label ( string -- byte-array )
[ length 1array ] [ utf8 encode ] bi B{ } append-as ;
ERROR: unsupported-domain-name string ;
: >name ( domain -- byte-array ) "." split [ >n/label ] map concat ;
: >n/label ( string -- byte-array )
dup [ ascii? ] all?
[ unsupported-domain-name ] unless
[ length 1array ] [ ] bi B{ } append-as ;
: >name ( domain -- byte-array )
"." split [ >n/label ] map concat ;
: query>byte-array ( query -- byte-array )
[
@ -321,7 +327,7 @@ M: TXT rdata>byte-array
: udp-query ( bytes server -- bytes' )
f 0 <inet4> <datagram>
30 seconds over set-timeout [
10 seconds over set-timeout [
[ send ] [ receive drop ] bi
] with-disposal ;

4
extra/game/debug/tests/tests.factor
View File

@ -41,14 +41,14 @@ IN: game.debug.tests
COLOR: purple { 5 5 } world dim>> draw-text
world [ 1 + ] change-frame# drop ;
TUPLE: tests-world < wasd-world frame-number ;
TUPLE: tests-world < wasd-world frame# ;
M: tests-world draw-world* draw-debug-tests ;
M: tests-world wasd-movement-speed drop 1/16. ;
M: tests-world wasd-near-plane drop 1/32. ;
M: tests-world wasd-far-plane drop 1024.0 ;
M: tests-world begin-game-world
init-gpu
0 >>frame-number
0 >>frame#
{ 0.0 0.0 2.0 } 0 0 set-wasd-view drop ;
GAME: run-tests {