be/bo.ml

   1 let w8 s pos i = String.set s pos (Char.chr (i land 0xff));;
   2     let r8 s pos = Char.code (String.get s pos)
   3 ;;
   4
   5 let ordermagic = 'B';;
   6
   7 let w16 s pos i =
   8   w8 s pos (i lsr 8);
   9   w8 s (pos+1) i
  10 ;;
  11
  12 let w32 s pos i =
  13   w16 s pos (i lsr 16);
  14   w16 s (pos+2) i
  15 ;;
  16
  17 let r16 s pos =
  18   let rb pos1 = Char.code (String.get s (pos + pos1)) in
  19   (rb 1) lor ((rb 0) lsl 8)
  20 ;;
  21
  22 let r16s s pos =
  23   let i = r16 s pos in
  24   i - ((i land 0x8000) lsl 1)
  25 ;;
  26
  27 let r32 s pos =
  28   let u = r16 s pos in
  29   let l = r16 s (pos+2) in
  30   (u lsl 16) lor l
  31 ;;