diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/DATS/init.dats | 9 | ||||
| -rw-r--r-- | lib/SATS/init.sats | 4 |
2 files changed, 13 insertions, 0 deletions
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 |