From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=3.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.5-pre1
Path: eternal-september.org!reader01.eternal-september.org!.POSTED!not-for-mail
From: "J-P. Rosen" <rosen@adalog.fr>
Newsgroups: comp.lang.ada
Subject: Re: Ada.Text_IO.File_Type object with user defined Get and Put
 subprograms.
Date: Sat, 1 Aug 2020 15:45:25 +0200
Organization: Adalog
Message-ID: <rg3rlm$h20$1@dont-email.me>
References: <rfva3i$9vk$1@gioia.aioe.org> <rfvfda$a0f$1@dont-email.me>
 <rg1j2v$din$1@gioia.aioe.org> <rg2uvj$3qt$1@dont-email.me>
 <rg36cp$1e9t$1@gioia.aioe.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 8bit
Injection-Date: Sat, 1 Aug 2020 13:45:26 -0000 (UTC)
Injection-Info: reader02.eternal-september.org; posting-host="b575f2f18d4a15080c515bce519c1113";
	logging-data="17472"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX18fa/VwT+QesEF7gjcVm8vJ"
User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64; rv:68.0) Gecko/20100101
 Thunderbird/68.11.0
Cancel-Lock: sha1:Y4ywfsHjhXDsKyeutYQ5vioArf0=
In-Reply-To: <rg36cp$1e9t$1@gioia.aioe.org>
Content-Language: fr
Xref: reader01.eternal-september.org comp.lang.ada:59623
List-Id: <comp.lang.ada>

Le 01/08/2020 à 09:42, Blady a écrit :
> There is always use clause for Text_IO in the code, the point is to
> catch those Put_Line calls with no file parameter.
That's exactly where Adasubst comes handy:
Just use a dictionary with:
   ada.text_io.put_line{standard.string} => My_TIO.Put_Line


-- 
J-P. Rosen
Adalog
2 rue du Docteur Lombard, 92441 Issy-les-Moulineaux CEDEX
Tel: +33 1 45 29 21 52, Fax: +33 1 45 29 25 00
http://www.adalog.fr