GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-08-23 20:56:24 -06:00
Code Issues Packages Projects Releases Wiki Activity

fixed InLN, ExistNP, ExistNPAdv

Browse Source
This commit is contained in:
Krasimir Angelov
2026-08-23 19:20:14 +02:00
parent 621dc23f60
commit 10d45593e4
2 changed files with 18 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/macedonian/IdiomMkd.gf
+17 -3
View File
@@ -1,12 +1,26 @@
concrete IdiomMkd of Idiom = CatMkd ** open Prelude,ResMkd in {
concrete IdiomMkd of Idiom = CatMkd ** open Prelude,ResMkd,MorphoMkd in {
lin CleftAdv a s = {s = \\t,a2,p,o => a.s ++ s.s} ;
lin CleftNP np rs = {s = \\t,a,p,o => np.s ! RSubj
++ rs.s ! np.a.g} ;
lin ExistIP ip = {s = \\t,a,p => ip.s} ;
lin ExistIPAdv ip a = {s = \\t,a2,p => ip.s ++ a.s} ;
lin ExistNP np = {s = \\t,a,p,o => np.s ! RSubj} ;
lin ExistNPAdv np a = {s = \\t,a2,p,o => np.s ! RSubj ++ a.s} ;
lin ExistNP np = {
s = \\o,t,a,p =>
let vp = case p of {
Pos => mkV001 "има" ;
Neg => mkV001 "нема"
} ** {compl = \\_ => np.s ! RSubj} ;
in mkClause [] {g=GSg Neuter; p=P3} vp ! o ! t ! a ! p
} ;
lin ExistNPAdv np a = {
s = \\o,t,a2,p =>
let vp = case p of {
Pos => mkV001 "има" ;
Neg => mkV001 "нема"
} ** {compl = \\_ => np.s ! RSubj ++ a.s} ;
in mkClause [] {g=GSg Neuter; p=P3} vp ! o ! t ! a2 ! p
} ;
lin GenericCl vp = {s = \\t,a,p,o => vp.present ! Imperfective ! Sg
! P1} ;
lin ImpP3 np vp = {s = np.s ! RSubj
src/macedonian/NamesMkd.gf
+1 -1
View File
@@ -6,7 +6,7 @@ concrete NamesMkd of Names = CatMkd ** open Prelude,ResMkd in {
vocative = gn.s ++ sn.s; a = {g = GSg Masc; p = P1}} ;
lin GivenName gn = {s = \\r => gn.s; vocative = gn.s;
a = {g = GSg Masc; p = P1}} ;
lin InLN ln = {s = ln.s} ;
lin InLN ln = {s = "во" ++ ln.s} ;
lin MaleSurname sn = {s = \\r => sn.s; vocative = sn.s;
a = {g = GSg Masc; p = P1}} ;
lin PlSurname sn = {s = \\r => sn.s; vocative = sn.s;