1
0
forked from GitHub/gf-core

fix to scandinavian

This commit is contained in:
malin
2011-11-09 20:06:59 +00:00
parent 5c76d11173
commit 7afbad405d

View File

@@ -0,0 +1,22 @@
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
param
STense =
SPres
| SPast --# notpresent
| SFut --# notpresent
| SFutKommer --# notpresent
| SCond --# notpresent
;
}