more variants of compoundN

This commit is contained in:
Krasimir Angelov
2026-04-30 07:06:04 +02:00
parent 5a9ab2cbdf
commit 510abc0364

View File

@@ -1154,10 +1154,20 @@ oper
voc = \\num => a.s ! Nom ! genNum n.g num ++ n.voc ! num ; voc = \\num => a.s ! Nom ! genNum n.g num ++ n.voc ! num ;
g = n.g g = n.g
} ; } ;
compoundN : N -> A -> N = \n,a -> {
s = \\c,num => n.s ! c ! num ++ a.s ! c ! genNum n.g num ;
voc = \\num => n.voc ! num ++ a.s ! Nom ! genNum n.g num ;
g = n.g
} ;
compoundN : N -> Str -> N = \n,adv -> { compoundN : N -> Str -> N = \n,adv -> {
s = \\c,num => n.s ! c ! num ++ adv ; s = \\c,num => n.s ! c ! num ++ adv ;
voc = \\num => n.voc ! num ++ adv ; voc = \\num => n.voc ! num ++ adv ;
g = n.g g = n.g
} ;
compoundN : Str -> N -> N = \adv,n -> {
s = \\c,num => adv ++ n.s ! c ! num ;
voc = \\num => adv ++ n.voc ! num ;
g = n.g
} }
} ; } ;