package scfg

  1. Overview
  2. Docs

Source file query.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
(** Module providing functions to search inside a config. *)

open Types

(** Returns a list of directives with the provided name from a list of
    directives. *)
let get_dirs name directives =
  List.filter (fun directive -> directive.name = name) directives

(** Returns the first directive with the provided name from a list of directive. *)
let get_dir name directives =
  List.find_opt (fun directive -> directive.name = name) directives

(** Same as [get_dir] but raises if no directive is found. *)
let get_dir_exn name directives =
  match get_dir name directives with
  | None -> Format.kasprintf failwith "missing directive %a" Pp.param name
  | Some dir -> dir

(** Extract a given number of parameters from a directive. *)
let get_params n directive =
  let len = List.length directive.params in
  if len < n then
    Error
      (Format.asprintf "directive %a: want %d params, got only %d" Pp.param
         directive.name n len )
  else Ok (List.filteri (fun i _param -> i < n) directive.params)

(** Extract a parameter at a given index from a directive. *)
let get_param n directive =
  let params = directive.params in
  match List.nth_opt params n with
  | None ->
    Error
      (Format.asprintf "directive %a: want param at index %d, got only %d"
         Pp.param directive.name n (List.length params) )
  | Some param -> Ok param

(** Same as [get_param] but raises if an error occurs. *)
let get_param_exn n directive =
  match get_param n directive with Ok v -> v | Error msg -> failwith msg

(** Extract a bool parameter at a given index from a directive. *)
let get_param_bool n directive =
  let params = directive.params in
  match List.nth_opt params n with
  | None ->
    Error
      (Format.asprintf "directive %a: want param at index %d, got only %d"
         Pp.param directive.name n (List.length params) )
  | Some param -> (
    try Ok (bool_of_string param)
    with Invalid_argument _msg ->
      Error
        (Format.asprintf
           "directive %a: want bool param at index %d, but got `%s`" Pp.param
           directive.name n param ) )

(** Same as [get_param_bool] but raises if an error occurs. *)
let get_param_bool_exn n directive =
  match get_param_bool n directive with Ok v -> v | Error msg -> failwith msg

(** Extract an int parameter at a given index from a directive. *)
let get_param_int n directive =
  let params = directive.params in
  match List.nth_opt params n with
  | None ->
    Error
      (Format.asprintf "directive %a: want param at index %d, got only %d"
         Pp.param directive.name n (List.length params) )
  | Some param -> (
    try Ok (int_of_string param)
    with Invalid_argument _msg ->
      Error
        (Format.asprintf "directive %a: want int param at index %d, but got %s"
           Pp.param directive.name n param ) )

(** Same as [get_param_int] but raises if an error occurs. *)
let get_param_int_exn n directive =
  match get_param_int n directive with Ok v -> v | Error msg -> failwith msg

(** Extract a positive int parameter at a given index from a directive. *)
let get_param_pos_int n directive =
  let params = directive.params in
  match List.nth_opt params n with
  | None ->
    Error
      (Format.asprintf "directive %a: want param at index %d, got only %d"
         Pp.param directive.name n (List.length params) )
  | Some param -> (
    try
      let n = int_of_string param in
      if n < 0 then
        Error
          (Format.asprintf
             "directive %a: want positive int param at index %d, but got %d"
             Pp.param directive.name n n )
      else Ok n
    with Invalid_argument _msg ->
      Error
        (Format.asprintf "directive %a: want int param at index %d, but got %s"
           Pp.param directive.name n param ) )

(** Same as [get_param_pos_int] but raises if an error occurs. *)
let get_param_pos_int_exn n directive =
  match get_param_pos_int n directive with
  | Ok v -> v
  | Error msg -> failwith msg


  (** Extract a float parameter at a given index from a directive. *)
let get_param_float n directive =
  let params = directive.params in
  match List.nth_opt params n with
  | None ->
    Error
      (Format.asprintf "directive %a: want param at index %d, got only %d"
         Pp.param directive.name n (List.length params) )
  | Some param -> (
    try Ok (float_of_string param)
    with Invalid_argument _msg ->
      Error
        (Format.asprintf "directive %a: want float param at index %d, but got %s"
           Pp.param directive.name n param ) )

(** Same as [get_param_float] but raises if an error occurs. *)
let get_param_float_exn n directive =
  match get_param_float n directive with Ok v -> v | Error msg -> failwith msg
OCaml

Innovation. Community. Security.