From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=0.6 required=5.0 tests=BAYES_40,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,d47277d8d4c7d543
X-Google-Attributes: gid103376,public
From: "Marin D. Condic" <mcondic-nospam@quadruscorp.com>
Subject: Re: Enumeration
Date: 2000/03/16
Message-ID: <38D0F4DA.C4341039@quadruscorp.com>#1/1
X-Deja-AN: 598231039
Content-Transfer-Encoding: 7bit
References: <38D0A856.6130ADFF@student.ecu.edu.au>
Organization: Quadrus Corporation
X-Sender: "Marin D. Condic" <mcondic@pop.mindspring.com> (Unverified)
X-Server-Date: 16 Mar 2000 11:51:41 GMT
Content-Type: text/plain; charset=us-ascii
Mime-Version: 1.0
Newsgroups: comp.lang.ada
Date: 2000-03-16T11:51:41+00:00
List-Id: <comp.lang.ada>

Karlene Johnson wrote:
> 
> I am trying to define an enumeration package i made up, but it doesnt
> seem to be working.  I know the quesion sounds pretty general but anyone
> who knows anything about enumaration package please reply, with whatever
> information you have.
> 
We can start with: What exactly do you mean by 'enumeration package'?

You define an enumeration type as a series of identifiers:

type My_Enumeration_Type is (Red, Yellow, Blue, Green) ;

To put it in a package is near trivial:

package My_Package is
    type My_Enumeration_Type is (Red, Yellow, Blue, Green) ;
end My_Package ;

Now there are a whole range of operations one can do with enumerated
types and you can define subprograms to work on them as well. You can
make generic packages that have enumeration types as parameters and lots
more fun stuff. Do you suppose you can send a chopped down example of
what you are trying to do and explain what is not working? I'm sure we
can be more helpful with that in hand than with the rather general
question you first posted. Thanks.

MDC
-- 
=============================================================
Marin David Condic   - Quadrus Corporation -   1.800.555.3393
1015-116 Atlantic Boulevard, Atlantic Beach, FL 32233
http://www.quadruscorp.com/
m c o n d i c @ q u a d r u s c o r p . c o m

***PLEASE REMOVE THE "-NOSPAM" PART OF MY RETURN ADDRESS***

Visit my web site at:  http://www.mcondic.com/

"Because that's where they keep the money."
    --  Willie Sutton when asked why he robbed banks. 
=============================================================