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
Path: 
 g2news1.google.com!news1.google.com!news4.google.com!news.glorb.com!newsfeed.gamma.ru!Gamma.RU!newsfeed.rtcomm.ru!newspeer1.se.telia.net!se.telia.net!masternews.telia.net.!newsb.telia.net.POSTED!not-for-mail
From: =?ISO-8859-1?Q?Bj=F6rn_Persson?= <spam-away@nowhere.nil>
User-Agent: Mozilla Thunderbird 1.0.7-1.1.fc4 (X11/20050929)
X-Accept-Language: en-us, en
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Buffer overflow Article - CACM
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>
 <4626568.XPZCFmT196@linux1.krischik.com>
 <olZtf.165218$V7.83919@news-server.bigpond.net.au>
 <1136281961.9673.21.camel@sonnenregen>
 <utAxf.214697$V7.205239@news-server.bigpond.net.au>
 <lnd5iv3nwm.fsf@nuthaus.mib.org>
In-Reply-To: <lnd5iv3nwm.fsf@nuthaus.mib.org>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 8bit
Message-ID: <eRayf.42535$d5.198917@newsb.telia.net>
Date: Sat, 14 Jan 2006 17:50:02 GMT
NNTP-Posting-Host: 83.250.94.67
X-Complaints-To: abuse@telia.com
X-Trace: newsb.telia.net 1137261002 83.250.94.67 (Sat,
 14 Jan 2006 18:50:02 CET)
NNTP-Posting-Date: Sat, 14 Jan 2006 18:50:02 CET
Organization: Telia Internet
Xref: g2news1.google.com comp.lang.ada:2495
Date: 2006-01-14T17:50:02+00:00
List-Id: <comp.lang.ada>

Keith Thompson wrote:
> For context, here's the sample PL/I code you posted upthread:
> 
> ] 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;
> 
> Presumably the Ada type "Text" and the various functions are defined
> elsewhere.
> 
> So PL/I, or some particular PL/I implementation, has a mechanism to
> include Ada code inline.

Or rather code in some vaugely Ada-like language, apparently, as 
"function" and "end if;" would have to be inserted in Robin's code to 
turn it into Ada.

-- 
Bj�rn Persson                              PGP key A88682FD
                    omb jor ers @sv ge.
                    r o.b n.p son eri nu