extensions by Codex

2026-09-27 13:47:53 +02:00
parent 7e897f5c66
commit 9458f5c8e7
22 changed files with 5400 additions and 5323 deletions
@@ -0,0 +1,10 @@
+concrete NamesKaz of Names = CatKaz ** open Prelude, ResKaz in {
+  oper nameNP : Str -> NP = \s -> lin NP {s=\\_ => s; a={p=P3;n=Sg}} ;
+
+  lin
+    UseLN ln=nameNP ln.s;
+    InLN ln={s=ln.s++"да"};
+    AdjLN ap ln={s=ap.s++ln.s};
+    GivenName gn=nameNP gn.s;
+    MaleSurname sn=nameNP sn.s;
+}