forked from GitHub/gf-core
18 lines
364 B
Plaintext
18 lines
364 B
Plaintext
concrete TenseHeb of Tense = CatHeb [Tense,Temp], TenseX [Ant,Pol,AAnter,ASimul,PNeg,PPos] ** open ResHeb, Prelude in {
|
|
|
|
flags coding = utf8 ;
|
|
|
|
lin
|
|
|
|
TTAnt t a = {
|
|
s = t.s ++ a.s ;
|
|
t = t.t ;
|
|
a = a.a
|
|
} ;
|
|
|
|
TPres, TCond = {s = []} ** {t = Perf} ;
|
|
TFut = {s = []} ** {t = Imperf } ;
|
|
TPast = {s = []} ** {t = Part} ;
|
|
|
|
}
|