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=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,92c39a3be0a7f17d
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-03-13 04:42:16 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!logbridge.uoregon.edu!server3.netnews.ja.net!newshost.central.susx.ac.uk!news.bton.ac.uk!not-for-mail
From: John English <je@brighton.ac.uk>
Newsgroups: comp.lang.ada
Subject: Re: Future with Ada
Date: Wed, 13 Mar 2002 12:26:25 +0000
Organization: University of Brighton
Message-ID: <3C8F4571.3BE24266@brighton.ac.uk>
References: <mailman.1005328653.20306.comp.lang.ada@ada.eu.org>
   <3C7B0B13.3080003@worldnet.att.net> <3C7D1C89.2000803@home.com>
 <mailman.1014918362.4599.comp.lang.ada@ada.eu.org>
 <3C7E7CAD.7070504@mail.com> <3C7FB9D2.D9C6E055@boeing.com>
 <3C81DF1F.9000503@mail.com> <a5tmpv$aek$1@msunews.cl.msu.edu>
 <3C83A112.6080302@mail.com> <3C84223C.A356F466@adaworks.com>
 <3C853A04.34826F39@despammed.com> <a63fda$er$1@nh.pace.co.uk>
 <a65gj5$n73$1@a1-hrz.uni-duisburg.de> <a65jhi$112$1@nh.pace.co.uk>
 <a6831k$3ls$1@a1-hrz.uni-duisburg.de> <a68599$8na$1@nh.pace.co.uk>
 <3C8D0D70.BB09F3DA@despammed.com> <a6jg6p$iec$1@nh.pace.co.uk>
NNTP-Posting-Host: straumli.it.bton.ac.uk
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Trace: saturn.bton.ac.uk 1016022419 29215 193.62.183.204 (13 Mar 2002
 12:26:59 GMT)
X-Complaints-To: news@bton.ac.uk
NNTP-Posting-Date: 13 Mar 2002 12:26:59 GMT
X-Mailer: Mozilla 4.79 [en] (Windows NT 5.0; U)
X-Accept-Language: en
Xref: archiver1.google.com comp.lang.ada:21152
Date: 2002-03-13T12:26:59+00:00
List-Id: <comp.lang.ada>

Marin David Condic wrote:
> 
> I *think* we're on the same wavelength. I was trying to say I don't object
> to something like:
> 
> case (Var) is
>     when Enum_01 =>
>         Something_01 ;
>     when Enum_02 =>
>         Something_02 ;
>     when Enum_03 =>
>         Something_03 ;
>     when Enum_04 =>
>         Something_04 ;
>     when Enum_05 =>
>         Something_05 ;
>     when Enum_06 =>
>         Something_06 ;
>     when Enum_etc =>
>         Something_etc ;
>     when others =>
>         Something_Others ;
> end case ;

I think I'd be tempted to use an array of access-to-procedures here.

-----------------------------------------------------------------
 John English              | mailto:je@brighton.ac.uk
 Senior Lecturer           | http://www.it.bton.ac.uk/staff/je
 Dept. of Computing        | ** NON-PROFIT CD FOR CS STUDENTS **
 University of Brighton    |    -- see http://burks.bton.ac.uk
-----------------------------------------------------------------