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

some fixes in German

Browse Source
This commit is contained in:
Aarne Ranta
2017-10-25 11:09:13 +02:00
parent 9ec92096c6
commit 4da5677697
2 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/german/DictGer.gf
View File

@@ -35875,7 +35875,7 @@ lin
ss_mann_N = mkN "SS-Mann" "SS-Männer" masculine ; ss_mann_N = mkN "SS-Mann" "SS-Männer" masculine ;
ss_N = mkN "ẞ" "ẞ" neuter ; ss_N = mkN "ẞ" "ẞ" neuter ;
st_vincent_undgrenadinen_N = mkN "St. Vincent undGrenadinen" "St. Vincent undGrenadinen" neuter ; st_vincent_undgrenadinen_N = mkN "St. Vincent undGrenadinen" "St. Vincent undGrenadinen" neuter ;
staat_N = mkN "Staat" "Staaten" masculine ; staat_N = mkN "Staat" "Staat" "Staat" "Staats" "Staaten" "Staaten" masculine ;
staatlich_A = regA "staatlich" ; staatlich_A = regA "staatlich" ;
staatsanleihe_N = mkN "Staatsanleihe" "Staatsanleihen" feminine ; staatsanleihe_N = mkN "Staatsanleihe" "Staatsanleihen" feminine ;
staatsanwaeltin_N = mkN "Staatsanwältin" "Staatsanwältinnen" feminine ; staatsanwaeltin_N = mkN "Staatsanwältin" "Staatsanwältinnen" feminine ;

5
src/german/NounGer.gf
View File

@@ -192,10 +192,11 @@ concrete NounGer of Noun = CatGer ** open ResGer, MorphoGer, Prelude in {
} ; } ;
RelCN cn rs = cn ** {rc = \\n => embedInCommas (rs.s ! RGenNum (gennum cn.g n))} ; RelCN cn rs = cn ** {rc = \\n => (cn.rc ! n ++ embedInCommas (rs.s ! RGenNum (gennum cn.g n)))} ;
---- another layer of embedInCommas needed if there is a non-empty rc
RelNP np rs = np ** { RelNP np rs = np ** {
rc = embedInCommas (rs.s ! RGenNum (gennum (genderAgr np.a) (numberAgr np.a))) ; rc = (np.rc ++ embedInCommas (rs.s ! RGenNum (gennum (genderAgr np.a) (numberAgr np.a)))) ;
isPron = False } ; isPron = False } ;
SentCN cn s = cn ** {ext = embedInCommas s.s} ; SentCN cn s = cn ** {ext = embedInCommas s.s} ;