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

generator: Move defaults to Types module.

Browse Source 
Just code motion in preparation for the following commits.
This commit is contained in:
Richard W.M. Jones
2017-02-18 09:36:30 +00:00
parent 18777adf31
commit 7d6fcfc733
2 changed files with 17 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
generator/actions.ml
View File

@@ -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 = [

17
generator/types.ml
View File

@@ -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). *)