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

got prettyprinting working

Browse Source
This commit is contained in:
Richard Harrington 2013-07-03 14:01:44 -04:00
parent 857e1d3d0f
commit f06ae14164
1 changed files with 12 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/hs_robotwar/core.clj
View File

@ -35,31 +35,27 @@
(recur rest-of-line "" pos (conj-to-result partial-token))
(recur rest-of-line "" pos result))
(= \- first-char) (when (and (int-str? (str (second line)))
(not (or (int-str? previous-token)
(registers previous-token))))
(not (or (int-str? previous-token)
(registers previous-token))))
; if true => the minus sign is the beginning of a number
(recur rest-of-line (str first-char) (new-pos) result))
(recur rest-of-line (str first-char) (new-pos) result))
(operators first-char) (recur rest-of-line "" (new-pos) (conj-to-result (str first-char)))
:else (recur rest-of-line (str partial-token first-char) pos result)))))
; (def prettyprint-tokens [token-seq]
; (map #(println (:column %) (:string %))))
; [{:string "IF", :column 0}
; {:string "DAMAGE", :column 0}
; {:string "#", :column 0}
; {:string "D", :column 10}
; {:string "GOTO", :column 10}
; {:string "MOVE", :column 10}]
(defn pretty-print-tokens [token-seq]
(clojure.string/join
"\n"
(map #(format "%2d %s" (:column %) (:string %))
token-seq)))
(defn ppt [token-seq]
(println (pretty-print-tokens token-seq)))
; (def error-type-map
; {:parse-error "Parse Error"