diff options
Diffstat (limited to 'next-lib/src/german')
| -rw-r--r-- | next-lib/src/german/MakeStructuralGer.gf | 11 | ||||
| -rw-r--r-- | next-lib/src/german/StructuralGer.gf | 8 |
2 files changed, 12 insertions, 7 deletions
diff --git a/next-lib/src/german/MakeStructuralGer.gf b/next-lib/src/german/MakeStructuralGer.gf new file mode 100644 index 000000000..8f5006df9 --- /dev/null +++ b/next-lib/src/german/MakeStructuralGer.gf @@ -0,0 +1,11 @@ +--# -path=.:../common:../abstract + +resource MakeStructuralGer = open CatGer, ParadigmsGer, MorphoGer, Prelude in { + +oper + mkConj : Str -> Str -> Number -> Conj = \x,y,n -> + {s1 = x ; s2 = y ; n = n ; lock_Conj = <>} ; + mkSubj : Str -> Subj = \x -> + {s = x ; lock_Subj = <>} ; + +} diff --git a/next-lib/src/german/StructuralGer.gf b/next-lib/src/german/StructuralGer.gf index 0f87fcee7..beda7514a 100644 --- a/next-lib/src/german/StructuralGer.gf +++ b/next-lib/src/german/StructuralGer.gf @@ -128,12 +128,6 @@ concrete StructuralGer of Structural = CatGer ** yes_Utt = ss "ja" ; not_Predet = {s = \\_,_,_ => "nicht" ; c = NoCase} ; - nothing_but_Predet = {s = \\_,_,_ => "nichts ausser" ; c = PredCase Dat} ; - nobody_but_Predet = { - s = \\_,_,c => - caselist "niemand" "niemanden" "niemandem" "niemands" ! c ++ "ausser" ; - c = PredCase Dat - } ; no_Quant = let keiner : Number => Gender => Case => Str = table { Sg => \\g,c => "kein" + pronEnding ! GSg g ! c ; @@ -148,5 +142,5 @@ concrete StructuralGer of Structural = CatGer ** nameNounPhrase {s = \\_ => "nichts"} ; at_least_AdN = ss "wenigstens" ; at_most_AdN = ss "höchstens" ; - + except_Prep = mkPrep "außer" Dat ; } |
