GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-29 18:48:37 -06:00
Code Issues Packages Projects Releases Wiki Activity

more work on Finnish ClausePlus

Browse Source
This commit is contained in:
aarne
2011-02-08 19:27:35 +00:00
parent 11332d735e
commit 1f5fd10640
10 changed files with 37 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/finnish/ExtraFin.gf
+2 -2
View File
@@ -27,7 +27,7 @@ concrete ExtraFin of ExtraFinAbs = CatFin **
AdvExistNP adv np =
mkClause (\_ -> adv.s) np.a (insertObj
(\\_,b,_ => np.s ! NPCase Nom) (predV (verbOlla ** {sc = NPCase Nom ; qp = "ko"}))) ;
(\\_,b,_ => np.s ! NPCase Nom) (predV (verbOlla ** {sc = NPCase Nom ; qp = True}))) ;
RelExistNP prep rp np = {
s = \\t,ant,bo,ag =>
@@ -38,7 +38,7 @@ concrete ExtraFin of ExtraFinAbs = CatFin **
np.a
(insertObj
(\\_,b,_ => np.s ! NPCase Nom)
(predV (verbOlla ** {sc = NPCase Nom ; qp = "ko"}))) ;
(predV (verbOlla ** {sc = NPCase Nom ; qp = True}))) ;
in
cl.s ! t ! ant ! bo ! SDecl ;
c = NPCase Nom