-let paths_to_search_in = ref [];;
-let quiet_compilation = ref false;;
-
-let add_l l = fun s -> l := s :: !l ;;
-let set_b b = fun () -> b := true;;
-
-let arg_spec = [
- "-I", Arg.String (add_l paths_to_search_in),
- "<path> Adds path to the list of searched paths for the include command";
- "-q", Arg.Unit (set_b quiet_compilation), "Turn off verbose compilation"
-]
-let usage =
- sprintf "MatitaC v%s\nUsage: matitac [option ...] file\nOptions:"
- BuildTimeConf.version
-