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.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,5bc4be576204aa20
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news1.google.com!news4.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsfeed01.chello.at!newsfeed.inode.at!news.hispeed.ch!linux2.krischik.com!news
From: Martin Krischik <krischik@users.sourceforge.net>
Newsgroups: comp.lang.ada
Subject: Re: Buffer overflow Article - CACM
Date: Sun, 01 Jan 2006 13:12:41 +0100
Organization: Cablecom Newsserver
Message-ID: <4626568.XPZCFmT196@linux1.krischik.com>
References: <uYzdf.18228$Zv5.14884@newssvr25.news.prodigy.net>
 <IpQdf.1206$s14.1071@newsread2.news.pas.earthlink.net>
 <43783810.6080808@obry.net>
 <0f4ef.1413$s14.1261@newsread2.news.pas.earthlink.net>
 <m3psop8e45.fsf@mobile.int.cbbrowne.com>
 <5Fpif.25167$Zv5.13092@newssvr25.news.prodigy.net>
 <6ktjf.8048$ea6.3571@news-server.bigpond.net.au>
 <bhxjf.26172$q%.9983@newssvr12.news.prodigy.com>
 <9hhkf.10004$ea6.5952@news-server.bigpond.net.au>
 <3klkf.25509$dO2.19240@newssvr29.news.prodigy.net>
 <wAqtf.147383$V7.109835@news-server.bigpond.net.au>
NNTP-Posting-Host: 84-74-134-212.dclient.hispeed.ch
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7Bit
X-Trace: news.hispeed.ch 1136118602 14604 84.74.134.212 (1 Jan 2006 12:30:02
 GMT)
X-Complaints-To: news@hispeed.ch
NNTP-Posting-Date: Sun, 1 Jan 2006 12:30:02 +0000 (UTC)
User-Agent: KNode/0.10
Xref: g2news1.google.com comp.lang.ada:2408
Date: 2006-01-01T13:12:41+01:00
List-Id: <comp.lang.ada>

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