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

(Est) get rid of most lock field warnings

Browse Source
This commit is contained in:
Inari Listenmaa
2022-07-25 17:38:35 +02:00
parent 728bb1faf9
commit afe76e1fe0
11 changed files with 60 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/estonian/ExtraEst.gf
+8 -8
View File
@@ -23,7 +23,7 @@ concrete ExtraEst of ExtraEstAbs = CatEst **
--- a = RAg (agrP3 num.n)
} ;
oper
caseCN : CasePlus -> NP -> CN -> CN = \c,np,cn -> cn ** {
caseCN : CasePlus -> NPhrase -> CNoun -> CNoun = \c,np,cn -> cn ** {
s = \\nf => appCompl True Pos (P.casePrep c) np ++ cn.s ! nf
} ;
@@ -38,7 +38,7 @@ concrete ExtraEst of ExtraEstAbs = CatEst **
linVPI : InfForms -> LinVPI -> Str = \inf,vpi -> vpi.s ! inf.stem ;
-- Version that uses InfStem
infVPIF : NPForm -> Polarity -> Agr -> VP -> InfStem -> Str = \sc,pol,agr,vp,if ->
infVPIF : NPForm -> Polarity -> Agr -> ResEst.VP -> InfStem -> Str = \sc,pol,agr,vp,if ->
infVPAnt Simul sc pol agr vp {stem=if ; suf="a"} ;
lin
@@ -145,17 +145,17 @@ concrete ExtraEst of ExtraEstAbs = CatEst **
ICompExistNP adv np =
let subj : Polarity -> Str = \_ -> adv.s ! np.a ;
pred : VP = insertObj
(\\_,b,_ => linNP (NPCase Nom) np)
(predV (verbOlema ** {sc = NPCase Nom})) ;
pred : ResEst.VP = insertObj
(\\_,b,_ => linNP (NPCase Nom) np)
(predV (verbOlema ** {sc = NPCase Nom})) ;
in mkClause subj np.a pred ;
IAdvPredNP iadv v np =
let subj : Polarity -> Str = \_ -> iadv.s ;
pred : VP = insertObj
(\\_,b,_ => linNP v.sc np)
(predV v) ;
pred : ResEst.VP = insertObj
(\\_,b,_ => linNP v.sc np)
(predV v) ;
in mkClause subj np.a pred ;