From c60d503590dd86f605b81bc57f425c323c724083 Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Mon, 28 Aug 2017 20:11:10 +0200
Subject: Does not actually with bare compiler

---
 examples/working-compiler/interactive-stack.test | 196 -----------------------
 examples/working-loaded/interactive-stack.test   | 196 +++++++++++++++++++++++
 2 files changed, 196 insertions(+), 196 deletions(-)
 delete mode 100644 examples/working-compiler/interactive-stack.test
 create mode 100644 examples/working-loaded/interactive-stack.test

(limited to 'examples')

diff --git a/examples/working-compiler/interactive-stack.test b/examples/working-compiler/interactive-stack.test
deleted file mode 100644
index 0365280..0000000
--- a/examples/working-compiler/interactive-stack.test
+++ /dev/null
@@ -1,196 +0,0 @@
-{ scope }' =*globalScope
-
-<
-  map ==seenThings # from .hu of rawAddress to some name
-  map ==usedNames # from name to rawAddress
-
-  { ==suggested ==thing
-    thing sys .asm .rawAddress _ ==a txt .produce .hu ==as
-
-    globalScope keys { ==name
-      globalScope name .| sys .asm .rawAddress _ ==a txt .produce .hu ==as
-
-      "\e[2m" name cat "\e[0m" cat =name
-      name as seenThings =[]
-      a name usedNames =[]
-    } each
-
-    { ==i
-      i 0 eq {
-        i suggested *
-      } {
-        i suggested len math .base suggested * |cat fold
-      } ? *
-    } /toName deffst
-
-    as seenThings .has {
-      as seenThings *
-    } {
-      0 ==i
-      {
-        i toName ==name
-        name usedNames .has
-      }' {
-        { 1 add } |=i
-      }' loop
-
-      name as seenThings =[]
-      a name usedNames =[]
-      name
-    } ? *
-  }
-> -- /niceName deffd
-
-{ [ "α" "β" "γ" "δ" "ε" "π" "φ" ] niceName } /niceScopeName deffd
-
-<
-  [ 0 11 range {
-    sys .asm .intToFloat
-  }' each ] =*:FLOAT
-
-  sys .out .|writeall =*out
-
-  "0123456789" ==:base10digits
-  "0123456789ABCDEF" ==:base16digits
-
-  { _ 0 lt { neg "-" }' { "" }' ? * -01
-    [ -01 16 { _ 16 umod base16digits * -01 16 udiv }' rep -- ] reverse str .fromArray cat
-  }' /base16encode64 deffd
-
-  { "\e[1;31m<???>\e[0m" out }" /unknown defvd
-
-  [
-    { "\e[31m" o txt .produce .i cat "\e[0m" cat out }" # integer
-    { "\e[31m\"" o "\"\e[0m" cat cat out }" # string
-    { "\e[31m" out o { ==f 0 ==e "+" ==s 0 ==i
-      f 0 FLOAT lt { 0 FLOAT f sub =f "-" =s }' rep
-      { f 1 FLOAT lt i 500 lt and }' { f 10 FLOAT mul =f e 1 sub =e i 1 add =i }' loop
-      { f 10 FLOAT ge i 500 lt and }' { f 10 FLOAT div =f e 1 add =e i 1 add =i }' loop
-
-      i 500 eq {
-        s
-        f 1 FLOAT lt "0.0e0" "inf" ?
-        cat out
-      }' {
-        {
-          0 ==d
-          1 10 range { ==i f i FLOAT gt { i =d }' rep } each
-          f d sub =f
-          f 10 FLOAT mul =f
-          d base10digits *
-        } /extractDigit deffst
-
-        [
-          0 s *
-          extractDigit
-          0 "." *
-          10 |extractDigit rep
-          0 "e" *
-          e 0 lt {
-            0 e sub =e
-            0 "-" *
-          } rep
-          e 0 eq {
-            0 "0" *
-          } rep
-          [
-            { e } {
-              e 10 mod base10digits *
-              e 10 div =e
-            } loop
-          ] reverse _ len dearray
-        ] str .fromArray out
-      }' ? *
-    } * "\e[0m" out }" # float
-    unknown
-    unknown # extension area
-    { "\e[32m{"
-      o [ /f /g /h /a /b /c /d /e ] niceName cat
-      "\e[32m}\e[0m" cat out
-    }"
-    unknown
-    { "\e[36m["
-      o [ /A /B /C /D /E /F /G /H ] niceName cat
-      "\e[36m]\e[0m" cat out
-    }" # array
-    unknown # function type
-    { "\e[35m<"
-      o niceScopeName cat
-      "\e[35m>\e[0m" cat out
-    }"
-    unknown # name table
-    unknown # stack
-    { "<coroutine: " o sys .asm .rawAddress base16encode64 cat ">" cat out }"
-    unknown
-    unknown
-    unknown
-    { "[" out }"
-    { "{" out }"
-    { "\e[34m|\e[0m" out }"
-    unknown
-  ] /dumpActions deffd
-
-  # dump top stack element
-  { _ ==o sys .typed .type dumpActions * "  " out }
-
-  # dump entire stack
-  { 0 ==i "" ==x
-    { x sys .typed .type 18 neq } {
-      i _' =x
-      { 1 add } |=i
-    } loop
-
-    { 1 sub } |=i
-
-    { i 0 ge } {
-      i _' =x
-      { 1 sub } |=i
-      x objectdump
-      " " out
-    } loop
-
-    "\n" out
-  }
-> -- /stackdump deffd /objectdump deffd
-
-"Welcome to elymas.\n" sys .out .writeall
-
-{ _ ==openedScope enincludeLine =*eval
-  1 ==running
-  { 0 =running } =*quit
-
-  { running } {
-    "\n" sys .out .writeall
-    "\e[35m" "scope" eval niceScopeName cat "\e[34m:\e[0m" cat sys .out .writeall
-    "scope" eval _ ==curScope keys { ==name
-      name existingGlobals .has not {
-        " " sys .out .writeall name "=" cat sys .out .writeall curScope name .| objectdump
-      } rep
-    } each
-    "\n" sys .out .writeall
-    stackdump
-
-    [ "\e[34m>" sys .out .writeall
-      quoted { "\e[32m{" } rep "\e[0m \e[1m" ] |cat fold sys .out .writeall
-    65536 sys .in .read "\e[0m" sys .out .writeall _ len { ==line
-      line "^(.*)\n$" regex {
-        eval
-      } {
-        "non-terminal input" dump
-      } ? *
-    } { --
-      0 =running
-    } ? *
-  } loop
-} /open deffd
-
-map ==existingGlobals
-globalScope keys { ==name
-  1 name existingGlobals =[]
-} each
-
-scope open
-
-"\n" sys .out .writeall
-
-# vim: syn=elymas
diff --git a/examples/working-loaded/interactive-stack.test b/examples/working-loaded/interactive-stack.test
new file mode 100644
index 0000000..0365280
--- /dev/null
+++ b/examples/working-loaded/interactive-stack.test
@@ -0,0 +1,196 @@
+{ scope }' =*globalScope
+
+<
+  map ==seenThings # from .hu of rawAddress to some name
+  map ==usedNames # from name to rawAddress
+
+  { ==suggested ==thing
+    thing sys .asm .rawAddress _ ==a txt .produce .hu ==as
+
+    globalScope keys { ==name
+      globalScope name .| sys .asm .rawAddress _ ==a txt .produce .hu ==as
+
+      "\e[2m" name cat "\e[0m" cat =name
+      name as seenThings =[]
+      a name usedNames =[]
+    } each
+
+    { ==i
+      i 0 eq {
+        i suggested *
+      } {
+        i suggested len math .base suggested * |cat fold
+      } ? *
+    } /toName deffst
+
+    as seenThings .has {
+      as seenThings *
+    } {
+      0 ==i
+      {
+        i toName ==name
+        name usedNames .has
+      }' {
+        { 1 add } |=i
+      }' loop
+
+      name as seenThings =[]
+      a name usedNames =[]
+      name
+    } ? *
+  }
+> -- /niceName deffd
+
+{ [ "α" "β" "γ" "δ" "ε" "π" "φ" ] niceName } /niceScopeName deffd
+
+<
+  [ 0 11 range {
+    sys .asm .intToFloat
+  }' each ] =*:FLOAT
+
+  sys .out .|writeall =*out
+
+  "0123456789" ==:base10digits
+  "0123456789ABCDEF" ==:base16digits
+
+  { _ 0 lt { neg "-" }' { "" }' ? * -01
+    [ -01 16 { _ 16 umod base16digits * -01 16 udiv }' rep -- ] reverse str .fromArray cat
+  }' /base16encode64 deffd
+
+  { "\e[1;31m<???>\e[0m" out }" /unknown defvd
+
+  [
+    { "\e[31m" o txt .produce .i cat "\e[0m" cat out }" # integer
+    { "\e[31m\"" o "\"\e[0m" cat cat out }" # string
+    { "\e[31m" out o { ==f 0 ==e "+" ==s 0 ==i
+      f 0 FLOAT lt { 0 FLOAT f sub =f "-" =s }' rep
+      { f 1 FLOAT lt i 500 lt and }' { f 10 FLOAT mul =f e 1 sub =e i 1 add =i }' loop
+      { f 10 FLOAT ge i 500 lt and }' { f 10 FLOAT div =f e 1 add =e i 1 add =i }' loop
+
+      i 500 eq {
+        s
+        f 1 FLOAT lt "0.0e0" "inf" ?
+        cat out
+      }' {
+        {
+          0 ==d
+          1 10 range { ==i f i FLOAT gt { i =d }' rep } each
+          f d sub =f
+          f 10 FLOAT mul =f
+          d base10digits *
+        } /extractDigit deffst
+
+        [
+          0 s *
+          extractDigit
+          0 "." *
+          10 |extractDigit rep
+          0 "e" *
+          e 0 lt {
+            0 e sub =e
+            0 "-" *
+          } rep
+          e 0 eq {
+            0 "0" *
+          } rep
+          [
+            { e } {
+              e 10 mod base10digits *
+              e 10 div =e
+            } loop
+          ] reverse _ len dearray
+        ] str .fromArray out
+      }' ? *
+    } * "\e[0m" out }" # float
+    unknown
+    unknown # extension area
+    { "\e[32m{"
+      o [ /f /g /h /a /b /c /d /e ] niceName cat
+      "\e[32m}\e[0m" cat out
+    }"
+    unknown
+    { "\e[36m["
+      o [ /A /B /C /D /E /F /G /H ] niceName cat
+      "\e[36m]\e[0m" cat out
+    }" # array
+    unknown # function type
+    { "\e[35m<"
+      o niceScopeName cat
+      "\e[35m>\e[0m" cat out
+    }"
+    unknown # name table
+    unknown # stack
+    { "<coroutine: " o sys .asm .rawAddress base16encode64 cat ">" cat out }"
+    unknown
+    unknown
+    unknown
+    { "[" out }"
+    { "{" out }"
+    { "\e[34m|\e[0m" out }"
+    unknown
+  ] /dumpActions deffd
+
+  # dump top stack element
+  { _ ==o sys .typed .type dumpActions * "  " out }
+
+  # dump entire stack
+  { 0 ==i "" ==x
+    { x sys .typed .type 18 neq } {
+      i _' =x
+      { 1 add } |=i
+    } loop
+
+    { 1 sub } |=i
+
+    { i 0 ge } {
+      i _' =x
+      { 1 sub } |=i
+      x objectdump
+      " " out
+    } loop
+
+    "\n" out
+  }
+> -- /stackdump deffd /objectdump deffd
+
+"Welcome to elymas.\n" sys .out .writeall
+
+{ _ ==openedScope enincludeLine =*eval
+  1 ==running
+  { 0 =running } =*quit
+
+  { running } {
+    "\n" sys .out .writeall
+    "\e[35m" "scope" eval niceScopeName cat "\e[34m:\e[0m" cat sys .out .writeall
+    "scope" eval _ ==curScope keys { ==name
+      name existingGlobals .has not {
+        " " sys .out .writeall name "=" cat sys .out .writeall curScope name .| objectdump
+      } rep
+    } each
+    "\n" sys .out .writeall
+    stackdump
+
+    [ "\e[34m>" sys .out .writeall
+      quoted { "\e[32m{" } rep "\e[0m \e[1m" ] |cat fold sys .out .writeall
+    65536 sys .in .read "\e[0m" sys .out .writeall _ len { ==line
+      line "^(.*)\n$" regex {
+        eval
+      } {
+        "non-terminal input" dump
+      } ? *
+    } { --
+      0 =running
+    } ? *
+  } loop
+} /open deffd
+
+map ==existingGlobals
+globalScope keys { ==name
+  1 name existingGlobals =[]
+} each
+
+scope open
+
+"\n" sys .out .writeall
+
+# vim: syn=elymas
-- 
cgit v1.2.3