adjusting Fre question forms

2026-06-07 14:16:31 -06:00 · 2017-10-04 15:03:56 +02:00
parent 76d6749797
commit 77ecb64756
6 changed files with 19 additions and 5 deletions
--- a/src/romance/DiffRomance.gf
+++ b/src/romance/DiffRomance.gf
@@ -59,6 +59,9 @@ interface DiffRomance = open CommonRomance, Prelude in {
  oper serCopula : CopulaType ;
  oper estarCopula : CopulaType ;

+-- To decide if adverbial questions are inverted
+
+  oper iAdvQuestionInv : Direct = DInv ; -- except Fre

 --2 Constants that must derivatively depend on language

--- a/src/romance/QuestionRomance.gf
+++ b/src/romance/QuestionRomance.gf
@@ -38,8 +38,8 @@ incomplete concrete QuestionRomance of Question =
      s = \\t,a,p,q => 
            let 
              ord = case q of {
-                QDir   => DInv ;
-                QIndir => DInv 
+                QDir   => iAdvQuestionInv ;
+                QIndir => iAdvQuestionInv 
              } ;
              cls = cl.s ! ord ! t ! a ! p ! Indic ;
              why = iadv.s