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

added code to handler to send simulations to browser

Browse Source
This commit is contained in:
Richard Harrington 2013-08-17 14:57:13 -04:00
parent 295a8fc007
commit eccfc3fff5
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/robotwar/handler.clj
View File

@ -18,11 +18,14 @@
(send a (constantly (drop n coll)))
(take n coll)))
(def sim-worlds (agent (core/sim-worlds 25)))
(defroutes app-routes
(GET "/" [] "Hello World, Welcome to Robotwar.")
(GET "/json-test" [] (response/response {:foo 6 :bar 8}))
(GET "/programs" [] (response/response test-programs/programs))
(GET "/simulations" [] (response/response (take 5000 (core/sim-worlds 25))))
(GET "/sim-worlds/:n" [n] (response/response
(take-drop-send sim-worlds (Integer/parseInt n))))
(route/resources "/")
(route/not-found "Not Found"))