------------------------------------------------------------------------------
-- --
-- POSIX.5b VALIDATION TEST SUITE --
-- --
-- P 9 9 0 0 5 0 a --
-- --
-- S p e c --
-- --
-- --
-- Copyright (c) 1998 Florida State University (FSU). All Rights --
-- Reserved. --
-- --
-- This is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free --
-- Software Foundation; either version 2, or (at your option) any later --
-- version. This software is distributed in the hope that it will be --
-- useful, but WITHOUT ANY WARRANTY; without even the implied warranty of --
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU --
-- General Public License for more details. You should have received a --
-- copy of the GNU General Public License distributed with GNARL; see --
-- file COPYING. If not, write to the Free Software Foundation, 59 --
-- Temple Place - Suite 330, Boston, MA 02111-1307, USA. --
-- --
-- Under contract GS-35F-4506G, the U. S. Government obtained unlimited --
-- rights in the software and documentation contained herein. Unlimited --
-- rights are defined in DFAR 252,227-7013(a)(19). By making this public --
-- release, the Government intends to confer upon all recipients --
-- unlimited rights equal to those held by the Government. These rights --
-- include rights to use, duplicate, release or disclose the released --
-- data an computer software in whole or in part, in any manner and for --
-- any purpose whatsoever, and to have or permit others to do so. --
-- --
-- DISCLAIMER -- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE --
-- AVAILABLE OR DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR --
-- IMPLIED WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS --
-- OF THE SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE --
-- AVAILABLE OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS --
-- FOR A PARTICULAR PURPOSE OF SAID MATERIAL. --
-- --
------------------------------------------------------------------------------
-- [$Revision: 1.2 $]
-- Simulate mix of periodic jobs with rate monotone priorities.
-- This version uses:
-- POSIX processes and process priorities for concurrency and scheduling
-- Ada delay statements and Ada.Real_Time.Clock for timing control
-- POSIX semaphores for mutual exclusion
-- See P9900doc.ads for more detailed explanation.
with P9900doc,
P9900x0,
P990001c, -- POSIX named semaphores
P990002d, -- Ada.Real_Time and delay until
P990003b; -- interprocess shared data
package P990050a is new P9900x0
(Version => "50",
Needs_Clock_Realtime => False,
Jobs_Are_Processes => True,
Initialize_Sync => P990001c.Initialize,
Do_Input => P990001c.Do_Input,
Do_Output => P990001c.Do_Output,
Start_All_Jobs => P990001c.Start_All_Jobs,
Await_All_Jobs_Done => P990001c.Await_All_Jobs_Done,
Await_Start => P990001c.Await_Start,
Done_Job => P990001c.Done_Job,
Finalize_Sync => P990001c.Finalize,
Initialize_Scheduling => P990002d.Initialize_Scheduling,
Reschedule => P990002d.Reschedule,
Finalize_Scheduling => P990002d.Finalize,
Shared_Data => P990003b.Shared_Data,
Finalize_Shared_Data => P990003b.Finalize
);