1
0
forked from GitHub/gf-core

updated clefts in Idiom (now all except Russian)

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

View File

@@ -8,11 +8,11 @@ concrete IdiomGer of Idiom = CatGer **
GenericCl vp = mkClause "man" (agrP3 Sg) vp ;
CleftNP np rs = mkClause "es" (agrP3 Sg)
(insertObj (\\_ => rs.s ! gennum np.a.g np.a.n) ----
(insertExtrapos (rs.s ! gennum np.a.g np.a.n) ----
(insertObj (\\_ => np.s ! rs.c) (predV sein_V))) ;
CleftAdv ad s = mkClause "es" (agrP3 Sg)
(insertObj (\\_ => s.s ! Main)
(insertExtrapos (conjThat ++ s.s ! Sub)
(insertObj (\\_ => ad.s) (predV sein_V))) ;