cleaning up resource module structure

This commit is contained in:
aarne
2006-01-25 09:50:30 +00:00
parent 7cce7e6462
commit 3a69241209
45 changed files with 219 additions and 69 deletions

View File

@@ -0,0 +1,15 @@
concrete UntensedGer of Untensed = CatGer ** open ResGer in {
flags optimize=all_subs ;
lin
PosCl cl = {s = cl.s ! Pres ! Simul ! Pos} ;
NegCl cl = {s = cl.s ! Pres ! Simul ! Neg} ;
PosQCl cl = {s = cl.s ! Pres ! Simul ! Pos} ;
NegQCl cl = {s = cl.s ! Pres ! Simul ! Neg} ;
PosRCl cl = {s = cl.s ! Pres ! Simul ! Pos} ;
NegRCl cl = {s = cl.s ! Pres ! Simul ! Neg} ;
}