[Libguestfs] [PATCH 3/6] generator: Move defaults to Types module.

Just code motion in preparation for the following commits. --- generator/actions.ml | 17 ----------------- generator/types.ml | 17 +++++++++++++++++ 2 files changed, 17 insertions(+), 17 deletions(-) diff --git a/generator/actions.ml b/generator/actions.ml index afa915d..4418e48 100644 --- a/generator/actions.ml +++ b/generator/actions.ml @@ -22,23 +22,6 @@ open Common_utils open Types open Utils -(* Default settings for all action fields. So we copy and override - * this struct by writing '{ defaults with name = &c }' - *) -let defaults = { name = ""; - added = (-1,-1,-1); - style = RErr, [], []; proc_nr = None; - tests = []; test_excuse = ""; - shortdesc = ""; longdesc = ""; - protocol_limit_warning = false; fish_alias = []; - fish_output = None; visibility = VPublic; - deprecated_by = None; optional = None; - progress = false; camel_name = ""; - cancellable = false; config_only = false; - once_had_no_optargs = false; blocking = true; wrapper = true; - c_name = ""; c_function = ""; c_optarg_prefix = ""; - non_c_aliases = [] } - (* These test functions are used in the language binding tests. *) let test_all_args = [ diff --git a/generator/types.ml b/generator/types.ml index b74f645..fd9f215 100644 --- a/generator/types.ml +++ b/generator/types.ml @@ -397,6 +397,23 @@ type action = { generated for this function *) } +(* Default settings for all action fields. So we copy and override + * the action struct by writing '{ defaults with name = ... }'. + *) +let defaults = { name = ""; + added = (-1,-1,-1); + style = RErr, [], []; proc_nr = None; + tests = []; test_excuse = ""; + shortdesc = ""; longdesc = ""; + protocol_limit_warning = false; fish_alias = []; + fish_output = None; visibility = VPublic; + deprecated_by = None; optional = None; + progress = false; camel_name = ""; + cancellable = false; config_only = false; + once_had_no_optargs = false; blocking = true; wrapper = true; + c_name = ""; c_function = ""; c_optarg_prefix = ""; + non_c_aliases = [] } + (* Field types for structures. *) type field = | FChar (* C 'char' (really, a 7 bit byte). *) -- 2.10.2