mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-26 03:26:27 -06:00
(Ger) Shrink Agr = Ag Gender Number Person from 3*2*3 = 18 values to 2+3+1+3+1 = 10 by
Agr = AgSgP1 | AgSgP2 | AgSgP3 Gender | AgSgP3Gen | AgPl Person | AgPlPol ;
with AgSgP3Gen resp. AgPlPol used for reflexive,possessive forms of "man", "Sie".
Compiles AllGer from src in 162sec with 15M VerbGer.gfo vs. 380sec with 17M VerbGer.gfo
This commit is contained in:
@@ -1,4 +1,4 @@
|
||||
concrete RelativeGer of Relative = CatGer ** open Prelude, ResGer in {
|
||||
concrete RelativeGer of Relative = CatGer ** open ResGer, Prelude in {
|
||||
|
||||
flags optimize=all_subs ;
|
||||
|
||||
@@ -18,7 +18,7 @@ concrete RelativeGer of Relative = CatGer ** open Prelude, ResGer in {
|
||||
} ;
|
||||
agr = case rp.a of {
|
||||
RNoAg => agrP3 (numGenNum gn) ;
|
||||
RAg n p => Ag Neutr n p
|
||||
RAg n p => case n of {Sg => AgSgP3 Neutr ; Pl => AgPl p}
|
||||
} ;
|
||||
cl = mkClause (rp.s ! rgn ! Nom) agr vp
|
||||
in
|
||||
|
||||
Reference in New Issue
Block a user