(Pes) misc. small fixes, additions and TODOs

src/persian/ExtendPes.gf

@@ -2,7 +2,7 @@
 
 concrete ExtendPes of Extend =
   CatPes ** ExtendFunctor - [
-    GenNP, ApposNP, ICompAP, AdvIsNP, InOrderToVP, ByVP
+    GenNP, ApposNP, ICompAP, AdvIsNP, InOrderToVP, ByVP, AdjAsNP, ComplBareVS
     ,GerundNP,GerundCN,GerundAdv,EmbedPresPart,EmbedSSlash
     ]
   with (Grammar=GrammarPes)
@@ -20,6 +20,12 @@ lin
     s = \\m => np1.s ! m ++ np2.s ! m
   } ;
 
+  -- : AP -> NP
+  AdjAsNP ap = emptyNP ** ap ;
+
+  -- : VS  -> S  -> VP
+  ComplBareVS vs s = embComp (s.s ! vs.compl) (predV vs) ;
+
   ICompAP ap = {s = "چقدر" ++ ap.s ! Bare} ;
   -- : VP -> CN ;          -- publishing of the document (can get a determiner)
   GerundCN vp = useN (indeclN (infVP vp)) ;