move TPasseSimple to Extend

GrammaticalFramework · Oct 10, 2023 · ca7d7d8 · ca7d7d8
1 parent 88fe3e5
commit ca7d7d8
Show file tree

Hide file tree

Showing 5 changed files with 9 additions and 0 deletions.
diff --git a/src/abstract/Extend.gf b/src/abstract/Extend.gf
@@ -302,4 +302,7 @@ fun
 fun
   AnaphPron : NP -> Pron ;
 
+fun
+  TPasseSimple : Tense ;
+
 }
diff --git a/src/common/ExtendFunctor.gf b/src/common/ExtendFunctor.gf
@@ -127,6 +127,8 @@ lin
   UttDatIP ip = UttAccIP (lin IP ip) ; -- whom (dative) ; DEFAULT who
   UttVPShort = UttVP ; -- have fun, as opposed to "to have fun" ; DEFAULT UttVP
 
+  TPasseSimple = Grammar.TPast ;   --# notpresent
+
   SQuestVPS = variants {} ; -- : NP   -> VPS -> QS ;         -- has she walked
   QuestVPS = variants {} ; --  : IP   -> VPS -> QS ;         -- who has walked
 

diff --git a/src/czech/ExtendCze.gf b/src/czech/ExtendCze.gf
@@ -27,6 +27,7 @@ concrete ExtendCze of Extend = CatCze **
     ,CompBareCN
     ,PiedPipingQuestSlash
     ,PiedPipingRelSlash
+    ,TPasseSimple
     ]
   with (Grammar = GrammarCze)
     **

diff --git a/src/romance/ExtendRomanceFunctor.gf b/src/romance/ExtendRomanceFunctor.gf
@@ -278,6 +278,8 @@ incomplete concrete ExtendRomanceFunctor of Extend =
     UttDatIP ip = UttAccIP (lin IP ip) ; -- whom (dative) ; DEFAULT who
     UttVPShort = UttVP ;
 
+    TPasseSimple = {s = []} ** {t = RPasse} ;   --# notpresent
+
   oper
     quoted : Str -> Str = \s -> "\"" ++ s ++ "\"" ; ---- TODO bind ; move to Prelude?
 

diff --git a/src/slovak/ExtendSlo.gf b/src/slovak/ExtendSlo.gf
@@ -27,6 +27,7 @@ concrete ExtendSlo of Extend = CatSlo **
     ,CompBareCN
     ,PiedPipingQuestSlash
     ,PiedPipingRelSlash
+    ,TPasseSimple
     ]
   with (Grammar = GrammarSlo)
     **