From 54435375f29152ddbce1cd362a137280450eba94 Mon Sep 17 00:00:00 2001
From: Xander <xander@biltopia.org>
Date: Thu, 27 Jul 2023 00:46:53 +0200
Subject: migrated frame_allocator to opt. side effects constrains not
 implemented yet

---
 lib/DATS/init.dats | 9 +++++++++
 lib/SATS/init.sats | 4 ++++
 2 files changed, 13 insertions(+)
 create mode 100644 lib/DATS/init.dats
 create mode 100644 lib/SATS/init.sats

(limited to 'lib')

diff --git a/lib/DATS/init.dats b/lib/DATS/init.dats
new file mode 100644
index 0000000..3bc5034
--- /dev/null
+++ b/lib/DATS/init.dats
@@ -0,0 +1,9 @@
+staload "lib/SATS/init.sats"
+
+#define ATS_DYNLOADFLAG 0
+
+implement {vt:viewt@ype} empty (v) =
+let
+in
+  @{enabled = false, obj = v}: enablable vt
+end
diff --git a/lib/SATS/init.sats b/lib/SATS/init.sats
new file mode 100644
index 0000000..83b5e8d
--- /dev/null
+++ b/lib/SATS/init.sats
@@ -0,0 +1,4 @@
+viewtypedef enablable (vt:viewt@ype) =
+  [enabled: bool] @{ enabled = bool enabled, obj = opt (vt, enabled) }
+
+fun {vt:viewt@ype} empty (v : opt(vt,false)): enablable vt
-- 
cgit v1.2.3