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

halfway towards converted the lexer to just use regular expressions

Browse Source
This commit is contained in:
Richard Harrington 2013-07-13 12:17:09 -04:00
parent cdfb630712
commit 5cbda73aba
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/hs_robotwar/core.clj
View File

@ -4,14 +4,27 @@
(use '[clojure.set :only (union)])
(use '[clojure.string :only (split join)])
(def operators "-+*/=#<>")
(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 (set (map str operators))
#{"TO" "IF" "GOTO" "GOSUB" "ENDSUB"}))
(def commands (union operators-set #{"TO" "IF" "GOTO" "GOSUB" "ENDSUB"}))
; TODO: FINISH THIS METHOD, AND CONVERT THE WHOLE LEXER TO REGEX
(defn re-seq-with-pos
[initial-s]
(let [len (count initial-s)]
(loop [s initial-s, pos 0, acc []]
(cond
(empty? s) acc
(
(defn conj-with-metadata
[coll s n]