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=unavailable autolearn_force=no version=3.4.4 Path: eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!.POSTED!not-for-mail From: Brian Drummond Newsgroups: comp.lang.ada Subject: Re: 'Image Date: Thu, 20 Nov 2014 13:32:31 +0000 (UTC) Organization: A noiseless patient Spider Message-ID: References: <54609F34.4080201@spam.spam> <35f01472-3510-4f67-8765-006fa8591c35@googlegroups.com> <9tc8w.73007$ZT5.37595@fx07.iad> <22a3816a-4e89-48f0-a126-dce581781beb@googlegroups.com> <084b1934-9641-425e-85ec-293e0334413e@googlegroups.com> <86bf69c8-eb08-4696-b6c9-3784f5c42213@googlegroups.com> <87389olqie.fsf@ixod.org> <19fa65d4-72c9-44ab-b44b-4ea0929c18f2@googlegroups.com> <87a93s8j4m.fsf@mid.deneb.enyo.de> Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Injection-Date: Thu, 20 Nov 2014 13:32:31 +0000 (UTC) Injection-Info: mx02.eternal-september.org; posting-host="da745e888d4a5182b5fda6212bbb0a63"; logging-data="11272"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1+qGcN7IsEhF7T2/BaB1IdIp0kkUrCpbj0=" User-Agent: Pan/0.139 (Sexual Chocolate; GIT bf56508 git://git.gnome.org/pan2) Cancel-Lock: sha1:vjASfjrCyCw02P0BctT+scDnD3I= Xref: news.eternal-september.org comp.lang.ada:23568 Date: 2014-11-20T13:32:31+00:00 List-Id: On Wed, 19 Nov 2014 15:21:19 +0100, G.B. wrote: > 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 "&"; ... > 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. heh, thanks! - Brian