1
0
forked from GitHub/gf-rgl

added pidgin rules

This commit is contained in:
Krasimir Angelov
2026-04-11 15:33:05 +02:00
parent 323e4b4cdf
commit ae9b7d4d45
11 changed files with 560 additions and 30 deletions

View File

@@ -1,3 +1,19 @@
concrete QuestionMkd of Question = CatMkd ** open Prelude,ResMkd in {
lin AdvIAdv i a = {s = i.s ++ a.s} ;
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} ;
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 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} ;
}