added pronouns

This commit is contained in:
Krasimir Angelov
2026-05-04 19:03:17 +02:00
parent b571d86b7c
commit a3e19ed673
7 changed files with 49 additions and 5 deletions
+13
View File
@@ -319,6 +319,19 @@ oper
_ => regN form1
} ;
mkPron : (_,_,_,_ : Str) -> Gender -> Number -> Person -> Pron =
\nom,acc,dat,gen,g,n,p -> lin Pron {
s = table {
Nom => nom ;
Acc => acc ;
Dat => dat ;
Gen => gen
} ;
g = g ;
n = n ;
p = p
} ;
regA : Str -> A -- s;Masc;Sg;Nom
= \form -> case form of {
_ + "dur" => mkA001 form;