|
version 1.3, 2002/04/26 23:38:20
|
version 1.4, 2002/04/28 05:07:52
|
|
|
|
| with | with |
| _ -> tidyup () | _ -> tidyup () |
| | |
| |
let output_file = ref "a.out";; |
| |
|
| |
let args = [ |
| |
|
| |
("-o", |
| |
Arg.String (fun x -> output_file := x), |
| |
"set output file"); |
| |
|
| |
("-version", |
| |
Arg.Unit (fun _ -> Printf.printf "mkc version $Id$\n"), |
| |
"display version") |
| |
] |
| |
;; |
| |
|
| let _ = | let _ = |
| compile Sys.argv.(1) "a.out" "." |
Arg.parse args (fun x -> compile x !output_file ".") |
| |
(Printf.sprintf "usage: %s [options] <input.mk>\n%s\n" |
| |
Sys.argv.(0) "where options is one of:") |
| |
|
| |
|
| | |
| | |
Return to
driver.ml
CVS log
Up to [venge] / src / mkc