19 lines
569 B
OCaml
19 lines
569 B
OCaml
|
(*---------------------------------------------------------------------------
|
||
|
|
Copyright (c) 2025 The cmdliner programmers. All rights reserved.
|
||
|
|
SPDX-License-Identifier: CC0-1.0
|
||
|
|
---------------------------------------------------------------------------*)
|
||
|
|
|
||
|
|
let tool () = Cmdliner.Cmd.Exit.ok
|
||
|
|
|
||
|
|
open Cmdliner
|
||
|
|
open Cmdliner.Term.Syntax
|
||
|
|
|
||
|
|
let cmd =
|
||
|
|
let doc = "The tool synopsis is TODO" in
|
||
|
|
Cmd.make (Cmd.info "TODO-toolname" ~doc) @@
|
||
|
|
let+ unit = Term.const () in
|
||
|
|
tool unit
|
||
|
|
|
||
|
|
let main () = Cmd.eval' cmd
|
||
|
|
let () = if !Sys.interactive then () else exit (main ())
|