Odwiedzający

// Interfejs elementu deklaruje metodę `accept` która przyjmuje
// argument typu interfejs bazowy odwiedzającego.
interface Shape is
    method move(x, y)
    method draw()
    method accept(v: Visitor)

// Każda konkretna klasa elementu musi implementować metodę
// `accept` w taki sposób, aby wywoływała tę metodę
// odwiedzającego, która odpowiada klasie elementu.
class Dot implements Shape is
    // ...

    // Zwróć uwagę, że wywołujemy `visitDot`, a więc metodę
    // zgodną z nazwą bieżącej klasy. Dzięki temu informujemy
    // odwiedzającego o klasie elementu z jakim współpracuje.
    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)


// Interfejs odwiedzającego deklaruje zestaw metod służących
// odwiedzaniu, które odpowiadają poszczególnym klasom
// elementów. Sygnatura metody odwiedzającej pozwala
// odwiedzającemu określić dokładną klasę elementu z jakim ma do
// czynienia.
interface Visitor is
    method visitDot(d: Dot)
    method visitCircle(c: Circle)
    method visitRectangle(r: Rectangle)
    method visitCompoundShape(cs: CompoundShape)

// Konkretni odwiedzający implementują wiele wersji tego samego
// algorytmu, które mogą działać ze wszystkimi konkretnymi
// klasami elementów.
//
// Zaobserwuje się najwięcej korzyści ze stosowania wzorca
// Odwiedzający, gdy ma się do czynienia ze złożoną strukturą
// obiektów, taką jak drzewo kompozytowe. W takim przypadku
// pomocne może być przechowanie jakiegoś pośredniego stanu
// algorytmu w czasie uruchamiania metod odwiedzającego na
// kolejnych obiektach struktury.
class XMLExportVisitor implements Visitor is
    method visitDot(d: Dot) is
        // Eksportuj ID i współrzędne środka kropki.

    method visitCircle(c: Circle) is
        // Eksportuj ID okręgu, współrzędne środka i promień.

    method visitRectangle(r: Rectangle) is
        // Eksportuj ID prostokąta, współrzędne lewego górnego
        // wierzchołka, szerokość i wysokość.

    method visitCompoundShape(cs: CompoundShape) is
        // Eksportuj ID figury oraz listę ID składających się na
        // nią.


// Kod klienta może uruchamiać działania odwiedzającego na
// dowolnym zestawie elementów bez konieczności ustalania ich
// konkretnych klas. Operacja przyjmująca kieruje wywołanie do
// odpowiedniego działania obiektu odwiedzającego.
class Application is
    field allShapes: array of Shapes

    method export() is
        exportVisitor = new XMLExportVisitor()

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