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

updated clefts in Idiom (now all except Russian)

Browse Source
This commit is contained in:
aarne
2006-06-01 14:02:49 +00:00
parent d631ee00d7
commit 4dcbfcdf75
14 changed files with 100 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,5 +1,5 @@
concrete IdiomFre of Idiom = CatFre **
open PhonoFre, MorphoFre, ParadigmsFre, Prelude in {
open (P = ParamX), PhonoFre, MorphoFre, ParadigmsFre, Prelude in {
flags optimize=all_subs ;
@@ -17,11 +17,27 @@ concrete IdiomFre of Idiom = CatFre **
(mkClause "il" (agrP3 Masc Sg) (insertClit2 "y" (predV avoir_V))).s ! t ! a ! p ! Indic
} ;
CleftNP np rs = mkClause elisCe (agrP3 Masc Sg)
(insertComplement (\\_ => rs.s ! Indic ! np.a)
(insertComplement (\\_ => np.s ! Ton rs.c) (predV copula))) ;
CleftAdv ad s = mkClause elisCe (agrP3 Masc Sg)
(insertComplement (\\_ => conjThat ++ s.s ! Indic)
(insertComplement (\\_ => ad.s) (predV copula))) ;
ProgrVP vp =
insertComplement
(\\a => "en" ++ "train" ++ elisDe ++ infVP vp a)
(predV copula) ;
ImpPl1 vp = {s =
(mkClause [] {g = Fem ; n = Pl ; p = P1} vp).s ! P.Pres ! Simul ! Pos ! Indic
} ;
oper
elisCe = elision "c" ;
}