mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-20 02:09:32 -06:00
17 lines
434 B
Plaintext
17 lines
434 B
Plaintext
concrete TenseChi of Tense =
|
|
CatChi [Tense,Temp,Ant], TenseX [Pol,PNeg,PPos] ** open ResChi in {
|
|
|
|
lin
|
|
TTAnt t a = {s = t.s ++ a.s ; t = case a.t of {APerf => APerf ; _ => t.t}} ;
|
|
|
|
---- ??
|
|
TPres = {s = [] ; t = APlain} ;
|
|
TPast = {s = [] ; t = APerf} ;
|
|
TFut = {s = [] ; t = ADurProg} ;
|
|
TCond = {s = [] ; t = ADurStat} ;
|
|
|
|
ASimul = {s = [] ; t = APlain} ;
|
|
AAnter = {s = [] ; t = APerf} ;
|
|
|
|
}
|