From d0d492def23229f1a802f8f799e0cab782ca7de7 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Tue, 26 May 2015 09:10:16 +0100 Subject: [PATCH] generator: Add 'added' (version when added) field. --- generator/actions.ml | 4 +++- generator/types.ml | 3 +++ 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/generator/actions.ml b/generator/actions.ml index 1a89869a0..0b9322492 100644 --- a/generator/actions.ml +++ b/generator/actions.ml @@ -24,7 +24,9 @@ open Utils (* Default settings for all action fields. So we copy and override * this struct by writing '{ defaults with name = &c }' *) -let defaults = { name = ""; style = RErr, [], []; proc_nr = None; +let defaults = { name = ""; + added = (-1,-1,-1); + style = RErr, [], []; proc_nr = None; tests = []; test_excuse = ""; shortdesc = ""; longdesc = ""; protocol_limit_warning = false; fish_alias = []; diff --git a/generator/types.ml b/generator/types.ml index 92d075eea..83a6a98df 100644 --- a/generator/types.ml +++ b/generator/types.ml @@ -330,9 +330,12 @@ type visibility = | VDebug (* Exported everywhere, but not documented *) | VInternal (* Not exported *) +type version = int * int * int + (* Type of an action as declared in Actions module. *) type action = { name : string; (* name, not including "guestfs_" *) + added : version; (* which version was the API first added *) style : style; (* args and return value *) proc_nr : int option; (* proc number, None for non-daemon *) tests : c_api_tests; (* C API tests *)