// $Id$

$module "refal.plus.Bit";

$func BitOr     s.Int1 s.Int2 = s.Int;
$func BitAnd    s.Int1 s.Int2 = s.Int;
$func BitXor    s.Int1 s.Int2 = s.Int;

$func BitNot    s.Int         = s.Int;

$func BitLeft   s.Int s.Shift = s.Int;
$func BitRight  s.Int s.Shift = s.Int;


$func? BitTest  s.Int s.Pos = ;

$func BitSet    s.Int s.Pos = s.Int;
$func BitClear  s.Int s.Pos = s.Int;

$func BitLength s.Int = s.Len;

$func BitPrint  s.Int = ;