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 column numbers working in lexer

Browse Source
This commit is contained in:
Richard Harrington 2013-07-06 02:58:31 -04:00
parent 63d396cf80
commit 244984ab8f
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/hs_robotwar/core.clj
View File

@ -37,14 +37,15 @@
(match [head parsing-token?]
[(:or \; nil) true ] (close-partial-token)
[(:or \; nil) false] result
[(:or \space \t) true ] (recur tail [] saved-pos (close-partial-token))
[(:or \space \t) false] (recur tail [] saved-pos result)
[(_ :guard binary-op?) true ] (recur line [] saved-pos (close-partial-token))
[(:or \space \t) true ] (recur tail [] nil (close-partial-token))
[(:or \space \t) false] (recur tail [] nil result)
[(_ :guard binary-op?) true ] (recur line [] nil (close-partial-token))
[(_ :guard binary-op?) false] (recur tail
[]
current-pos
nil
(conj-with-metadata result (str head) current-pos))
:else (recur tail (conj partial-token head) saved-pos result)))))
[_ true ] (recur tail (conj partial-token head) saved-pos result)
[_ false] (recur tail (conj partial-token head) current-pos result)))))
(def parse