Add boston release version.

Signed-off-by: John Else <john.else@citrix.com>

diff --git a/ocaml/idl/datamodel.ml b/ocaml/idl/datamodel.ml
index 8134e092ee298288e9f074b55af17c9e3a17ea4a..2968488f8f61dae38c22f2303ff45ce48ef7e5e5 100644 (file)
--- 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 33c56d0b2622c21eca16cfdb15433538ef9bb2b6..bad8dcad95103e7ad94d4f76ef042eb613949329 100644 (file)
--- 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