working

1 files changed, 78 insertions, 0 deletions

diff --git a/vere/pkg/noun/v1/allocate.h b/vere/pkg/noun/v1/allocate.h
new file mode 100644
index 0000000..965db14
--- /dev/null
+++ b/vere/pkg/noun/v1/allocate.h
@@ -0,0 +1,78 @@
+#ifndef U3_ALLOCATE_V1_H
+#define U3_ALLOCATE_V1_H
+
+#include "../allocate.h"
+#include "v2/allocate.h"
+
+  /**  Aliases.
+  **/
+#     define u3R_v1           u3R_v2
+#     define u3a_v1_botox     u3a_v2_botox
+#     define u3a_v1_box       u3a_v2_box
+#     define u3a_v1_cell      u3a_v2_cell
+#     define u3a_v1_fbox      u3a_v2_fbox
+#     define u3a_v1_fbox_no   u3a_v2_fbox_no
+#     define u3a_v1_into      u3a_v2_into
+#     define u3a_v1_is_cat    u3a_v2_is_cat
+#     define u3a_v1_is_north  u3a_v2_is_north
+#     define u3a_v1_is_pom    u3a_v2_is_pom
+#     define u3a_v1_minimum   u3a_v2_minimum
+#     define u3a_v1_outa      u3a_v2_outa
+
+  /**  Structures.
+  **/
+  /**  Macros.  Should be better commented.
+  **/
+    /* Inside a noun.
+    */
+    /* u3a_v1_to_off(): mask off bits 30 and 31 from noun [som].
+    */
+#     define u3a_v1_to_off(som)    ((som) & 0x3fffffff)
+
+    /* u3a_v1_to_ptr(): convert noun [som] into generic pointer into loom.
+    */
+#     define u3a_v1_to_ptr(som)    (u3a_v1_into(u3a_v1_to_off(som)))
+
+    /* u3a_v1_to_wtr(): convert noun [som] into word pointer into loom.
+    */
+#     define u3a_v1_to_wtr(som)    ((c3_w *)u3a_v1_to_ptr(som))
+
+    /* u3a_v1_to_pug(): set bit 31 of [off].
+    */
+#     define u3a_v1_to_pug(off)    (off | 0x80000000)
+
+    /* u3a_v1_to_pom(): set bits 30 and 31 of [off].
+    */
+#     define u3a_v1_to_pom(off)    (off | 0xc0000000)
+
+  /**  Functions.
+  **/
+    /**  Allocation.
+    **/
+      /* Word-aligned allocation.
+      */
+        /* u3a_v1_wfree(): free storage.
+        */
+          void
+          u3a_v1_wfree(void* lag_v);
+
+      /* C-style aligned allocation - *not* compatible with above.
+      */
+        /* u3a_v1_free(): free for aligned malloc.
+        */
+          void
+          u3a_v1_free(void* tox_v);
+
+      /* Reference and arena control.
+      */
+        /* u3a_v1_reclaim(): clear ad-hoc persistent caches to reclaim memory.
+        */
+          void
+          u3a_v1_reclaim(void);
+
+        /* u3a_v1_lose(): lose a reference count.
+        */
+          void
+          u3a_v1_lose(u3_noun som);
+
+#endif /* ifndef U3_ALLOCATE_H */