constructor PositAdAAdj in Adverb, for most langs

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").
 
 }

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)
 
-
 }

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 ++ "îò"} ;

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} ;

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 ;
 

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 ;
 

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} ;

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
       }  ;

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
       }  ;