mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-09-24 19:23:39 -06:00
22 lines
1.0 KiB
Plaintext
22 lines
1.0 KiB
Plaintext
concrete QuestionSqi of Question = CatSqi ** open Prelude, ParamX, ResSqi, (I=IrregSqi) in {
|
|
lincat QVP = {s : Str} ;
|
|
lin
|
|
QuestCl cl = cl ;
|
|
QuestVP ip vp = {s=\\t,a,p=>ip.s++negation p++futureParticle t++vp.indicative!sqiTense t!agrNumber ip.a!ip.a.p!agrGender ip.a!Nom} ;
|
|
QuestSlash ip cl = {s=\\t,a,p=>ip.s++cl.s!t!a!p++cl.c2.s} ;
|
|
QuestIAdv i cl = {s=\\t,a,p=>i.s++cl.s!t!a!p} ;
|
|
QuestIComp i np = {s=\\_,_,_=>i.s++(lin Verb I.jam_V).indicative!ResSqi.Pres!agrNumber np.a!np.a.p++np.s!Nom} ;
|
|
IdetCN d cn = {s=d.s!cn.g++cn.s!Indef!Nom!d.n; a=agrgP3 cn.g d.n} ;
|
|
IdetIP d = {s=d.s!Masc; a=agrgP3 Masc d.n} ;
|
|
AdvIP ip a = ip ** {s=ip.s++a.s} ;
|
|
IdetQuant q n = {s=\\g=>q.s!g++n.s; n=n.n} ;
|
|
PrepIP p ip = {s=p.s++ip.s} ;
|
|
AdvIAdv i a = {s=i.s++a.s} ;
|
|
CompIAdv i = i ;
|
|
CompIP ip = {s=ip.s} ;
|
|
ComplSlashIP sl ip = {s=sl.indicative!ResSqi.Pres!Sg!P3++sl.c2.s++ip.s} ;
|
|
AdvQVP vp i = {s=vp.indicative!ResSqi.Pres!Sg!P3!Masc!Nom++i.s} ;
|
|
AddAdvQVP q i = {s=q.s++i.s} ;
|
|
QuestQVP ip q = {s=\\_,_,_=>ip.s++q.s} ;
|
|
}
|