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

math.bitwise: removing bit-clear? since it is just "bit? not".

db4
John Benediktsson 2013-11-24 12:05:52 -08:00
parent eafc775bbb
commit 069d09807e
3 changed files with 2 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
basis/math/bitwise/bitwise-docs.factor
View File

@ -51,24 +51,7 @@ HELP: bitroll
{ $example "USING: math.bitwise prettyprint ;" "0xffff0000 8 32 bitroll .h" "ff0000ff" } { $example "USING: math.bitwise prettyprint ;" "0xffff0000 8 32 bitroll .h" "ff0000ff" }
} ; } ;
HELP: bit-clear? { bit? set-bit clear-bit } related-words
{ $values
{ "x" integer } { "n" integer }
{ "?" "a boolean" }
}
{ $description "Returns " { $link t } " if the nth bit is set to zero." }
{ $examples
{ $example "USING: math.bitwise prettyprint ;"
"0xff 8 bit-clear? ."
"t"
}
{ $example "USING: math.bitwise prettyprint ;"
"0xff 7 bit-clear? ."
"f"
}
} ;
{ bit? bit-clear? set-bit clear-bit } related-words
HELP: bit-count HELP: bit-count
{ $values { $values
@ -441,10 +424,9 @@ $nl
set-bit set-bit
clear-bit clear-bit
} }
"Testing if bits are set or clear:" "Testing if bits are set:"
{ $subsections { $subsections
bit? bit?
bit-clear?
} }
"Extracting bits from an integer:" "Extracting bits from an integer:"
{ $subsections { $subsections

3
basis/math/bitwise/bitwise-tests.factor
View File

@ -75,9 +75,6 @@ SPECIALIZED-ARRAY: uint-4
[ 6 ] [ 5 next-even ] unit-test [ 6 ] [ 5 next-even ] unit-test
[ 8 ] [ 6 next-even ] unit-test [ 8 ] [ 6 next-even ] unit-test
[ f ] [ 0x1 0 bit-clear? ] unit-test
[ t ] [ 0x0 1 bit-clear? ] unit-test
[ -1 bit-count ] [ non-negative-integer-expected? ] must-fail-with [ -1 bit-count ] [ non-negative-integer-expected? ] must-fail-with
[ -1 bit-length ] [ non-negative-integer-expected? ] must-fail-with [ -1 bit-length ] [ non-negative-integer-expected? ] must-fail-with

1
basis/math/bitwise/bitwise.factor
View File

@ -10,7 +10,6 @@ IN: math.bitwise
! utilities ! utilities
: clear-bit ( x n -- y ) 2^ bitnot bitand ; inline : clear-bit ( x n -- y ) 2^ bitnot bitand ; inline
: set-bit ( x n -- y ) 2^ bitor ; inline : set-bit ( x n -- y ) 2^ bitor ; inline
: bit-clear? ( x n -- ? ) 2^ bitand zero? ; inline
: unmask ( x n -- ? ) bitnot bitand ; inline : unmask ( x n -- ? ) bitnot bitand ; inline
: unmask? ( x n -- ? ) unmask zero? not ; inline : unmask? ( x n -- ? ) unmask zero? not ; inline
: mask ( x n -- ? ) bitand ; inline : mask ( x n -- ? ) bitand ; inline