shithub: orca

Info  •  Files  •  Log  •  Branches

updates L to match orcaJS, fixes #41

--- a/sim.c

+++ b/sim.c

@@ -557,7 +557,12 @@

   LOWERCASE_REQUIRES_BANG;

   PORT(0, -2, IN | PARAM);

   PORT(0, -1, IN | PARAM);

-  Usz rate = index_of(PEEK(0, -2));

+  PORT(0, 1, IN | PARAM);

+  PORT(1, 0, OUT);

+  Glyph g = PEEK(0, -2);

+  Usz rate = 1;

+  if (g != '.' && g != '*')

+    rate = index_of(g);

   Usz len = safe_index_of(PEEK(0, -1));

   if (len > width - x - 1)

     len = width - x - 1;

@@ -577,6 +582,7 @@

   for (Usz i = 0; i < len; ++i) {

     gs[i] = buff[i];

   }

+  POKE(1, 0, PEEK(0, 1));

 END_OPERATOR

 BEGIN_OPERATOR(multiply)