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

nibble-arrays: replace a -rot usage with locals

db4
Slava Pestov 2010-05-29 05:22:10 -04:00
parent 929a2d5169
commit 709687e55f
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/nibble-arrays/nibble-arrays.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2008 Slava Pestov. ! Copyright (C) 2008, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: math kernel sequences sequences.private byte-arrays USING: math kernel sequences sequences.private byte-arrays
alien prettyprint.custom parser accessors ; alien prettyprint.custom parser accessors locals ;
IN: nibble-arrays IN: nibble-arrays
TUPLE: nibble-array TUPLE: nibble-array
@ -20,8 +20,10 @@ CONSTANT: nibble BIN: 1111
: get-nibble ( n byte -- nibble ) : get-nibble ( n byte -- nibble )
swap neg shift nibble bitand ; inline swap neg shift nibble bitand ; inline
: set-nibble ( value n byte -- byte' ) :: set-nibble ( value n byte -- byte' )
nibble pick shift bitnot bitand -rot shift bitor ; inline byte nibble n shift bitnot bitand
value n shift
bitor ; inline
: nibble@ ( n nibble-array -- shift n' byte-array ) : nibble@ ( n nibble-array -- shift n' byte-array )
[ >fixnum byte/nibble ] [ underlying>> ] bi* ; inline [ >fixnum byte/nibble ] [ underlying>> ] bi* ; inline