Source file `encodings.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
(*****************************************************************************)
(*                                                                           *)
(* SPDX-License-Identifier: MIT                                              *)
(* Copyright (c) 2023 Nomadic Labs, <contact@nomadic-labs.com>               *)
(*                                                                           *)
(*****************************************************************************)

let encodings : (string, bytes -> string) Stdlib.Hashtbl.t =
  Stdlib.Hashtbl.create 17

let register name encoding = Stdlib.Hashtbl.add encodings name encoding

let get name = Stdlib.Hashtbl.find_opt encodings name