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

added compound nouns

Browse Source
This commit is contained in:
Krasimir Angelov
2024-10-31 10:44:18 +01:00
parent f0d74e59a7
commit 4de1b64b58
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/macedonian/ParadigmsMkd.gf
View File

@@ -1533,6 +1533,13 @@ mkN2 = overload {
mkN2 : N -> Prep -> N2 = \n,p -> lin N2 n ** {c2=p}; mkN2 : N -> Prep -> N2 = \n,p -> lin N2 n ** {c2=p};
} ; } ;
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
} ;
mkPN : Str -> PN = \s -> lin PN {s=s} ; mkPN : Str -> PN = \s -> lin PN {s=s} ;
mkLN : Str -> LN = \s -> lin LN {s=s} ; mkLN : Str -> LN = \s -> lin LN {s=s} ;
mkGN : Str -> GN = \s -> lin GN {s=s} ; mkGN : Str -> GN = \s -> lin GN {s=s} ;