http://www.adaconcept.com/programs/ontozorendszeres_szimulacio/ontozorendszeres_szimulacio.adb
-- Rotter Gyorgy
-- Egy letezo program alapjan, de mas formaban... :)

-- A program egy matrix alapjan (Szimulacio.Kert.Terv) egy feszitofat epit fel elaboracios idoben,
-- majd letrehozza az ontozorendszer alkotoelemeit, amelyek egy kozos adatszerkezeten keresztul kommunikalnak egymassal,
-- ezaltal szimulalva a viz (adat) aramlasat az osztalyok kozott...

-- a program bizonyos helyenek dinamikus kotest alkalmaz, errol meggyozodhetunk a kovetkezo pragma segitsegevel is...
-- pragma Restrictions(No_Dispatch);                                                     -- nem enged meg oylan hivast, amely dinamikusan kot, erdemes tanulmanyozni az ilyen pragmakat, mert nagymertekben megkonnyitik egy program megismereset
                                                                                         -- masfelol hatekonyabba tehetjuk a segitsegevel azokat a kodokat, amelyek nem tartalmaznak dinamikus kotest (bar egyelore az optimalizalasrol meg nem beszelunk...)

-- pragma Restrictions(No_Finalization);                                                 -- kedvcsinalonak...

with Hiba_Kezelo;

with Szimulacio.Vezerles;

with Ada.Text_IO;

procedure ontozorendszeres_szimulacio is
begin
   Ada.Text_IO.Put_Line("A szimulacio a ""Hiba_Kezelo csomagon keresztul"" indul.");     -- igy lehet " karaktert irni

   Hiba_Kezelo.Futtatas(Szimulacio.Vezerles.Inditas'Access);

   Ada.Text_IO.Put_Line("A szimulacio vegetert.");
end ontozorendszeres_szimulacio;