summaryrefslogtreecommitdiff
path: root/next-lib/src/german/SymbolGer.gf
diff options
context:
space:
mode:
Diffstat (limited to 'next-lib/src/german/SymbolGer.gf')
-rw-r--r--next-lib/src/german/SymbolGer.gf45
1 files changed, 0 insertions, 45 deletions
diff --git a/next-lib/src/german/SymbolGer.gf b/next-lib/src/german/SymbolGer.gf
deleted file mode 100644
index c2e6b2a1d..000000000
--- a/next-lib/src/german/SymbolGer.gf
+++ /dev/null
@@ -1,45 +0,0 @@
---# -path=.:abstract:common
-
-concrete SymbolGer of Symbol = CatGer ** open Prelude, ResGer in {
-
-lin
- SymbPN i = {s = \\c => i.s ; g = Neutr} ; --- c
- IntPN i = {s = \\c => i.s ; g = Neutr} ; --- c
- FloatPN i = {s = \\c => i.s ; g = Neutr} ; --- c
- NumPN i = {s = i.s ! Neutr ; g = Neutr} ; --- c
-
- CNIntNP cn i = {
- s = \\c => cn.s ! Weak ! Sg ! Nom ++ i.s ;
- a = agrP3 Sg ;
- isPron = False
- } ;
- CNSymbNP det cn xs = let g = cn.g in {
- s = \\c => det.s ! g ! c ++ cn.s ! adjfCase det.a c ! det.n ! c ++ xs.s ;
- a = agrP3 det.n ;
- isPron = False
- } ;
- CNNumNP cn i = {
- s = \\c => artDef ! (GSg cn.g) ! c ++ cn.s ! Weak ! Sg ! Nom ++ i.s ! Neutr ! c ;
- a = agrP3 Sg ;
- isPron = False
- } ;
-
- SymbS sy = {s = \\_ => sy.s} ;
-
- SymbNum n = {s = \\_,_ => n.s ; n = Pl ; isNum = True} ;
- SymbOrd n = {s = \\_ => n.s ++ "."} ;
-
-
-lincat
-
- Symb, [Symb] = SS ;
-
-lin
-
- MkSymb s = s ;
-
- BaseSymb = infixSS "und" ;
- ConsSymb = infixSS "," ;
-
-}
-