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

IComp questions in resource added

Browse Source
This commit is contained in:
aarne
2006-04-20 15:32:48 +00:00
parent fe0d2f4896
commit 34a8f1b12f
15 changed files with 142 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -23,10 +23,11 @@ incomplete concrete CatRomance of Cat =
-- Question
QCl = {s : Tense => Anteriority => Polarity => QForm => Str} ;
IP = {s : Case => Str ; a : AAgr} ;
IAdv = {s : Str} ;
IDet = {s : Gender => Case => Str ; n : Number} ;
QCl = {s : Tense => Anteriority => Polarity => QForm => Str} ;
IP = {s : Case => Str ; a : AAgr} ;
IAdv = {s : Str} ;
IComp = {s : AAgr => Str} ;
IDet = {s : Gender => Case => Str ; n : Number} ;
-- Relative

11
lib/resource-1.0/romance/QuestionRomance.gf
View File

@@ -41,6 +41,15 @@ incomplete concrete QuestionRomance of Question =
in why ++ cls
} ;
QuestIComp icomp np = {
s = \\t,a,p,_ =>
let
vp = predV copula ;
cls = (mkClause (np.s ! Aton Nom) np.a vp).s ! t ! a ! p ! Indic ;
why = icomp.s ! {g = np.a.g ; n = np.a.n}
in why ++ cls
} ;
PrepIP p ip = {
s = p.s ++ ip.s ! accusative
} ;
@@ -60,4 +69,6 @@ incomplete concrete QuestionRomance of Question =
a = a
} ;
CompIAdv a = {s = \\_ => a.s} ;
}