Type-Extension and Procedure Variables

Type-Extension and Procedure Variables

[Whitney de Vries]

	    

Does ADA ( 8x or 9x ) have procedure variables or similar ?
Does ADA ( 8x or 9x ) have type extension or similar ?	
  
TYPE	
	BaseType = RECORD  
		x,y : INTEGER;
	END;	   
		    
	ExtendedType = RECORD ( BaseType )       
		z : INTEGER;
	END; (* an extension of BaseType with fields x,y,z *)
	
	Handler = PROCEDURE ( VAR msg : BaseType ); (* PROCEDURE TYPE *)
	
VAR 
	handler : Handler; (* procedure variable *)
	
									
	
Thanks,
	Whitney

Re: Type-Extension and Procedure Variables

[Kenneth Anderson]

In comp.lang.ada Whitney de Vries write:

>Does ADA ( 8x or 9x ) have procedure variables or similar ?
>Does ADA ( 8x or 9x ) have type extension or similar ?

Ada9X supports both.

Procedure variables can be supported in a fashion using generics in
Ada83.  I'm not sure about type extension using Ada83.

Take a look at the Intro to Ada9X document available for ftp at
ajpo.sei.cmu.edu in the directory public/ada9x/ada9x.reports.

Hope this helps,

Ken Anderson
--
-------------------------------------------------------------------------------
-
Ken Anderson                           |  "I'd much rather live in perfection,
U.C. Irvine                            |   than deal with reality." -- Kenbod
-------------------------------------------------------------------------------
-
I think we should tax all foreigners   |  Practice random kindness and
living abroad.           -- John       |  senseless acts of beauty.
                            Cleese     |  -- Anne Herbert
-------------------------------------------------------------------------------
-