partial implementation of Ancient Greek RGL

This commit is contained in:
leiss
2016-05-25 12:35:37 +00:00
parent e81b39a300
commit d9d617be5d
53 changed files with 45536 additions and 0 deletions

View File

@@ -0,0 +1,12 @@
concrete TenseGrc of Tense =
CatGrc [Tense,Temp], TenseX [Ant,Pol,AAnter,ASimul,PNeg,PPos] ** open ResGrc in {
lin
TTAnt t a = {s = t.s ++ a.s ; t = t.t ; a = a.a } ;
TPres = {s = [] ; t = VPres VInd } ; -- or: VPerf VInd BR 220
TPast = {s = [] ; t = VImpf} ; -- or: VAor VInd, VPlqm
TFut = {s = [] ; t = VFut FInd} ; -- and: VFut Opt, Inf, Part
TCond = {s = "a)'n" ; t = VPres VInd} ; -- ???
}