varios function is extend

src/latin/ExtendLat.gf

@@ -17,6 +17,7 @@ concrete ExtendLat of Extend = CatLat ** open ResLat in {
 
   lin
     -- GenNP       : NP -> Quant ;       -- this man's
+    GenNP np = { s = \\_ => combineNounPhrase np ! PronNonDrop ! APostN ! DPreN ! Gen ; sp = \\_ => ""} ;
 --     GenIP       : IP -> IQuant ;      -- whose
 --     GenRP       : Num -> CN -> RP ;   -- whose car
 
@@ -96,6 +97,9 @@ concrete ExtendLat of Extend = CatLat ** open ResLat in {
 -- -- this is a generalization of Verb.PassV2 and should replace it in the future.
 
     --     PassVPSlash : VPSlash -> VP ; -- be forced to sleep
+    PassVPSlash vp = vp ** {
+      s = \\a => case a of { VAct _ t n p => vp.pass ! VPass t n p } ;
+      } ;
 
 -- -- the form with an agent may result in a different linearization
 -- -- from an adverbial modification by an agent phrase.
@@ -149,6 +153,16 @@ concrete ExtendLat of Extend = CatLat ** open ResLat in {
 
     --     AdjAsCN : AP -> CN ;   -- a green one ; en grön (Swe)
     --     AdjAsNP : AP -> NP ;   -- green (is good)
+    AdjAsNP ap = {
+      s = \\_,c => ap.s ! (Ag Neutr Sg c) ;
+      adv = "" ;
+      det = { s, sp = \\_ => "" } ;
+      g = Neutr ;
+      n = Sg ;
+      p = P3 ;
+      postap = { s = \\_ => "" } ;
+      preap = { s = \\_ => "" } ;
+      } ;
 
 -- -- infinitive complement for IAdv