Re: ??? Help!: how to do unconstraned arrays/records???

[stt@houdini.camb.inmet.com (Tucker Taft)]

Tucker Taft (stt@houdini.camb.inmet.com) wrote:
: al johnston (johnstona@avionics2.robins.af.mil) wrote:

: : HELP!!!!

: : I a trying to convert the following "static" ada data
: : structure to a structure that can be created dynamically,
: : ie via the "new" ada function, and setting the two
: : constrants at that time.

: How about:

:  type Host_Config_Typ is
:     record
:       ID        : Integer;
:       Label     : String;
:     end record;

:   type Host_Array is array (Positive range <>) of Host_Config_Typ;
:   type Host_Array_Ptr is access Host_Array;

:   type Node_Config_Typ(Number_Of_Hosts_Widgets : Natural := 0) is
:     record
:       ID              : integer;
:       Label           : String;
:       Number_of_hosts : Natural := 0;
:       Hosts           : Host_Array_Ptr := 
:         new Host_Array(1..Number_Of_Hosts_Widgets);
:     end record;

:   type Node_Array is array (Positive range <>) of Node_Config_Typ;

:   type System_Config_Typ(Number_Of_Node_Widgets : Natural; 
: 	Number_Of_Hosts_Widgets : Natural) is
:     record
:       Number_of_nodes :  Natural := 0;
:       Nodes : Node_Array(1..Number_Of_Node_Widgets) := 
: 	(others => Node_Config_Typ(Number_Of_Hosts_Widgets));

This isn't legal Ada.  I was inventing some kind of "default-initialized
aggregate" in my dreams.  The "simpler" solution I just posted also
has the advantage of not using any "wishful thinking" Ada, I believe ;-).

--
-Tucker Taft   stt@inmet.com   http://www.inmet.com/~stt/
Intermetrics, Inc.  Burlington, MA  USA
An AverStar Company