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

an optimization in the German grammar for the dative/genitive variants

Browse Source
This commit is contained in:
kr.angelov
2012-09-26 11:11:42 +00:00
parent e95e500b33
commit 3f334fe321
2 changed files with 10 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/src/german/MorphoGer.gf
View File

@@ -33,19 +33,19 @@ oper
-- For $ParadigmsGer$.
genitS : Str -> Str = \hund -> case hund of {
genitS : Bool -> Str -> Str = \flag,hund -> case hund of {
_ + ("el" | "en" | "er") => hund + "s" ;
_ + ("s" | "ß" | "sch" | "st" | "x" | "z") => hund + "es" ;
_ => hund + variants {"s" ; "es"}
_ => hund + case flag of {True => "s"; False => "es"}
} ;
pluralN : Str -> Str = \hund -> case hund of {
_ + ("el" | "er" | "e") => hund + "n" ;
_ + "en" => hund ;
_ => hund + "en"
} ;
dativE : Str -> Str = \hund -> case hund of {
dativE : Bool -> Str -> Str = \flag,hund -> case hund of {
_ + ("el" | "en" | "er" | "e") => hund ;
_ => variants {hund ; hund + "e"}
_ => case flag of {True => hund; False => hund + "e"}
} ;
-- Duden, p. 119

14
lib/src/german/ParadigmsGer.gf
View File

@@ -319,21 +319,19 @@ mkV2 : overload {
regN : Str -> N = \hund -> case hund of {
_ + "e" => mk6N hund hund hund hund (hund + "n") (hund + "n") Fem ;
_ + ("ion" | "ung") => mk6N hund hund hund hund (hund + "en") (hund + "en") Fem ;
_ + ("er" | "en" | "el") => mk6N hund hund hund (genitS hund) hund (pluralN hund) Masc ;
_ => mk6N hund hund hund (genitS hund) (hund + "e") (pluralN hund) Masc
_ + ("er" | "en" | "el") => mk6N hund hund hund (genitS (True | False) hund) hund (pluralN hund) Masc ;
_ => mk6N hund hund hund (genitS (True | False) hund) (hund + "e") (pluralN hund) Masc
} ;
reg2N : (x1,x2 : Str) -> Gender -> N = \hund,hunde,g ->
let
hunds = genitS hund ;
hundE = dativE hund ;
hunden = pluralN hunde
let hunden = pluralN hunde
in
case <hund,hunde,g> of { -- Duden p. 223
<_,_ + ("e" | "er"), Masc | Neutr> => -- I,IV
mk6N hund hund hundE hunds hunde hunden g ;
variants {mk6N hund hund (dativE True hund) (genitS True hund) hunde hunden g ;
mk6N hund hund (dativE False hund) (genitS False hund) hunde hunden g} ;
<_ + ("el"|"er"|"en"),_ + ("el"|"er"|"en"), Masc | Neutr> => -- II
mk6N hund hund hund hunds hunde hunden g ;
mk6N hund hund hund (genitS (True | False) hund) hunde hunden g ;
<_,_ + "s", Masc | Neutr> => -- V
mk6N hund hund hund (hund + "s") hunde hunde g ;
<_,_ + "en", Masc> => -- VI