From 66cb521749672586fd5b1182b14e3c5d44829616 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Fri, 3 Sep 2021 17:44:44 +0200 Subject: Extract representation in dedicated library --- src/lib/sounds/repr.ml | 58 -------------------------------------------------- 1 file changed, 58 deletions(-) delete mode 100644 src/lib/sounds/repr.ml (limited to 'src/lib/sounds/repr.ml') diff --git a/src/lib/sounds/repr.ml b/src/lib/sounds/repr.ml deleted file mode 100644 index 72cf95d..0000000 --- a/src/lib/sounds/repr.ml +++ /dev/null @@ -1,58 +0,0 @@ -type t = string - -let none = "" - -let a = "a" -and a_nasal = "@" - -and e_opened = "E" -and e_closed = "e" -and schwa = "°" - -and eu = "9" - -and o = "o" -and o_nasal = "§" - -and i = "i" -and i_nasal = "5" -and y = "y" -and y_nasal = "1" - -and u = "u" - -and p = "p" -and b = "b" -and t = "t" -and d = "d" - -and k = "k" -and g = "g" - -and f = "f" -and v = "v" - -and ch = "S" -and j = "Z" - -and s = "s" -and z = "z" - -and m = "m" -and n = "n" - -and l = "L" -and r = "R" - -and semi_voyel_w = "w" -and semi_voyel_y = "j" - -let muted - : t -> t - = fun t -> - Printf.sprintf "(%s)" t - -let diphtongue - : t -> t -> t - = fun t1 t2 -> - Printf.sprintf "[%s%s]" t1 t2 -- cgit v1.2.3