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

(Hun) More constructors for mkA2

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-19 17:06:09 +02:00
parent 84ff6b4f46
commit 73fb39164f
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/hungarian/ParadigmsHun.gf
View File

@@ -37,7 +37,8 @@ oper
mkA2 : overload {
mkA2 : Str -> Prep -> A2 ;
mkA2 : Str -> Case -> A2
mkA2 : Str -> Case -> A2 ;
mkA2 : A -> Prep -> A2 ;
} ;
--2 Verbs
@@ -149,10 +150,13 @@ oper
} ;
mkA2 = overload {
mkA2 : A -> A2 = \a -> a ** {c2 = casePrep Nom} ;
mkA2 : Str -> Prep -> A2 = \s,p ->
lin A2 {s = (mkAdj s).s ; c2 = p} ;
mkA2 : Str -> Case -> A2 = \s,c ->
lin A2 {s = (mkAdj s).s ; c2 = {s = [] ; c = c}}
lin A2 {s = (mkAdj s).s ; c2 = casePrep c} ;
mkA2 : A -> Prep -> A2 = \a,p ->
lin A2 (a ** {c2 = p}) ;
} ;
mkV = overload {