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/AdjectiveGer.gf | 40 ++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 deprecated/old-lib/resource/german/AdjectiveGer.gf (limited to 'deprecated/old-lib/resource/german/AdjectiveGer.gf') diff --git a/deprecated/old-lib/resource/german/AdjectiveGer.gf b/deprecated/old-lib/resource/german/AdjectiveGer.gf new file mode 100644 index 000000000..6f174bb1e --- /dev/null +++ b/deprecated/old-lib/resource/german/AdjectiveGer.gf @@ -0,0 +1,40 @@ +concrete AdjectiveGer of Adjective = CatGer ** open ResGer, Prelude in { + + flags optimize=all_subs ; + + lin + + PositA a = { + s = a.s ! Posit ; + isPre = True + } ; + ComparA a np = { + s = \\af => a.s ! Compar ! af ++ conjThan ++ np.s ! Nom ; + isPre = True + } ; + +-- $SuperlA$ belongs to determiner syntax in $Noun$. + + ComplA2 a np = { + s = \\af => a.s ! Posit ! af ++ appPrep a.c2 np.s ; + isPre = True + } ; + + ReflA2 a = { + s = \\af => a.s ! Posit ! APred ++ appPrep a.c2 (reflPron ! agrP3 Sg) ; --- agr + isPre = True + } ; + + SentAP ap sc = { + s = \\a => ap.s ! a ++ sc.s ; + isPre = False + } ; + + AdAP ada ap = { + s = \\a => ada.s ++ ap.s ! a ; + isPre = ap.isPre + } ; + + UseA2 a = a ; + +} -- cgit v1.2.3