sequencer.clj 547 B

12345678910111213141516171819202122232425
  1. (ns pubsub.sequencer)
  2. (def routing-table (atom {}))
  3. (defrecord Sequencing [sequence-number
  4. group-local-sequencer-number
  5. forwarding-table
  6. reverse-path-table
  7. output-buffer ; channel?
  8. input-buffer])
  9. (defrecord SequencerNode [ingress
  10. distribute])
  11. (def ingress (chan))
  12. (def distribute {:va (chan)
  13. :ca (chan)
  14. :ir (chan)})
  15. (defn sequence []
  16. (let []
  17. ()))