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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,b1eee69712c08551
X-Google-Attributes: gid103376,public
From: Adrian Knoth <adi@drcomp.erfurt.thur.de>
Subject: Re: how to reverse output of a line using ada
Date: 2000/11/21
Message-ID: <8veeop$acb$1@drcomp.erfurt.thur.de>#1/1
X-Deja-AN: 696378231
References: <8ve870$4fkkm$1@ID-62217.news.dfncis.de>
Organization: Modern Electronics
X-Server-Date: 21 Nov 2000 18:26:33 GMT
User-Agent: tin/1.4.4-20000803 ("Vet for the Insane") (UNIX) (Linux/2.2.17
 (i586))
Newsgroups: comp.lang.ada
Date: 2000-11-21T18:26:33+00:00
List-Id: <comp.lang.ada>

Florian Paulus <mailme@ascat.de> wrote:

> Hi everybody!

Hi!

> my program shall read a line and display it reversed.

I'd do it this way:

with ustrings; use ustrings;
with ada.strings.unbounded; use ada.strings.unbounded;
with ada.text_IO; use ada.text_IO;

procedure bla is

        procedure output(what : in String) is
        begin
                for I in reverse what'range loop
                        Put(what(I));
                end loop;
        end output;

  buffer : ustring;

begin
        Get_Line(buffer);
        output(To_String(buffer));
end bla;


Please discuss.


-- 
mail: adi@thur.de	web: adi.thur.de	PGP: v2-key via keyserver

Q:Kann mir jemand helfen ? A: Du benutzt NT, Dir kann Keiner mehr helfen.