From 766852a64c9816f073100ff720cf7bafab39c043 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Mon, 22 Sep 2008 12:24:28 +0000
Subject: adapted German to 1.5

---
 next-lib/src/german/ExtGer.gf | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 next-lib/src/german/ExtGer.gf

(limited to 'next-lib/src/german/ExtGer.gf')

diff --git a/next-lib/src/german/ExtGer.gf b/next-lib/src/german/ExtGer.gf
new file mode 100644
index 000000000..b87b483e6
--- /dev/null
+++ b/next-lib/src/german/ExtGer.gf
@@ -0,0 +1,26 @@
+--concrete ExtGer of ExtGerAbs = CatGer ** open ResGer in {
+--
+--  lincat
+--
+--    Aux = {s : Polarity => Str} ;
+--    
+--  lin
+-- 
+--    PredAux np aux vp = mkClause (np.s ! Nom) np.a {
+--      s = \\t,ant,b,ord,agr => 
+--        let 
+--          fin  = aux.s ! b ;
+--          vf : Str -> Str -> {fin, inf : Str} = \x,y -> 
+--            {fin = x ; inf = y} ;
+--        in
+--        case ant of {
+--          Simul => vf fin [] ;
+--          Anter => vf fin "have"
+--          } ;
+--      s2 = \\agr => infVP vp agr
+--      } ;
+--
+--    can_Aux  = {s = \\p => posneg p "can"} ; ---- cannt
+--    must_Aux = {s = \\p => posneg p "must"} ;
+--
+--}
-- 
cgit v1.2.3