simon/mw-engine
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Almost working; rule editor doesn't save.

Browse source
This commit is contained in:
Simon Brooke 2014-07-13 23:55:18 +01:00
parent 5bfddf2e28
commit 76ab08534c
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/mw_engine/core.clj
View file

@ -26,14 +26,22 @@
;; rules are applied in turn until one matches. Once one rule has matched no ;; rules are applied in turn until one matches. Once one rule has matched no
;; further rules can be applied. ;; further rules can be applied.
(defn- transform-cell (defn- apply-rules
"Derive a cell from this cell of this world by applying these rules." "Derive a cell from this cell of this world by applying these rules."
[cell world rules] [cell world rules]
(cond (empty? rules) cell (cond (empty? rules) cell
true (let [result (apply (eval (first rules)) (list cell world))] true (let [result (apply (eval (first rules)) (list cell world))]
(cond result result (cond result result
true (transform-cell cell world (rest rules)))))) true (apply-rules cell world (rest rules))))))
(defn- transform-cell
"Derive a cell from this cell of this world by applying these rules. If an
exception is thrown, cache its message on the cell and set state to error"
[cell world rules]
(try
(apply-rules cell world rules)
(catch Exception e (merge {:state :error :error (.getMessage e)} cell))))
(defn- transform-world-row (defn- transform-world-row
"Return a row derived from this row of this world by applying these rules to each cell." "Return a row derived from this row of this world by applying these rules to each cell."
[row world rules] [row world rules]