24 lines
508 B
OCaml
24 lines
508 B
OCaml
open Boks
|
|
|
|
let usage_msg = "boks -p <padding size> -a <arrow size> <text1> [<text2>] ..."
|
|
let padlen = ref 3
|
|
let arrow = ref "<--->"
|
|
let texts = ref []
|
|
|
|
let accept_text t =
|
|
texts := !texts @ [t]
|
|
|
|
let speclist = [
|
|
("-p", Arg.Set_int padlen, "Padding size");
|
|
("-a", Arg.Set_string arrow, "Arrow");
|
|
]
|
|
|
|
let () =
|
|
Arg.parse speclist accept_text usage_msg;
|
|
let padlen = !padlen in
|
|
let arrow = !arrow in
|
|
let texts =
|
|
if List.is_empty !texts then ["moo"] else !texts
|
|
in
|
|
boks ~padlen ~arrow texts
|