Re: GUI's generating Ada (was Re: Teleuse)

[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)]

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