msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

shrinking the size of some Fin datatypes (in general RGL) results in pgf size reduction to 25% of previous size

Browse Source
This commit is contained in:
aarne
2014-02-09 17:38:24 +00:00
parent 1bdfa4e294
commit e560a59646
11 changed files with 148 additions and 98 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/finnish/IdiomFin.gf
View File

@@ -16,7 +16,7 @@ concrete IdiomFin of Idiom = CatFin **
ExistIP ip =
let
cas : NPForm = NPCase Nom ; ---- also partitive in Extra
cas : SubjCase = SCNom ; ---- also partitive in Extra
vp = insertObj (\\_,b,_ => "olemassa") (predV olla) ;
cl = mkClause (subjForm (ip ** {isPron = False ; a = agrP3 ip.n}) cas) (agrP3 ip.n) vp
in {
@@ -61,7 +61,7 @@ concrete IdiomFin of Idiom = CatFin **
ImpP3 np vp =
let vps = (sverb2verbSep vp.s).s ! ImperP3 (verbAgr np.a).n
in
{s = np.s ! vp.s.sc ++ vps ++
{s = np.s ! subjcase2npform vp.s.sc ++ vps ++
vp.s2 ! True ! Pos ! np.a ++ vp.adv ! Pos ++ vp.ext
} ;