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

io.binary.fast: write generic be> and le> words.

db4
John Benediktsson 2013-11-24 10:45:25 -08:00
parent 627993fc1a
commit 46b043c0b8
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
extra/io/binary/fast/fast.factor
View File

@ -3,6 +3,8 @@
USING: combinators combinators.smart fry kernel macros math USING: combinators combinators.smart fry kernel macros math
math.ranges sequences sequences.generalizations io.binary math.ranges sequences sequences.generalizations io.binary
locals ; locals ;
RENAME: be> io.binary => slow-be>
RENAME: le> io.binary => slow-le>
IN: io.binary.fast IN: io.binary.fast
ERROR: bad-length bytes n ; ERROR: bad-length bytes n ;
@ -36,7 +38,22 @@ MACRO: reassemble-le ( n -- quot ) le-range reassemble-bytes ;
: 4be> ( bytes -- x ) 4 n-be> ; : 4be> ( bytes -- x ) 4 n-be> ;
: 8be> ( bytes -- x ) 8 n-be> ; : 8be> ( bytes -- x ) 8 n-be> ;
: be> ( bytes -- x )
dup length {
{ 2 [ 2be> ] }
{ 4 [ 4be> ] }
{ 8 [ 8be> ] }
[ drop slow-be> ]
} case ;
: 2le> ( bytes -- x ) 2 n-le> ; : 2le> ( bytes -- x ) 2 n-le> ;
: 4le> ( bytes -- x ) 4 n-le> ; : 4le> ( bytes -- x ) 4 n-le> ;
: 8le> ( bytes -- x ) 8 n-le> ; : 8le> ( bytes -- x ) 8 n-le> ;
: le> ( bytes -- x )
dup length {
{ 2 [ 2le> ] }
{ 4 [ 4le> ] }
{ 8 [ 8le> ] }
[ drop slow-le> ]
} case ;