Re: how to reverse output of a line using ada

[Adrian Knoth <adi@drcomp.erfurt.thur.de>]

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.