type argument =
  | Int32 of int32
  | Float32 of float
  | Str of string
  | Blob of string

let encode_float f =
  BITSTRING {
    Int32.bits_of_float f : 32 : bigendian
  }

let decode_float b =
  bitmatch b with {
    i : 4*8 : bigendian
  } ->
    Int32.float_of_bits i

type argument =
  | Int32 of int32
  | Float32 of float
  | Str of string
  | Blob of string

let encode_int i =
  BITSTRING { i : 32 : bigendian }

let decode_int b =
  bitmatch b with {
    i : 4*8 : bigendian
  } -> i

let encode_float f =
  BITSTRING {
    Int32.bits_of_float f : 32 : bigendian
  }

let decode_float b =
  bitmatch b with {
    i : 4*8 : bigendian
  } ->
    Int32.float_of_bits i

Add helper functions for handling int32s
Add helper functions for handling int32s

Signed-off-by: John Else <37b74501daa612e48fea94f9846ed4ddeb6a8f07@citrix.com>
