forked from GitHub/gf-rgl
22 lines
916 B
Plaintext
22 lines
916 B
Plaintext
concrete QuestionHye of Question = CatHye ** open ResHye in {
|
|
lincat QVP = {s : Str} ;
|
|
lin
|
|
QuestCl cl = {s = cl.s ++ "՞"} ;
|
|
QuestVP ip vp = {s = ip.s ++ vp.s ++ "՞"} ;
|
|
QuestSlash ip slash = {s = ip.s ++ slash.s ++ "՞"} ;
|
|
QuestIAdv adv cl = {s = adv.s ++ cl.s ++ "՞"} ;
|
|
QuestIComp comp np = {s = comp.s ++ np.s ! Nom ++ "՞"} ;
|
|
IdetCN det cn = {s = det.s ++ cn.s ! Indef ! Nom ! Sg} ;
|
|
IdetIP det = {s = det.s} ;
|
|
AdvIP ip adv = {s = ip.s ++ adv.s} ;
|
|
IdetQuant quant num = {s = quant.s ++ num.s} ;
|
|
PrepIP prep ip = {s = case prep.isPre of {True=>prep.s++ip.s;False=>ip.s++prep.s}} ;
|
|
AdvIAdv iadv adv = {s = iadv.s ++ adv.s} ;
|
|
CompIAdv adv = adv ;
|
|
CompIP ip = ip ;
|
|
ComplSlashIP slash ip = {s = slash.s ++ ip.s} ;
|
|
AdvQVP vp adv = {s = vp.s ++ adv.s} ;
|
|
AddAdvQVP qvp adv = {s = qvp.s ++ adv.s} ;
|
|
QuestQVP ip qvp = {s = ip.s ++ qvp.s ++ "՞"} ;
|
|
}
|