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

(Hun) Add some tests for noun inflection + new words for them

Browse Source
This commit is contained in:
Inari Listenmaa
2020-03-28 16:35:02 +01:00
parent e1a94a0741
commit 8b35ea2762
7 changed files with 171 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/hungarian/LexiconHun.gf
View File

@@ -31,7 +31,7 @@ lin beer_N = mkN "sör" ;
-- lin belly_N = mkN "" ;
-- lin big_A = mkA "" ;
-- lin bike_N = mkN "" ;
-- lin bird_N = mkN "" ;
lin bird_N = mkN "madár" ;
-- lin bite_V2 = mkV2 "" ;
-- lin black_A = mkA "" ;
-- lin blood_N = mkN "" ;

5
src/hungarian/ParadigmsHun.gf
View File

@@ -70,6 +70,8 @@ oper
mkPrep : Str -> Case -> Prep ; -- Postposition and case
} ;
casePrep : Case -> Prep ; -- No postposition, only case
-- mkConj : (_,_ : Str) -> Number -> Conj = \s1,s2,num ->
-- lin Conj { s = s1 ; s2 = s2 } ;
@@ -136,6 +138,9 @@ oper
mkPrep : Str -> Case -> Prep
= \str,c -> lin Prep (ResHun.mkPrep str ** {c = c}) ;
} ;
casePrep : Case -> Prep
= \c -> lin Prep (ResHun.mkPrep [] ** {c = c}) ;
--------------------------------------------------------------------------------
}

2
src/hungarian/ParamHun.gf
View File

@@ -20,7 +20,7 @@ oper
-- Nouns
param
Case = Nom | Acc | Dat | Ins | Ess | Tra | Cau
Case = Nom | Acc | Dat | Gen | Ins | Ess | Tra | Cau
| Ill | Sub | All | Ine | Sup | Ade | Ela
| Del | Abl | Ter | For | Tem
;

26
src/hungarian/README.md Normal file
View File

