From 257bd248b0e8bbf3e2ab6d5c7ce81b2bf2fbff34 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Fri, 19 Dec 2014 19:05:48 +1100
Subject: Slightly more advanced grasp test programs
---
src/Grasp/Examples/call_ret.grasp | 19 +++++++++++++++++++
src/Grasp/Examples/gets_stdin.grasp | 10 ++++++++++
src/Grasp/Examples/helloworld.grasp | 8 ++++++++
src/Grasp/Examples/implicit_push.grasp | 8 ++++++++
src/Grasp/Examples/pick.grasp | 18 ++++++++++++++++++
src/Grasp/Examples/pop.grasp | 12 ++++++++++++
src/Grasp/Examples/pop_empty.grasp | 8 ++++++++
src/Grasp/Examples/push.grasp | 10 ++++++++++
src/Grasp/Examples/push_empty.grasp | 8 ++++++++
src/Grasp/Examples/puts_list.grasp | 20 ++++++++++++++++++++
10 files changed, 121 insertions(+)
create mode 100644 src/Grasp/Examples/call_ret.grasp
create mode 100644 src/Grasp/Examples/gets_stdin.grasp
create mode 100644 src/Grasp/Examples/helloworld.grasp
create mode 100644 src/Grasp/Examples/implicit_push.grasp
create mode 100644 src/Grasp/Examples/pick.grasp
create mode 100644 src/Grasp/Examples/pop.grasp
create mode 100644 src/Grasp/Examples/pop_empty.grasp
create mode 100644 src/Grasp/Examples/push.grasp
create mode 100644 src/Grasp/Examples/push_empty.grasp
create mode 100644 src/Grasp/Examples/puts_list.grasp
(limited to 'src/Grasp/Examples')
diff --git a/src/Grasp/Examples/call_ret.grasp b/src/Grasp/Examples/call_ret.grasp
new file mode 100644
index 0000000..a27286e
--- /dev/null
+++ b/src/Grasp/Examples/call_ret.grasp
@@ -0,0 +1,19 @@
+digraph {
+ 1 [label="call"]
+ 2 [label="puts"]
+ 3 [label="grasp:main"]
+ 4 [label="myfunc"]
+ 5 [label="failure"]
+ 6 [label="set"]
+ 7 [label="success"]
+ 8 [label="ret"]
+
+ 1 -> 3 [label="name"]
+ 1 -> 2 [label="next"]
+ 1 -> 4 [label="func"]
+ 6 -> 4 [label="name"]
+ 6 -> 8 [label="next"]
+ 6 -> 7 [label="in"]
+ 2 -> 5 [label="in"]
+ 1 -> 5 [label="out"]
+}
\ No newline at end of file
diff --git a/src/Grasp/Examples/gets_stdin.grasp b/src/Grasp/Examples/gets_stdin.grasp
new file mode 100644
index 0000000..6bdcc0d
--- /dev/null
+++ b/src/Grasp/Examples/gets_stdin.grasp
@@ -0,0 +1,10 @@
+digraph {
+ 1 [label="gets"]
+ 2 [label="grasp:main"]
+ 3 [label="out"]
+ 4 [label="thing"]
+
+ 1 -> 2 [label="name"]
+ 1 -> 3 [label="out"]
+ 1 -> 4 [label="label"]
+}
\ No newline at end of file
diff --git a/src/Grasp/Examples/helloworld.grasp b/src/Grasp/Examples/helloworld.grasp
new file mode 100644
index 0000000..c55a79b
--- /dev/null
+++ b/src/Grasp/Examples/helloworld.grasp
@@ -0,0 +1,8 @@
+digraph {
+ 1 [label="puts"]
+ 2 [label="grasp:main"]
+ 3 [label="Hello world!"]
+
+ 1 -> 2 [label="name"]
+ 1 -> 3 [label="in"]
+}
\ No newline at end of file
diff --git a/src/Grasp/Examples/implicit_push.grasp b/src/Grasp/Examples/implicit_push.grasp
new file mode 100644
index 0000000..c104ef1
--- /dev/null
+++ b/src/Grasp/Examples/implicit_push.grasp
@@ -0,0 +1,8 @@
+digraph {
+ 1 [label="1"]
+ 2 [label="grasp:main"]
+ 3 [label="empty"]
+
+ 1 -> 2 [label="name"]
+ 1 -> 3 [label="stack"]
+}
\ No newline at end of file
diff --git a/src/Grasp/Examples/pick.grasp b/src/Grasp/Examples/pick.grasp
new file mode 100644
index 0000000..8fa78d8
--- /dev/null
+++ b/src/Grasp/Examples/pick.grasp
@@ -0,0 +1,18 @@
+digraph {
+ 1 [label="pick"]
+ 2 [label="grasp:main"]
+ 3 [label="first"]
+ 4 [label="second"]
+ 5 [label="third"]
+ 6 [label="empty"]
+ 7 [label="out"]
+ 8 [label="1"]
+
+ 1 -> 2 [label="name"]
+ 1 -> 3 [label="stack"]
+ 1 -> 8 [label="depth"]
+ 3 -> 4 [label="next"]
+ 4 -> 5 [label="next"]
+ 5 -> 6 [label="next"]
+ 1 -> 7 [label="out"]
+}
\ No newline at end of file
diff --git a/src/Grasp/Examples/pop.grasp b/src/Grasp/Examples/pop.grasp
new file mode 100644
index 0000000..804c903
--- /dev/null
+++ b/src/Grasp/Examples/pop.grasp
@@ -0,0 +1,12 @@
+digraph {
+ 1 [label="pop"]
+ 2 [label="grasp:main"]
+ 3 [label="empty"]
+ 4 [label="item"]
+ 5 [label="out"]
+
+ 1 -> 2 [label="name"]
+ 1 -> 4 [label="stack"]
+ 4 -> 3 [label="next"]
+ 1 -> 5 [label="out"]
+}
\ No newline at end of file
diff --git a/src/Grasp/Examples/pop_empty.grasp b/src/Grasp/Examples/pop_empty.grasp
new file mode 100644
index 0000000..f1a5f35
--- /dev/null
+++ b/src/Grasp/Examples/pop_empty.grasp
@@ -0,0 +1,8 @@
+digraph {
+ 1 [label="pop"]
+ 2 [label="grasp:main"]
+ 3 [label="empty"]
+
+ 1 -> 2 [label="name"]
+ 1 -> 3 [label="stack"]
+}
\ No newline at end of file
diff --git a/src/Grasp/Examples/push.grasp b/src/Grasp/Examples/push.grasp
new file mode 100644
index 0000000..11aa913
--- /dev/null
+++ b/src/Grasp/Examples/push.grasp
@@ -0,0 +1,10 @@
+digraph {
+ 1 [label="push"]
+ 2 [label="grasp:main"]
+ 3 [label="empty"]
+ 4 [label="abc"]
+
+ 1 -> 2 [label="name"]
+ 1 -> 3 [label="stack"]
+ 1 -> 4 [label="in"]
+}
\ No newline at end of file
diff --git a/src/Grasp/Examples/push_empty.grasp b/src/Grasp/Examples/push_empty.grasp
new file mode 100644
index 0000000..41dc8c2
--- /dev/null
+++ b/src/Grasp/Examples/push_empty.grasp
@@ -0,0 +1,8 @@
+digraph {
+ 1 [label="push"]
+ 2 [label="grasp:main"]
+ 3 [label="empty"]
+
+ 1 -> 2 [label="name"]
+ 1 -> 3 [label="stack"]
+}
\ No newline at end of file
diff --git a/src/Grasp/Examples/puts_list.grasp b/src/Grasp/Examples/puts_list.grasp
new file mode 100644
index 0000000..b8f1b17
--- /dev/null
+++ b/src/Grasp/Examples/puts_list.grasp
@@ -0,0 +1,20 @@
+digraph {
+ 1 [label="puts"]
+ 2 [label="grasp:main"]
+ 3 [label="79"]
+ 4 [label="117"]
+ 5 [label="116"]
+ 6 [label="112"]
+ 7 [label="117"]
+ 8 [label="116"]
+ 9 [label="0"]
+
+ 1 -> 2 [label="name"]
+ 1 -> 3 [label="in"]
+ 3 -> 4 [label="next"]
+ 4 -> 5 [label="next"]
+ 5 -> 6 [label="next"]
+ 6 -> 7 [label="next"]
+ 7 -> 8 [label="next"]
+ 8 -> 9 [label="next"]
+}
\ No newline at end of file
--
cgit