Visitor

// 要素のインターフェースは、accept メソッドを宣言。これは、基底ビジター・
// インターフェースを引数として取る。
interface Shape is
    method move(x, y)
    method draw()
    method accept(v: Visitor)

// 各具象要素クラスは、accept メソッドを実装しなければならない。実装は、
// 要素のクラスに対応したビジターのメソッドを呼び出すようなものでなければ
// ならない。
class Dot implements Shape is
    // ……

    // ここでは現クラスを受け入れる visitDot を呼び出していることに注意。
    // このようにしてビジターに、動作の対象となる要素のクラスを知らせる。
    method accept(v: Visitor) is
        v.visitDot(this)

class Circle implements Shape is
    // ……
    method accept(v: Visitor) is
        v.visitCircle(this)

class Rectangle implements Shape is
    // ……
    method accept(v: Visitor) is
        v.visitRectangle(this)

class CompoundShape implements Shape is
    // ……
    method accept(v: Visitor) is
        v.visitCompoundShape(this)


// Visitor インターフェースは、要素のクラスに応じた訪問メソッドの集まりを
// 宣言。訪問メソッドのシグネチャーから、ビジターは処理対象の要素の正確な
// クラスを特定可能。
interface Visitor is
    method visitDot(d: Dot)
    method visitCircle(c: Circle)
    method visitRectangle(r: Rectangle)
    method visitCompoundShape(cs: CompoundShape)

// ビジターの具象クラスは、同じアルゴリズムのいくつか異なるバージョンを実
// 装し、全具象要素クラスと動作可能。
//
// Composite ツリー等、複雑なオブジェクト構造に対して用いると、Visitor
// パターンの利点を最大限に活用可能。この場合、構造中の種々のオブジェクト
// に対してビジター・メソッドの実行中に、アルゴリズムの中間状態を保存する
// ことが役に立つ場合あり。
class XMLExportVisitor implements Visitor is
    method visitDot(d: Dot) is
        // 点の ID と中心座標をエクスポート。

    method visitCircle(c: Circle) is
        // 円の ID と中心座標と半径をエクスポート。

    method visitRectangle(r: Rectangle) is
        // 長方形の ID と左上の座標と幅と高さをエクスポート。

    method visitCompoundShape(cs: CompoundShape) is
        // 形状の ID と子の ID のリストをエクスポート。


// クライアント・コードは、具象クラスを把握することなく、一連の要素に対し
// てビジター操作を実行可能。accept 操作は、ビジター・オブジェクト内の適
// 切な操作への呼び出しとなる。
class Application is
    field allShapes: array of Shapes

    method export() is
        exportVisitor = new XMLExportVisitor()

        foreach (shape in allShapes) do
            shape.accept(exportVisitor)