1 files changed, 131 insertions, 0 deletions
diff --git a/vere/pkg/noun/jets/e/leer.c b/vere/pkg/noun/jets/e/leer.c
new file mode 100644
index 0000000..8ffe372
--- /dev/null
+++ b/vere/pkg/noun/jets/e/leer.c
@@ -0,0 +1,131 @@
+/// @file
+
+#include "jets/k.h"
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+static u3_atom
+_leer_cut(c3_w pos_w, c3_w len_w, u3_atom src)
+{
+  if ( 0 == len_w ) {
+    return 0;
+  }
+  else {
+    u3i_slab sab_u;
+    u3i_slab_bare(&sab_u, 3, len_w);
+    sab_u.buf_w[sab_u.len_w - 1] = 0;
+
+    u3r_bytes(pos_w, len_w, sab_u.buf_y, src);
+
+    return u3i_slab_mint_bytes(&sab_u);
+  }
+}
+
+// Leaving the lore jet in place for backwards compatibility.
+// TODO: remove u3[qw]e_lore (also from jet tree)
+
+u3_noun
+u3qe_lore(u3_atom lub)
+{
+  c3_w    len_w = u3r_met(3, lub);
+  c3_w    pos_w = 0;
+  u3_noun tez = u3_nul;
+
+  while ( 1 ) {
+    c3_w meg_w = 0;
+    c3_y end_y;
+
+    c3_y byt_y;
+    while ( 1 ) {
+      if ( pos_w >= len_w ) {
+        byt_y = 0;
+        end_y = c3y;
+        break;
+      }
+      byt_y = u3r_byte(pos_w + meg_w, lub);
+
+      if ( (10 == byt_y) || (0 == byt_y) ) {
+        end_y = __(byt_y == 0);
+        break;
+      } else meg_w++;
+    }
+
+    if ((byt_y == 0) && ((pos_w + meg_w + 1) < len_w)) {
+      return u3m_bail(c3__exit);
+    }
+
+    if ( !_(end_y) && pos_w >= len_w ) {
+      return u3kb_flop(tez);
+    }
+    else {
+      tez = u3nc(_leer_cut(pos_w, meg_w, lub), tez);
+      if ( _(end_y) ) {
+        return u3kb_flop(tez);
+      }
+      pos_w += (meg_w + 1);
+    }
+  }
+}
+
+u3_noun
+u3we_lore(u3_noun cor)
+{
+  u3_noun lub;
+
+  if ( (u3_none == (lub = u3r_at(u3x_sam, cor))) ||
+       (c3n == u3ud(lub)) )
+  {
+    return u3m_bail(c3__fail);
+  } else {
+    return u3qe_lore(lub);
+  }
+}
+
+u3_noun
+u3qe_leer(u3_atom txt)
+{
+  u3_noun  pro;
+  u3_noun* lit = &pro;
+
+  {
+    c3_w pos_w, i_w = 0, len_w = u3r_met(3, txt);
+    u3_noun* hed;
+    u3_noun* tel;
+
+    while ( i_w < len_w ) {
+      //  scan till end or newline
+      //
+      for ( pos_w = i_w; i_w < len_w; ++i_w ) {
+        if ( 10 == u3r_byte(i_w, txt) ) {
+          break;
+        }
+      }
+
+      //  append to list
+      //
+      *lit = u3i_defcons(&hed, &tel);
+      *hed = _leer_cut(pos_w, i_w - pos_w, txt);
+      lit  = tel;
+
+      i_w++;
+    }
+  }
+
+  *lit = u3_nul;
+
+  return pro;
+}
+
+u3_noun
+u3we_leer(u3_noun cor)
+{
+  u3_noun txt = u3x_at(u3x_sam, cor);
+
+  if ( c3n == u3ud(txt) ) {
+    return u3m_bail(c3__fail);
+  }
+
+  return u3qe_leer(txt);
+}