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

ExistIP (still unfinished)

Browse Source
This commit is contained in:
aarne
2006-05-16 13:07:02 +00:00
parent 95e2333598
commit cd276cbebe
6 changed files with 42 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/resource-1.0/french/IdiomFre.gf
View File

@@ -4,11 +4,19 @@ concrete IdiomFre of Idiom = CatFre **
flags optimize=all_subs ;
lin
ImpersCl vp = mkClause "il" (agrP3 Masc Sg) vp ;
GenericCl vp = mkClause "on" (agrP3 Masc Sg) vp ;
ExistNP np =
mkClause "il" (agrP3 Masc Sg)
(insertClit2 "y" (insertComplement (\\_ => np.s ! Ton Acc) (predV avoir_V))) ;
ImpersCl vp = mkClause "il" (agrP3 Masc Sg) vp ;
GenericCl vp = mkClause "on" (agrP3 Masc Sg) vp ;
ExistIP ip = {
s = \\t,a,p,_ =>
(mkClause (ip.s ! Nom) (agrP3 ip.a.g ip.a.n)
(insertClit2 "y" (predV avoir_V))).s ! t ! a ! p ! Indic
} ;
ProgrVP vp =
insertComplement