(Som) Add comparatives

src/somali/QuestionSom.gf

@@ -50,7 +50,7 @@ concrete QuestionSom of Question = CatSom ** open
 
   -- : IComp -> NP -> QCl ;   -- where is John?
   QuestIComp icomp np =
-    let cls = predVP np (VS.UseComp icomp) ;
+    let cls = predVP np (VS.UseComp (icomp2comp icomp)) ;
         -- cl = cls ** { -- TODO: neg. questions
         --       stm : ClType=>Polarity=>Str = \\_,_ => "waa"
         -- }
@@ -87,18 +87,10 @@ concrete QuestionSom of Question = CatSom ** open
 -- pronouns.
 
   -- : IAdv -> IComp ;
-  CompIAdv iadv = {            -- where (is it)
-    aComp = \\_ => [] ;
-    nComp = iadv.s ;
-    stm = Waa NoCopula ;
-    } ;
+  CompIAdv iadv = iadv ;            -- where (is it)
 
   -- : IP -> IComp ;
-  CompIP ip = {                -- who (is it)
-    aComp = \\_ => [] ;
-    nComp = ip.s ! Abs ;
-    stm = Waa NoCopula ;
-    } ;
+  CompIP ip = {s = ip.s ! Abs} ;    -- who (is it)
 
 {-
 -- More $IP$, $IDet$, and $IAdv$ are defined in $Structural$.
@@ -117,6 +109,13 @@ concrete QuestionSom of Question = CatSom ** open
 
 oper
 
+  icomp2comp : SS -> Complement = \icomp -> icomp ** {
+    aComp = \\_ => [] ;
+    nComp = icomp.s ;
+    compar = [] ;
+    stm = Waa NoCopula
+  } ;
+
   -- Question clauses: subject pronoun not included, STM is
   cl2qcl : ClType -> Bool -> ClSlash -> Clause = \cltyp ->
     let hasSubjPron : Bool = False ;