add -L option

[happyabc/happyabc.git] / driver / main.ml

diff --git a/driver/main.ml b/driver/main.ml
index d968ee6..b22fc6f 100644 (file)
--- a/driver/main.ml
+++ b/driver/main.ml
@@ -30,20 +30,14 @@ let rules = [
   end;
   (* link *)
   many_to_one ["abc"] "swf" begin fun { link = {
-                                      link_cmd=link_cmd;
-                                      size=(w,h);
-                                      bg_color = {Color.red=r; green=g; blue=b}; }}
+                                         link_cmd=link_cmd;
+                                         size=(w,h);
+                                         bg_color = {Color.red=r; green=g; blue=b};
+                                         libs=libs
+                                       }}
     inputs output ->
-      [Printf.sprintf "%s --width=%d --height=%d --red=%d --green=%d --blue=%d --main=boot.Boot --output=%s %s"
-        link_cmd w h r g b output @@ String.concat " " inputs]
-  end;
-  many_to_one ["swf";"abc"] "swf" begin fun { link = {
-                                      link_cmd=link_cmd;
-                                      size=(w,h);
-                                      bg_color = {Color.red=r; green=g; blue=b}; }}
-    inputs output ->
-      [Printf.sprintf "%s --width=%d --height=%d --red=%d --green=%d --blue=%d --main=boot.Boot --output=%s %s"
-        link_cmd w h r g b output @@ String.concat " " inputs]
+      [Printf.sprintf "%s --width=%d --height=%d --red=%d --green=%d --blue=%d --main=boot.Boot --output=%s %s %s"
+        link_cmd w h r g b output (String.concat " " libs) @@ String.concat " " inputs]
   end;
 ]