Apple-2-SW/robotwar
1
0
Fork 0
mirror of https://github.com/richardharrington/robotwar.git synced 2024-06-11 21:29:28 +00:00
Code Issues Projects Releases Wiki Activity

minor refactoring of adding operators to set of commands

Browse Source
This commit is contained in:
Richard Harrington 2013-07-13 13:06:48 -04:00
parent 0ca4fac91c
commit 90152aa425
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/hs_robotwar/core.clj
View File

@ -5,13 +5,11 @@
(def operators "-+*/=#<>")
(def lex-re (re-pattern (str "[" operators "]|[^" operators "\\s]+")))
(def operators-set (set (map str operators)))
(def registers (union (set (map #(-> % char str) (range (int \A) (inc (int \Z)))))
#{"AIM" "SHOT" "RADAR" "DAMAGE" "SPEEDX" "SPEEDY" "RANDOM" "INDEX"}))
(def commands (union operators-set #{"TO" "IF" "GOTO" "GOSUB" "ENDSUB"}))
(def commands (union (set (map str operators))
#{"TO" "IF" "GOTO" "GOSUB" "ENDSUB"}))
(defn re-seq-with-pos
"returns a sequence of 2-element vectors: [match position]"
@ -33,6 +31,8 @@
[s n]
{:token-str s, :pos n})
(def lex-re (re-pattern (str "[" operators "]|[^" operators "\\s]+")))
(defn lex-line
[line]
(map #(apply build-lex-metadata %)