Allow multiple bundle paths in the -load cli param.

generate/dune

@@ -1,5 +1,5 @@
 (executable
  (name main)
  (public_name generate-ml)
- (flags :standard -ccopt "-framework Cocoa")
+ (flags :standard -ccopt "-framework Foundation")
  (libraries camlkit-base.runtime lib))

generate/main.ml

@@ -29,7 +29,7 @@ let speclist =
   ; ("-super", Arg.Set include_superclass,
       "Include superclass methods in generated module")
   ; ("-fw", Arg.Set_string fw_name, "Framework name <fw-name>")
-  ; ("-load", Arg.Set_string load_fw, "Load framework bundle <fw-path>")
+  ; ("-load", Arg.Set_string load_fw, "Comma-separated list of framework bundles to load")
   ; ("-open", Arg.Set_string open_modules,
       "Comma-separated list of modules to open in generated code")
   ; ("-filter", Arg.Set_string filter_classes,

inspect/dune

@@ -1,5 +1,5 @@
 (executable
  (name main)
  (public_name inspect-rt)
-;  (flags :standard -ccopt "-framework Cocoa")
+ (flags :standard -ccopt "-framework Foundation")
  (libraries camlkit-base.runtime lib))

lib/util.ml

@@ -169,12 +169,15 @@ let emit_prelude ~open_modules file =
 
 let load_framework fw =
   if not (String.equal fw "") then
-    let bundle =
-      NSBundle.self |> NSBundleClass.bundleWithPath (new_string fw) in
-    if is_nil bundle then
-      Printf.eprintf "Framework bundle not found!\n%!"
-    else
-      NSBundle.load bundle |> ignore
+    fw
+    |> String.split_on_char ','
+    |> List.iter @@ fun fw ->
+      let bundle =
+        NSBundle.self |> NSBundleClass.bundleWithPath (new_string fw) in
+      if is_nil bundle then
+        Printf.eprintf "Framework bundle not found!\n%!"
+      else
+        NSBundle.load bundle |> ignore
 ;;
 
 let class_image class_name =