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

Working probabilities on actions.

Browse source
This commit is contained in:
Simon Brooke 2014-07-07 23:05:07 +01:00
parent 727e5ccb11
commit 9fd29fab53
1 changed files with 20 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
src/mw_parser/core.clj
View file

@ -268,11 +268,27 @@
(parse-actions left (rest remainder)) (parse-actions left (rest remainder))
true (list left))))) true (list left)))))
(defn parse-probability
"Parse a probability of an action from this collection of tokens"
[previous [n CHANCE IN m & tokens]]
(cond
(and (= CHANCE "chance")(= IN "in"))
(let [[action remainder] (parse-actions previous tokens)]
(cond action
[(list 'cond
(list '<
(list 'rand
(first (parse-simple-value (list m) true)))
(first (parse-simple-value (list n) true)))
action) remainder]))))
(defn parse-right-hand-side (defn parse-right-hand-side
"Parse the right hand side ('then...') of a production rule." "Parse the right hand side ('then...') of a production rule."
[tokens] [[THEN & tokens]]
(if (= (first tokens) "then") (if (= THEN "then")
(parse-actions nil (rest tokens)))) (or
(parse-probability nil tokens)
(parse-actions nil tokens))))
(defn parse-rule (defn parse-rule
"Parse a complete rule from this string or sequence of string tokens." "Parse a complete rule from this string or sequence of string tokens."
@ -286,7 +302,7 @@
))) )))
(defn compile-rule (defn compile-rule
"Parse this `rule`, a string conforming to the grammar of MicroWorld rules, "Parse this `rule-text`, a string conforming to the grammar of MicroWorld rules,
into Clojure source, and then compile it into an anonymous into Clojure source, and then compile it into an anonymous
function object, getting round the problem of binding mw-engine.utils in function object, getting round the problem of binding mw-engine.utils in
the compiling environment." the compiling environment."