• Home
• com.indoles.clj
• state-chan
• 0.1.1
• source code
• state_chan.clj

×

Project download

Many resources are needed to download a project. Please understand that we have to compensate our server costs. Thank you in advance.
Project price only 1 $

You can buy this project and download/modify it how often you want.

com.indoles.clj.state_chan.clj Maven / Gradle / Ivy

(ns com.indoles.clj.state-chan
  (:require [clojure.core.async :as async]))

(defn init
  ([ch init-state]
     (async/go-loop [req ch
                     state init-state
                     item (async/! ch
                         (if modified
                           msg
                           (fn [item] (let [n (msg item)]
                                       item))))))
  ([ch msg]
     (send-msg ch msg true)))

(defn receive-msg [ch]
  (async/! rep-ch ret))
                           ret))
               modified)
     (receive-msg rep-ch))
  ([ch rep-ch f]
     (respond-to ch rep-ch f true))
  ([ch f]
     (let [rep-ch (async/chan)
           ret (respond-to ch rep-ch f)]
       (async/close! rep-ch)
       ret)))

(defn state [ch]
  (respond-to ch identity))