reynir/albatross
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

bump wire version

Browse source
This commit is contained in:
Hannes Mehnert 2018-11-12 22:11:06 +01:00
parent 8ccda0e410
commit dec32e6247
13 changed files with 16 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
app/vmm_stats_pure.ml
View file

@ -16,7 +16,7 @@ external vmmapi_close : vmctx -> unit = "vmmanage_vmmapi_close"
external vmmapi_statnames : vmctx -> string list = "vmmanage_vmmapi_statnames" external vmmapi_statnames : vmctx -> string list = "vmmanage_vmmapi_statnames"
external vmmapi_stats : vmctx -> int64 list = "vmmanage_vmmapi_stats" external vmmapi_stats : vmctx -> int64 list = "vmmanage_vmmapi_stats"
let my_version = `AV2 let my_version = `AV3
let descr = ref [] let descr = ref []

2
app/vmmc_bistro.ml
View file

@ -2,7 +2,7 @@
open Lwt.Infix open Lwt.Infix
let version = `AV2 let version = `AV3
let read fd = let read fd =
(* now we busy read and process output *) (* now we busy read and process output *)

2
app/vmmc_local.ml
View file

@ -2,7 +2,7 @@
open Lwt.Infix open Lwt.Infix
let version = `AV2 let version = `AV3
let socket t = function let socket t = function
| Some x -> x | Some x -> x

2
app/vmmc_remote.ml
View file

@ -2,7 +2,7 @@
open Lwt.Infix open Lwt.Infix
let version = `AV2 let version = `AV3
let rec read_tls_write_cons t = let rec read_tls_write_cons t =
Vmm_tls_lwt.read_tls t >>= function Vmm_tls_lwt.read_tls t >>= function

2
app/vmmd.ml
View file

@ -18,7 +18,7 @@ let pp_stats ppf s =
open Lwt.Infix open Lwt.Infix
let version = `AV2 let version = `AV3
let state = ref (Vmm_vmmd.init version) let state = ref (Vmm_vmmd.init version)

2
app/vmmd_console.ml
View file

@ -14,7 +14,7 @@ open Lwt.Infix
open Astring open Astring
let my_version = `AV2 let my_version = `AV3
let pp_unix_error ppf e = Fmt.string ppf (Unix.error_message e) let pp_unix_error ppf e = Fmt.string ppf (Unix.error_message e)

2
app/vmmd_influx.ml
View file

@ -141,7 +141,7 @@ module P = struct
vm ifd.ifname (String.concat ~sep:"," fields) vm ifd.ifname (String.concat ~sep:"," fields)
end end
let my_version = `AV2 let my_version = `AV3
let command = ref 1L let command = ref 1L

2
app/vmmd_log.ml
View file

@ -10,7 +10,7 @@
open Lwt.Infix open Lwt.Infix
let my_version = `AV2 let my_version = `AV3
let broadcast prefix wire t = let broadcast prefix wire t =
Lwt_list.fold_left_s (fun t (id, s) -> Lwt_list.fold_left_s (fun t (id, s) ->

2
app/vmmd_tls.ml
View file

@ -2,7 +2,7 @@
open Lwt.Infix open Lwt.Infix
let my_version = `AV2 let my_version = `AV3
let command = ref 0L let command = ref 0L

2
app/vmmp_request.ml
View file

@ -5,7 +5,7 @@ open Vmm_asn
open Rresult.R.Infix open Rresult.R.Infix
let version = `AV2 let version = `AV3
let csr priv name cmd = let csr priv name cmd =
let exts = [ (false, `Unsupported (oid, cert_extension_to_cstruct (version, cmd))) ] let exts = [ (false, `Unsupported (oid, cert_extension_to_cstruct (version, cmd))) ]

4
src/vmm_asn.ml
View file

@ -308,10 +308,10 @@ let block_cmd =
let version = let version =
let f data = match data with let f data = match data with
| 2 -> `AV2 | 3 -> `AV3
| _ -> Asn.S.error (`Parse "unknown version number") | _ -> Asn.S.error (`Parse "unknown version number")
and g = function and g = function
| `AV2 -> 2 | `AV3 -> 3
in in
Asn.S.map f g Asn.S.int Asn.S.map f g Asn.S.int

6
src/vmm_commands.ml
View file

@ -3,16 +3,16 @@
(* the wire protocol *) (* the wire protocol *)
open Vmm_core open Vmm_core
type version = [ `AV2 ] type version = [ `AV3 ]
let pp_version ppf v = let pp_version ppf v =
Fmt.int ppf Fmt.int ppf
(match v with (match v with
| `AV2 -> 2) | `AV3 -> 3)
let version_eq a b = let version_eq a b =
match a, b with match a, b with
| `AV2, `AV2 -> true | `AV3, `AV3 -> true
| _ -> false | _ -> false
type console_cmd = [ type console_cmd = [

2
src/vmm_commands.mli
View file

@ -3,7 +3,7 @@
open Vmm_core open Vmm_core
(** The type of versions of the grammar defined below. *) (** The type of versions of the grammar defined below. *)
type version = [ `AV2 ] type version = [ `AV3 ]
(** [version_eq a b] is true if [a] and [b] are equal. *) (** [version_eq a b] is true if [a] and [b] are equal. *)
val version_eq : version -> version -> bool val version_eq : version -> version -> bool