From 92b6155a1c3a209936dddebb8bf3372ebee78f94 Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Mon, 2 Sep 2013 11:27:01 +0200
Subject: I CAN HAZ TCP/IP CONNECTION!

Very crappy HTTP client:

"drahflow.name:80" net .tcp .connect "+" via
"GET / HTTP/1.0\n\n" +writeall
4096 +read dump
---
 examples/working-compiler/deffd.test         |  8 +++++++
 examples/working-compiler/defvs.test         | 33 ++++++++++++++++++++++++++++
 examples/working-compiler/lookup-constant.ey |  7 ++++++
 examples/working-compiler/lookup-dynamic.ey  |  7 ++++++
 examples/working-compiler/lookup-static.ey   |  7 ++++++
 5 files changed, 62 insertions(+)
 create mode 100644 examples/working-compiler/deffd.test
 create mode 100644 examples/working-compiler/defvs.test
 create mode 100644 examples/working-compiler/lookup-constant.ey
 create mode 100644 examples/working-compiler/lookup-dynamic.ey
 create mode 100644 examples/working-compiler/lookup-static.ey

(limited to 'examples/working-compiler')

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
-- 
cgit v1.2.3