GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 01:18:57 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Hun) Update worst-case mkN with P1Sg possessive form of the noun

Browse Source
This commit is contained in:
Inari Listenmaa
2020-06-04 08:19:29 +02:00
parent 1471ee563e
commit ab83883679
3 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/hungarian/LexiconHun.gf
View File

@@ -133,7 +133,7 @@ lin floor_N = mkN "padló" "padlót" ;
lin flower_N = mkN "virág" "virágot" "virágok" "virága" ;
lin fly_V = mkV "repül" ;
lin fog_N = mkN "köd" "ködöt" "ködön" "ködhöz" "ködök"
"köde" "ködünk" "ködei" ;
"ködöm" "köde" "ködünk" "ködei" ;
lin foot_N = leg_N ; --same as leg, to specify "lábfej"
lin forest_N = mkN "erdő" "erdőt" ;
-- lin forget_V2 = mkV2 "" ;
@@ -320,7 +320,7 @@ lin shoe_N = mkN "cipő" "cipőt" ;
lin shop_N = mkN "üzlet" "üzletet";
lin short_A = mkA "rövid" ; --in short text, if human length then "alacsony"
lin silver_N = mkN "ezüst" "ezüstöt" "ezüstön" "ezüsthöz" "ezüstök"
"ezüstje" "ezüstünk" "ezüstjei" ;
"ezüstöm" "ezüstje" "ezüstünk" "ezüstjei" ;
-- lin sing_V = mkV "" ;
-- lin sister_N = mkN "" ;
-- lin sit_V = mkV "" ;

5
src/hungarian/NounMorphoHun.gf
View File

@@ -252,8 +252,8 @@ oper
-- Worst case constructor: takes all stems
worstCaseNoun : (x1,_,_,_,_,_,_,x8 : Str) -> Harm -> Noun =
\nomsg,accsg,supsg,allsg,nompl,possdSg_possrP3sg,possdSg_PossrPl1,possdPl,h ->
worstCaseNoun : (x1,_,_,_,_,_,_,_,x9 : Str) -> Harm -> Noun =
\nomsg,accsg,supsg,allsg,nompl,possdSg_PossrSg1P2,possdSg_possrP3sg,possdSg_PossrPl1,possdPl,h ->
let sgstem = tk 3 allsg ; -- remove -hoz/hez/höz
sginsstem : Str = case vowFinal sgstem of {
True => sgstem + "v" ;
@@ -268,6 +268,7 @@ oper
PlStem => nompl ;
PossdSg_PossrP3 => init possdSg_possrP3sg ; -- remove -a/e
PossdSg_PossrPl1 => tk 2 possdSg_PossrPl1 ; -- remove -nk
PossdSg_PossrSg1P2 => init possdSg_PossrSg1P2 ;
PossdPl => possdPl } ;
h = h ;
} ;

4
src/hungarian/ParadigmsHun.gf
View File

@@ -135,8 +135,8 @@ oper
mkN : (x1,_,_,x4 : Str) -> N =
\n,a,pln,possd -> lin N (regNoun4 n a pln possd) ;
mkN : (x1,_,_,_,_,_,_,x8 : Str) -> N =
\a,b,c,d,e,f,g,h -> lin N (worstCaseNoun a b c d e f g h (getHarm a)) ;
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)) ;
mkN : Str -> Harmony -> N =
\s,h -> lin N (mkNounHarm h (pluralAllomorph s) s) ;