added ExtraFin.AdjAsCN

aarneranta · aarneranta · commit f48585151f01 · 2016-04-24T08:44:29.000Z
diff --git a/lib/src/finnish/ExtraFin.gf b/lib/src/finnish/ExtraFin.gf
@@ -265,4 +265,9 @@ concrete ExtraFin of ExtraFinAbs = CatFin **
       } ; 
 
 
+  AdjAsCN ap = {
+      s = \\nf => ap.s ! True ! (n2nform nf) ;
+      h = Back ; ---- TODO should be ap.h, which does not exist
+      } ;
+
 } 
diff --git a/lib/src/finnish/ExtraFinAbs.gf b/lib/src/finnish/ExtraFinAbs.gf
@@ -4,7 +4,7 @@ abstract ExtraFinAbs = Extra [
   PassVPSlash, PassAgentVPSlash,
   VPI,ListVPI,BaseVPI,ConsVPI,MkVPI,ComplVPIVV,ConjVPI,
   VPS,ListVPS,BaseVPS,ConsVPS,ConjVPS,MkVPS,PredVPS,ConjVPS,Tense,Temp,Pol,S,
-  VV,VP,Conj,NP,Quant,IAdv,IComp,ICompAP,IAdvAdv,Adv,AP, Pron, RP, ProDrop] ** {
+  VV,VP,Conj,NP,Quant,IAdv,IComp,ICompAP,IAdvAdv,Adv,AP, Pron, RP, ProDrop, AdjAsCN] ** {
   flags coding=utf8 ;
 
   fun

Original file line number	Diff line number	Diff line change
`@@ -265,4 +265,9 @@ concrete ExtraFin of ExtraFinAbs = CatFin **`
`265`	`265`	`} ;`
`266`	`266`
`267`	`267`
	`268`	`+ AdjAsCN ap = {`
	`269`	`+ s = \\nf => ap.s ! True ! (n2nform nf) ;`
	`270`	`+ h = Back ; ---- TODO should be ap.h, which does not exist`
	`271`	`+ } ;`
	`272`	`+`
`268`	`273`	`}`