16 lines
461 B
OCaml
16 lines
461 B
OCaml
let source =
|
|
let doc = "The primary source file." in
|
|
Cmdliner.Arg.(required & pos 0 (some' & non_dir_file) Option.none & info [] ~docv:"SOURCE" ~doc)
|
|
|
|
let runner filename = print_endline filename
|
|
|
|
let run_t = Cmdliner.Term.(const runner $ source)
|
|
|
|
let cmd =
|
|
let doc = "The compiler for Yanais" in
|
|
let man = [] in
|
|
let info = Cmdliner.Cmd.info "yns" ~version:"%%VERSION%%" ~doc ~man in
|
|
Cmdliner.Cmd.v info run_t
|
|
|
|
let () = exit (Cmdliner.Cmd.eval cmd)
|