mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 11:42:49 -06:00
38 lines
814 B
Plaintext
38 lines
814 B
Plaintext
concrete QuestionEng of Question = CatEng, SentenceEng ** open ResEng in {
|
|
|
|
lin
|
|
|
|
QuestCl cl = {
|
|
s = \\t,a,p =>
|
|
let cls = cl.s ! t ! a ! p
|
|
in table {
|
|
QDir => cls ! OQuest ;
|
|
QIndir => "if" ++ cls ! ODir
|
|
} ---- "whether" in exts
|
|
} ;
|
|
|
|
QuestVP qp vp = {
|
|
s = \\t,a,b,q =>
|
|
let
|
|
agr = {n = qp.n ; p = P3} ;
|
|
verb = vp.s ! t ! a ! b ! ODir ! agr ;
|
|
subj = qp.s ! Nom ;
|
|
compl = vp.s2 ! agr
|
|
in
|
|
subj ++ verb.fin ++ verb.inf ++ compl
|
|
} ;
|
|
|
|
{-
|
|
QuestSlash : IP -> Slash -> QCl ;
|
|
QuestIAdv : IAdv -> Cl -> QCl ;
|
|
|
|
PrepIP : Prep -> IP -> IAdv ;
|
|
FunIP : N2 -> IP -> IP ;
|
|
AdvIP : IP -> Adv -> IP ;
|
|
|
|
IDetCN : IDet -> Num -> IP ;
|
|
-}
|
|
|
|
}
|
|
|