package body Szimulacio.Ontozorendszer.Elemek.Cso is

   -- Minden elem tovabbitja a kimenetere (a vegere / az agaira) azt, amit a bemeneten kapott.

   -- itt nem hasznalunk az osok fele torteno konvertalast

   procedure Frissit (Objektum : in out Cso_Tipus) is
   begin
      Objektum.Vege.all := Objektum.Eleje.all;
   end Frissit;


   procedure Frissit (Objektum : in out Ketagu_Eloszto_Cso_Tipus) is
   begin
      Objektum.Ag1.all := Objektum.Eleje.all;
      Objektum.Ag2.all := Objektum.Eleje.all;
   end Frissit;


   procedure Frissit (Objektum : in out Haromagu_Eloszto_Cso_Tipus) is
   begin
      Objektum.Ag1.all := Objektum.Eleje.all;
      Objektum.Ag2.all := Objektum.Eleje.all;
      Objektum.Ag3.all := Objektum.Eleje.all;
   end Frissit;


   procedure Frissit(Objektum : in out Negyagu_Eloszto_Cso_Tipus) is
   begin
      Objektum.Ag1.all := Objektum.Eleje.all;
      Objektum.Ag2.all := Objektum.Eleje.all;
      Objektum.Ag3.all := Objektum.Eleje.all;
      Objektum.Ag4.all := Objektum.Eleje.all;
   end Frissit;


end Szimulacio.Ontozorendszer.Elemek.Cso;