GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

working on questions

Browse Source
This commit is contained in:
aarne
2005-11-28 15:00:52 +00:00
parent 0fbb2fe27e
commit d66e6fbff4
5 changed files with 59 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lib/resource-1.0/gf/LexEng.gf
View File

@@ -1,4 +1,5 @@
concrete LexEng of Lex = CatEng ** open ResEng in {
lin
walk_V = regV "walk" ;
kill_V2 = regV "kill" ** {c2 = []} ;
@@ -24,4 +25,8 @@ concrete LexEng of Lex = CatEng ** open ResEng in {
whoSg_IP = mkIP "who" "whom" "whose" Sg ;
whoPl_IP = mkIP "who" "whom" "whose" Pl ;
when_IAdv = {s = "when"} ;
whichSg_IDet = {s = "which" ; n = Sg} ;
}

2
lib/resource-1.0/gf/Question.gf
View File

@@ -11,7 +11,7 @@ abstract Question = Cat, Sentence ** {
FunIP : N2 -> IP -> IP ;
AdvIP : IP -> Adv -> IP ;
IDetCN : IDet -> Num -> IP ;
IDetCN : IDet -> Num -> CN -> IP ;
}

42
lib/resource-1.0/gf/QuestionEng.gf
View File

@@ -8,7 +8,7 @@ concrete QuestionEng of Question = CatEng, SentenceEng ** open ResEng in {
in table {
QDir => cls ! OQuest ;
QIndir => "if" ++ cls ! ODir
} ---- "whether" in exts
} ---- "whether" in ExtEng
} ;
QuestVP qp vp = {
@@ -22,16 +22,40 @@ concrete QuestionEng of Question = CatEng, SentenceEng ** open ResEng in {
subj ++ verb.fin ++ verb.inf ++ compl
} ;
{-
QuestSlash : IP -> Slash -> QCl ;
QuestIAdv : IAdv -> Cl -> QCl ;
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
}
} ;
PrepIP : Prep -> IP -> IAdv ;
FunIP : N2 -> IP -> IP ;
AdvIP : IP -> Adv -> IP ;
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} ;
---- FunIP : N2 -> IP -> IP ;
AdvIP ip adv = {
s = \\c => ip.s ! c ++ adv.s ;
n = ip.n
} ;
IDetCN : IDet -> Num -> IP ;
-}
IDetCN idet num cn = {
s = \\c => idet.s ++ num.s ++ cn.s ! idet.n ! c ;
n = idet.n
} ;
}

1
lib/resource-1.0/gf/Sentence.gf
View File

@@ -6,5 +6,6 @@ abstract Sentence = Cat ** {
SlashV2 : NP -> V2 -> Slash ;
AdvSlash : Slash -> Adv -> Slash ;
}

19
lib/resource-1.0/gf/SentenceEng.gf
View File

@@ -17,4 +17,23 @@ concrete SentenceEng of Sentence = CatEng ** open ResEng in {
}
} ;
SlashV2 np v2 = {
s = \\t,a,b,o =>
let
agr = np.a ;
verb = (predV v2).s ! t ! a ! b ! o ! agr ;
subj = np.s ! Nom
in
case o of {
ODir => subj ++ verb.fin ++ verb.inf ;
OQuest => verb.fin ++ subj ++ verb.inf
} ;
c2 = v2.c2
} ;
--- PredVP (np ** {lock_NP =<>}) (UseV (v2 ** {lock_V = <>})) ** {c2 = v2.c2} ;
AdvSlash slash adv = {
s = \\t,a,b,o => slash.s ! t ! a ! b ! o ++ adv.s ;
c2 = slash.c2
} ;
}