swflib/swfBaseOut.mli

   1 type bit =
   2     SB of int * int
   3   | UB of int * int
   4
   5 type s = [
   6   `Si8     of int
   7 | `Si16    of int
   8 | `Si24    of int
   9 | `Si32    of int32
  10 | `Ui8     of int
  11 | `Ui16    of int
  12 | `Ui24    of int
  13 | `Ui32    of int32
  14 | `Ui64    of int64
  15 | `EUi32   of int32
  16 | `Bits    of bit list
  17 | `Fixed   of float
  18 | `Fixed8  of float
  19 | `Float32 of float
  20 | `Float64 of float
  21 | `Rect    of int*int*int*int
  22 | `RGB     of int * int * int
  23 | `RGBA    of int * int * int * int
  24 ]
  25
  26 type backpatch = [
  27 | `Ui32Size
  28 | `Size    of (int -> s list) * s list
  29 ]
  30
  31 type t = [ s | backpatch ]
  32
  33 val to_list : t list -> int list