OSDN Git Service

Move common type definition(e.g. rect,mtarix) move to SwfBaseType module.
[happyabc/happyabc.git] / swflib / swfBaseOut.mli
1 type bit =
2     SB of int * int
3   | UB of int * int
4   | FB of int * float
5
6 type s = [
7   `Si8     of int
8 | `Si16    of int
9 | `Si24    of int
10 | `Si32    of int32
11 | `Ui8     of int
12 | `Ui16    of int
13 | `Ui24    of int
14 | `Ui32    of int32
15 | `Ui64    of int64
16 | `EUi32   of int32
17 | `Bits    of bit list
18 | `Fixed   of float
19 | `Fixed8  of float
20 | `Float32 of float
21 | `Float64 of float
22 | `Rect    of int*int*int*int
23 | `RGB     of int * int * int
24 | `RGBA    of int * int * int * int
25 | `ARGB    of int * int * int * int
26 | `Str     of string
27 | `Lang    of int
28 | `Matrix  of SwfBaseType.matrix
29 ]
30
31 type backpatch = [
32 | `Ui32Size
33 | `Size    of (int -> s list) * s list
34 ]
35
36 type t = [ s | backpatch ]
37
38 val to_list : t list -> int list