forked from GitHub/gf-core
16 lines
415 B
Plaintext
16 lines
415 B
Plaintext
concrete UntensedEng of Untensed = CatEng ** open ResEng in {
|
|
|
|
flags optimize=all_subs ;
|
|
|
|
lin
|
|
PosCl cl = {s = cl.s ! Pres ! Simul ! Pos ! ODir} ;
|
|
NegCl cl = {s = cl.s ! Pres ! Simul ! Neg ! ODir} ;
|
|
|
|
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} ;
|
|
|
|
}
|