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;