diff options
author | Jed Barber <jjbarber@y7mail.com> | 2014-12-17 13:41:56 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2014-12-17 13:41:56 +1100 |
commit | a3844616b62aae43e7aa12da6df852628acab504 (patch) | |
tree | 63225e17607d2e13be03887937c60cbd4a850f47 /src/Grasp/Examples/cat.grasp | |
parent | 2700f64b858584167fa5292c810fa67f11640e35 (diff) |
Test Grasp programs for general purpose, arithmetic, simple IO
Diffstat (limited to 'src/Grasp/Examples/cat.grasp')
-rw-r--r-- | src/Grasp/Examples/cat.grasp | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/src/Grasp/Examples/cat.grasp b/src/Grasp/Examples/cat.grasp new file mode 100644 index 0000000..f629ac1 --- /dev/null +++ b/src/Grasp/Examples/cat.grasp @@ -0,0 +1,29 @@ +digraph { + 1 [label="getc"]; + 2 [label="grasp:main"]; + 3 [label="c"]; + 4 [label="add"]; + 5 [label="1"]; + 6 [label="c+1"]; + 7 [label="del"]; + 8 [label="next"]; + 9 [label="new"]; + 10 [label="putc"]; + + 1 -> 2 [label="name"]; + 1 -> 3 [label="out"]; + 1 -> 4 [label="next"]; + 4 -> 5 [label="arg"]; + 4 -> 3 [label="arg"]; + 4 -> 6 [label="out"]; + 4 -> 7 [label="next"]; + 7 -> 8 [label="label"]; + 7 -> 9 [label="next"]; + 7 -> 9 [label="tail"]; + 9 -> 6 [label="cond"]; + 9 -> 9 [label="tail"]; + 9 -> 8 [label="label"]; + 9 -> 10 [label="head"]; + 10 -> 3 [label="in"]; + 10 -> 1 [label="next"]; +}
\ No newline at end of file |