Source file param.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
(**************************************************************************)
(*                                                                        *)
(*                 Copyright 2018-2023 OCamlPro                           *)
(*                                                                        *)
(*  All rights reserved. This file is distributed under the terms of the  *)
(*  GNU Lesser General Public License version 2.1, with the special       *)
(*  exception on linking described in the file LICENSE.                   *)
(*                                                                        *)
(**************************************************************************)

type kind = PARAM_INT | PARAM_STRING | PARAM_BOOL

type t = {
  param_id : string;
  param_name : string option;
  param_descr : string option;
  param_type : kind;
  param_required : bool;
  param_examples : string list;
  param_schema : Json_schema.schema option;
}

let make param_type ?name ?descr ?(required=false) ?(examples=[]) ?schema param_id =
  { param_id; param_name = name; param_descr = descr;
    param_type; param_required = required; param_examples = examples;
    param_schema = schema }

let string = make PARAM_STRING

let int = make PARAM_INT

let bool = make PARAM_BOOL