From 04e68443040c7abad84d66477e98f93bed701760 Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Mon, 4 Feb 2019 13:09:03 +0100
Subject: Initial import

---
 system/base/1.7.5/src/bool | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 system/base/1.7.5/src/bool

(limited to 'system/base/1.7.5/src/bool')

diff --git a/system/base/1.7.5/src/bool b/system/base/1.7.5/src/bool
new file mode 100644
index 0000000..5bf1e65
--- /dev/null
+++ b/system/base/1.7.5/src/bool
@@ -0,0 +1,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 ;
+
-- 
cgit v1.2.3