(Por,Spa) don't invert word order in questions most of the time

- don't invert in QuestIAdv either
(Romance) allow for finer-grained choice of when to invert word order
in questions

src/romance/DiffRomance.gf

@@ -63,6 +63,10 @@ interface DiffRomance = open CommonRomance, Prelude in {
 
   oper iAdvQuestionInv : Direct = DInv ; -- except Fre
 
+  oper iCompQuestionInv : Direct = DInv ; -- for Cat,Por,Spa where otherInv will be DDir
+
+  oper otherInv : Direct = DInv ; -- except Cat, Por, Spa
+
 --2 Constants that must derivatively depend on language
 
   param NPForm = Ton Case | Aton Case | Poss {g : Gender ; n : Number} ; --- AAgr

src/romance/QuestionRomance.gf

@@ -29,7 +29,7 @@ incomplete concrete QuestionRomance of Question =
                     \d -> slash.s ! ip.a ! d ! t ! a ! p ! Indic ;
               who = slash.c2.s ++ ip.s ! slash.c2.c
             in table {
-              QDir   => who ++ cls DInv ;
+              QDir   => who ++ cls otherInv ;
               QIndir => who ++ cls DDir
               }
       } ;
@@ -39,7 +39,7 @@ incomplete concrete QuestionRomance of Question =
             let 
               ord = case q of {
                 QDir   => iAdvQuestionInv ;
-                QIndir => iAdvQuestionInv 
+                QIndir => iAdvQuestionInv
               } ;
               cls = cl.s ! ord ! t ! a ! p ! Indic ;
               why = iadv.s
@@ -51,7 +51,7 @@ incomplete concrete QuestionRomance of Question =
             let 
               vp  = predV (selectCopula icomp.cop) ;
               cls = (mkClause (np.s ! Nom).comp np.hasClit np.isPol np.a vp).s ! 
-                       DInv ! t ! a ! p ! Indic ;
+                       iCompQuestionInv ! t ! a ! p ! Indic ;
               why = icomp.s ! complAgr np.a ;
             in why ++ cls
       } ;