13 lines
380 B
OCaml
13 lines
380 B
OCaml
|
let () = print_endline "m: init"
|
||
|
|
|
||
|
|
let () =
|
||
|
|
for i = 1 to (Array.length Sys.argv - 1); do
|
||
|
|
try
|
||
|
|
Fl_dynload.load_packages [Sys.argv.(i)]
|
||
|
|
with
|
||
|
|
| Fl_package_base.No_such_package(pkg, _) ->
|
||
|
|
Printf.printf "The package %S can't be found.\n%!" pkg
|
||
|
|
| Dynlink.Error error ->
|
||
|
|
Printf.printf "Error during dynlink: %s\n%!" (Dynlink.error_message error)
|
||
|
|
done
|