diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-11-15 11:19:10 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-11-15 11:19:10 +0000 |
| commit | 3ff57f6184963acde7f3cc2dcf0638c0e819929a (patch) | |
| tree | e5c975ae99dd3e45f9a4e700658b39d9bf90e68f /next-lib/src/german/StructuralGer.gf | |
| parent | 6b4f9715e6acb87e05b8229bafd1f41d906e6409 (diff) | |
comparative adverbs generalized to cover more of Attempto
Diffstat (limited to 'next-lib/src/german/StructuralGer.gf')
| -rw-r--r-- | next-lib/src/german/StructuralGer.gf | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/next-lib/src/german/StructuralGer.gf b/next-lib/src/german/StructuralGer.gf index beda7514a..b8bba0170 100644 --- a/next-lib/src/german/StructuralGer.gf +++ b/next-lib/src/german/StructuralGer.gf @@ -1,6 +1,6 @@ concrete StructuralGer of Structural = CatGer ** - open MorphoGer, Prelude in { + open MorphoGer, (X = ConstructX), Prelude in { flags optimize=all ; @@ -48,9 +48,9 @@ concrete StructuralGer of Structural = CatGer ** i_Pron = mkPronPers "ich" "mich" "mir" "meiner" "mein" Masc Sg P1 ; in_Prep = mkPrep "in" Dat ; it_Pron = mkPronPers "es" "es" "ihm" "seiner" "sein" Neutr Sg P3 ; - less_CAdv = ss "weniger" ; + less_CAdv = X.mkCAdv "weniger" "als" ; many_Det = detLikeAdj Pl "viel" ; - more_CAdv = ss "mehr" ; + more_CAdv = X.mkCAdv "mehr" "als" ; most_Predet = {s = appAdj (regA "meist") ; c = NoCase} ; much_Det = detLikeAdj Sg "viel" ; must_VV = auxVV @@ -143,4 +143,7 @@ concrete StructuralGer of Structural = CatGer ** at_least_AdN = ss "wenigstens" ; at_most_AdN = ss "höchstens" ; except_Prep = mkPrep "außer" Dat ; + + as_CAdv = X.mkCAdv "ebenso" "wie" ; + } |