From 3ff57f6184963acde7f3cc2dcf0638c0e819929a Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 15 Nov 2008 11:19:10 +0000 Subject: comparative adverbs generalized to cover more of Attempto --- next-lib/src/scandinavian/AdjectiveScand.gf | 5 +++++ next-lib/src/scandinavian/AdverbScand.gf | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) (limited to 'next-lib/src/scandinavian') diff --git a/next-lib/src/scandinavian/AdjectiveScand.gf b/next-lib/src/scandinavian/AdjectiveScand.gf index 3dfe36fec..f6243e4a5 100644 --- a/next-lib/src/scandinavian/AdjectiveScand.gf +++ b/next-lib/src/scandinavian/AdjectiveScand.gf @@ -23,6 +23,11 @@ incomplete concrete AdjectiveScand of Adjective = isPre = False } ; + CAdvAP ad ap np = { + s = \\a => ad.s ++ ap.s ! a ++ ad.p ++ np.s ! nominative ; + isPre = False + } ; + AdjOrd ord = { s = \\_ => ord.s ; isPre = True diff --git a/next-lib/src/scandinavian/AdverbScand.gf b/next-lib/src/scandinavian/AdverbScand.gf index 1afa40cf1..ba25954ef 100644 --- a/next-lib/src/scandinavian/AdverbScand.gf +++ b/next-lib/src/scandinavian/AdverbScand.gf @@ -5,10 +5,10 @@ incomplete concrete AdverbScand of Adverb = CatScand ** open CommonScand, ResSca s = a.s ! adverbForm } ; ComparAdvAdj cadv a np = { - s = cadv.s ++ a.s ! adverbForm ++ conjThan ++ np.s ! nominative + s = cadv.s ++ a.s ! adverbForm ++ cadv.p ++ np.s ! nominative } ; ComparAdvAdjS cadv a s = { - s = cadv.s ++ a.s ! adverbForm ++ conjThan ++ s.s ! Sub + s = cadv.s ++ a.s ! adverbForm ++ cadv.p ++ s.s ! Sub } ; PrepNP prep np = {s = prep.s ++ np.s ! accusative} ; -- cgit v1.2.3