1 files changed, 54 insertions, 0 deletions
diff --git a/vere/pkg/noun/v2/jets.c b/vere/pkg/noun/v2/jets.c
new file mode 100644
index 0000000..4d5fa0f
--- /dev/null
+++ b/vere/pkg/noun/v2/jets.c
@@ -0,0 +1,54 @@
+/// @file
+
+#include "../vortex.h"
+
+#include "../jets.h"
+#include "v2/jets.h"
+
+#include "v2/allocate.h"
+#include "v2/hashtable.h"
+#include "v2/vortex.h"
+
+#include "v3/hashtable.h"
+#include "v3/jets.h"
+
+/* u3j_v2_reclaim(): clear ad-hoc persistent caches to reclaim memory.
+*/
+void
+u3j_v2_reclaim(void)
+{
+  //  set globals (required for aliased functions)
+  u3H = (u3v_home*) u3H_v2;
+  u3R = (u3a_road*) u3R_v2;
+
+  //  clear the jet hank cache
+  //
+  u3h_v3_walk(u3R->jed.han_p, u3j_v3_free_hank);
+  u3h_v3_free(u3R->jed.han_p);
+  u3R->jed.han_p = u3h_v3_new();
+}
+
+/* u3j_v2_mig_rewrite_compact(): rewrite jet state for compaction.
+ *
+ * NB: u3R_v2->jed.han_p *must* be cleared (currently via u3j_v2_reclaim above)
+ * since it contains hanks which are not nouns but have loom pointers.
+ * Alternately, rewrite the entries with u3h_v2_walk, using u3j_v2_mark as a
+ * template for how to walk.  There's an untested attempt at this in git
+ * history at e8a307a.
+*/
+void
+u3j_v2_mig_rewrite_compact(void)
+{
+  u3h_v2_rewrite(u3R_v2->jed.war_p);
+  u3h_v2_rewrite(u3R_v2->jed.cod_p);
+  u3h_v2_rewrite(u3R_v2->jed.han_p);
+  u3h_v2_rewrite(u3R_v2->jed.bas_p);
+
+  u3h_v2_rewrite(u3R_v2->jed.hot_p);
+  u3R_v2->jed.hot_p = u3a_v2_rewritten(u3R_v2->jed.hot_p);
+
+  u3R_v2->jed.war_p = u3a_v2_rewritten(u3R_v2->jed.war_p);
+  u3R_v2->jed.cod_p = u3a_v2_rewritten(u3R_v2->jed.cod_p);
+  u3R_v2->jed.han_p = u3a_v2_rewritten(u3R_v2->jed.han_p);
+  u3R_v2->jed.bas_p = u3a_v2_rewritten(u3R_v2->jed.bas_p);
+}