swflib/abc.ml

   1 open Base
   2
   3 module A = AbcOut.Make(LowInst)
   4 module D = AbcIn.Make(LowInst)
   5 module C = MethodOut.Make(HighInst)
   6
   7 type t = LowInst.t AbcType.t
   8 type meth = HighInst.s MethodType.method_
   9
  10
  11 let write : t -> int list =
  12   BytesOut.to_int_list $ A.to_bytes
  13
  14 let read : int Stream.t -> t =
  15   D.of_bytes
  16
  17 let compile : Cpool.multiname list -> meth -> t =
  18   C.to_abc