added ivarN and invarV

This commit is contained in:
Krasimir Angelov
2026-06-01 08:16:19 +02:00
parent 4282523f2f
commit ff44b03344

View File

@@ -502,6 +502,11 @@ oper
mkN3 : N -> Prep -> Prep -> N3 = \n,p1,p2 -> lin N3 (n ** {c2 = p1; c3 = p2}) ; mkN3 : N -> Prep -> Prep -> N3 = \n,p1,p2 -> lin N3 (n ** {c2 = p1; c3 = p2}) ;
} ; } ;
invarN : Str -> N = \s -> lin N {
s = \\_,_,_ => s ;
g = Masc
} ;
mkA = overload { mkA = overload {
mkA : Str -> A = regA; -- s;Masc;Sg;Nom mkA : Str -> A = regA; -- s;Masc;Sg;Nom
mkA : Str -> Str -> A = reg2A -- s;Masc;Sg;Nom s;Masc;Sg;Dat mkA : Str -> Str -> A = reg2A -- s;Masc;Sg;Nom s;Masc;Sg;Dat
@@ -523,6 +528,15 @@ oper
= \v,p -> v ** {particle = p} = \v,p -> v ** {particle = p}
} ; } ;
invarV : Str -> V = \s -> lin V {
Converb = s ;
imperative = \\_ => s ;
Indicative = \\_,_ => s ;
Nonfinite = s ;
Participle = \\_ => s ;
particle = []
} ;
mkVV : V -> VV = \v -> lin VV v ; mkVV : V -> VV = \v -> lin VV v ;
mkVS : V -> VS = \v -> lin VS v ; mkVS : V -> VS = \v -> lin VS v ;
mkVQ : V -> VQ = \v -> lin VQ v ; mkVQ : V -> VQ = \v -> lin VQ v ;