From: John Else Date: Wed, 26 Jan 2011 17:39:06 +0000 (+0000) Subject: Add boston release version. X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=b6cf12ab0a3ee2f52744b3effb55bebe52ea1f46;p=xcp%2Fxen-api.git Add boston release version. Signed-off-by: John Else --- diff --git a/ocaml/idl/datamodel.ml b/ocaml/idl/datamodel.ml index 8134e092..2968488f 100644 --- a/ocaml/idl/datamodel.ml +++ b/ocaml/idl/datamodel.ml @@ -36,9 +36,12 @@ let george_release_schema_minor_vsn = 57 let midnight_ride_release_schema_major_vsn = 5 let midnight_ride_release_schema_minor_vsn = 60 +let cowley_release_schema_major_vsn = 5 +let cowley_release_schema_minor_vsn = 61 + (* the schema vsn of the last release: used to determine whether we can upgrade or not.. *) -let last_release_schema_major_vsn = midnight_ride_release_schema_major_vsn -let last_release_schema_minor_vsn = midnight_ride_release_schema_minor_vsn +let last_release_schema_major_vsn = cowley_release_schema_major_vsn +let last_release_schema_minor_vsn = cowley_release_schema_minor_vsn (** Bindings for currently specified releases *) @@ -150,6 +153,12 @@ let get_product_releases in_product_since = | x::xs -> if x=in_product_since then "closed"::x::xs else go_through_release_order xs in go_through_release_order release_order +let boston_release = + { internal=get_product_releases rel_boston + ; opensource=get_oss_releases None + ; internal_deprecated_since=None + } + let cowley_release = { internal=get_product_releases rel_cowley ; opensource=get_oss_releases None diff --git a/ocaml/idl/datamodel_types.ml b/ocaml/idl/datamodel_types.ml index 33c56d0b..bad8dcad 100644 --- a/ocaml/idl/datamodel_types.ml +++ b/ocaml/idl/datamodel_types.ml @@ -42,6 +42,7 @@ let rel_miami = "miami" let rel_rio = "rio" let rel_midnight_ride = "midnight-ride" let rel_cowley = "cowley" +let rel_boston = "boston" let release_order = [ rel_rio @@ -52,6 +53,7 @@ let release_order = ; rel_george ; rel_midnight_ride ; rel_cowley + ; rel_boston ] exception Unknown_release of string