swflib/typemap.h

   1 type label = Label.t
   2 let p_label _ctx _x = label_ref _x
   3 let c_label _ = None
   4 type u8 = int
   5 let p_u8 _ctx _x = u8 _x
   6 let c_u8 _ = None
   7 type u30 = int
   8 let p_u30 _ctx _x = u30 _x
   9 let c_u30 _ = None
  10 let p_method_ _ctx _x = u30 @@ RevList.index _x _ctx#methods
  11 let c_method_ _ = None
  12 let p_class_ _ctx _x = u30 @@ RevList.index _x _ctx#classes
  13 let c_class_ _ = None
  14 type uint = int
  15 let p_uint _ctx _x = u30 @@ Cpool.index (`UInt _x) _ctx#cpool
  16 let c_uint _x = Some(`UInt _x)
  17 type namespace = Cpool.namespace
  18 let p_namespace _ctx _x = u30 @@ Cpool.index (`Namespace _x) _ctx#cpool
  19 let c_namespace _x = Some(`Namespace _x)
  20 type multiname = Cpool.multiname
  21 let p_multiname _ctx _x = u30 @@ Cpool.index (`Multiname _x) _ctx#cpool
  22 let c_multiname _x = Some(`Multiname _x)
  23 let p_string _ctx _x = u30 @@ Cpool.index (`String _x) _ctx#cpool
  24 let c_string _x = Some(`String _x)
  25 let p_int _ctx _x = u30 @@ Cpool.index (`Int _x) _ctx#cpool
  26 let c_int _x = Some(`Int _x)
  27 let p_float _ctx _x = u30 @@ Cpool.index (`Double _x) _ctx#cpool
  28 let c_float _x = Some(`Double _x)