mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-28 01:18:57 -06:00
more variants of compoundN
This commit is contained in:
@@ -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
|
||||||
}
|
}
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user