summaryrefslogtreecommitdiff
path: root/next-lib/src/german/ExtraGer.gf
diff options
context:
space:
mode:
authoraarne <aarne@chalmers.se>2009-06-22 15:39:08 +0000
committeraarne <aarne@chalmers.se>2009-06-22 15:39:08 +0000
commite89fdae2fa1626348d8025824a7469252fa85e42 (patch)
treec7d46bbd0494043b4bd6f917a25a7687517d0547 /next-lib/src/german/ExtraGer.gf
parent3049b59b35b25381a7c6787444165c200d66e08b (diff)
next-lib renamed to lib, lib to old-lib
Diffstat (limited to 'next-lib/src/german/ExtraGer.gf')
-rw-r--r--next-lib/src/german/ExtraGer.gf34
1 files changed, 0 insertions, 34 deletions
diff --git a/next-lib/src/german/ExtraGer.gf b/next-lib/src/german/ExtraGer.gf
deleted file mode 100644
index 518fe1713..000000000
--- a/next-lib/src/german/ExtraGer.gf
+++ /dev/null
@@ -1,34 +0,0 @@
-concrete ExtraGer of ExtraGerAbs = CatGer **
- open ResGer, Coordination, Prelude, IrregGer in {
-
- lincat
- VPI = {s : Bool => Str} ;
- [VPI] = {s1,s2 : Bool => Str} ;
- lin
- BaseVPI = twoTable Bool ;
- ConsVPI = consrTable Bool comma ;
-
- MkVPI vp = {s = \\b => useInfVP b vp} ;
- ConjVPI = conjunctDistrTable Bool ;
-
- ComplVPIVV v vpi =
- insertInf (vpi.s ! v.isAux) (
- predVGen v.isAux v) ; ----
-{-
- insertExtrapos vpi.p3 (
- insertInf vpi.p2 (
- insertObj vpi.p1 (
- predVGen v.isAux v))) ;
--}
-
- PPzuAdv cn = {s = case cn.g of {
- Masc | Neutr => "zum" ;
- Fem => "zur"
- } ++ cn.s ! adjfCase Weak Dat ! Sg ! Dat
- } ;
-
- TImpfSubj = {s = [] ; t = Past ; m = MConjunct} ; --# notpresent
-
- moegen_VV = auxVV mögen_V ;
-
-}