atagen/inshellah
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

refactor

Browse source
This commit is contained in:
atagen 2026-03-23 16:24:00 +11:00
parent 4e41fcda6d
commit 144d72b223
5 changed files with 188 additions and 258 deletions
Download patch file Download diff file Expand all files Collapse all files

30
lib/parser.ml
View file

@ -538,33 +538,3 @@ let parse_help txt =
let positionals = if cli11 <> [] then cli11 else usage in
Ok { result with positionals }
| Error msg -> Error msg
(* --- Pretty printers --- *)
let print_switch = function
| Short o -> Printf.sprintf "Short: %c" o
| Long o -> Printf.sprintf "Long: %s" o
| Both (s, l) -> Printf.sprintf "Both, short: %c long: %s" s l
let print_opt = function
| Some (Mandatory o) -> Printf.sprintf "Mandatory: %s" o
| Some (Optional o) -> Printf.sprintf "Optional: %s" o
| None -> "None"
let print_entry e =
Printf.printf
"\n\t** ENTRY **\n\tSwitch: %s\n\tParam: %s\n\tDescription: %s\n"
(print_switch e.switch) (print_opt e.param) e.desc
let print_subcommand sc =
Printf.printf "\n\t** SUBCOMMAND **\n\tName: %s\n\tDescription: %s\n"
sc.name sc.desc
let print_positional p =
Printf.printf "\n\t** POSITIONAL **\n\tName: %s\n\tOptional: %b\n\tVariadic: %b\n"
p.pos_name p.optional p.variadic
let print_help_result r =
List.iter print_entry r.entries;
List.iter print_subcommand r.subcommands;
List.iter print_positional r.positionals