(Hun) Add A2, ComplA2, CAdv

This commit is contained in:
Inari Listenmaa
2020-04-17 14:47:10 +02:00
parent 822cfc4bef
commit 7c0ea34127
6 changed files with 29 additions and 9 deletions
+9 -3
View File
@@ -126,7 +126,12 @@ oper
compar = [] ;
} ;
Adjective : Type = {s : Degree => Number => Str} ;
Adjective : Type = {
s : Degree => Number => Str
} ;
Adjective2 : Type = Adjective ** {
c2 : Postposition ;
} ;
mkAdj : Str -> Adjective = \sg -> {
s = \\d,n =>
@@ -149,11 +154,12 @@ oper
"ifju" => "ifjabb" ;
"hosszú" => "hosszabb" ;
"sok" => "több" ;
"felső" => "felsőbb" ;
"belső" => "belsőbb" ;
_ + #v => stem + "bb" ;
_ => harm "abb" "ebb" ! getHarm stem
_ => stem + harm "abb" "ebb" ! getHarm stem
} ;
pluralAdj : Str -> Str = \stem ->
case vowFinal stem of {
True => -- https://en.wikisource.org/wiki/Simplified_Grammar_of_the_Hungarian_Language/Adjectives