aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--cmd.go10
-rw-r--r--parser.y9
-rw-r--r--quad.go11
3 files changed, 24 insertions, 6 deletions
diff --git a/cmd.go b/cmd.go
new file mode 100644
index 0000000..50b0179
--- /dev/null
+++ b/cmd.go
@@ -0,0 +1,10 @@
+package main
+
+import "os"
+
+func cmd(c string) {
+ switch c {
+ case "OFF", "off":
+ os.Exit(0)
+ }
+}
diff --git a/parser.y b/parser.y
index 3b084f9..729d5ea 100644
--- a/parser.y
+++ b/parser.y
@@ -1,10 +1,7 @@
%{
package main
-import (
- "fmt"
- "os"
-)
+import "fmt"
%}
%union {
@@ -130,9 +127,9 @@ adverb
| JOT
sysvar
- : QUAD STRING
+ : QUAD STRING { fmt.Println(quad(string($2))) }
syscmd
- : RBRACE STRING { if $2 == "off" { os.Exit(0) } }
+ : RBRACE STRING { cmd(string($2)) }
%%
diff --git a/quad.go b/quad.go
new file mode 100644
index 0000000..72168a6
--- /dev/null
+++ b/quad.go
@@ -0,0 +1,11 @@
+package main
+
+var IO = 1
+
+func quad(q string) int {
+ switch q {
+ case "IO", "io":
+ return IO
+ }
+ return -1
+}