system/base/1.7.5/src/bool

Raw file
Back to index

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
PACKET bool DEFINES  XOR, true, false :
 
BOOL CONST true := TRUE ,
           false:= FALSE ;

BOOL OP XOR (BOOL CONST left, right) :
 
  IF left THEN NOT right
          ELSE right
  FI
 
ENDOP XOR ;
 
ENDPACKET bool ;