GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 17:08:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Hun) Add mkN : Str -> N -> N for compound nouns

Browse Source
This commit is contained in:
Inari Listenmaa
2020-06-04 08:28:18 +02:00
parent ab83883679
commit be8f2a43d1
2 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/hungarian/LexiconHun.gf
View File

@@ -79,7 +79,7 @@ lin computer_N = mkN "számítógép" "számítógépet" ;
lin correct_A = mkA "igaz" ;
-- lin count_V2 = mkV2 "" ;
lin country_N = mkN "ország" "országot" "országok" "országa" ;
lin cousin_N = mkN "unokatestvér" "unokatestvért"; --short "unoka"
lin cousin_N = mkN "unoka" (mkN "testvér" "testvért") ; --short "unoka"
lin cow_N = mkN "tehén" ;
-- lin cut_V2 = mkV2 "" ;
--

5
src/hungarian/ParadigmsHun.gf
View File

@@ -22,8 +22,8 @@ oper
mkN : (sgnom, sggen : Str) -> N ; -- Singular nominative and accusative. Use: `mkN "név" "nevet"`
mkN : (sgnom, sggen, plnom : Str) -> N ; -- Singular nominative, singular accusative, plural nominative. Use: `mkN "falu" "falut" "falvak"`
mkN : (sgnom, sggen, plnom, sgnom_possdSg3 : Str) -> N ; -- Singular nominative, singular accusative, plural nominative, singular nominative possessed by 3rd person singular. Use: `mkN "virág" "virágot" "virágok" "virága"` (would give "virágja" otherwise)
mkN : (férfi : Str) -> (harm : Harmony) -> (ak : Str) -> N ; -- Noun with unpredictable vowel harmony and plural allomorph
mkN : (unoka : Str) -> (testvér : N) -> N ; -- Compound noun. Use: `mkN "unoka" (mkN "testvér")` (would give wrong harmony with `mkN "unokatestvér"`)
} ;
mkPN : overload {
@@ -135,6 +135,9 @@ oper
mkN : (x1,_,_,x4 : Str) -> N =
\n,a,pln,possd -> lin N (regNoun4 n a pln possd) ;
mkN : (unoka : Str) -> (testvér : N) -> N = -- Compound noun: e.g. `mkN "unoka" (mkN "testvér")`.
\prefix,n -> n ** {s = \\x => prefix + n.s ! x} ;
mkN : (x1,_,_,_,_,_,_,_,x9 : Str) -> N =
\a,b,c,d,e,f,g,h,i -> lin N (worstCaseNoun a b c d e f g h i (getHarm a)) ;