X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=generator%2Fgenerator_fish.ml;h=f59c520aba5d20ca5c97291fb6a4426e984dedbd;hb=6263da7474c6e7818b025979712c9c5d7108640d;hp=76b4c7aad3d3283ee7bbb27d55f66b3b2867ecb6;hpb=a232e62dcf508517a32b9a8d7e4529e827be721b;p=libguestfs.git diff --git a/generator/generator_fish.ml b/generator/generator_fish.ml index 76b4c7a..f59c520 100644 --- a/generator/generator_fish.ml +++ b/generator/generator_fish.ml @@ -323,6 +323,7 @@ Guestfish will prompt for these separately." | Bool n -> pr " int %s;\n" n | Int n -> pr " int %s;\n" n | Int64 n -> pr " int64_t %s;\n" n + | Pointer _ -> assert false ) args; if optargs <> [] then ( @@ -423,6 +424,7 @@ Guestfish will prompt for these separately." parse_integer "argv[i++]" "xstrtoll" "long long" "int" range name | Int64 name -> parse_integer "argv[i++]" "xstrtoll" "long long" "int64_t" None name + | Pointer _ -> assert false ) args; (* Optional arguments are prefixed with : and @@ -506,6 +508,7 @@ Guestfish will prompt for these separately." pr " free_file_in (%s);\n" name | StringList name | DeviceList name -> pr " free_strings (%s);\n" name + | Pointer _ -> assert false ) args; (* Any output flags? *) @@ -810,6 +813,7 @@ and generate_fish_actions_pod () = | FileIn n | FileOut n -> pr " (%s|-)" n | BufferIn n -> pr " %s" n | Key _ -> () (* keys are entered at a prompt *) + | Pointer _ -> assert false ) args; List.iter ( function