mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-22 07:03:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

fish: More informative documentation of optargs.

Browse Source
This commit is contained in:
Richard W.M. Jones
2011-11-09 21:21:00 +00:00
parent 145ed04e41
commit 271f8e4b70
1 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
generator/generator_fish.ml
View File

@@ -30,6 +30,13 @@ open Generator_structs
open Generator_prepopts
open Generator_c
let doc_opttype_of = function
| Bool n -> "true|false"
| Int n
| Int64 n -> "N"
| String n -> ".."
| _ -> assert false
(* Generate a lot of different functions for guestfish. *)
let generate_fish_cmds () =
generate_header CStyle GPLv2plus;
@@ -122,7 +129,9 @@ let generate_fish_cmds () =
(String.concat ""
(List.map (fun arg -> " " ^ name_of_argt arg) args))
(String.concat ""
(List.map (fun arg -> sprintf " [%s:..]" (name_of_argt arg)) optargs)) in
(List.map (fun arg ->
sprintf " [%s:%s]" (name_of_argt arg) (doc_opttype_of arg)
) optargs)) in
let warnings =
if List.exists (function Key _ -> true | _ -> false) args then
@@ -834,7 +843,8 @@ and generate_fish_actions_pod () =
) args;
List.iter (
function
| Bool n | Int n | Int64 n | String n -> pr " [%s:..]" n
| (Bool n | Int n | Int64 n | String n) as arg ->
pr " [%s:%s]" n (doc_opttype_of arg)
| _ -> assert false
) optargs;
pr "\n";