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.3 required=5.0 tests=BAYES_00, REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4 X-Received: by 10.52.179.138 with SMTP id dg10mr10627561vdc.2.1392040078679; Mon, 10 Feb 2014 05:47:58 -0800 (PST) Path: border1.nntp.dca3.giganews.com!backlog4.nntp.dca3.giganews.com!border4.nntp.dca.giganews.com!border2.nntp.dca.giganews.com!nntp.giganews.com!k15no15829158qaq.0!news-out.google.com!s3ni12833qas.0!nntp.google.com!peer02.iad.highwinds-media.com!feed-me.highwinds-media.com!peer01.fr7!news.highwinds-media.com!post01.fr7!fx23.fr7.POSTED!not-for-mail Message-ID: <5aOMAcEhbN+SFw0R@ada-augusta.demon.co.uk> From: Mike H Reply-To: Mike Hopkins Newsgroups: comp.lang.ada Subject: Re: array question References: <2migf9h07j7ll0eqk7oh3e64m1e0lv3r5r@4ax.com> MIME-Version: 1.0 User-Agent: Turnpike/6.07-M (<887$+zN077fMi5diFK8NqJstC7>) NNTP-Posting-Host: 83.104.138.185 X-Complaints-To: abuse@demon.net X-Trace: 1392040074 83.104.138.185 (Mon, 10 Feb 2014 13:47:54 UTC) NNTP-Posting-Date: Mon, 10 Feb 2014 13:47:54 UTC Date: Mon, 10 Feb 2014 13:40:49 +0000 X-Received-Body-CRC: 1525196964 X-Received-Bytes: 1329 Content-Type: text/plain;charset=us-ascii;format=flowed X-Original-Bytes: 1626 Xref: number.nntp.dca.giganews.com comp.lang.ada:184773 Date: 2014-02-10T13:40:49+00:00 List-Id: In message <2migf9h07j7ll0eqk7oh3e64m1e0lv3r5r@4ax.com>, agent@drrob1.com writes >I would like to define a array that can use a character as its index. >type FSATyp is (Delim, Op, Dgt, AllElse); > >FsaArray : ARRAY Character range ('' .. Character'Val(255)) OF FSATyp; > type FsaArray_type is array (ASCII.nul .. ASCII.del) of FSATyp; FsaArray : FsaArray_type := (others => ASCII.nul); -- The thing I like best about the Internet is that no one knows that, in reality, I am just another old dog! Mike