GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-06 09:42:50 -06:00
Code Issues Packages Projects Releases Wiki 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

15
lib/resource-1.0/spanish/IdiomSpa.gf
View File

@@ -1,5 +1,5 @@
concrete IdiomSpa of Idiom = CatSpa **
open MorphoSpa, ParadigmsSpa, BeschSpa, Prelude in {
open (P = ParamX), MorphoSpa, ParadigmsSpa, BeschSpa, Prelude in {
flags optimize=all_subs ;
@@ -7,6 +7,15 @@ concrete IdiomSpa of Idiom = CatSpa **
ImpersCl vp = mkClause [] (agrP3 Masc Sg) vp ;
GenericCl vp = mkClause "se" (agrP3 Masc Sg) vp ; ---- just Italian ?
CleftNP np rs = mkClause [] (agrP3 Masc Sg)
(insertComplement (\\_ => rs.s ! Indic ! np.a)
(insertComplement (\\_ => np.s ! Ton rs.c) (predV copula))) ;
CleftAdv ad s = mkClause [] (agrP3 Masc Sg)
(insertComplement (\\_ => conjThat ++ s.s ! Indic)
(insertComplement (\\_ => ad.s) (predV copula))) ;
ExistNP np =
mkClause [] (agrP3 Masc Sg)
(insertComplement (\\_ => np.s ! Ton Acc) (predV (verboV (hay_3 "haber")))) ;
@@ -27,4 +36,8 @@ concrete IdiomSpa of Idiom = CatSpa **
)
(predV (verboV (estar_2 "estar"))) ;
ImpPl1 vp = {s =
(mkClause [] {g = Fem ; n = Pl ; p = P1} vp).s ! P.Pres ! Simul ! Pos ! Indic
} ;
}