File: example_revolt1.ml

package info (click to toggle)
cmdliner 2.1.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 704 kB
  • sloc: ml: 7,287; sh: 146; makefile: 108
file content (13 lines) | stat: -rw-r--r-- 529 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
(*---------------------------------------------------------------------------
   Copyright (c) 2011 The cmdliner programmers. All rights reserved.
   SPDX-License-Identifier: CC0-1.0
  ---------------------------------------------------------------------------*)

let revolt () = print_endline "Revolt!"

open Cmdliner

let revolt_term = Term.app (Term.const revolt) (Term.const ())
let revolt_cmd = Cmd.v (Cmd.info "revolt") revolt_term
let main () = Cmd.eval revolt_cmd
let () = if !Sys.interactive then () else exit (main ())