claude is gud

1 files changed, 134 insertions, 0 deletions

diff --git a/vere/pkg/noun/jets/f/look.c b/vere/pkg/noun/jets/f/look.c
new file mode 100644
index 0000000..e50e914
--- /dev/null
+++ b/vere/pkg/noun/jets/f/look.c
@@ -0,0 +1,134 @@
+/// @file
+
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+
+/* internals
+*/
+  static u3_noun
+  _look_in(u3_noun cog,
+           u3_noun dab,
+           u3_atom axe)
+  {
+    if ( u3_nul == dab ) {
+      return u3_nul;
+    }
+    else {
+      u3_noun n_dab, l_dab, r_dab;
+
+      u3r_trel(dab, &n_dab, &l_dab, &r_dab);
+      if ( c3n == u3du(n_dab) ) {
+        // return u3m_bail(c3__fail);
+        u3l_log("bad look");
+        return u3m_bail(c3__exit) ;
+      }
+      else {
+        u3_noun pn_dab = u3h(n_dab);
+        u3_noun qn_dab = u3t(n_dab);
+
+        if ( (u3_nul == l_dab) && (u3_nul == r_dab) ) {
+          if ( (c3y == u3du(qn_dab)) &&
+               (c3y == u3r_sing(cog, pn_dab)) ) {
+            return u3nt(u3_nul,
+                        u3k(axe),
+                        u3k(qn_dab));
+          }
+          else {
+            return u3_nul;
+          }
+        }
+        else if ( (u3_nul == l_dab) ) {
+          if ( (c3y == u3du(qn_dab)) &&
+               (c3y == u3r_sing(cog, pn_dab)) ) {
+            return u3nt(u3_nul,
+                        u3qc_peg(axe, 2),
+                        u3k(qn_dab));
+          }
+          else {
+            if ( c3y == u3qc_gor(cog, pn_dab) ) {
+              return u3_nul;
+            }
+            else {
+              u3_noun pro;
+
+              axe = u3qc_peg(axe, 3);
+              pro = _look_in(cog, r_dab, axe);
+              u3z(axe);
+              return pro;
+            }
+          }
+        }
+        else if ( (u3_nul == r_dab) ) {
+          if ( (c3y == u3du(qn_dab)) &&
+               (c3y == u3r_sing(cog, pn_dab)) ) {
+            return u3nt(u3_nul,
+                        u3qc_peg(axe, 2),
+                        u3k(qn_dab));
+          }
+          else {
+            if ( c3y == u3qc_gor(cog, pn_dab) ) {
+              u3_noun pro;
+
+              axe = u3qc_peg(axe, 3);
+              pro = _look_in(cog, l_dab, axe);
+              u3z(axe);
+              return pro;
+            }
+            else {
+              return u3_nul;
+            }
+          }
+        }
+        else {
+          if ( (c3y == u3du(qn_dab)) &&
+               (c3y == u3r_sing(cog, pn_dab)) ) {
+            return u3nt(u3_nul,
+                        u3qc_peg(axe, 2),
+                        u3k(qn_dab));
+          }
+          else {
+            if ( c3y == u3qc_gor(cog, pn_dab) ) {
+              u3_noun pro;
+
+              axe = u3qc_peg(axe, 6);
+              pro = _look_in(cog, l_dab, axe);
+              u3z(axe);
+              return pro;
+            }
+            else {
+              u3_noun pro;
+
+              axe = u3qc_peg(axe, 7);
+              pro = _look_in(cog, r_dab, axe);
+              u3z(axe);
+              return pro;
+            }
+          }
+        }
+      }
+    }
+  }
+
+
+
+
+  u3_noun
+  u3qf_look(u3_noun cog,
+            u3_noun dab)
+  {
+    return _look_in(cog, dab, 1);
+  }
+  u3_noun
+  u3wf_look(u3_noun cor)
+  {
+    u3_noun cog, dab;
+
+    if ( c3n == u3r_mean(cor, u3x_sam_2, &cog, u3x_sam_3, &dab, 0) ) {
+      return u3m_bail(c3__fail);
+    } else {
+      return u3qf_look(cog, dab);
+    }
+  }