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;