summaryrefslogtreecommitdiff
path: root/src/lib/repr/anatar.ml
diff options
context:
space:
mode:
Diffstat (limited to 'src/lib/repr/anatar.ml')
-rw-r--r--src/lib/repr/anatar.ml227
1 files changed, 45 insertions, 182 deletions
diff --git a/src/lib/repr/anatar.ml b/src/lib/repr/anatar.ml
index 1d00266..cca6162 100644
--- a/src/lib/repr/anatar.ml
+++ b/src/lib/repr/anatar.ml
@@ -6,27 +6,19 @@ type position =
| Pos2
| Pos3
| Pos4
- | Lambe (* Position for the Lambe (Theta inside) *)
- | Lower_1_2 (* Position for the Harma *)
- | Lower_3_1 (* Position for the Calma *)
- | Lower_4_2 (* Position for the Thule *)
+ | Lambe (* Position for the Lambe (Theta inside) *)
+ | Lower_1_2 (* Position for the Harma *)
+ | Lower_3_1 (* Position for the Calma *)
+ | Lower_4_2 (* Position for the Thule *)
type t = position T.t
-let portant =
- { T.position = Pos4
- ; T.muted = None
- ; T.category = I
- ; T.primary = false
- ; T.repr = "`" }
+let none = T.none
-let none = T.Nothing
-
-let space s = T.Repr s
+let space s = T.space s
let a' =
- { T.opened = true
- ; T.position = `Above
+ { T.position = `Above
; T.app = function
| Pos1 | Lower_1_2 | Lambe -> "#"
| Pos2 -> "E"
@@ -48,13 +40,12 @@ and app_eu = function
| Pos4 | Lower_4_2 -> "ß"
let e_opened =
- T.Voyel { opened = true ; position = `Above ; app = app_e }
+ T.Voyel { position = `Above ; app = app_e }
and e_closed =
- T.Voyel { opened = false; position = `Above ; app = app_e }
+ T.Voyel { position = `Above ; app = app_e }
and schwa = T.Voyel
- { opened = true
- ; position = `Below
+ { position = `Below
; app = function
| Pos1 | Lower_3_1 -> "È"
| Pos2 | Lower_1_2 | Lower_4_2 -> "É"
@@ -63,12 +54,11 @@ and schwa = T.Voyel
| Lambe -> "L"
}
-and eu_opened = T.Voyel { opened = true ; position = `Above ; app = app_eu }
-and eu_closed = T.Voyel { opened = false ; position = `Above ; app = app_eu }
+and eu_opened = T.Voyel { position = `Above ; app = app_eu }
+and eu_closed = T.Voyel { position = `Above ; app = app_eu }
and o' =
- { T.opened = true
- ; T.position = `Above
+ { T.position = `Above
; T.app = function
| Pos1 | Lower_1_2 | Lambe -> "^"
| Pos2 -> "Y"
@@ -79,8 +69,7 @@ and o' =
let o = T.Voyel o'
and i' =
- { T.opened = true
- ; T.position = `Above
+ { T.position = `Above
; T.app = function
| Pos1 | Lower_1_2 | Lambe -> "%"
| Pos2 -> "T"
@@ -91,8 +80,7 @@ and i' =
let i = T.Voyel i'
and y' =
- { T.opened = true
- ; T.position = `Above
+ { T.position = `Above
; T.app = function
| Pos1 | Lower_1_2 | Lambe -> "Ø"
| Pos2 -> "Ù"
@@ -103,8 +91,7 @@ and y' =
let y = T.Voyel y'
and u = T.Voyel
- { T.opened = true
- ; T.position = `Above
+ { T.position = `Above
; T.app = function
| Pos1 | Lower_1_2 | Lambe -> "&"
| Pos2 -> "U"
@@ -112,159 +99,35 @@ and u = T.Voyel
| Pos4 | Lower_4_2 -> "M"
}
-and p = T.Consonant
- { position = Pos2
- ; muted = Some "y"
- ; category = II
- ; primary = true
- ; repr = "q" }
-
-and b = T.Consonant
- { position = Pos1
- ; muted = Some "y"
- ; category = II
- ; primary = true
- ; repr = "w" }
-
-and t = T.Consonant
- { position = Pos2
- ; muted = Some "6"
- ; category = I
- ; primary = true
- ; repr = "1" }
-
-and d = T.Consonant
- { position = Pos1
- ; muted = Some "6"
- ; category = I
- ; primary = true
- ; repr = "2" }
-
-and k = T.Consonant
- { position = Lower_3_1
- ; muted = Some "h"
- ; category = III
- ; primary = true
- ; repr = "a" }
-
-and g = T.Consonant
- { position = Pos1
- ; muted = Some "h"
- ; category = III
- ; primary = true
- ; repr = "s" }
-
-and f = T.Consonant
- { position = Pos3
- ; muted = None
- ; category = II
- ; primary = true
- ; repr = "e" }
-
-and v = T.Consonant
- { position = Pos1
- ; muted = None
- ; category = II
- ; primary = true
- ; repr = "r" }
-
-and ch = T.Consonant
- { position = Lower_1_2
- ; muted = None
- ; category = III
- ; primary = true
- ; repr = "d" }
-
-and j = T.Consonant
- { position = Pos1
- ; muted = None
- ; category = III
- ; primary = true
- ; repr = "f" }
-
-and s = T.Consonant
- { position = Lower_4_2
- ; muted = Some "i"
- ; category = I
- ; primary = true
- ; repr = "3" }
-
-and z = T.Consonant
- { position = Pos1
- ; muted = None
- ; category = I
- ; primary = true
- ; repr = "4" }
-
-and m = T.Consonant
- { position = Pos1
- ; muted = None
- ; category = II
- ; primary = true
- ; repr = "t" }
-
-and n = T.Consonant
- { position = Pos1
- ; muted = None
- ; category = I
- ; primary = true
- ; repr = "5" }
-
-and gn = T.Consonant
- { position = Pos1
- ; muted = None
- ; category = III
- ; primary = false
- ; repr = "b" }
-
-and ng = T.Consonant
- { position = Pos1
- ; muted = None
- ; category = III
- ; primary = true
- ; repr = "g" }
-
-and r = T.Consonant
- { position = Pos2
- ; muted = Some "u"
- ; category = I
- ; primary = false
- ; repr = "7" }
-
-and semi_voyel_w = T.Consonant
- { position = Pos3
- ; muted = None
- ; category = II
- ; primary = false
- ; repr = "." }
-
-and semi_voyel_y = T.Consonant
- { position = Pos1
- ; muted = None
- ; category = II
- ; primary = false
- ; repr = "l" }
-
-and semi_voyel_u = T.Consonant
- { position = Pos2
- ; muted = None
- ; category = II
- ; primary = false
- ; repr = "]" }
-
-let l =
- let default =
- { T.position = Lambe
- ; T.muted = None
- ; T.category = II
- ; T.primary = false
- ; T.repr = "j" } in
- T.Consonant default
-
-let a_nasal = T.nasal m ng n a'
-and o_nasal = T.nasal m ng n o'
-and i_nasal = T.nasal m ng n i'
-and y_nasal = T.nasal m ng n y'
+let portant = T.portant "`" Pos4
+
+and t = T.t "1" (Some "6") Pos2
+and d = T.d "2" (Some "6") Pos1
+and p = T.p "q" (Some "y") Pos2
+and b = T.b "w" (Some "y") Pos1
+and k = T.k "a" (Some "h") Lower_3_1
+and g = T.g "s" (Some "h") Pos1
+and f = T.f "e" Pos3
+and v = T.v "r" Pos1
+and ch = T.ch "d" Lower_1_2
+and j = T.j "f" Pos1
+and s = T.s "3" (Some "i") Lower_4_2
+and z = T.z "4" Pos1
+and m = T.m "t" Pos1
+and n = T.n "5" Pos1
+and gn = T.gn "b" Pos1
+and ng = T.ng "g" Pos1
+and r = T.r "7" (Some "u") Pos2
+and l = T.l "j" Lambe
+
+and semi_voyel_w = T.semi_voyel_w "." Pos3
+and semi_voyel_y = T.semi_voyel_y "l" Pos1
+and semi_voyel_u = T.semi_voyel_u "]" Pos2
+
+let a_nasal = T.nasal m ng n a'
+and o_nasal = T.nasal m ng n o'
+and i_nasal = T.nasal m ng n i'
+and y_nasal = T.nasal m ng n y'
let muted
: t -> t
generated by cgit v1.2.3 (git 2.39.1) at 2024-05-19 17:31:48 +0000