swflib/swf.ml

   1 open Base
   2 open SwfType
   3 open SwfOut
   4 open TagOut
   5
   6 type t = LowInst.t TagType.t SwfType.t
   7
   8 module Writer = SwfOut.Make(TagOut.Make(Abc))
   9 module Reader = SwfIn.Make(TagIn.Make(Abc))
  10
  11 let write ch swf =
  12   Writer.write swf
  13   +> SwfBaseOut.to_list
  14   +> List.iter (output_byte ch)
  15
  16 let read ch =
  17   BytesIn.of_channel ch
  18   +> Reader.read
  19