package tiny_libs

  1. Overview
  2. Docs

Source file Control.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
(* Claude Code
 *
 * Copyright (C) 2026 Yoann Padioleau
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Library General Public License
 * (LGPL) as published by the Free Software Foundation; either version
 * 2 of the License, or (at your option) any later version.
 *)

(* See Control.mli *)

type t = Knob of float * float | Switch | Selector of string list

let on (x : float) : bool = x >= 0.5
let of_bool (b : bool) : float = if b then 1. else 0.
let index (x : float) : int = int_of_float (Float.round x)

let to_string (c : t) (x : float) : string =
  match c with
  | Knob _ -> Printf.sprintf "%.3f" x
  | Switch -> if on x then "on" else "off"
  | Selector labels -> List.nth labels (index x)

let of_string (c : t) (s : string) : float option =
  match c with
  | Knob (lo, hi) -> Option.map (fun x -> Float.min hi (Float.max lo x)) (float_of_string_opt s)
  | Switch -> ( match s with "on" -> Some 1. | "off" -> Some 0. | _ -> None)
  | Selector labels ->
      let rec find i = function [] -> None | l :: rest -> if l = s then Some (float_of_int i) else find (i + 1) rest in
      find 0 labels