GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-10 19:52:50 -06:00
Code Issues Packages Projects Releases Wiki 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