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=-0.3 required=5.0 tests=BAYES_00,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
Path: 
 border2.nntp.dca1.giganews.com!nntp.giganews.com!usenet.blueworldhosting.com!feeder01.blueworldhosting.com!feeder.erje.net!eu.feeder.erje.net!eternal-september.org!feeder.eternal-september.org!mx02.eternal-september.org!.POSTED!not-for-mail
From: "G.B." <bauhaus@futureapps.invalid>
Newsgroups: comp.lang.ada
Subject: Re: 'Image
Date: Wed, 19 Nov 2014 15:21:19 +0100
Organization: A noiseless patient Spider
Message-ID: <m4i90g$2as$1@dont-email.me>
References: <DA%7w.753721$Y4.288171@fx24.iad>
	<w118w.110576$5U6.95784@fx01.iad>
 <54609F34.4080201@spam.spam>
	<35f01472-3510-4f67-8765-006fa8591c35@googlegroups.com>
	<9tc8w.73007$ZT5.37595@fx07.iad>
	<22a3816a-4e89-48f0-a126-dce581781beb@googlegroups.com>
	<mqw8w.739469$w82.82975@fx21.iad>
	<cd91630f-d78d-4eab-830c-f71005e93fc0@googlegroups.com>
	<084b1934-9641-425e-85ec-293e0334413e@googlegroups.com>
	<86bf69c8-eb08-4696-b6c9-3784f5c42213@googlegroups.com>
	<Jwy8w.500685$Ub6.487517@fx20.iad>
	<d4b8f45d-e327-4d78-a0d6-838aba063e4d@googlegroups.com>
	<lyoascltws.fsf@pushface.org>
 <YYE8w.620042$Lj7.284655@fx22.iad>	<87389olqie.fsf@ixod.org>
 <zTF8w.509165$No4.167804@fx19.iad>
	<fca06fd0-6970-46a5-95b9-6b6317a37f7c@googlegroups.com>
	<aSG8w.567817$Q61.266688@fx13.iad>
 <m40odq$tdv$1@loke.gir.dk>
	<19fa65d4-72c9-44ab-b44b-4ea0929c18f2@googlegroups.com>
	<m441oa$vv7$1@loke.gir.dk>
 <87a93s8j4m.fsf@mid.deneb.enyo.de>	<m48b93$ke0$1@dont-email.me>
 <m4i701$f0i$2@dont-email.me>
Reply-To: nonlegitur@futureapps.de
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Wed, 19 Nov 2014 14:21:04 +0000 (UTC)
Injection-Info: mx02.eternal-september.org;
 posting-host="b96887e80893c84a90c3007226ca0d1c";
 logging-data="2396"; mail-complaints-to="abuse@eternal-september.org";
 posting-account="U2FsdGVkX1/tEt+mK8HkiHTO2c5XQQJfGQoCI2uNoLk="
User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10.9;
 rv:24.0) Gecko/20100101 Thunderbird/24.6.0
In-Reply-To: <m4i701$f0i$2@dont-email.me>
Cancel-Lock: sha1:4Gs6O1P9atH9n+orULKbdW27aHM=
Xref: number.nntp.giganews.com comp.lang.ada:190858
Date: 2014-11-19T15:21:19+01:00
List-Id: <comp.lang.ada>

On 19.11.14 14:46, Brian Drummond wrote:

> --------------------------------------------------------
> with Ada.Text_IO;
>
> procedure foo is
>      function "&" (l: string; r: natural) return string is
>      begin
>          return  l & character'VAL(r);
>      end "&";
>
>      a: constant string := "abcd";
>      b: constant string := "efgh";
> begin
>      Ada.Text_IO.put_line( "concatenated string is " & a &  -- Line 18
>              character'VAL(16#42#) & b &
>              "  " &  a & 16#42# & b );
> end foo;
> --------------------------------------------------------

This is from GNAT's Spitbol support package:

    function "&" (Num : Integer; Str : String)  return String;
    function "&" (Str : String;  Num : Integer) return String;
    function "&" (Num : Integer; Str : VString) return VString;
    function "&" (Str : VString; Num : Integer) return VString;
    --  In all these concatenation operations, the integer is converted to
    --  its corresponding decimal string form, with no leading blank.