mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-28 14:02:50 -06:00
15 lines
393 B
Plaintext
15 lines
393 B
Plaintext
incomplete concrete ExtScand of ExtScandAbs =
|
|
CatScand ** open DiffScand, ResScand in {
|
|
|
|
lin
|
|
DefSgN predet noun = let g = noun.g in {
|
|
s = \\c => predet.s ! gennum g Sg ++ noun.s ! Sg ! Def ! caseNP c ;
|
|
a = agrP3 g Sg
|
|
} ;
|
|
DefPlN predet noun = let g = noun.g in {
|
|
s = \\c => predet.s ! Plg ++ noun.s ! Pl ! Def ! caseNP c ;
|
|
a = agrP3 g Sg
|
|
} ;
|
|
|
|
}
|