forked from GitHub/gf-core
23 lines
610 B
Plaintext
23 lines
610 B
Plaintext
incomplete concrete TenseScand of Tense =
|
|
CatScand [Tense,Temp], TenseX [Ant,Pol,AAnter,ASimul,PNeg,PPos] **
|
|
open ResScand, CommonScand in {
|
|
|
|
lin
|
|
|
|
TTAnt t a = {s = a.s ++ t.s ; a = a.a ; t = t.t} ;
|
|
TPres = {s = []} ** {t = SPres} ;
|
|
TPast = {s = []} ** {t = SPast} ; --# notpresent
|
|
TFut = {s = []} ** {t = SFut} ; --# notpresent
|
|
TCond = {s = []} ** {t = SCond} ; --# notpresent
|
|
{- already defined in CommonScand
|
|
param
|
|
STense =
|
|
SPres
|
|
| SPast --# notpresent
|
|
| SFut --# notpresent
|
|
| SFutKommer --# notpresent
|
|
| SCond --# notpresent
|
|
;
|
|
-}
|
|
}
|