From 4dd9b92354d8186f78b830e6255c32a607086939 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Tue, 24 Sep 2019 17:28:48 +0200
Subject: [PATCH] (Som) more on negative questions

---
 src/somali/ResSom.gf | 25 ++++++++++++++++++++-----
 1 file changed, 20 insertions(+), 5 deletions(-)

diff --git a/src/somali/ResSom.gf b/src/somali/ResSom.gf
index 8a692c986..c564ddc93 100644
--- a/src/somali/ResSom.gf
+++ b/src/somali/ResSom.gf
@@ -682,6 +682,23 @@ oper
           x                     => hold_V.s ! x }
     } ;
 
+  fail_V : Verb =
+   let waa_V : Verb = cSug "waay" in waa_V ** {
+    s = table {
+      VPres _ Sg2_Sg3Fem _
+                      => "waayday" ;
+      VPast _ Sg1_Sg3Masc
+                      => "waayey" ;
+      VPast _ Sg2_Sg3Fem
+                      => "weydey" ;
+      VPast _ Pl1_    => "weyney" ;
+      VPast _ Pl2_    => "weydeen" ;
+      VPast _ Pl3_    => "waayeen" ;
+      VInf => "waayi" ;
+      x => waa_V.s ! x -- TODO actual forms
+    }
+  } ;
+
 ------------------
 -- Adv
 
@@ -1050,10 +1067,8 @@ oper
 
   vfQuestion : VFun = \t,ant,p,agr,vp ->
     case <t,ant,p> of {
-      <_,_,Neg> => vp.s ! VInf ++ vfStatement t ant p agr (useV waa_V) ;
+      <_,_,Neg> => vp.s ! VInf ++ vfStatement t ant Pos agr (useV fail_V) ;
       _ => vfStatement t ant p agr vp
-    } where {
-      waa_V = cSug "waa" ; ---- TODO irregular verb
     } ;
 
   vfSubord : VFun = \t,ant,p,agr,vp ->
@@ -1071,8 +1086,8 @@ oper
       case <cltyp,pol> of {
         <Statement,Pos> => showSTM stm ;
         <Statement,Neg> => "ma" ;
-        <Question,Pos>  => "ma" ;
-        <Question,Neg>  => "sow" ;
+        <Question,_> => "ma" ; -- neg. questions are formed with waayaa 'fail to do X', so they are syntactically positive
+--        <Question,Neg>  => "sow" ; -- for true negative questions
         <Subord,Pos>    => [] ;
         <Subord,Neg>    => "aan"
       } ;