Re: Buffer overflow Article - CACM

["robin" <robin_v@bigpond.com>]

"Martin Krischik" <krischik@users.sourceforge.net> wrote in message
news:4626568.XPZCFmT196@linux1.krischik.com...
> 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;

This is Ada code, not PL/I code.  I already supplied
Ada code in the PL/I source example above.

> Almost identical - so what's you point then.

The point is that Ada code can be compiled direct by a
PL/I compiler.