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

dns: Add stack-effects

db4
Eduardo Cavazos 2008-06-09 23:00:33 -05:00
parent ac591d1c67
commit 102b9aab76
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/dns/dns.factor
View File

@ -1,5 +1,6 @@
USING: kernel byte-arrays combinators strings arrays sequences splitting USING: kernel byte-arrays combinators strings arrays sequences splitting
grouping
math math.functions math.parser random math math.functions math.parser random
destructors destructors
io io.binary io.sockets io.encodings.binary io io.binary io.sockets io.encodings.binary
@ -382,7 +383,7 @@ SYMBOLS: NO-ERROR FORMAT-ERROR SERVER-FAILURE NAME-ERROR NOT-IMPLEMENTED
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: >> neg shift ; : >> ( x n -- y ) neg shift ;
: get-header-bits ( ba i -- qr opcode aa tc rd ra z rcode ) : get-header-bits ( ba i -- qr opcode aa tc rd ra z rcode )
get-double get-double