From 94d818c60a4820cbc3ab1fed649e541684bbf58a Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Fri, 19 Nov 2010 16:49:30 +0000
Subject: [PATCH] constructor PositAdAAdj in Adverb, for most langs

---
 lib/src/abstract/Adjective.gf       | 4 ++--
 lib/src/abstract/Adverb.gf          | 5 ++++-
 lib/src/bulgarian/AdverbBul.gf      | 2 ++
 lib/src/dutch/AdverbDut.gf          | 2 ++
 lib/src/english/AdverbEng.gf        | 1 +
 lib/src/finnish/AdverbFin.gf        | 2 ++
 lib/src/german/AdverbGer.gf         | 2 ++
 lib/src/romance/AdverbRomance.gf    | 4 ++++
 lib/src/scandinavian/AdverbScand.gf | 4 ++++
 9 files changed, 23 insertions(+), 3 deletions(-)

diff --git a/lib/src/abstract/Adjective.gf b/lib/src/abstract/Adjective.gf
index e9c1c6b84..cd44999f0 100644
--- a/lib/src/abstract/Adjective.gf
+++ b/lib/src/abstract/Adjective.gf
@@ -33,7 +33,7 @@ abstract Adjective = Cat ** {
 
     AdvAP   : AP -> Adv -> AP ; -- warm by nature
 
--- The formation of adverbs from adjective (e.g. "quickly") is covered
--- in [Adverb Adverb.html].
+-- The formation of adverbs from adjectives (e.g. "quickly") is covered
+-- in [Adverb Adverb.html]; the same concerns adadjectives (e.g. "extremely").
 
 }
diff --git a/lib/src/abstract/Adverb.gf b/lib/src/abstract/Adverb.gf
index 3199d6888..118090620 100644
--- a/lib/src/abstract/Adverb.gf
+++ b/lib/src/abstract/Adverb.gf
@@ -20,6 +20,10 @@ abstract Adverb = Cat ** {
 
     AdAdv  : AdA -> Adv -> Adv ;             -- very quickly
 
+-- Like adverbs, adadjectives can be produced by adjectives.
+
+    PositAdAAdj : A -> AdA ;                 -- extremely
+
 -- Subordinate clauses can function as adverbs.
 
     SubjS  : Subj -> S -> Adv ;              -- when she sleeps
@@ -28,5 +32,4 @@ abstract Adverb = Cat ** {
 
     AdnCAdv : CAdv -> AdN ;                  -- less (than five)
 
-
 }
diff --git a/lib/src/bulgarian/AdverbBul.gf b/lib/src/bulgarian/AdverbBul.gf
index f886575aa..8b1e06a3a 100644
--- a/lib/src/bulgarian/AdverbBul.gf
+++ b/lib/src/bulgarian/AdverbBul.gf
@@ -14,6 +14,8 @@ concrete AdverbBul of Adverb = CatBul ** open ResBul, Prelude in {
 
     AdAdv = cc2 ;
 
+    PositAdAAdj a = {s = a.adv} ;
+
     SubjS = cc2 ;
 
     AdnCAdv cadv = {s = cadv.sn ++ "îò"} ;
diff --git a/lib/src/dutch/AdverbDut.gf b/lib/src/dutch/AdverbDut.gf
index c249dfa0d..8d39790d6 100644
--- a/lib/src/dutch/AdverbDut.gf
+++ b/lib/src/dutch/AdverbDut.gf
@@ -15,6 +15,8 @@ concrete AdverbDut of Adverb = CatDut ** open ResDut, Prelude in {
 
     AdAdv = cc2 ;
 
+    PositAdAAdj a = {s = a.s ! Posit ! APred} ;
+
     SubjS subj s = {s = subj.s ++ s.s ! Sub} ;
 
     AdnCAdv cadv = {s = cadv.s ++ conjThan} ;
diff --git a/lib/src/english/AdverbEng.gf b/lib/src/english/AdverbEng.gf
index 178f85e4c..d1e440250 100644
--- a/lib/src/english/AdverbEng.gf
+++ b/lib/src/english/AdverbEng.gf
@@ -12,6 +12,7 @@ concrete AdverbEng of Adverb = CatEng ** open ResEng, Prelude in {
     PrepNP prep np = {s = prep.s ++ np.s ! Acc} ;
 
     AdAdv = cc2 ;
+    PositAdAAdj a = {s = a.s ! AAdv} ;
 
     SubjS = cc2 ;
 
diff --git a/lib/src/finnish/AdverbFin.gf b/lib/src/finnish/AdverbFin.gf
index 307971101..d5934062f 100644
--- a/lib/src/finnish/AdverbFin.gf
+++ b/lib/src/finnish/AdverbFin.gf
@@ -13,6 +13,8 @@ concrete AdverbFin of Adverb = CatFin ** open ResFin, Prelude in {
 
     AdAdv = cc2 ;
 
+    PositAdAAdj a = {s = a.s ! Posit ! AN (NCase Sg Gen)} ; -- älyttömän
+
     SubjS = cc2 ;
 ----b    AdvSC s = s ;
 
diff --git a/lib/src/german/AdverbGer.gf b/lib/src/german/AdverbGer.gf
index 052c43e19..5cc936292 100644
--- a/lib/src/german/AdverbGer.gf
+++ b/lib/src/german/AdverbGer.gf
@@ -14,6 +14,8 @@ concrete AdverbGer of Adverb = CatGer ** open ResGer, Prelude in {
 
     AdAdv = cc2 ;
 
+    PositAdAAdj a = {s = a.s ! Posit ! APred} ;
+
     SubjS subj s = {s = subj.s ++ s.s ! Sub} ;
 
     AdnCAdv cadv = {s = cadv.s ++ conjThan} ;
diff --git a/lib/src/romance/AdverbRomance.gf b/lib/src/romance/AdverbRomance.gf
index 79e9e8326..5f843330a 100644
--- a/lib/src/romance/AdverbRomance.gf
+++ b/lib/src/romance/AdverbRomance.gf
@@ -16,6 +16,10 @@ incomplete concrete AdverbRomance of Adverb =
 
     AdAdv = cc2 ;
 
+    PositAdAAdj a = {
+      s = a.s ! Posit ! AA
+      } ;
+
     SubjS subj s = {
       s = subj.s ++ s.s ! subj.m
       }  ;
diff --git a/lib/src/scandinavian/AdverbScand.gf b/lib/src/scandinavian/AdverbScand.gf
index 6d44ae63f..3a80641a2 100644
--- a/lib/src/scandinavian/AdverbScand.gf
+++ b/lib/src/scandinavian/AdverbScand.gf
@@ -15,6 +15,10 @@ incomplete concrete AdverbScand of Adverb = CatScand ** open CommonScand, ResSca
 
     AdAdv = cc2 ;
 
+    PositAdAAdj a = {
+      s = a.s ! adverbForm
+      } ;
+
     SubjS subj s = {
       s = subj.s ++ s.s ! Sub
       }  ;