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

Merge branch 'kevinscodereview'

Browse Source
This commit is contained in:
Richard Harrington 2013-07-16 11:27:08 -04:00
commit 92d918fef3
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/hs_robotwar/core.clj
View File

@ -63,18 +63,20 @@
(def return-err (ignoring-args-thunk "Invalid word or symbol"))
(def parser-priority
[[registers :register]
[commands :command]
[str->int :number]
[valid-word :label]
[return-err :error]])
(defn parse-token
"takes a single token and adds the appropriate metadata"
[{token-str :token-str, pos :pos}]
(some
(fn [[parser token-type]]
(when-let [token-val (parser token-str)]
{:val token-val, :type token-type, :pos pos}))
[[registers :register]
[commands :command]
[str->int :number]
[valid-word :label]
[return-err :error]]))
"takes a single token and adds the appropriate metadata"
[{:keys [token-str pos]}]
(first (for [[parser token-type] parser-priority
:let [token-val (parser token-str)]
:when token-val]
{:val token-val, :type token-type, :pos pos})))
(def value-type? #{:number :register})