@@ -0,0 +1,26 @@
# Hungarian
## Language info
* English name: Hungarian
* Autonym: Magyar
* ISO code: Hun
## Authors
Inari Listenmaa, 2020-
With contributions from Erzsébet Galgóczy (initial nominal morphology) and Patrik Jansson (numerals).
## Publications
-
## Implementation information
So far (2020-03) just copypasted a dummy module with Hungarian words that inflect mostly wrong or not at all. This will change in a few weeks.
## Maintainer
Inari Listenmaa ([@inariksit](https://github.com/inariksit))

3
src/hungarian/ResHun.gf
View File

@@ -7,8 +7,6 @@
-- Some parameters, such as $Number$, are inherited from $ParamX$.
resource ResHun = ParamHun ** open Prelude, Predef, ParamHun in {
{
--------------------------------------------------------------------------------
-- Nouns
oper
@@ -18,6 +16,7 @@ oper
Nom => harm1 [] ;
Acc => harm3 "ot" "et" "öt" ;
Dat => harm "nak" "nek" ;
Gen => harm "é" "e" ;
Ins => harm "al" "el" ;
Ess => harm "stul" "stül" ;
Tra => harm "á" "é" ;

12
src/hungarian/StructuralHun.gf
View File

@@ -92,7 +92,7 @@ oper
-- lin above_Prep = mkPrep ""
-- lin after_Prep = mkPrep ""
-- lin before_Prep = mkPrep "" ;
lin before_Prep = mkPrep "alatt" ;
-- lin behind_Prep = mkPrep "" ;
-- lin between_Prep = = mkPrep "" ;
-- lin by8agent_Prep = mkPrep ;
@@ -102,12 +102,12 @@ oper
-- lin for_Prep = mkPrep "" ;
-- lin from_Prep = mkPrep "" ;
-- lin in8front_Prep = mkPrep "" ;
-- lin in_Prep = mkPrep "" ;
-- lin on_Prep = mkPrep "" ;
-- lin part_Prep = mkPrep ;
-- lin possess_Prep = mkPrep "" ;
lin in_Prep = casePrep Ine ;
lin on_Prep = casePrep Ade ;
-- lin part_Prep = casePrep ;
lin possess_Prep = casePrep Gen ;
-- lin through_Prep = mkPrep ;
-- lin to_Prep = mkPrep "";
lin to_Prep = casePrep All ;
-- lin under_Prep = mkPrep "" ;
-- lin with_Prep = mkPrep "" ;
-- lin without_Prep = mkPrep "" ;

131
src/hungarian/unittest/inflection.gftest Normal file
View File

@@ -0,0 +1,131 @@
---------------------
-- Noun inflection --
---------------------
-- Beer
Lang: PrepNP before_Prep (DetCN (DetQuant DefArt NumSg) (UseN beer_N))
LangEng: before the beer
LangHun: a sör alatt
Lang: PrepNP in_Prep (DetCN (DetQuant DefArt NumSg) (UseN beer_N))
LangEng: in the beer
LangHun: a sörben
Lang: PrepNP on_Prep (DetCN (DetQuant DefArt NumSg) (UseN beer_N))
LangEng: on the beer
LangHun: a sörnél
Lang: PrepNP possess_Prep (DetCN (DetQuant DefArt NumSg) (UseN beer_N))
LangEng: of the beer
LangHun: a söre
Lang: PrepNP to_Prep (DetCN (DetQuant DefArt NumSg) (UseN beer_N))
LangEng: to the beer
LangHun: a sörhöz
-- Woman
Lang: PrepNP before_Prep (DetCN (DetQuant DefArt NumSg) (UseN woman_N))
LangEng: before the woman
LangHun: a nő alatt
Lang: PrepNP in_Prep (DetCN (DetQuant DefArt NumSg) (UseN woman_N))
LangEng: in the woman
LangHun: a nőben
Lang: PrepNP on_Prep (DetCN (DetQuant DefArt NumSg) (UseN woman_N))
LangEng: on the woman
LangHun: a nőnél
Lang: PrepNP possess_Prep (DetCN (DetQuant DefArt NumSg) (UseN woman_N))
LangEng: of the woman
LangHun: a nőe
Lang: PrepNP to_Prep (DetCN (DetQuant DefArt NumSg) (UseN woman_N))
LangEng: to the woman
LangHun: a nőhöz
-- Apple
Lang: PrepNP before_Prep (DetCN (DetQuant DefArt NumSg) (UseN apple_N))
LangEng: before the apple
LangHun: az alma alatt
Lang: PrepNP in_Prep (DetCN (DetQuant DefArt NumSg) (UseN apple_N))
LangEng: in the apple
LangHun: az almaban
Lang: PrepNP on_Prep (DetCN (DetQuant DefArt NumSg) (UseN apple_N))
LangEng: on the apple
LangHun: az almanál
Lang: PrepNP possess_Prep (DetCN (DetQuant DefArt NumSg) (UseN apple_N))
LangEng: of the apple
LangHun: az almaé
Lang: PrepNP to_Prep (DetCN (DetQuant DefArt NumSg) (UseN apple_N))
LangEng: to the apple
LangHun: az almahoz
-- Bird
Lang: PrepNP before_Prep (DetCN (DetQuant DefArt NumSg) (UseN bird_N))
LangEng: before the bird
LangHun: a madár alatt
Lang: PrepNP in_Prep (DetCN (DetQuant DefArt NumSg) (UseN bird_N))
LangEng: in the bird
LangHun: a madárban
Lang: PrepNP on_Prep (DetCN (DetQuant DefArt NumSg) (UseN bird_N))
LangEng: on the bird
LangHun: a madárnál
Lang: PrepNP possess_Prep (DetCN (DetQuant DefArt NumSg) (UseN bird_N))
LangEng: of the bird
LangHun: a madáré
Lang: PrepNP to_Prep (DetCN (DetQuant DefArt NumSg) (UseN bird_N))
LangEng: to the bird
LangHun: a madárhoz
-- Name
Lang: PrepNP before_Prep (DetCN (DetQuant DefArt NumSg) (UseN name_N))
LangEng: before the name
LangHun: a név alatt
Lang: PrepNP in_Prep (DetCN (DetQuant DefArt NumSg) (UseN name_N))
LangEng: in the name
LangHun: a névben
Lang: PrepNP on_Prep (DetCN (DetQuant DefArt NumSg) (UseN name_N))
LangEng: on the name
LangHun: a névnél
Lang: PrepNP possess_Prep (DetCN (DetQuant DefArt NumSg) (UseN name_N))
LangEng: of the name
LangHun: a néve
Lang: PrepNP to_Prep (DetCN (DetQuant DefArt NumSg) (UseN name_N))
LangEng: to the name
LangHun: a névhez
-- Man
Lang: PrepNP before_Prep (DetCN (DetQuant DefArt NumSg) (UseN man_N))
LangEng: before the man
LangHun: a férfi alatt
Lang: PrepNP in_Prep (DetCN (DetQuant DefArt NumSg) (UseN man_N))
LangEng: in the man
LangHun: a férfiben
Lang: PrepNP on_Prep (DetCN (DetQuant DefArt NumSg) (UseN man_N))
LangEng: on the man
LangHun: a férfinél
Lang: PrepNP possess_Prep (DetCN (DetQuant DefArt NumSg) (UseN man_N))
LangEng: of the man
LangHun: a férfie
Lang: PrepNP to_Prep (DetCN (DetQuant DefArt NumSg) (UseN man_N))
LangEng: to the man
LangHun: a férfihez