forked from GitHub/gf-rgl
Hans Leiss
ec41af609d
their primed versions 2. implemented all linearizations to use the primed categories This allows linearization with prep+defart's, but parsing gives metavariables in parses (DetQuant ? NumSg) and (DetQuantOrd ? NumSg ord) for prep+defart. Todo: make Quant.s and NP. depend on PronType = isCat | isPron | isPronDefArt. Without SlashV2VNP', compiles in 84 sec and gives 3,6M VerbGer.gfo, 2,3M SentenceGer.gfo. Uses |Prep'|=12 instead of |Prep|=18, |NP'|=72 instead of |NP|=54
28 lines
637 B
Plaintext
28 lines
637 B
Plaintext
concrete AdverbGer of Adverb' = CatGer ** open ResGer, Prelude in {
|
|
|
|
lin
|
|
PositAdvAdj a = {s = a.s ! Posit ! APred} ;
|
|
|
|
ComparAdvAdj cadv a np =
|
|
let nps = (np.s ! Nom).p1 ++ (np.s ! Nom).p2 ++ bigNP' np in
|
|
{
|
|
s = cadv.s ++ a.s ! Posit ! APred ++ cadv.p ++ nps
|
|
} ;
|
|
ComparAdvAdjS cadv a s = {
|
|
s = cadv.s ++ a.s ! Posit ! APred ++ cadv.p ++ s.s ! Sub
|
|
} ;
|
|
|
|
PrepNP prep np = {s = appPrepNP' prep np} ;
|
|
|
|
AdAdv = cc2 ;
|
|
|
|
PositAdAAdj a = {s = a.s ! Posit ! APred} ;
|
|
|
|
SubjS subj s = {s = subj.s ++ s.s ! Sub} ;
|
|
|
|
AdnCAdv cadv = {s = cadv.s ++ conjThan} ;
|
|
|
|
}
|
|
|
|
---b AdvSC s = s ;
|