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

io.binary.fast: speed up when used by byte-arrays.

db4
John Benediktsson 2015-05-31 07:08:07 -07:00
parent f24bbffb2a
commit b1ac83c908
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,7 +1,7 @@
! 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 byte-arrays combinators combinators.smart USING: alien.data byte-arrays combinators combinators.smart
endian fry io.binary kernel locals macros math math.ranges endian fry hints kernel locals macros math math.ranges
sequences 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>
@ -37,8 +37,11 @@ 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
HINTS: n-be> { byte-array object } ;
HINTS: n-le> { byte-array object } ;
<PRIVATE <PRIVATE
: if-endian ( endian bytes seq -- ) : if-endian ( endian bytes-quot seq-quot -- )
[ [
compute-native-endianness = compute-native-endianness =
[ dup byte-array? ] [ f ] if [ dup byte-array? ] [ f ] if