Re: Buffer overflow Article - CACM

[Martin Krischik <krischik@users.sourceforge.net>]

robin wrote:

> <adaworks@sbcglobal.net> wrote in message
> news:3klkf.25509$dO2.19240@newssvr29.news.prodigy.net...
>>
>> "robin" <robin_v@bigpond.com> wrote in message
>> news:9hhkf.10004$ea6.5952@news-server.bigpond.net.au...
>> >
>> > You seem to be unaware that PL/I has evolved since
>> > it was "first designed".
>> >
>> It would have to have evolved quite a lot to be anywhere
>> close to the capabilities or reliability of a language such as Ada.
>>
>> Perhaps you can provide a reference to some resources that
>> would help us enlighten ourselves.
> 
> Here's another example (I notice that you did not respond
> to the previous example):
> 
> PL/I can compile and execute the following source.  Can Ada do the same
> for PL/I?
> 
> Mixed: procedure options (main);
>     ...
> ADA(
> StringReverse (S: Text) return Text is
> begin
>     if Length(S) <= 1
>        then return S;
>        else return StringReverse(Tail(S)) & Head(S);
> end StringReverse;
> );
> end mixed;
> 
> [I have not written here the PL/I code for TAIL and HEAD,
> nor the declarations for the variables corresponding
> to S and Text.]

From the top of my head

package PL_1

  function String_Reverse (S : in String) return String is
  begin
     if S'Lenght <= 1 then
       return S;
     else
       return String_Reverse (Tail(S)) & Head(S);
     end if
  end String_Reverse;
end PL_1;

Almost identical - so what's you point then.

Martin

-- 
mailto://krischik@users.sourceforge.net
Ada programming at: http://ada.krischik.com