From 361deec53285ef80a30dc2a8d71e8aaa2ff5a097 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 3 May 2019 18:43:29 +0200
Subject: [PATCH] (Pes) misc. small fixes, additions and TODOs

---
 src/persian/ExtendPes.gf     | 8 +++++++-
 src/persian/StructuralPes.gf | 6 +++---
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/src/persian/ExtendPes.gf b/src/persian/ExtendPes.gf
index 2414ec650..c5e333503 100644
--- a/src/persian/ExtendPes.gf
+++ b/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)) ;
diff --git a/src/persian/StructuralPes.gf b/src/persian/StructuralPes.gf
index 01ae07906..dff9008d8 100644
--- a/src/persian/StructuralPes.gf
+++ b/src/persian/StructuralPes.gf
@@ -101,12 +101,12 @@ concrete StructuralPes of Structural = CatPes **
   youSg_Pron = R.agr2pron ! Ag Sg P2 ;
   youPl_Pron = R.agr2pron ! Ag Pl P2 ;
   youPol_Pron = R.agr2pron ! Ag Pl P2  ;
-  no_Quant = mkQuant "هیچ" "هیچ" ; -- TODO: takes object in clitic form + is always singular
+  no_Quant = mkQuant "هیچ" "هیچ" ; -- TODO: takes object in clitic form + is always singular + VP is negated
   not_Predet = {s="نه"} ;
   if_then_Conj = sd2 "اگر" "آنگاه" ** {n = Sg} ;
   at_least_AdN = ss "حداقل" ;
   at_most_AdN = ss "حداکثر";
-  nothing_NP = R.indeclNP "هیچ" ;
+  nothing_NP = R.indeclNP "هیچ چیز" ;
   except_Prep = mkPrep ["به جز"] ;
   nobody_NP = R.indeclNP "هیچ کس";
 
@@ -114,7 +114,7 @@ concrete StructuralPes of Structural = CatPes **
 
 ----  have_V2 = mkV2 (mkV "داشتن" "دار") "را" ;
 
- language_title_Utt = ss "پeرسن" ;
+ language_title_Utt = ss "فارسی" ;
 
 ---- AR from Nasrin