aboutsummaryrefslogtreecommitdiff
path: root/examples/working-compiler
diff options
context:
space:
mode:
Diffstat (limited to 'examples/working-compiler')
-rw-r--r--examples/working-compiler/deffd.test8
-rw-r--r--examples/working-compiler/defvs.test33
-rw-r--r--examples/working-compiler/lookup-constant.ey7
-rw-r--r--examples/working-compiler/lookup-dynamic.ey7
-rw-r--r--examples/working-compiler/lookup-static.ey7
5 files changed, 62 insertions, 0 deletions
diff --git a/examples/working-compiler/deffd.test b/examples/working-compiler/deffd.test
new file mode 100644
index 0000000..e1877e7
--- /dev/null
+++ b/examples/working-compiler/deffd.test
@@ -0,0 +1,8 @@
+1 --
+{ "here" } /foo deffd
+{ foo } /bar deffd
+{ bar } /quux deffd
+quux
+--
+quux
+die
diff --git a/examples/working-compiler/defvs.test b/examples/working-compiler/defvs.test
new file mode 100644
index 0000000..31f10cd
--- /dev/null
+++ b/examples/working-compiler/defvs.test
@@ -0,0 +1,33 @@
+{
+ "herea" /fooa defvs
+ "hereb" /foob defvs
+ "herec" /fooc defvs
+ "hered" /food defvs
+ "heree" /fooe defvs
+ "heref" /foof defvs
+ "hereg" /foog defvs
+ "hereg" /fooga defvs
+ "hereg" /foogb defvs
+ "hereg" /foogc defvs
+ "hereg" /foogd defvs
+ "hereg" /fooge defvs
+ "hereg" /foogf defvs
+ "hereg" /foogg defvs
+ "hereg" /foogh defvs
+ "hereg" /foogi defvs
+ "hereg" /foogj defvs
+ "hereh" /fooh defvs
+ "herei" /fooi defvs
+ "herej" /fooj defvs
+ "herek" /fook defvs
+ "herel" /fool defvs
+ "herem" /foom defvs
+ "heren" /foon defvs
+ "hereo" /fooo defvs
+ { { foon } } * /bar deffd
+ { bar } /quux deffd
+ quux
+ quux
+} *
+--
+die
diff --git a/examples/working-compiler/lookup-constant.ey b/examples/working-compiler/lookup-constant.ey
new file mode 100644
index 0000000..b7802c8
--- /dev/null
+++ b/examples/working-compiler/lookup-constant.ey
@@ -0,0 +1,7 @@
+0 ==:someName
+
+{ { {
+ 5000000 { someName -- } rep
+} } } * * *
+
+"done" dump
diff --git a/examples/working-compiler/lookup-dynamic.ey b/examples/working-compiler/lookup-dynamic.ey
new file mode 100644
index 0000000..30a1f39
--- /dev/null
+++ b/examples/working-compiler/lookup-dynamic.ey
@@ -0,0 +1,7 @@
+0 ==?someName
+
+{ { {
+ 5000000 { someName -- } rep
+} } } * * *
+
+"done" dump
diff --git a/examples/working-compiler/lookup-static.ey b/examples/working-compiler/lookup-static.ey
new file mode 100644
index 0000000..1a45e9a
--- /dev/null
+++ b/examples/working-compiler/lookup-static.ey
@@ -0,0 +1,7 @@
+0 ==someName
+
+{ { {
+ 5000000 { someName -- } rep
+} } } * * *
+
+"done" dump