working

1 files changed, 87 insertions, 0 deletions

diff --git a/vere/pkg/noun/v1/jets.c b/vere/pkg/noun/v1/jets.c
new file mode 100644
index 0000000..a798ccc
--- /dev/null
+++ b/vere/pkg/noun/v1/jets.c
@@ -0,0 +1,87 @@
+/// @file
+
+#include "../vortex.h"
+
+#include "../jets.h"
+#include "v1/jets.h"
+#include "v2/jets.h"
+
+#include "v1/allocate.h"
+#include "v1/hashtable.h"
+
+
+/* _cj_fink_free(): lose and free everything in a u3j_v1_fink.
+*/
+static void
+_cj_v1_fink_free(u3p(u3j_v1_fink) fin_p)
+{
+  c3_w i_w;
+  u3j_v1_fink* fin_u = u3to(u3j_v1_fink, fin_p);
+  u3a_v1_lose(fin_u->sat);
+  for ( i_w = 0; i_w < fin_u->len_w; ++i_w ) {
+    u3j_v1_fist* fis_u = &(fin_u->fis_u[i_w]);
+    u3a_v1_lose(fis_u->bat);
+    u3a_v1_lose(fis_u->pax);
+  }
+  u3a_v1_wfree(fin_u);
+}
+
+/* u3j_v1_rite_lose(): lose references of u3j_v1_rite (but do not free).
+ */
+void
+u3j_v1_rite_lose(u3j_v1_rite* rit_u)
+{
+  if ( (c3y == rit_u->own_o) && u3_none != rit_u->clu ) {
+    u3a_v1_lose(rit_u->clu);
+    _cj_v1_fink_free(rit_u->fin_p);
+  }
+}
+
+
+/* u3j_v1_site_lose(): lose references of u3j_v1_site (but do not free).
+ */
+void
+u3j_v1_site_lose(u3j_v1_site* sit_u)
+{
+  u3a_v1_lose(sit_u->axe);
+  if ( u3_none != sit_u->bat ) {
+    u3a_v1_lose(sit_u->bat);
+  }
+  if ( u3_none != sit_u->bas ) {
+    u3a_v1_lose(sit_u->bas);
+  }
+  if ( u3_none != sit_u->loc ) {
+    u3a_v1_lose(sit_u->loc);
+    u3a_v1_lose(sit_u->lab);
+    if ( c3y == sit_u->fon_o ) {
+      if ( sit_u->fin_p ) {
+      _cj_v1_fink_free(sit_u->fin_p);
+      }
+    }
+  }
+}
+
+/* _cj_v1_free_hank(): free an entry from the hank cache.
+*/
+static void
+_cj_v1_free_hank(u3_noun kev)
+{
+  u3a_v1_cell* cel_u = (u3a_v1_cell*) u3a_v1_to_ptr(kev);
+  u3j_v1_hank* han_u = u3to(u3j_v1_hank, cel_u->tel);
+  if ( u3_none != han_u->hax ) {
+    u3a_v1_lose(han_u->hax);
+    u3j_v1_site_lose(&(han_u->sit_u));
+  }
+  u3a_v1_wfree(han_u);
+}
+
+/* u3j_v1_reclaim(): clear ad-hoc persistent caches to reclaim memory.
+*/
+void
+u3j_v1_reclaim(void)
+{
+  //  clear the jet hank cache
+  //
+  u3h_v1_walk(u3R_v1->jed.han_p, _cj_v1_free_hank);
+  u3h_v1_free_nodes(u3R_v1->jed.han_p);
+}