GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

Bugfix.

Browse Source
This commit is contained in:
harald2
2005-01-28 10:13:36 +00:00
parent 2312a1d8f8
commit df2c48d595
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/resource-0.6/german/MorphoGer.gf
View File

@@ -364,7 +364,7 @@ oper
twolast = Predef.dp 2 stem ; twolast = Predef.dp 2 stem ;
nl = Predef.tk 1 twolast ; nl = Predef.tk 1 twolast ;
l = Predef.tk 1 stem ; l = Predef.dp 1 stem ;
e = case l of { e = case l of {
"d" => "e" ; "d" => "e" ;
"t" => "e" ; "t" => "e" ;
@@ -434,7 +434,7 @@ oper
-- Weak verbs that don't have ge- in the participle -- Weak verbs that don't have ge- in the participle
verbumGratulieren : Str -> Verbum = \gratulieren -> verbumGratulieren : Str -> Verbum = \gratulieren ->
let let
gratulier = (Predef.dp 2 gratulieren) ; gratulier = (Predef.tk 2 gratulieren) ;
gratulierte = gratulier + "te" ; gratulierte = gratulier + "te" ;
in in
mkVerbum gratulieren (gratulier + (adde gratulier) + "t") gratulier gratulierte gratulierte (gratulier + "t") ; mkVerbum gratulieren (gratulier + (adde gratulier) + "t") gratulier gratulierte gratulierte (gratulier + "t") ;
@@ -444,14 +444,14 @@ oper
-- Strong verbs (non-present-tense umlauting): -- Strong verbs (non-present-tense umlauting):
verbumStrongSingen : (_,_,_,_ : Str) -> Verbum = \singen, sang, sänge, gesungen -> verbumStrongSingen : (_,_,_,_ : Str) -> Verbum = \singen, sang, sänge, gesungen ->
let let
sing = (Predef.dp 2 singen) sing = (Predef.tk 2 singen)
in in
mkVerbum singen (sing + (adde sing) + "t") sing sang sänge gesungen ; mkVerbum singen (sing + (adde sing) + "t") sing sang sänge gesungen ;
-- Verbs with Umlaut in the 2nd and 3rd person singular and imperative: -- Verbs with Umlaut in the 2nd and 3rd person singular and imperative:
verbumStrongSehen : (_,_,_,_,_ : Str) -> Verbum = \sehen,sieht,sah,sähe,gesehen -> verbumStrongSehen : (_,_,_,_,_ : Str) -> Verbum = \sehen,sieht,sah,sähe,gesehen ->
let let
sieh = Predef.dp 1 sieht ; sieh = Predef.tk 1 sieht ;
in in
mkVerbum sehen sieht sieh sah sähe gesehen ; mkVerbum sehen sieht sieh sah sähe gesehen ;