core/io/binary/binary.factor

   1 ! Copyright (C) 2003, 2007 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel math sequences ;
   4 IN: io.binary
   5
   6 : le> ( seq -- x ) B{ } like byte-array>bignum >integer ;
   7 : be> ( seq -- x ) <reversed> le> ;
   8
   9 : mask-byte ( x -- y ) HEX: ff bitand ; inline
  10
  11 : nth-byte ( x n -- b ) -8 * shift mask-byte ; inline
  12
  13 : >le ( x n -- byte-array ) [ nth-byte ] with B{ } map-as ;
  14 : >be ( x n -- byte-array ) >le dup reverse-here ;
  15
  16 : d>w/w ( d -- w1 w2 )
  17     dup HEX: ffffffff bitand
  18     swap -32 shift HEX: ffffffff bitand ;
  19
  20 : w>h/h ( w -- h1 h2 )
  21     dup HEX: ffff bitand
  22     swap -16 shift HEX: ffff bitand ;
  23
  24 : h>b/b ( h -- b1 b2 )
  25     dup mask-byte
  26     swap -8 shift mask-byte ;