(Ara) add how_old_QCl and why_IAdv

2026-07-02 12:08:34 -06:00 · 2018-12-29 21:25:51 +02:00
parent 8ce0578b53
commit 57101f7808
2 changed files with 7 additions and 2 deletions
@@ -69,7 +69,12 @@ lin
        what_IP : R.IP = R.mkIP "مَا هُوَ" R.Sg ;
     in mkQCl what_IP myName ;

--  how_old_QCl
+  how_old_QCl np =
+    let subjPron : Pron = R.np2pron np ;
+        me : R.NP = toNP np.a.isPron np ;
+        age_N = mkN "عُمر" ;
+        myAge : NP = E.ApposNP me (mkNP (mkDet subjPron) L.name_N) ;
+     in mkQCl what_IP myAge ;

 --  hungry_VP =
 --  thirsty_VP =