GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-30 11:08:35 -06:00
Code Issues Packages Projects Releases Wiki Activity

Fix word order error in IdiomEst.ExistNP and IdiomEst.ExistIP

Browse Source
This commit is contained in:
Inari Listenmaa
2017-08-17 16:05:44 +03:00
parent 8f2020517f
commit ca9bc14d02
2 changed files with 20 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/estonian/IdiomEst.gf
+4 -4
View File
@@ -9,16 +9,16 @@ concrete IdiomEst of Idiom = CatEst **
cas : Polarity -> NPForm = \p -> case p of {
Pos => NPCase Nom ; -- on olemas lammas
Neg => NPCase Part -- ei ole olemas lammast
}
} ;
vp = insertObj (\\_,b,_ => "olemas" ++ np.s ! cas b) (predV olla)
in
mkClause noSubj (agrP3 Sg) (insertObj
(\\_,b,_ => "olemas" ++ np.s ! cas b) (predV olla)) ;
existClause noSubj (agrP3 Sg) vp ;
ExistIP ip =
let
cas : NPForm = NPCase Nom ; ---- also partitive in Extra
vp = insertObj (\\_,b,_ => "olemas") (predV olla) ;
cl = mkClause (subjForm (ip ** {isPron = False ; a = agrP3 ip.n}) cas) (agrP3 Sg) vp
cl = existClause (subjForm (ip ** {isPron = False ; a = agrP3 ip.n}) cas) (agrP3 Sg) vp
in {
s = \\t,a,p => cl.s ! t ! a ! p ! SDecl
} ;