GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 01:18:57 -06:00
Code Issues Packages Projects Releases Wiki Activity

rename TPasseSimple to TPastSimple in Extend

Browse Source
This commit is contained in:
Krasimir Angelov
2023-10-10 13:57:12 +02:00
parent 140b59dd70
commit 9570ff202a
6 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/abstract/Extend.gf
View File

@@ -303,6 +303,6 @@ fun
AnaphPron : NP -> Pron ; AnaphPron : NP -> Pron ;
fun fun
TPasseSimple : Tense ; TPastSimple : Tense ;
} }

2
src/bulgarian/ExtendBul.gf
View File

@@ -317,7 +317,7 @@ lin AnaphPron np =
<GPl, _> => they_Pron <GPl, _> => they_Pron
} ; } ;
lin TPasseSimple = {s = []} ** {t = VPastSimple} ; --# notpresent lin TPastSimple = {s = []} ** {t = VPastSimple} ; --# notpresent
} }

2
src/common/ExtendFunctor.gf
View File

@@ -127,7 +127,7 @@ lin
UttDatIP ip = UttAccIP (lin IP ip) ; -- whom (dative) ; DEFAULT who UttDatIP ip = UttAccIP (lin IP ip) ; -- whom (dative) ; DEFAULT who
UttVPShort = UttVP ; -- have fun, as opposed to "to have fun" ; DEFAULT UttVP UttVPShort = UttVP ; -- have fun, as opposed to "to have fun" ; DEFAULT UttVP
TPasseSimple = Grammar.TPast ; --# notpresent TPastSimple = Grammar.TPast ; --# notpresent
SQuestVPS = variants {} ; -- : NP -> VPS -> QS ; -- has she walked SQuestVPS = variants {} ; -- : NP -> VPS -> QS ; -- has she walked
QuestVPS = variants {} ; -- : IP -> VPS -> QS ; -- who has walked QuestVPS = variants {} ; -- : IP -> VPS -> QS ; -- who has walked

2
src/czech/ExtendCze.gf
View File

@@ -27,7 +27,7 @@ concrete ExtendCze of Extend = CatCze **
,CompBareCN ,CompBareCN
,PiedPipingQuestSlash ,PiedPipingQuestSlash
,PiedPipingRelSlash ,PiedPipingRelSlash
,TPasseSimple ,TPastSimple
] ]
with (Grammar = GrammarCze) with (Grammar = GrammarCze)
** **

2
src/romance/ExtendRomanceFunctor.gf
View File

@@ -278,7 +278,7 @@ incomplete concrete ExtendRomanceFunctor of Extend =
UttDatIP ip = UttAccIP (lin IP ip) ; -- whom (dative) ; DEFAULT who UttDatIP ip = UttAccIP (lin IP ip) ; -- whom (dative) ; DEFAULT who
UttVPShort = UttVP ; UttVPShort = UttVP ;
TPasseSimple = {s = []} ** {t = RPasse} ; --# notpresent TPastSimple = {s = []} ** {t = RPasse} ; --# notpresent
oper oper
quoted : Str -> Str = \s -> "\"" ++ s ++ "\"" ; ---- TODO bind ; move to Prelude? quoted : Str -> Str = \s -> "\"" ++ s ++ "\"" ; ---- TODO bind ; move to Prelude?

2
src/slovak/ExtendSlo.gf
View File

@@ -27,7 +27,7 @@ concrete ExtendSlo of Extend = CatSlo **
,CompBareCN ,CompBareCN
,PiedPipingQuestSlash ,PiedPipingQuestSlash
,PiedPipingRelSlash ,PiedPipingRelSlash
,TPasseSimple ,TPastSimple
] ]
with (Grammar = GrammarSlo) with (Grammar = GrammarSlo)
** **