http://www.adaconcept.com/programs/ontozorendszeres_szimulacio/szimulacio-ontozorendszer-elemek-vizforras.ads
with Szimulacio.Ontozorendszer.Csovezetek_Modell;
package Szimulacio.Ontozorendszer.Elemek.Vizforras is
-- egyke objektumot tartalmazo csomag
package Modell renames Ontozorendszer.Csovezetek_Modell;
-- az egyke peldanyt adja vissza
function Vizforras return Frissitheto_Absztrakt_Ontozorendszer_Elem_Osztaly_Mutato_Tipus;
procedure Inicializal(Azonosito : Terv.Valodi_Reszletpont_Azonosito_Tipus;
Csovezetek_Elem : Modell.Csovezetek_Modell_Elem_Mutato_Tipus);
function Vizet_Ad return Boolean;
procedure Bekapcsol;
procedure Kikapcsol;
private
type Vizforras_Tipus is new Frissitheto_Absztrakt_Ontozorendszer_Elem_Tipus with record
Ad_Vizet : Boolean := True;
Csovezetek_Elem : Modell.Csovezetek_Modell_Elem_Mutato_Tipus;
end record;
procedure Inicializal(Objektum : in out Vizforras_Tipus;
Azonosito : Terv.Valodi_Reszletpont_Azonosito_Tipus;
Csovezetek_Elem : Modell.Csovezetek_Modell_Elem_Mutato_Tipus);
-- overriding
procedure Frissit(Objektum : in out Vizforras_Tipus);
function Vizet_Ad(Objektum : Vizforras_Tipus) return Boolean;
procedure Bekapcsol(Objektum : in out Vizforras_Tipus);
procedure Kikapcsol(Objektum : in out Vizforras_Tipus);
A_Vizforras : aliased Vizforras_Tipus; -- egyke objektum peldany
end Szimulacio.Ontozorendszer.Elemek.Vizforras;