GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-16 06:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

Romance inverted questions

Browse Source
This commit is contained in:
aarne
2007-02-24 11:35:46 +00:00
parent 5c7bd4c5c7
commit a11bb7a23c
10 changed files with 46 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lib/resource-1.0/romance/RelativeRomance.gf
View File

@@ -6,7 +6,8 @@ incomplete concrete RelativeRomance of Relative =
lin
RelCl cl = {
s = \\ag,t,a,p,m => pronSuch ! ag ++ conjThat ++ cl.s ! t ! a ! p ! m ;
s = \\ag,t,a,p,m => pronSuch ! ag ++ conjThat ++
cl.s ! DDir ! t ! a ! p ! m ;
c = Nom
} ;
@@ -16,12 +17,12 @@ incomplete concrete RelativeRomance of Relative =
(mkClause
(rp.s ! False ! {g = ag.g ; n = ag.n} ! Nom)
{g = rp.a.g ; n = rp.a.n ; p = P3}
vp).s ; c = Nom} ;
vp).s ! DDir ; c = Nom} ;
False => {s = \\ag =>
(mkClause
(rp.s ! False ! {g = ag.g ; n = ag.n} ! Nom)
ag
vp).s ; c = Nom
vp).s ! DDir ; c = Nom
}
} ;
@@ -31,7 +32,7 @@ incomplete concrete RelativeRomance of Relative =
in
slash.c2.s ++
rp.s ! False ! aag ! slash.c2.c ++
slash.s ! aag ! t ! a ! p ! m ; --- ragr
slash.s ! DDir ! aag ! t ! a ! p ! m ; --- ragr
c = Acc
} ;