Ticket #863: ticket_17B.ObjectDecompilation.tol

Class @Element;
Class @_Container;

// Para evitar los problemas de referencias cíclicas
// que se deben a decompilar naturalmente un objeto que contiene
// referencias a sí mismo, se utiliza una clase intermediaria que
// se encarga de eliminar las referencias cíclicas antes de destruirlo.

// @Container será la clase intermediaria que además puede ofrecer al usuario
// una interfaz (apariencia) similar a la clase-núcleo (@_Container).
// Ésta contiene una instancia de la clase-núcleo y los métodos y atributos
// para ofrecer la misma apariencia y mecanismos que antes.
// Además incluye un método destructor que desarma las refencias cíclicas
// antes de la decompilación de la instancia-núcleo.

Class @Container {
  @_Container _container = @_Container _container;
  Set _.elements = _container::_.elements;
  //Code AddElement = _container::AddElement;
  Real AddElement(Real valor) { _container::AddElement(valor) };
  Real __destroy(Real void) { _container::Clear(?) }
};

// @_Container es la clase núcleo (que antes era @Container)
// sus instancias sólo son tratadas por la clase intermediaria (@_Container).
// Los objetos (@Element) que necesitan conocer información sobre el resto
// de los elementos en el contenedor dispondrán de una referencia a ella.
// Con ella podrán acceder por ejemplo a los otros elementos con los que
// comparten contenedor.

Class @_Container {
  Set _.elements = Copy(Empty);
  Real AddElement(Real valor) {
    @Element element = [[
      @_Container _parent = _this;
      Real _.valor = valor
    ]];
    Set Append(_.elements, [[element]]);
    1
  };
  Real Clear(Real void) {
    Set _.elements := Copy(Empty);
    1
  }
};

Class @Element {
  @_Container _parent;
  Real _.valor
};

// Externamente el manejo de las clases puede ser equivalente
// y el usuario de las mismas no necesita saber que existe la clase
// @_Container.

@Container container;

Real container::AddElement(5);