From 66cf5d3c5fff84a1cac333c1aa81a8e1f21ee6f4 Mon Sep 17 00:00:00 2001 From: Malte Voos Date: Mon, 8 Jul 2024 22:10:12 +0200 Subject: rename Ident -> Name --- src/name/Name.ml | 9 +++++++++ src/name/dune | 4 ++++ 2 files changed, 13 insertions(+) create mode 100644 src/name/Name.ml create mode 100644 src/name/dune (limited to 'src/name') diff --git a/src/name/Name.ml b/src/name/Name.ml new file mode 100644 index 0000000..81c6575 --- /dev/null +++ b/src/name/Name.ml @@ -0,0 +1,9 @@ +type t = Yuujinchou.Trie.path + +type local = string option + +let to_local : t -> local option = function + | name :: [] -> Some (Some name) + | _ -> None + +let pp = Fmt.list ~sep:(Fmt.const Fmt.char '.') Fmt.string diff --git a/src/name/dune b/src/name/dune new file mode 100644 index 0000000..5a4e44c --- /dev/null +++ b/src/name/dune @@ -0,0 +1,4 @@ +(library + (name Name) + (public_name toytt.name) + (libraries fmt yuujinchou)) -- cgit 1.4.1