@k2works/claude-code-booster 2.7.1 → 3.1.0

package/lib/assets/docs/article/functional-desgin-ppp/clojure/14-abstract-server-pattern.md

@@ -0,0 +1,462 @@
+# 第14章: Abstract Server パターン
+
+## はじめに
+
+Abstract Server パターンは、依存関係逆転の原則（DIP）を実現するパターンです。高レベルモジュールが低レベルモジュールの詳細に依存するのではなく、両者が抽象に依存することで疎結合を実現します。
+
+本章では、スイッチとデバイス、リポジトリとサービスの例を通じて、プロトコルによる Abstract Server パターンの実装を学びます。
+
+## 1. パターンの構造
+
+Abstract Server パターンは以下の要素で構成されます：
+
+- **Client**: サービスを利用するモジュール
+- **Abstract Server**: サービスの抽象インターフェース
+- **Concrete Server**: 具体的なサービスの実装
+
+```plantuml
+@startuml
+skinparam classAttributeIconSize 0
+
+class "Client\n(Switch)" as client {
+  +engage(device)
+  +disengage(device)
+  +toggle(device)
+}
+
+interface "Abstract Server\n(Switchable)" as abstract {
+  +turn-on()
+  +turn-off()
+  +is-on?()
+}
+
+class "Concrete Server\n(Light)" as light {
+  +state
+  +turn-on()
+  +turn-off()
+  +is-on?()
+}
+
+class "Concrete Server\n(Fan)" as fan {
+  +state
+  +speed
+  +turn-on()
+  +turn-off()
+  +is-on?()
+}
+
+class "Concrete Server\n(Motor)" as motor {
+  +state
+  +direction
+  +turn-on()
+  +turn-off()
+  +is-on?()
+}
+
+client --> abstract : depends on
+light ..|> abstract
+fan ..|> abstract
+motor ..|> abstract
+
+note right of client
+  Clientは抽象に依存します。
+  具体的な実装を知りません。
+end note
+
+note right of abstract
+  Abstract Serverは
+  インターフェースを定義します。
+  Clojureではプロトコルを使用します。
+end note
+@enduml
+```
+
+## 2. Switchable プロトコル
+
+### Abstract Server の定義
+
+```clojure
+(ns abstract-server.switchable)
+
+(defprotocol Switchable
+  "スイッチ可能なデバイスのインターフェース"
+  (turn-on [this] "デバイスをオンにする")
+  (turn-off [this] "デバイスをオフにする")
+  (is-on? [this] "デバイスがオンかどうかを確認する"))
+```
+
+## 3. Concrete Server: Light
+
+### 実装
+
+```clojure
+(ns abstract-server.light
+  (:require [abstract-server.switchable :as switchable]))
+
+(defrecord Light [state]
+  switchable/Switchable
+  (turn-on [this]
+    (assoc this :state :on))
+  (turn-off [this]
+    (assoc this :state :off))
+  (is-on? [this]
+    (= (:state this) :on)))
+
+(defn make
+  "照明を作成（初期状態: オフ）"
+  []
+  (->Light :off))
+
+(defn make-on
+  "オン状態の照明を作成"
+  []
+  (->Light :on))
+```
+
+## 4. Concrete Server: Fan
+
+### 実装
+
+```clojure
+(ns abstract-server.fan
+  (:require [abstract-server.switchable :as switchable]))
+
+(defrecord Fan [state speed]
+  switchable/Switchable
+  (turn-on [this]
+    (assoc this :state :on :speed (or speed :low)))
+  (turn-off [this]
+    (assoc this :state :off :speed nil))
+  (is-on? [this]
+    (= (:state this) :on)))
+
+(defn make []
+  (->Fan :off nil))
+
+(defn set-speed [fan speed]
+  (if (switchable/is-on? fan)
+    (assoc fan :speed speed)
+    fan))
+```
+
+## 5. Concrete Server: Motor
+
+### 実装
+
+```clojure
+(ns abstract-server.motor
+  (:require [abstract-server.switchable :as switchable]))
+
+(defrecord Motor [state direction]
+  switchable/Switchable
+  (turn-on [this]
+    (assoc this :state :on :direction (or direction :forward)))
+  (turn-off [this]
+    (assoc this :state :off))
+  (is-on? [this]
+    (= (:state this) :on)))
+
+(defn make []
+  (->Motor :off nil))
+
+(defn reverse-direction [motor]
+  (if (switchable/is-on? motor)
+    (let [current (:direction motor)]
+      (assoc motor :direction (if (= current :forward) :reverse :forward)))
+    motor))
+```
+
+## 6. Client: Switch
+
+### 実装
+
+```clojure
+(ns abstract-server.switch
+  (:require [abstract-server.switchable :as switchable]))
+
+(defn engage
+  "スイッチを入れる（デバイスをオンにする）"
+  [device]
+  (switchable/turn-on device))
+
+(defn disengage
+  "スイッチを切る（デバイスをオフにする）"
+  [device]
+  (switchable/turn-off device))
+
+(defn toggle
+  "スイッチを切り替える"
+  [device]
+  (if (switchable/is-on? device)
+    (switchable/turn-off device)
+    (switchable/turn-on device)))
+
+(defn status
+  "デバイスの状態を取得"
+  [device]
+  (if (switchable/is-on? device)
+    :on
+    :off))
+```
+
+### 使用例
+
+```clojure
+(require '[abstract-server.switch :as sw])
+(require '[abstract-server.light :as light])
+(require '[abstract-server.fan :as fan])
+(require '[abstract-server.motor :as motor])
+
+;; 同じSwitchコードで異なるデバイスを操作
+(def l (sw/engage (light/make)))
+(sw/status l) ;; => :on
+
+(def f (sw/engage (fan/make)))
+(sw/status f) ;; => :on
+
+(def m (sw/engage (motor/make)))
+(sw/status m) ;; => :on
+```
+
+## 7. シーケンス図
+
+```plantuml
+@startuml
+actor Client
+participant "Switch" as switch
+participant "Switchable\n(Protocol)" as protocol
+participant "Light" as light
+participant "Fan" as fan
+
+== Light の操作 ==
+Client -> switch : engage(light)
+activate switch
+switch -> protocol : turn-on(light)
+activate protocol
+protocol -> light : turn-on()
+activate light
+light --> protocol : updated-light
+deactivate light
+protocol --> switch : updated-light
+deactivate protocol
+switch --> Client : light-on
+deactivate switch
+
+== Fan の操作 ==
+Client -> switch : engage(fan)
+activate switch
+switch -> protocol : turn-on(fan)
+activate protocol
+protocol -> fan : turn-on()
+activate fan
+fan --> protocol : updated-fan
+deactivate fan
+protocol --> switch : updated-fan
+deactivate protocol
+switch --> Client : fan-on
+deactivate switch
+
+note right
+  Switchは具体的なデバイスを
+  知らずに操作できます。
+  Switchableプロトコルを通じて
+  多態的に動作します。
+end note
+@enduml
+```
+
+## 8. Repository の例
+
+### Abstract Server: Repository プロトコル
+
+```clojure
+(ns abstract-server.repository)
+
+(defprotocol Repository
+  "データリポジトリのインターフェース"
+  (find-by-id [this id] "IDでエンティティを取得")
+  (find-all [this] "全てのエンティティを取得")
+  (save [this entity] "エンティティを保存")
+  (delete [this id] "エンティティを削除"))
+```
+
+### Concrete Server: MemoryRepository
+
+```clojure
+(ns abstract-server.memory-repository
+  (:require [abstract-server.repository :as repo]))
+
+(defrecord MemoryRepository [data]
+  repo/Repository
+  (find-by-id [this id]
+    (get @(:data this) id))
+  (find-all [this]
+    (vals @(:data this)))
+  (save [this entity]
+    (let [id (or (:id entity) (str (java.util.UUID/randomUUID)))
+          entity-with-id (assoc entity :id id)]
+      (swap! (:data this) assoc id entity-with-id)
+      entity-with-id))
+  (delete [this id]
+    (let [entity (get @(:data this) id)]
+      (swap! (:data this) dissoc id)
+      entity)))
+
+(defn make []
+  (->MemoryRepository (atom {})))
+```
+
+### Client: UserService
+
+```clojure
+(ns abstract-server.user-service
+  (:require [abstract-server.repository :as repo]))
+
+(defn create-user [repository name email]
+  (let [user {:name name
+              :email email
+              :created-at (java.util.Date.)}]
+    (repo/save repository user)))
+
+(defn get-user [repository id]
+  (repo/find-by-id repository id))
+
+(defn get-all-users [repository]
+  (repo/find-all repository))
+```
+
+## 9. 依存関係の図
+
+```plantuml
+@startuml
+skinparam classAttributeIconSize 0
+
+package "Application Layer" {
+  class "UserService" as service {
+    +create-user(repo, name, email)
+    +get-user(repo, id)
+    +get-all-users(repo)
+  }
+}
+
+package "Domain Layer" {
+  interface "Repository" as repo {
+    +find-by-id(id)
+    +find-all()
+    +save(entity)
+    +delete(id)
+  }
+}
+
+package "Infrastructure Layer" {
+  class "MemoryRepository" as memRepo {
+    +data: atom
+    +find-by-id(id)
+    +find-all()
+    +save(entity)
+    +delete(id)
+  }
+
+  class "DatabaseRepository" as dbRepo {
+    +connection
+    +find-by-id(id)
+    +find-all()
+    +save(entity)
+    +delete(id)
+  }
+}
+
+service --> repo : depends on
+memRepo ..|> repo
+dbRepo ..|> repo
+
+note right of service
+  UserServiceはRepositoryプロトコルに
+  依存します。具体的な実装は
+  実行時に注入されます。
+end note
+
+note bottom of memRepo
+  テスト時はMemoryRepository、
+  本番時はDatabaseRepositoryを
+  使用できます。
+end note
+@enduml
+```
+
+## 10. パターンの利点
+
+1. **疎結合**: クライアントは具体的な実装を知らない
+2. **テスト容易性**: モック/スタブを簡単に注入可能
+3. **柔軟性**: 実装の交換が容易
+4. **依存関係逆転**: 高レベルモジュールが低レベルモジュールに依存しない
+
+## 11. 関数型プログラミングでの特徴
+
+Clojure での Abstract Server パターンの実装には以下の特徴があります：
+
+1. **プロトコル**: インターフェースを定義
+2. **レコード**: プロトコルを実装するデータ型
+3. **イミュータブル**: 状態変更は新しいレコードを返す
+4. **依存性注入**: 関数の引数としてリポジトリを渡す
+
+```plantuml
+@startuml
+title Clojure での Abstract Server
+
+rectangle "プロトコル (defprotocol)" {
+  card "Switchable" as switchable
+  card "Repository" as repo
+}
+
+rectangle "レコード (defrecord)" {
+  card "Light" as light
+  card "Fan" as fan
+  card "MemoryRepository" as memRepo
+}
+
+rectangle "クライアント関数" {
+  card "switch/engage" as engage
+  card "user-service/create-user" as create
+}
+
+engage --> switchable : 依存
+create --> repo : 依存
+light ..|> switchable : 実装
+fan ..|> switchable : 実装
+memRepo ..|> repo : 実装
+
+note bottom
+  プロトコルを使って抽象化し、
+  レコードで具体的な実装を提供します。
+  クライアントはプロトコルにのみ依存します。
+end note
+@enduml
+```
+
+## まとめ
+
+本章では、Abstract Server パターンについて学びました：
+
+1. **プロトコルによる抽象化**: Switchable、Repository
+2. **レコードによる実装**: Light、Fan、Motor、MemoryRepository
+3. **クライアントの独立性**: Switch、UserService
+4. **依存関係逆転**: 高レベルモジュールが抽象に依存
+
+Abstract Server パターンは、モジュール間の疎結合を実現し、テスト容易性と柔軟性を向上させます。
+
+## 参考コード
+
+本章のコード例は以下のファイルで確認できます：
+
+- ソースコード: `apps/clojure/part5/src/abstract_server/`
+- テストコード: `apps/clojure/part5/spec/abstract_server/`
+
+## 第5部のまとめ
+
+第5部では、生成パターンについて学びました：
+
+- **Abstract Factory パターン**: 関連するオブジェクトのファミリーを一貫して生成
+- **Abstract Server パターン**: 依存関係逆転による疎結合の実現
+
+これらのパターンは、モジュールの独立性を高め、テスト容易性と保守性を向上させます。