C.7.1 The Package Task_Identification
Static Semantics
1
The following language-defined 
library package exists: 
2/2
{
AI95-00362-01} 
package Ada.Task_Identification 
is
   pragma Preelaborate(Task_Identification);
   type Task_Id 
is private;
   pragma Preelaborable_Initialization (Task_Id);
   Null_Task_Id : 
constant Task_Id;
   
function  "=" (Left, Right : Task_Id) 
return Boolean;
3/3
{
8652/0070} 
{
AI95-00101-01} 
{
AI05-0189-1} 
   
function  Image                  (T : Task_Id) 
return String;
   
function  Current_Task     
return Task_Id;
   function  Environment_Task return Task_Id;
   procedure Abort_Task             (T : 
in out Task_Id);
4/3
{
AI05-0189-1} 
   
function  Is_Terminated          (T : Task_Id) 
return Boolean;
   
function  Is_Callable            (T : Task_Id) 
return Boolean;
   function  Activation_Is_Complete (T : Task_Id) return Boolean;
private
   ... -- 
not specified by the language
end Ada.Task_Identification;
Dynamic Semantics
5
A value of the type Task_Id identifies an existent 
task. The constant Null_Task_Id does not identify any task. Each object 
of the type Task_Id is default initialized to the value of Null_Task_Id.
6
The function "=" returns True if and only 
if Left and Right identify the same task or both have the value Null_Task_Id.
7
The function Image returns an implementation-defined 
string that identifies T. If T equals Null_Task_Id, Image returns an 
empty string. 
7.a
Implementation defined: The result of 
the Task_Identification.Image attribute.
8
The function Current_Task returns a value that identifies 
the calling task.
8.1/3
  {
AI05-0189-1} 
The function Environment_Task returns a value that 
identifies the environment task.9
The effect of Abort_Task is the same as the 
abort_statement 
for the task identified by T. [In addition, if T identifies the environment 
task, the entire partition is aborted, See 
E.1.]
10
The functions Is_Terminated and Is_Callable return 
the value of the corresponding attribute of the task identified by T. 
10.a.1/1
Ramification: {
8652/0115} 
{
AI95-00206-01} 
These routines can be called with an argument identifying 
the environment task. Is_Terminated will always be False for such a call, 
but Is_Callable (usually True) could be False if the environment task 
is waiting for the termination of dependent tasks. Thus, a dependent 
task can use Is_Callable to determine if the main subprogram has completed. 
 
10.1/3
   {
AI05-0189-1} 
The function Activation_Is_Complete returns True 
if the task identified by T has completed its activation (whether successfully 
or not). It returns False otherwise. If T identifies the environment 
task, Activation_Is_Complete returns True after the elaboration of the 
library_items 
of the partition has completed.11
For a 
prefix 
T that is of a task type [(after any implicit dereference)], the following 
attribute is defined: 
12
T'Identity
Yields a value of the type Task_Id 
that identifies the task denoted by T.
 
13
14/3
 E'Caller
{
AI05-0262-1} 
Yields a value of the type Task_Id that identifies the task whose call 
is now being serviced. Use of this attribute is allowed only inside an 
entry_body 
or accept_statement 
or entry_body 
(after the entry_barrier) 
corresponding to the 
entry_declaration 
denoted by E. 
 
15
Program_Error is raised if a 
value of Null_Task_Id is passed as a parameter to Abort_Task, Is_Terminated, 
and Is_Callable.
16
Abort_Task 
is a potentially blocking operation (see 
9.5.1). 
Bounded (Run-Time) Errors
17/3
 {
AI95-00237-01} 
{
AI05-0004-1} 
It is a bounded error to call the Current_Task function 
from an 
entry_body entry 
body, or an 
interrupt handler
, or finalization of a task attribute. 
Program_Error is raised, or an implementation-defined 
value of the type Task_Id is returned. 
17.a/2
Implementation defined: The value of 
Current_Task when in a protected entry, or interrupt handler, or finalization of 
a task attribute.
17.b
Implementation Note: This value could 
be Null_Task_Id, or the ID of some user task, or that of an internal 
task created by the implementation. 
17.c/2
Ramification: {
AI95-00237-01} 
An entry barrier is syntactically part of an entry_body, 
so a call to Current_Task from an entry barrier is also covered by this 
rule.  
Erroneous Execution
18
If a value of Task_Id is passed 
as a parameter to any of the operations declared in this package (or 
any language-defined child of this package), and the corresponding task 
object no longer exists, the execution of the program is erroneous. 
Documentation Requirements
19
The implementation shall document the effect of calling 
Current_Task from an entry body or interrupt handler. 
19.a/2
This paragraph 
was deleted.Implementation defined: 
The effect of calling Current_Task from 
an entry body or interrupt handler.
19.b/2
Documentation Requirement: 
The effect of calling Current_Task from 
an entry body or interrupt handler.
20
10  This package is intended for use in 
writing user-defined task scheduling packages and constructing server 
tasks. Current_Task can be used in conjunction with other operations 
requiring a task as an argument such as Set_Priority (see 
D.5).
21
11  The function Current_Task and the attribute 
Caller can return a Task_Id value that identifies the environment task.
Extensions to Ada 95
21.a/2
{
AI95-00362-01} 
Task_Identification is now preelaborated, so it 
can be used in preelaborated units. Wording Changes from Ada 95
21.b/2
21.c/2
{
AI95-00237-01} 
Corrected the wording to include finalization of 
a task attribute in the bounded error case; we don't want to specify 
which task does these operations. Incompatibilities With Ada 2005
21.d/3
{
AI05-0189-1} 
Functions Environment_Task 
and Activation_Is_Complete are newly added to Task_Identification. If 
Task_Identification is referenced in a use_clause, 
and an entity E with a defining_identifier 
of Environment_Task or Activation_Is_Complete is defined in a package 
that is also referenced in a use_clause, 
the entity E may no longer be use-visible, resulting in errors. 
This should be rare and is easily fixed if it does occur. 
 Ada 2005 and 2012 Editions sponsored in part by Ada-Europe
Ada 2005 and 2012 Editions sponsored in part by Ada-Europe