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

a couple of fixes in Ger

Browse Source
This commit is contained in:
aarne
2013-04-05 08:38:13 +00:00
parent 6ee959de86
commit d6cfd33c16
4 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/src/german/DictEngGer.gf
View File

@@ -16976,7 +16976,7 @@ lin hieroglyphic_A = variants {};
lin hieroglyphics_N = variants {};
lin higgledy_piggledy_A = variants {};
lin higgledy_piggledy_Adv = variants {};
lin high_A = mk3A "hoch" "höher" "höchste";
lin high_A = mkA "hoch" "hoh" "höher" "höchste";
lin high_Adv = variants {};
lin high_class_A = variants {};
lin high_falutin_A = variants {};

2
lib/src/german/DictGer.gf
View File

@@ -17493,7 +17493,7 @@ lin
hobel_N = reg2N "Hobel" "Hobel" masculine ;
hobelbank_N = reg2N "Hobelbank" "Hobelbänke" feminine ;
hobelmaschine_N = reg2N "Hobelmaschine" "Hobelmaschinen" feminine ;
hoch_A = mk3A "hoch" "höher" "höchste" ;
hoch_A = mkA "hoch" "hoh" "höher" "höchste" ;
hoch_N = reg2N "Hoch" "Hochs" neuter ;
hochachtungsvoll_A = mk3A "hochachtungsvoll" "hochachtungsvoller" "hochachtungsvollste" ;
hochbegabung_N = mkN "Hochbegabung" ;

5
lib/src/german/NounGer.gf
View File

@@ -195,4 +195,9 @@ concrete NounGer of Noun = CatGer ** open ResGer, MorphoGer, Prelude in {
isMod = cn.isMod
} ;
PossNP cn np = {
s = \\a,n,c => cn.s ! a ! n ! c ++ np.s ! NPP CVonDat ;
g = cn.g
} ;
}

9
lib/src/german/ParseGer.gf
View File

@@ -69,17 +69,18 @@ lin
g = cn.g
} ;
{-
DashCN noun1 noun2 = { -- type-checking
s = \\n,c => noun1.s ! Sg ! Nom ++ "-" ++ noun2.s ! n ! c ;
s = \\n,c => glue (noun1.s ! Sg ! Nom) (noun2.s ! n ! c) ;
g = noun2.g
} ;
GerundN v = { -- parsing
s = \\n,c => v.s ! VPresPart ;
s = \\n,c => v.s ! VInf False ; --- formalisieren, not formalisierung
g = Neutr
} ;
{-
GerundAP v = { -- beckoning
s = \\agr => v.s ! VPresPart ;
isPre = True