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,103b407e8b68350b
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-01-15 16:15:30 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!bloom-beacon.mit.edu!news-out.cwix.com!newsfeed.cwix.com!newsfeed.vmunix.org!newspeer1-gui.server.ntli.net!ntli.net!newsfep1-gui.server.ntli.net.POSTED!53ab2750!not-for-mail
X-Trace-PostClient-IP: 80.4.69.150
From: "chris.danx" <spamoff.danx@ntlworld.com>
User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.3a) Gecko/20021212
X-Accept-Language: en, en-us
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Anybody in US using ADA ? One silly idea..
References: <mailman.1041817083.31051.comp.lang.ada@ada.eu.org>
 <avc2tk$e3qv9$1@ID-77047.news.dfncis.de>
 <1041908422.928308@master.nyc.kbcfp.com>
 <kegl1vsa5tjnkuo04ckgt78b3lsn5j0ium@4ax.com>
 <1041997309.165001@master.nyc.kbcfp.com>
 <avh8fs$fni6s$2@ID-77047.news.dfncis.de>
 <1042086217.253468@master.nyc.kbcfp.com>
 <avmj4i$gh335$2@ID-77047.news.dfncis.de>
 <1042477504.547640@master.nyc.kbcfp.com>
 <b044a1$l4p22$1@ID-77047.news.dfncis.de>
 <1042651417.215661@master.nyc.kbcfp.com>
 <BA4B5685.1C36%yaldnifw@blueyonder.co.uk> <3E25FA9A.2549C263@adaworks.com>
In-Reply-To: <3E25FA9A.2549C263@adaworks.com>
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
Message-ID: <AQmV9.4910$K63.170955@newsfep1-gui.server.ntli.net>
Date: Thu, 16 Jan 2003 00:16:42 +0000
NNTP-Posting-Host: 194.168.222.31
X-Complaints-To: abuse@ntlworld.com
X-Trace: newsfep1-gui.server.ntli.net 1042676128 194.168.222.31 (Thu,
 16 Jan 2003 00:15:28 GMT)
NNTP-Posting-Date: Thu, 16 Jan 2003 00:15:28 GMT
Organization: ntl News Service
Xref: archiver1.google.com comp.lang.ada:33060
Date: 2003-01-16T00:16:42+00:00
List-Id: <comp.lang.ada>

Richard Riehle wrote:

> -- modified from example submitted to cla by Bill Findlay
> with Ada.Integer_Text_IO;
> with Ada.Text_IO;
> use  Ada;
> procedure try is
> 
>     function read return integer is
>         n : integer;
>     begin
>        Integer_Text_IO.get(n);
>        return n;
>      end read;
> 
> begin -- Try
>     loop
>          Dynamic_Array:
>          declare
>               SUBTYPE S IS INTEGER RANGE READ .. READ;
>              A : array(S) of Integer := (others => 0);
>           begin -- Dynamic_Array
>              exit when S'Last = S'First;
>              for I in A'Range
>              loop
>                Integer_Text_IO.Get(A(I));
>              end loop;
>             Text_IO.put_line(integer'image(s'first)
>                         & " .. " & integer'image(s'last));
>          end Dynamic_Array;
>     end loop;
> end try;


Hey, that's nifty!  Never knew you could do stuff like that.


Chris
-- 
for personal replies change spamoff to chris