From 5a1f3494eb9517a7b7a332cb74dd10a6a7d32d31 Mon Sep 17 00:00:00 2001
From: Louis Pilfold <louis@lpil.uk>
Date: Wed, 29 May 2019 21:02:55 +0100
Subject: Enable namespaced modules

---
 gen/src/std@bool.erl | 55 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 gen/src/std@bool.erl

(limited to 'gen/src/std@bool.erl')

diff --git a/gen/src/std@bool.erl b/gen/src/std@bool.erl
new file mode 100644
index 0000000..c77a2d8
--- /dev/null
+++ b/gen/src/std@bool.erl
@@ -0,0 +1,55 @@
+-module(std@bool).
+-compile(no_auto_import).
+
+-export([negate/1, compare/2, max/2, min/2, to_int/1]).
+
+negate(Bool) ->
+    case Bool of
+        true ->
+            false;
+
+        false ->
+            true
+    end.
+
+compare(A, B) ->
+    case {A, B} of
+        {true, true} ->
+            eq;
+
+        {true, false} ->
+            gt;
+
+        {false, false} ->
+            eq;
+
+        {false, true} ->
+            lt
+    end.
+
+max(A, B) ->
+    case A of
+        true ->
+            true;
+
+        false ->
+            B
+    end.
+
+min(A, B) ->
+    case A of
+        false ->
+            false;
+
+        true ->
+            B
+    end.
+
+to_int(Bool) ->
+    case Bool of
+        false ->
+            0;
+
+        true ->
+            1
+    end.
-- 
cgit v1.2.3