From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=3.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.5-pre1
Date: 28 Apr 93 15:09:58 GMT
From: cis.ohio-state.edu!magnus.acs.ohio-state.edu!zaphod.mps.ohio-state.edu!ho
wland.reston.ans.net!noc.near.net!inmet!spock!offer@ucbvax.Berkeley.EDU  (Offer
 Pazy)
Subject: Re: GUI's generating Ada (was Re: Teleuse)
Message-ID: <1993Apr28.150958.23665@inmet.camb.inmet.com>
List-Id: <comp.lang.ada>

In article <1993Apr27.161337.18593@evb.com> jgg@evb.com (John Goodsen) writes:
>hyler@ast.saic.com (Buffy Hyler) writes:

>On a related note, can anyone tell me off-hand if Ada 9X will provide a call
>like:
>
>     current_task := CURRENT_TASK_ID;
>                     ^^^^^^^^^^^^^^^
>                     A function which returns the current task id.

Yes, the System Programming annex provides a package System.Task_Identification
.
In it, an impl-defined type (Task_ID) is declared with "=" and Image on 
objects of this type.  In addition the function Current_Task is declared  
and returned that type.  Finally (for the package) a NULL constant and an 
abort through this type are also present.  
Two attributes exist:

'Identity which returns a value of Task_id  and is applicable to any task 
object, and 'Caller that is applicable for entries and returns the task_id of
the caller on "whose behalf" the entry body or accept statement is cuurrently
executed.

(See G.5.1 in the latest draft for precise details).  


Offer Pazy
9X MRT