Библиотека, которая управляет жизненным циклом государственных компонентов. Это вариант https://github.com/stuartsierra/component Project. На данный момент эта библиотека не поддерживает Clojurescript.
Добавьте эту зависимость в свой проект
[net.readmarks/compost "0.2.0"]
См. Тесты для примеров. Объявление компонентов имеет форму
{ :requires #{ :required-component-id-1 :required-component-id-2 }}
:this initial-state
:get ( fn [this] ...) ; ; Returns value of this component that other components will get as dependency.
:start ( fn [this dependency-components-map] ...) ; ; Acquire resources (open connections, start threads ...)
:stop ( fn [this] ...)} ; ; Release resources.Все поля необязательны, по умолчанию:
{ :requires #{}
:this nil
:get identity
:start ( fn [this dependency-components-map] this)
:stop identity} :start and :stop Функции должны вернуть новое значение компонентов :this . Если компонент приобретает ресурсы в :start он должен выпустить их в :stop . Системное объявление - это простая карта
{ :component-1-id component-1-declaration
:component-2-id component-2-declaration
...
}Пример использования жизненного цикла
( require '[net.readmarks.compost :as compost])
( let [s ( compost/start system-map #{ :web-component :some-worker-component })]
( Thread/sleep 5000 )
( compost/stop s))Вы можете спасти современное состояние системы после исключения следующим образом:
( try
( compost/start system-map)
( catch ExceptionInfo ex
( if-let [sys ( compost/ex-system ex)]
( compost/stop sys) ; ;; Handle this system as desired here.
( throw ex))))Эта функция реализована net.readmarks.compost.keeper. Пространство имен. Это пространство имен считается экспериментальным, оно может измениться в любой версии.
Агент («хранитель») имеет текущее состояние системы наряду со исключениями жизненного цикла. Пример использования:
( require '[net.readmarks.compost :as compost])
( require '[net.readmarks.compost.keeper :as keeper])
( def sys ( keeper/keeper system-map))
( keeper/update-keeper! sys compost/start)
; ; Now sys holds current system value and errors if there are any.
; ; (:system @sys) is current system map value.
; ; (:errors @sys) is list of of system lifecycle errors. It is empty if system changes were successful.
; ; You can send these errors into a log, for example:
( keeper/flush-errors! sys println) ; ; The function gets errors one by one.Вы можете адаптировать существующие компоненты следующим образом:
( defn component-using [init using]
{ :requires ( set using)
:this init
:start ( fn [this deps]
( -> ( merge this deps)
component/start)
:stop component/stop})
( def system
{ :conn-source ( component-using
( ->MyConnPool )
[])
:dao ( component-using
( map->MyDbComponent {})
[ :conn-source ])} Обратите внимание, что в отличие от com.stuartsierra.component последовательность nrcompost/stop может отличаться от обратного запуска. Только явно объявленные зависимости уважаются. Если вам нужно учесть неявные зависимости, вы должны добавить дополнительные элементы в компоненты :require коллекций.
Мне нравится, что обеспечивает компонент, но я также хочу
Lifecycle мешает вам, когда вам нужен только специальный компонент. Также требование, чтобы компонент была картой и реализовать жизненный цикл, эффективно ограничивает компонент, быть записью. Это также означает, что иногда люди прибегают к работе, чтобы избежать создания новых типов.Copyright © Petr Gladkikh [email protected]
Распределено по общедоступной лицензии Eclipse либо версии 1.0, либо (по варианту) любой более поздней версии.