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

io.binary.fast: use alien technique for faster le> and be>.

db4
John Benediktsson 2014-06-02 17:13:52 -07:00
parent ece22caa43
commit d7775b150e
1 changed files with 31 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,8 +1,8 @@
! Copyright (C) 2011 Doug Coleman. ! Copyright (C) 2011 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.data combinators combinators.smart endian fry USING: alien.data byte-arrays combinators combinators.smart
io.binary kernel locals macros math math.ranges sequences endian fry io.binary kernel locals macros math math.ranges
sequences.generalizations ; sequences sequences.generalizations ;
QUALIFIED-WITH: alien.c-types c QUALIFIED-WITH: alien.c-types c
RENAME: be> io.binary => slow-be> RENAME: be> io.binary => slow-be>
RENAME: le> io.binary => slow-le> RENAME: le> io.binary => slow-le>
@ -37,9 +37,20 @@ MACRO: reassemble-le ( n -- quot ) le-range reassemble-bytes ;
:: n-le> ( bytes n -- x ) :: n-le> ( bytes n -- x )
bytes n check-length drop n firstn-unsafe n reassemble-le ; inline bytes n check-length drop n firstn-unsafe n reassemble-le ; inline
: 2be> ( bytes -- x ) 2 n-be> ; : 2be> ( bytes -- x )
: 4be> ( bytes -- x ) 4 n-be> ; compute-native-endianness big-endian =
: 8be> ( bytes -- x ) 8 n-be> ; [ dup byte-array? ] [ f ] if
[ c:short deref ] [ 2 n-be> ] if ;
: 4be> ( bytes -- x )
compute-native-endianness big-endian =
[ dup byte-array? ] [ f ] if
[ c:int deref ] [ 4 n-be> ] if ;
: 8be> ( bytes -- x )
compute-native-endianness big-endian =
[ dup byte-array? ] [ f ] if
[ c:longlong deref ] [ 8 n-be> ] if ;
: be> ( bytes -- x ) : be> ( bytes -- x )
dup length { dup length {
@ -49,9 +60,20 @@ MACRO: reassemble-le ( n -- quot ) le-range reassemble-bytes ;
[ drop slow-be> ] [ drop slow-be> ]
} case ; } case ;
: 2le> ( bytes -- x ) 2 n-le> ; : 2le> ( bytes -- x )
: 4le> ( bytes -- x ) 4 n-le> ; compute-native-endianness little-endian =
: 8le> ( bytes -- x ) 8 n-le> ; [ dup byte-array? ] [ f ] if
[ c:short deref ] [ 2 n-le> ] if ;
: 4le> ( bytes -- x )
compute-native-endianness little-endian =
[ dup byte-array? ] [ f ] if
[ c:int deref ] [ 4 n-le> ] if ;
: 8le> ( bytes -- x )
compute-native-endianness little-endian =
[ dup byte-array? ] [ f ] if
[ c:longlong deref ] [ 8 n-le> ] if ;
: le> ( bytes -- x ) : le> ( bytes -- x )
dup length { dup length {