forked from GitHub/gf-core
16 lines
494 B
Plaintext
16 lines
494 B
Plaintext
incomplete concrete TenseRomance of Tense =
|
|
CatRomance [Tense,Temp], TenseX [Ant,AAnter,ASimul] **
|
|
open ResRomance, CommonRomance, Prelude in {
|
|
|
|
lin
|
|
TTAnt t a = {s = a.s ++ t.s ; a = a.a ; t = t.t} ;
|
|
TPres = {s = []} ** {t = RPres} ;
|
|
TPast = {s = []} ** {t = RPast} ; --# notpresent
|
|
TFut = {s = []} ** {t = RFut} ; --# notpresent
|
|
TCond = {s = []} ** {t = RCond} ; --# notpresent
|
|
|
|
PPos = {s = [] ; p = RPos} ;
|
|
PNeg = {s = [] ; p = RNeg False} ;
|
|
|
|
}
|