Source file `pb_codegen_mode.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
type t =
  [ `Normal
  | `Encode_only
  | `Decode_only
  ]

let to_string = function
  | `Normal -> "normal"
  | `Encode_only -> "encode_only"
  | `Decode_only -> "decode_only"

let do_encode = function
  | `Normal | `Encode_only -> true
  | `Decode_only -> false

let do_decode = function
  | `Normal | `Decode_only -> true
  | `Encode_only -> false