Re: Type declared in record?

[Freejack <user@nospam.net>]

On Tue, 11 Nov 2003 17:08:56 -0500, Marius Amado Alves wrote:

> On Tue, 2003-11-11 at 20:19, Freejack wrote:
> 
> This is not representative of any problem I can think of. Maybe you want
> an array component, maybe a generic type, maybe something else. Please
> rethink your problem and restate it.
 
Right now I'm working on Variant Records. For example...

generic

	type Item is private;

package storage is

	type Data_Structure is (Tree, Stack, List);
	type Store(DatConf : Data_Structure) is private;
private

	type Node_Pointer is access Store;
	
	subtype BlockSize is Positive range 1..1024;

	type Item_Array is array(BlockSize) of Item; 

	type STree is record
		Value 		: Item;
		LPointer	: Node_Pointer;
		RPointer	: Node_Pointer;
		TPointer	: Node_Pointer;	-- Could be used for Threading, or NULL. --
	end record;

	type DLinkedList is record
		Element		: Item;
		Next		: Node_Pointer;
		Prev		: Node_Pointer;
	end record; 


	type Store (DatConf : Data_Structure) is record
		
		case DatConf is 
			when Tree =>
				TreeConf : STree;
					 
			when Stack =>
				StackConf : Item_Array;
			
			when List =>
				ListConf : DLinkedList;
		end case;

	end record;


end storage;


This is all swell...but working with it would be a bit of a pain, so I'm
toying around with other ideas that might give me better results.

Freejack.