open Generator_utils
open Generator_pr
open Generator_docstrings
+open Generator_api_versions
open Generator_optgroups
open Generator_actions
open Generator_structs
| None -> ()
| Some txt -> pr "%s\n\n" txt
);
+ let version = lookup_api_version name in
+ pr "(Added in %s)\n\n" version;
(* Handling of optional argument variants. *)
if optargs <> [] then (
| Pathname n
| Dev_or_Path n
| FileIn n
- | FileOut n
- | Key n ->
+ | FileOut n ->
(* guestfish doesn't support string escaping, so neither do we *)
pr " fprintf (stderr, \" \\\"%%s\\\"\", %s);\n" n
+ | Key n ->
+ (* don't print keys *)
+ pr " fprintf (stderr, \" \\\"***\\\"\");\n"
| OptString n -> (* string option *)
pr " if (%s) fprintf (stderr, \" \\\"%%s\\\"\", %s);\n" n n;
pr " else fprintf (stderr, \" null\");\n"