mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-27 11:56:29 -06:00
(Hun) Add A2, ComplA2, CAdv
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user