le/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 = 'l';;
   6
   7 let w16 s pos i =
   8   w8 s pos i;
   9   w8 s (pos+1) (i lsr 8)
  10 ;;
  11
  12 let w32 s pos i =
  13   w16 s pos i;
  14   w16 s (pos+2) (i lsr 16)
  15 ;;
  16
  17 let r16 s pos =
  18   let rb pos1 = Char.code (String.get s (pos + pos1)) in
  19   (rb 0) lor ((rb 1) 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 rb pos1 = Char.code (String.get s (pos + pos1)) in
  29   let l = (rb 0) lor ((rb 1) lsl 8)
  30   and u = (rb 2) lor ((rb 3) lsl 8) in
  31   (u lsl 16) lor l
  32 ;;