git clone ''

(ql:quickload :cdorrat.reduce-fsm)



reduce-fsm provides a simple way to specify clojure finite state machines, it allows you to:

All generated state machines are plain clojure functions and read events from clojure sequences. Events are dispatched with core.match and allow the use of all match features (guards, destructuring, regex matching, etc.)

Documentation and Source


The fastest way to use this library is with Leiningen. Add the following to your project.clj dependencies:

[reduce-fsm "0.1.4"]

Use via:

(require '[reduce-fsm :as fsm])


Basic FSM

The following example counts the number of times “ab” occurs in a sequence.

(defn inc-val [val & _] (inc val))

(fsm/defsm count-ab
    \a -> :found-a]
    \a ->  :found-a
    \b -> {:action inc-val} :start
    _ -> :start]])

;; We can use the generated fsm like any function
(map (partial count-ab 0) ["abaaabc" "aaacb" "bbbcab"])
;; returns => (2 0 1)

(fsm/show-fsm count-ab)
;; displays the fsm diagram below

show-fsm output

Incremental FSM

The following example repeats the state machine from the Basic FSM example but uses function calls to provide events instead of clojure sequences. This can be useful when you have multiple event sources or events are generated by callbacks.

(defn inc-val [val & _] (inc val))

(fsm/defsm-inc count-ab
    \a -> :found-a]
    \a ->  :found-a
    \b -> {:action inc-val} :start
    _ -> :start]])

;; create an instance of the fsm with an initial value of 0
(def fsm-state (atom (count-ab 0)))

;; update the state with a few events
(swap! fsm-state fsm/fsm-event \a)
(swap! fsm-state fsm/fsm-event \a)
(swap! fsm-state fsm/fsm-event \b)

(:value @fsm-state)
;; returns the current accumulated value => 1 

(:state @fsm-state)
;; the current state of the fsm => :start

;; count the number of ab occurences in a string
(:value (reduce fsm/fsm-event (count-ab 0) "abaaabc"))
;; => 2


#### Generating Lazy Sequences

The fsm-seq functions return lazy sequences of values created by the emit function when a state change occurs. 
This example looks for log lines where the sequence of events was (a,c) instead of the expected (a,b,c) and
adds the unexpected event to the output sequence. 

(defn emit-evt [val evt] evt)

(defsm-seq log-search
    #".*event a" -> :found-a]
    #".*event b" -> :found-b
    #".*event c" -> {:emit emit-evt} :start]
    #".*event c" -> :start]])

;; The resulting function accepts a sequence of events 
;; and returns a lazy sequence of emitted values
(take 2 (log-search (cycle ["1 event a"
                            "2 event b"
                            "3 event c"
                            "another event"
                            "4 event a"
                            "event x"
                            "5 event c"])))

;; returns => ("5 event c" "5 event c")

(fsm/show-fsm log-search)
;; displays the image below

show-fsm output

Stateful Filtering

States in filters are defined as passing values (default) or suppressing them {:pass false}. For each event the filter will return the pass value of the state it is in after processing the event (input sequence element).

The following example suppresses values from the time a 3 is encountered until we see a 6.

(defsm-filter sample-filter
    3 -> :suppressing]
   [:suppressing {:pass false}
    6 -> :initial]])

;; The resulting fsm is used with the clojure.core/filter and remove functions like this.
(filter (sample-filter) [1 2 3 4 5 1 2 6 1 2])
;; returns => (1 2 6 1 2)

(fsm/show-fsm sample-filter)
;; displays the diagram below

show-fsm output

Different dispatch types

When defining a state machine the matching rules for a transition only use the current event by default, by adding the :dispatch option you can make transitions conditional on the state as well as the current event. The following dispatch types are supported:

The following example demonstrates :event-acc-vec dispatch.

(defn should-transition? [[state event]]
  (= (* state 2) event))

(defn event-is-even? [[state event]]
  (even? event))

(defn inc-count [cnt & _ ]
  (inc cnt))

(defn reset-count [& _]

;; transition to the next state when we get a value thats twice the number of even events we've seen
(fsm/defsm even-example 
         [_ :guard should-transition?] -> {:action reset-count} :next-state
         [_ :guard event-is-even?] -> {:action inc-count} :start]
        [:next-state ,,,]]
       :default-acc  0
       :dispatch :event-acc-vec)

(even-example [1 1 2])   ;; => 1 (the number of even events)
(even-example [1 2 2 4]) ;; => 0 (we transitioned to next state)

Other examples

There are additional exmaples on github in the examples and test directories including:


Copyright (C) 2011 Cameron Dorrat

Distributed under the Eclipse Public License, the same as Clojure.