a new Extra function for AP without CN, e.g. "a green one"

lib/src/abstract/Extra.gf

@@ -105,4 +105,9 @@ abstract Extra = Cat ** {
     FrontExtPredVP : NP -> VP -> Cl ;      -- I am here, she said
     InvFrontExtPredVP : NP -> VP -> Cl ;   -- I am here, said she
 
+-- to use an AP as CN without CN
+
+    AdjAsCN : AP -> CN ; -- a green one ; en grön (Swe)
+
+
 }

lib/src/english/ExtraEng.gf

@@ -276,5 +276,11 @@ lin
       } ;
 -------
 
+  lin
+    AdjAsCN ap = let cn = mkNoun "one" "one's" "ones" "ones'" ** {g = Neutr}
+      in {
+        s = \\n,c => preOrPost ap.isPre (ap.s ! agrgP3 n cn.g) (cn.s ! n ! c) ;
+        g = cn.g
+        } ;
 
 } 

lib/src/scandinavian/ExtraScand.gf

@@ -1,5 +1,5 @@
 incomplete concrete ExtraScand of ExtraScandAbs = CatScand ** 
-   open CommonScand,Coordination,ResScand, ParamX in {
+   open CommonScand,Coordination,ResScand, ParamX, Prelude in {
   flags coding=utf8 ;
   lin
     GenNP np = {
@@ -7,6 +7,7 @@ incomplete concrete ExtraScand of ExtraScandAbs = CatScand **
       det = DDef Indef
       } ;
 
+
     ComplBareVS v s  = insertObj (\\_ => s.s ! Sub) (predV v) ;
 
     CompBareCN cn = {s = \\a => case a.n of { 
@@ -112,4 +113,12 @@ incomplete concrete ExtraScand of ExtraScandAbs = CatScand **
     UseFoc t p foc = {s = t.s ++ p.s ++ foc.s ! t.t ! t.a ! p.p} ;
 
   oper NONEXIST : Str = "#¿@§X?X&%/" ;
+
+  lin
+    AdjAsCN ap = let g = utrum in {  ---- neutrum ??
+      s = \\n,d,c => ap.s ! agrAdj (gennum (ngen2gen g) n) d ;
+      g = g ;
+      isMod = True
+      } ;
+
 } 

lib/src/swedish/ExtraSweAbs.gf

@@ -61,7 +61,6 @@ fun
 
   AdvComp : Comp -> Adv -> Comp ; -- jag är redan här
 
-
 ----------------- Predeterminers,Quantifiers,Determiners
 
    bara_AdvFoc : AdvFoc ;