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

lexing working, except it has incorrect column numbers

Browse Source
This commit is contained in:
Richard Harrington 2013-07-04 13:55:46 -04:00
parent d9f03a10fe
commit 896ee4cc52
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/hs_robotwar/core.clj
View File

@ -1,6 +1,6 @@
(ns hs-robotwar.core)
(def registers (set (concat (map #(-> % char str) (range 65 91))
(def registers (set (concat (map #(-> % char str) (range (int \A) (inc (int \Z))))
["AIM" "SHOT" "RADAR" "DAMAGE" "SPEEDX" "SPEEDY" "RANDOM" "INDEX"])))
(def operators #{"=" "<" ">" "#" "+" "-" "*" "/"})
@ -28,7 +28,6 @@
parsing-token? (not (empty? partial-token))
head (str (first line))
tail (rest line)]
(println head current-pos parsing-token? previous-token)
(cond
(or (empty? line) (= ";" head)) (if parsing-token?
(close-partial-token)
@ -42,10 +41,11 @@
; make sure we're not a unary minus sign operator
; by making sure that if we are a minus sign,
; the previous token is, or could represent, a number.
(when (or (not= "-" head)
(digit? (last previous-token))
(registers previous-token))
(recur tail "" current-pos (conj-with-metadata result head current-pos))))
(if (or (not= "-" head)
(digit? (last previous-token))
(registers previous-token))
(recur tail "" current-pos (conj-with-metadata result head current-pos))
(recur tail (str partial-token head) saved-pos result)))
:else (recur tail (str partial-token head) saved-pos result)))))