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

(Hun) Add mkA paradigm for N -> A

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-28 16:47:07 +02:00
parent 8feabbfb41
commit 6166b99237
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/hungarian/ParadigmsHun.gf
View File

@@ -37,7 +37,7 @@ oper
mkA : overload { mkA : overload {
mkA : (sgnom : Str) -> A ; -- Regular adjective, given in singular nominative mkA : (sgnom : Str) -> A ; -- Regular adjective, given in singular nominative
mkA : (sgnom, sgacc : Str) -> A ; -- Singular nominative and accusative mkA : (sgnom, sgacc : Str) -> A ; -- Singular nominative and accusative
-- mkA : (kiga : Str) -> (jakda : A) -> A ; -- Compound adjective, e.g. 키가 작다 'short', literally 'height (is) small'. 키가 'height' given as string, 작다 'small' given as preconstructed A. mkA : N -> A ; -- Adjective from a noun. mkN has more paradigms, so anything irregular goes via N.
} ; } ;
mkA2 : overload { mkA2 : overload {
@@ -159,10 +159,11 @@ oper
mkA = overload { mkA = overload {
mkA : (sgnom : Str) -> A = \s -> lin A (mkAdj s) ; mkA : (sgnom : Str) -> A = \s -> lin A (mkAdj s) ;
mkA : (sgnom,sgacc : Str) -> A = \n,a -> mkA : (sgnom,sgacc : Str) -> A = \nom,acc ->
lin A (mkAdj2 n (regNounNomAcc n a)) ; lin A (mkAdj2 nom (regNounNomAcc nom acc)) ;
-- mkA : (kiga : Str) -> (jakda : A) -> A = \kiga,jakda -> mkA : N -> A = \noun ->
-- jakda ** {s = \\af => kiga ++ jakda.s ! af} ; let sgnom : Str = noun.s ! SgNom in
lin A (mkAdj2 sgnom noun) ;
} ; } ;
mkA2 = overload { mkA2 = overload {