From c8ceed08efcc0bdc1fcbd89bce643d9f52f0991b Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 9 Dec 2009 09:47:16 +0000 Subject: moving a few things to deprecated --- deprecated/old-lib/resource/german/ExtGer.gf | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 deprecated/old-lib/resource/german/ExtGer.gf (limited to 'deprecated/old-lib/resource/german/ExtGer.gf') diff --git a/deprecated/old-lib/resource/german/ExtGer.gf b/deprecated/old-lib/resource/german/ExtGer.gf new file mode 100644 index 000000000..b87b483e6 --- /dev/null +++ b/deprecated/old-lib/resource/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