Create habc-link command

To create habc-link command, Connect CmdOpt module and Template module.

And add Swf module to swflib. It is facade.

diff --git a/link/main.ml b/link/main.ml
index ca9c809..b3477da 100644 (file)
--- a/link/main.ml
+++ b/link/main.ml
@@ -1,4 +1,5 @@
 open Base
+open Swflib
 open Swflib.SwfType
 
 let input_bytes ch =
@@ -19,6 +20,6 @@ let _ =
          open_in_with path input_bytes in
        let swf =
          Template.make t bytes in
-         swf
+         open_out_with t#output (fun ch -> Swf.write ch swf)
     | _ ->
        failwith "not suppert many files"

diff --git a/swflib/OMakefile b/swflib/OMakefile
index d20f12b..5445e1c 100644 (file)
--- a/swflib/OMakefile
+++ b/swflib/OMakefile
@@ -24,6 +24,7 @@ FILES[] =
        swfBaseOut
        swfType
        swfOut
+       swf
 
 UseCamlp4(pa_openin pa_oo pa_field)
 PROGRAM=../swflib

diff --git a/swflib/swf.ml b/swflib/swf.ml
new file mode 100644 (file)
index 0000000..0b615f0
--- /dev/null
+++ b/swflib/swf.ml
@@ -0,0 +1,13 @@
+open Base
+open SwfType
+open SwfOut
+open TagOut
+
+type swf = TagOut.t SwfType.t
+
+module M = SwfOut.Make(TagOut)
+
+let write ch swf =
+  M.to_base swf
+  +> SwfBaseOut.to_list
+  +> List.iter (output_byte ch)