mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-10-28 02:03:18 -06:00
11 lines
265 B
Plaintext
11 lines
265 B
Plaintext
concrete NamesNor of Noun = CatNor ** NamesScand - [AdjLN] with
|
|
(ResScand = ResNor) ** {
|
|
|
|
lin AdjLN ap ln = ln ** {
|
|
s = \\c => preOrPost ap.isPre
|
|
(ap.s ! agrAdj (gennum ln.g ln.n) (DDef Def))
|
|
(ln.s ! c) ;
|
|
} ;
|
|
|
|
}
|