¿El problema de la referencia circular de unidades es propio de Object Pascal?

[kakarotv5]

Empezado por Neftali

Hay un caso en que a mi me ha salido bastante.
Imagina las clases de un Frame de persistencia. Cada clase en una Unit, para ser ordenado.
Las relaciones recíprocas entre dos tablas se convierten en referencias circulares entre units.

Por ejemplo:
Persona está relacionado con empresa (pertenece), pero empresa también está relacionado con persona (contacto).

Alguien que me entiende.

Vale, os pongo un ejemplo que se me acaba de ocurrir:

Imaginad un dispositivo que además de servir de entrada de datos sirve de salida también, este dispositivo está controlado por una unidad de control.

Tenemos el siguiente funcionamiento:

1) El dispositivo de entrada salida envía una entrada a la unidad de control y esta la almacena.
2) La unidad de control envía un dato al dispositivo de entrada salida y este genera un mensaje.

A mi se me ocurre esta implementación a priori:

Código Delphi [-]
unit uEntradaSalida;

interface

uses StdCtrls, uUnidadControl;

type
  cEntradaSalida = class
                           private
                            Entrada: string;
                            Salida: string;
                            UControl: cUnidadControl;
                           public
                            constructor Create(E: string; S: string; UC: cUnidadControl);
                            procedure EnviarDato;
                            procedure RecibirDato(E);
                           end;

implementation

{ cEntradaSalida }

constructor cEntradaSalida.Create(E: string; S: string; UC: cUnidadControl);
begin
 Entrada := E;
 Salida := S;
 UControl := UC;
end;

procedure cEntradaSalida.EnviarDato;
begin
 UControl.AlmacenarDato(Entrada);
end;

procedure cEntradaSalida.RecibirDato(Dato: string);
begin
 Salida := Dato;
 ShowMessage(Salida);
end;

end.

Código Delphi [-]
unit uUnidadControl;

interface

uses uEntradaSalida;

type
  cUnidadControl = class
                           private
                            Dato: string;
                            EntradaSalida: cEntradaSalida;
                           public
                            constructor Create(Dat: string; ES: cEntradaSalida);
                            procedure AlmacenarDato(Dat: string);
                            procedure EnviarDato;
                           end;

implementation

{ cUnidadControl }

constructor cUnidadControl.Create(Dat: string; ES: cEntradaSalida);
begin
 Dato := Dat;
 EntradaSalida := ES;
end;

procedure cUnidadControl.EnviarDato;
begin
 EntradaSalida.RecibirDato(Dato);
end;

procedure cUnidadControl.AlmacenarDato(Dat: string);
begin
 Dato := Dat;
end;

end.

Se que esto, según está planteado es imposible de que compile en Object Pascal.

Puede que el ejemplo os parezca enrevesado pero os aseguro que hay ejemplos no inventados por mi sino otros estudiados en la Ingeniería del Software que no son soportados por Object Pascal a no ser de que se introduzca más de una clase en una misma unidad (si os pica la curiosidad os diré cual es).

Una solución a esto es hacer tres clases:

uUnidadControl.pas
uEntrada.pas
uSalida.pas

Mi pregunta es si en otros lenguajes de programación como Java o C++ por ejemplo ocurre esto también.

Saludos.

[[Lepe]]

Tenía un peaso mensaje preparado, pero creo que no ha lugar.

Según estoy viendo, la pregunta sería:

¿Deben seguir existiendo esas restricciones hoy día? ¿qué opináis?

Hablo de restricciones que fueron dilucidadas hace 10 años (o más). Informáticamente hablando, fueron tomadas en la era glaciar

Saludos

[[Delphius]]

Según estoy viendo....
Esto es un claro ejemplo de un mal diseño. Considero que deberías replantear el diseño y el análisis del problema.

No veo otra manera de resolverlo que reformular el diseño...

No se... ¿Tal vez se trata de un caso especial del uso del patrón Observador?

Saludos,

[[Lepe]]

Empezado por Delphius

No se... ¿Tal vez se trata de un caso especial del uso del patrón Observador?

uy, uy, no me lo mentes... no me lo mentes, que se me cuelga la implementación que hice

[kakarotv5]

Empezado por Delphius

No se... ¿Tal vez se trata de un caso especial del uso del patrón Observador?

Saludos,

No es el caso pero ¡bingo!

Pensé que nadie iba a comentarlo.

Iba a poneros la implementación del patrón Observador para que vierais (los que no lo supieran) que no tiene por qué estar mal planteado el problema ya que con el patrón del Observador ocurre esto aunque se soluciona metiendo al Sujeto y al Observador en la misma Unit.

Saludos.

[[Lepe]]

Empezado por kakarotv5

No es el caso pero ¡bingo!

Pensé que nadie iba a comentarlo.

Entonces, ¿se trata de ponernos a prueba? ¿a todos los foristas? ... pues ten cuidado, que HabEmos muchos y sEmos muy buenos

Saludos

[kakarotv5]

Empezado por Lepe

Entonces, ¿se trata de ponernos a prueba? ¿a todos los foristas? ... pues ten cuidado, que HabEmos muchos y sEmos muy buenos

Saludos

No, no me malinterpretes, en el fondo aun no se ni un 10% de todo lo que rodea a Delphi, por eso vengo tan a menudo por el foro, para aprender de vosotros.

Lo del patrón Observador lo sabía pero estaba esperando a que alguien lo comentara como un caso de esos excepcionales.

Es lo que me gusta de esta comunidad, que sois muchos y buenos.

Saludos.

[[Lepe]]

Yo echo de menos una opción en el IDE que oculte las clases sin referencia a la que desarrollo. Para mi sería genial, un botón de tipo check, o una tecla rápida.

No sé si me he explicado bien, supongamos que tengo en un .pas 3 clases,

TObservador hace referencia a TPatrón.
TMiobjeto es una clase aparte, no tiene nada que ver con la anterior.

Si estoy trabajando sobre TMiobjeto (tengo el cursor del ratón en ella), pulso la tecla rápida y se oculta del .pas TObservador y TPatrón.

BDS2006 permite ocultar procedimientos y métodos, pero es un poco engorroso, entiendo que es el primer paso a lo que digo. Quizás fuera viable como sugerencia a CnPacks o Gexperts.

Saludos