mycli.ml

open Cmdliner

let mycli _ _ = print_endline "Success!"

let interface =
    let docv = "INTERFACE" in
    let doc = "parse AST as an interface (true or false)" in

    Arg.(required & pos 0 (some bool) None & info ~docv ~doc [])

let recoverable =
    let docv = "RECOVERABLE" in
    let doc = "enable recoverable parser (true or false)" in

    Arg.(required & pos 1 (some bool) None & info ~docv ~doc [])

let mycli_t = Term.(const mycli $ interface $ recoverable)

let top_level_info =
    let doc = "My simple CLI utility" in
    let man =
      [ `S "DESCRIPTION";
        `P "mycli is a tiny utility to understand Cmdliner" ] in

    Term.info "mycli" ~doc ~man

let () =
    match Term.eval (mycli_t, top_level_info) with
    | `Error _ -> exit 1 | _ -> ()