msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

more updates from Codex

Browse Source
This commit is contained in:
Krasimir Angelov
2026-09-28 06:56:12 +02:00
parent e2e0fca917
commit 2d6beba1e6
13 changed files with 356 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/armenian/QuestionHye.gf
+45 -7
View File
@@ -1,11 +1,49 @@
concrete QuestionHye of Question = CatHye ** open ResHye in {
concrete QuestionHye of Question = CatHye ** open Prelude, ResHye in {
lincat QVP = {s : Str} ;
oper
markFinal : Str -> Str = \s -> s ++ BIND ++ "՞" ;
clForm : Cl -> Tense -> Anteriority -> Polarity -> Str = \cl,t,a,p ->
case a of {
Anter => cl.anterior ! t ! p;
Simul => case p of {
Neg => cl.negative ! t;
Pos => case t of {
Pres => cl.s;
Past => cl.past ! P3 ! Sg;
Fut => cl.conditional ! Non_Past ! Sg;
Cond => cl.conditional ! Perfect ! Sg
}
}
} ;
vpForm : VP -> Tense -> Anteriority -> Polarity -> Str = \vp,t,a,p ->
case a of {
Anter => case <t,p> of {
<Pres,Pos> => vp.converb.perfective ++ presentAux P3 Sg;
<Pres,Neg> => negativePresentAux P3 Sg ++ vp.converb.perfective;
<Past,Pos> => vp.converb.perfective ++ pastAux P3 Sg;
<Past,Neg> => negativePastAux P3 Sg ++ vp.converb.perfective;
<Fut,Pos> => vp.converb.perfective ++ copulaVerb.conditional ! Non_Past ! P3 ! Sg;
<Fut,Neg> => negativePresentAux P3 Sg ++ vp.converb.perfective ++ copulaVerb.converb.futCon1;
<Cond,Pos> => vp.converb.perfective ++ copulaVerb.conditional ! Perfect ! P3 ! Sg;
<Cond,Neg> => negativePastAux P3 Sg ++ vp.converb.perfective
};
Simul => case <t,p> of {
<Pres,Pos> => vp.converb.imperfective ++ presentAux P3 Sg;
<Pres,Neg> => negativePresentAux P3 Sg ++ vp.converb.imperfective;
<Past,Pos> => vp.past ! P3 ! Sg;
<Past,Neg> => "չ" ++ BIND ++ vp.past ! P3 ! Sg;
<Fut,Pos> => vp.conditional ! Non_Past ! P3 ! Sg;
<Fut,Neg> => negativePresentAux P3 Sg ++ vp.converb.futCon1;
<Cond,Pos> => vp.conditional ! Perfect ! P3 ! Sg;
<Cond,Neg> => "չ" ++ BIND ++ vp.conditional ! Perfect ! P3 ! Sg
}
} ;
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 ++ "՞"} ;
QuestCl cl = {s = \\t,a,p => markFinal (clForm cl t a p)} ;
QuestVP ip vp = {s = \\t,a,p => ip.s ++ vpForm vp t a p} ;
QuestSlash ip slash = {s = \\_,_,_ => ip.s ++ slash.s} ;
QuestIAdv adv cl = {s = \\t,a,p => adv.s ++ clForm cl t a p} ;
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} ;
@@ -17,5 +55,5 @@ concrete QuestionHye of Question = CatHye ** open ResHye in {
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 ++ "՞"} ;
QuestQVP ip qvp = {s = \\_,_,_ => ip.s ++ qvp.s} ;
}