fitterダウンロード - fitterソースコードのダウンロード

fitter

サードパーティ製コンポーネント

1.0.0

ダウンロード

フィッター

Clojureのシステムコンポーネント管理ライブラリ。

同様の目的ライブラリ：

成分
積分剤
マウント
依存関係インジェクション

設計目標

システムコンポーネントの依存関係を単一の場所で説明します。
システムコンポーネントを新しい機能と同じくらい簡単に宣言します。
コンポーネント自体で定義されたアドホックと動的依存関係を許可します。
あらゆる量のコンポーネントを備えたシステムに適合します。
あらゆるシナリオの最大柔軟性。
開発者がシステム全体の状態について推論するのを支援します。

用語

実例
- 便利な何かがインスタンス化された:-)
成分
- 説明インスタンスを初期化/破壊する方法。
レジストリ
- システムの開始/停止操作で使用されるキーとコンポーネントのマップ。
システム
- 従属コンポーネントインスタンスのコレクション。

特徴

コンポーネントのシステム、すべての登録コンポーネント、またはそれらの一部のみを開始/停止します。
システムの再起動でコンポーネントを一時停止/再開します。
コンポーネントインスタンスをグローバルVARS別名マウント（オプション）にバインドします。
システム開始/停止中のコンポーネントの並列実行（オプション）。

基本的な使用法

コンポーネント宣言

最小コンポーネントは、他のコンポーネントインスタンスのシステム「マップ」を受信し、このコンポーネントインスタンスを返す関数です。システム「Map」は、 ILookupインターフェイスのみをサポートしています。システムテストを参照してください。すべてのルックアップは要求されたコンポーネントをインスタンス化し、コンポーネント間の依存関係を動的に形成します。（！）すべてのコンポーネントは、システムキー名によってしっかりと結合されています。

Completeコンポーネントは、その開始、停止、停止の動作を定義します。

( ns readme.component
  ( :require [strojure.fitter.component :as component]))

( def function-component
  " Simple function describes component start behaviour. "
  ( fn [{ :keys [another-component]}]
    ( comment " Use " another-component)
    :instance ))

( def constant-component
  " Just constant component. "
  ( constantly true ))

( def map-component
  " Component described as hash map with required `::component/start` key. "
  { ::component/start ( constantly :instance )
   ::component/stop! ( fn stop! [instance]
                       ( comment " Destroy " instance))
   ::component/suspend! ( fn suspend! [old-instance old-system]
                          ( comment " Suspend " old-instance old-system)
                          ( fn resume [new-system]
                            ( comment " Resume " old-instance new-system)
                            :instance ))})

( def assembled-component
  " Same map as above created using `component/of`. "
  ( component/of ( constantly :instance )
                ( fn stop! [instance]
                  ( comment " Destroy " instance))
                ( fn suspend! [old-instance old-system]
                  ( comment " Suspend " old-instance old-system)
                  ( fn resume [new-system]
                    ( comment " Resume " old-instance new-system)
                    :instance ))))

システム状態

システム状態は、実行中のコンポーネントの可変保持インスタンスです。状態はinitによって初期化され、その後start!そしてstop! 。

( ns readme.system-state
  ( :require [strojure.fitter.system :as system]))

( def ^:private registry
  { ::a ( constantly ::a )
   ::b ( fn [{ ::keys [a]}] { ::b a})})

; ; Initialize system state.
( defonce ^:private system!
  ( system/init { :registry registry}))

; ; Start all system keys.
( system/start! system!)

; ; Stop all running keys.
( system/stop! system!)

; ; The `start!`, `stop!` and `deref` return the actual system map. 
( let [{ ::keys [a b]} ( system/start! system!)]
  ( comment " Work with " a b))
( let [_ ( system/start! system!)
      { ::keys [a b]} ( deref system!)]
  ( comment " Work with " a b))

; ; Start/stop only specific keys.
( system/start! system! { :filter-keys #{ ::a }})
( system/stop! system! { :filter-keys #{ ::a }})

; ; Start/stop system incrementally.
( doto system! ( system/start! { :filter-keys #{ :a }})
              ( system/start! { :filter-keys ( complement #{ :a })}))
( doto system! ( system/stop! { :filter-keys ( complement #{ :a })})
              ( system/stop! { :filter-keys #{ :a }}))

; ; Update registry on start.
( system/start! system! { :registry ( assoc registry ::c ( constantly ::c ))})

; ; Suspend suspendable components on stop and resume them on start.
( doto system! ( system/stop! { :suspend true })
              ( system/start! ))

; ; Execute components in parallel
( doto ( system/init { :parallel true }) ( system/start! )
                                     ( system/stop! ))
( system/start! system! { :parallel true })
( system/stop! system! { :parallel true })

; ; Use `with-open` to stop system automatically.
( with-open [s! ( system/init { :registry registry})]
  ( let [{ ::keys [a b]} ( system/start! s!)]
    ( comment " Work with " a b)))