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

overloaded compoundN

Browse Source
This commit is contained in:
Krasimir Angelov
2024-10-31 12:57:46 +01:00
parent 4de1b64b58
commit 1111ca0fdd
2 changed files with 25 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/macedonian/ParadigmsMkd.gf
View File

@@ -1533,12 +1533,26 @@ mkN2 = overload {
mkN2 : N -> Prep -> N2 = \n,p -> lin N2 n ** {c2=p};
} ;
compoundN = overload {
compoundN : A -> N -> N = \a,n -> lin N {
s = \\spec,num => a.s ! spec ! genNum n.g num ++ n.s ! Indef ! num ;
count_form = a.s ! Indef ! genNum n.g Pl ++ n.count_form ;
vocative = \\num => a.s ! Indef ! genNum n.g num ++ n.vocative ! num ;
g = n.g
} ;
compoundN : N -> Str -> N = \n,adv -> lin N {
s = \\spec,num => n.s ! spec ! num ++ adv ;
count_form = n.count_form ++ adv ;
vocative = \\num => n.vocative ! num ++ adv ;
g = n.g
} ;
compoundN : Str -> N -> N = \pref,n -> lin N {
s = \\spec,num => pref ++ n.s ! spec ! num ;
count_form = pref ++ n.count_form ;
vocative = \\num => pref ++ n.vocative ! num ;
g = n.g
}
} ;
mkPN : Str -> PN = \s -> lin PN {s=s} ;
mkLN : Str -> LN = \s -> lin LN {s=s} ;

6
src/macedonian/ResMkd.gf
View File

@@ -184,4 +184,10 @@ oper mkPron : (_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> Pron =
}
} ;
genNum : Gender -> Number -> GenNum = \g,n ->
case n of {
Sg => GSg g ;
Pl => GPl
} ;
}