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

2
lib/resource-1.0/english/CatEng.gf
View File

@@ -24,7 +24,7 @@ concrete CatEng of Cat = CommonX ** open ResEng, Prelude in {
QCl = {s : Tense => Anteriority => Polarity => QForm => Str} ;
IP = {s : Case => Str ; n : Number} ;
IAdv = {s : Str} ;
IAdv, IComp = {s : Str} ;
IDet = {s : Str ; n : Number} ;
-- Relative

47
lib/resource-1.0/english/QuestionEng.gf
View File

@@ -1,4 +1,4 @@
concrete QuestionEng of Question = CatEng ** open ResEng in {
concrete QuestionEng of Question = CatEng ** open ResEng, Prelude in {
flags optimize=all_subs ;
@@ -17,27 +17,15 @@ concrete QuestionEng of Question = CatEng ** open ResEng in {
let cl = mkClause (qp.s ! Nom) {n = qp.n ; p = P3} vp
in {s = \\t,a,b,_ => cl.s ! t ! a ! b ! ODir} ;
QuestSlash ip slash = {
s = \\t,a,p =>
let
cls = slash.s ! t ! a ! p ;
who = slash.c2 ++ ip.s ! Acc --- stranding in ExtEng
in table {
QDir => who ++ cls ! OQuest ;
QIndir => who ++ cls ! ODir
}
} ;
QuestSlash ip slash =
mkQuestion (ss (slash.c2 ++ ip.s ! Acc)) slash ;
--- stranding in ExtEng
QuestIAdv iadv cl = mkQuestion iadv cl ;
QuestIComp icomp np =
mkQuestion icomp (mkClause (np.s ! Nom) np.a (predAux auxBe)) ;
QuestIAdv iadv cl = {
s = \\t,a,p =>
let
cls = cl.s ! t ! a ! p ;
why = iadv.s
in table {
QDir => why ++ cls ! OQuest ;
QIndir => why ++ cls ! ODir
}
} ;
PrepIP p ip = {s = p.s ++ ip.s ! Nom} ;
@@ -51,4 +39,21 @@ concrete QuestionEng of Question = CatEng ** open ResEng in {
n = idet.n
} ;
CompIAdv a = a ;
oper
mkQuestion :
{s : Str} -> Clause ->
{s : Tense => Anteriority => Polarity => QForm => Str} = \wh,cl ->
{
s = \\t,a,p =>
let
cls = cl.s ! t ! a ! p ;
why = wh.s
in table {
QDir => why ++ cls ! OQuest ;
QIndir => why ++ cls ! ODir
}
} ;
}