updated ExistIP for all languages

lib/resource-1.0/english/ResEng.gf

@@ -180,6 +180,7 @@ resource ResEng = ParamX ** open Prelude in {
     s2  : Agr => Str
     } ;
 
+
 --- The order gets wrong with AdV, but works around a parser
 --- generation bug.
 
@@ -390,4 +391,18 @@ resource ResEng = ParamX ** open Prelude in {
       _   => ten + "th"
       } ;
 
+  mkQuestion : 
+      {s : Str} -> Clause -> 
+      {s : Tense => Anteriority => Polarity => QForm => Str} = \wh,cl ->
+      {
+      s = \\t,a,p => 
+            let 
+              cls = cl.s ! t ! a ! p ;
+              why = wh.s
+            in table {
+              QDir   => why ++ cls ! OQuest ;
+              QIndir => why ++ cls ! ODir
+              }
+      } ;
+
 }