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

German verb form for haben; extended TryGer

Browse Source
This commit is contained in:
aarne
2011-02-27 16:36:24 +00:00
parent 13c66a1cd7
commit e02e27f24b
3 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/src/api/Constructors.gf
View File

@@ -1684,13 +1684,13 @@ oper
"7" => n7 ;
"8" => n8 ;
"9" => n9 ;
_ => Predef.error ("not a valid digit" ++ s)
_ => Predef.error ("str2numeral: not a valid Digit" ++ s)
} ;
s2s10 : Str -> Sub10 = \s -> case s of {
"1" => pot01 ;
#idigit => pot0 (s2d s) ;
_ => Predef.error ("not a valid digit" ++ s)
_ => Predef.error ("str2numeral: not a valid Sub10" ++ s)
} ;
s2s100 : Str -> Sub100 = \s -> case s of {
@@ -1744,7 +1744,7 @@ oper
"7" => D_7 ;
"8" => D_8 ;
"9" => D_9 ;
_ => Predef.error ("not a valid digit" ++ s)
_ => Predef.error ("s2d: not a valid digit" ++ s)
} ;
} ;

2
lib/src/api/TryGer.gf
View File

@@ -1,3 +1,3 @@
--# -path=.:alltenses:prelude
resource TryGer = SyntaxGer, LexiconGer, ParadigmsGer - [mkAdv] ;
resource TryGer = SyntaxGer, ExtraGer, LexiconGer, ParadigmsGer - [mkAdv], MakeStructuralGer ;

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

@@ -70,7 +70,7 @@ in {
lin glimmen_V = irregV "glimmen" "glimmt" "glomm" "glimmte" "glömme" ;
lin graben_V = irregV "graben" "gräbt" "grub" "grübe" "gegraben" ;
lin greifen_V = irregV "greifen" "greift" "griff" "griffe" "gegriffen" ;
lin haben_V = irregV "haben" "hat" "hatte" "hatte" "gehabt" ;
lin haben_V = irregV "haben" "hat" "hatte" "hätte" "gehabt" ;
lin halten_V = irregV "halten" "hält" "hielt" "hielte" "gehalten" ;
lin hängen_V = irregV "hängen" "hängt" "hing" "hinge" "gehangen" ;
lin hauen_V = irregV "hauen" "haut" (variants {"haute" ; "hieb"}) (variants {"haute" ; "hiebe"}) "gehauen" ;