| ----------------------------------------------------------------------- |
| -- Code Archetypes for the CHESS Component Model -- |
| -- -- |
| -- Copyright (C) 2011-2012 -- |
| -- University of Padova, ITALY -- |
| -- -- |
| -- Author: Marco Panunzio panunzio@math.unipd.it -- |
| -- -- |
| -- All rights reserved. This program and the accompanying materials -- |
| -- are made available under the terms of the Eclipse Public License -- |
| -- v1.0 which accompanies this distribution, and is available at -- |
| -- http://www.eclipse.org/legal/epl-v20.html -- |
| ----------------------------------------------------------------------- |
| |
| with System; |
| with Data_Structure; |
| with Ada.Real_Time; |
| |
| package Multi_Activity_Cyclic_Task is |
| |
| -- Cannot use Time_Span for offset in task discriminant => Natural |
| |
| task type Thread_T |
| (My_Task_ID : Data_Structure.Task_Gen_ID; |
| Thread_Priority : System.Any_Priority; |
| Static_Offset : Natural; |
| Enqueue_in_Entry : access procedure (Release : out Ada.Real_Time.Time); |
| Activity_Desc: not null Data_Structure.Task_activity_desc_ref) is |
| |
| pragma Priority (Thread_Priority); |
| end Thread_T; |
| |
| |
| |
| --procedure Initialize; |
| |
| |
| |
| end Multi_Activity_Cyclic_Task; |
