system/base/1.7.5/src/bool


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

 
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 ;