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

improved several functions

Browse Source
This commit is contained in:
Krasimir Angelov
2026-04-13 09:13:38 +02:00
parent 263b668249
commit da0e273d3d
7 changed files with 30 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
src/macedonian/QuestionMkd.gf
View File

@@ -3,17 +3,20 @@ concrete QuestionMkd of Question = CatMkd ** open Prelude,ResMkd in {
lin AdvIP ip a = {s = ip.s ++ a.s; g = ip.g} ;
lin CompIAdv i = {s = i.s} ;
lin CompIP ip = {s = ip.s} ;
lin IdetCN i cn = {s = i.s ! cn.g ++ cn.s ! Indef ! i.n;
g = GSg Masc} ;
lin IdetIP i = {s = i.s ! Masc; g = GSg Masc} ;
lin IdetQuant i n = {s = \\g => i.s ! GSg Masc ++ n.s; n = Sg} ;
lin PrepIP p ip = {s = p.s ++ ip.s} ;
lin IdetCN idet cn = {
s = idet.s ! cn.g ++ cn.s ! Indef ! idet.n;
g = genNum cn.g idet.n
} ;
lin IdetIP idet = {s = idet.s ! Masc; g = genNum Masc idet.n} ;
lin IdetQuant i n = {
s = \\g => i.s ! GSg Masc ++ n.s;
n = Sg
} ;
lin PrepIP p ip = {s : Str = p.s ++ ip.s} ;
lincat QVP = {s : Str} ;
lin QuestCl cl = {s = \\t,a,p => cl.s ! t ! a ! p ! Quest} ;
lin QuestIAdv i cl = {s = \\t,a,p => i.s
++ cl.s ! t ! a ! p ! Main} ;
lin QuestCl cl = {s = cl.s ! Quest} ;
lin QuestIAdv i cl = {s = \\t,a,p => i.s ++ cl.s ! Main ! t ! a ! p} ;
lin QuestIComp i np = {s = \\t,a,p => i.s ++ np.s ! RSubj} ;
lin QuestSlash ip c = {s = \\t,a,p => ip.s ++ c.s} ;
lin QuestVP ip vp = {s = \\t,a,p => ip.s
++ vp.present ! Imperfective ! Sg ! P1} ;
lin QuestVP ip vp = {s = mkClause ip.s {g=ip.g; p=P3} vp ! Main} ;
}