Abstract Factory

// 抽象ファクトリー・インターフェースは、異なる抽象的なプロダクトを返す一
// 連のメソッドを宣言。これらの製品はファミリーと呼ばれ、ある高レベルな
// テーマや概念に関連する。通常同一のファミリーのプロダクト同士は、協力し
// て動作可能。プロダクトのファミリーにはいくつかの異種があり、ある異種の
// プロダクトは別の異種のプロダクトとの互換性を欠く。
interface GUIFactory is
    method createButton():Button
    method createCheckbox():Checkbox


// 具象ファクトリーは、同一の異種に属するプロダクトのファミリーを生成する。
// ファクトリーにより、生成されるプロダクト同士が互換であることが保証さ
// れる。具象ファクトリーのメソッドのシグネチャーは、抽象プロダクトの返却
// を示唆しているが、メソッド内部では具象プロダクトのインスタンスが生成さ
// れる。
class WinFactory implements GUIFactory is
    method createButton():Button is
        return new WinButton()
    method createCheckbox():Checkbox is
        return new WinCheckbox()

// 各具象ファクトリーは、プロダクトの異種に対応。
class MacFactory implements GUIFactory is
    method createButton():Button is
        return new MacButton()
    method createCheckbox():Checkbox is
        return new MacCheckbox()


// プロダクト・ファミリー中の個別のプロダクトは、それぞれその基底インター
// フェースを持つ。プロダクトの全異種は、このインターフェースを実装しなけ
// ればならない。
interface Button is
    method paint()

// 具象プロダクトは、対応する具象ファクトリーが生成する。
class WinButton implements Button is
    method paint() is
        // ボタンを Windows 風に描画。

class MacButton implements Button is
    method paint() is
        // ボタンを macOS 風に描画。

// これは、もう一つのプロダクトの基底インターフェース。全プロダクトは互い
// にやりとりできるが、同一の異種のプロダクト同士間でのみ適切な動作が可能。
interface Checkbox is
    method paint()

class WinCheckbox implements Checkbox is
    method paint() is
        // チェックボックスを Windows 風に描画。

class MacCheckbox implements Checkbox is
    method paint() is
        // チェックボックスを macOS 風に描画。


// クライアント・コードは、ファクトリーやプロダクトと、抽象型、つまり、
// GUIFactory、Button、Checkbox を介してのみ動作する。これにより、ど
// んなファクトリーやプロダクトのサブクラスでもクライアント・コードに機能
// を損なわずに渡すことが可能。
class Application is
    private field factory: GUIFactory
    private field button: Button
    constructor Application(factory: GUIFactory) is
        this.factory = factory
    method createUI() is
        this.button = factory.createButton()
    method paint() is
        button.paint()


// アプリケーションは、現在の構成や環境設定に応じてファクトリーの型を選び、
// 実行時に（通常は初期化処理中に）生成。
class ApplicationConfigurator is
    method main() is
        config = readApplicationConfigFile()

        if (config.OS == "Windows") then
            factory = new WinFactory()
        else if (config.OS == "Mac") then
            factory = new MacFactory()
        else
            throw new Exception("Error! Unknown operating system.")

        Application app = new Application(factory)