mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-30 06:52:49 -06:00
14 lines
364 B
Plaintext
14 lines
364 B
Plaintext
concrete TenseMon of Tense =
|
|
CatMon [Tense,Temp], TenseX [Ant,Pol,AAnter,ASimul,PNeg,PPos] ** open ResMon in {
|
|
|
|
lin
|
|
TTAnt t a = {s = t.s ++ a.s ; t = t.t ; a = a.a} ;
|
|
|
|
TPres = {s = [] ; t = ClPres } ;
|
|
TPast = {
|
|
s = [] ;
|
|
t = ClPast (variants {Perf;PresPerf;IndefPast})
|
|
} ; --# notpresent
|
|
TFut,TCond = {s = [] ; t = ClFut} ; --# notpresent
|
|
|
|
} |