Re: Introductory Presentations, especially aimed at C++ programmers!

["Jeffrey R. Carter" <spam.jrcarter.not@spam.not.acm.org>]

On 12/13/2016 02:15 PM, Robert A Duff wrote:
>
> That's how it's done in GNAT.  How is it done in "most versions"?

Yes, but the GNAT implementation is rather poor. A better way doesn't need to 
copy anything:

function Get_Line return String is
    Buffer : String (1 .. 1_000);
    Last   : Natural;
begin -- Get_Line
    Get_Line (Item => Buffer, Last => Last);

    if Last < Buffer'Last then
       return Buffer (1 .. Last);
    end if;

    return Buffer & Get_Line;
end Get_Line;

-- 
Jeff Carter
"Apart from the sanitation, the medicine, education, wine,
public order, irrigation, roads, the fresh water system,
and public health, what have the Romans ever done for us?"
Monty Python's Life of Brian
80