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,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.5-pre1
Path: eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!aioe.org!.POSTED.kqdng8QplyO0uO59ICP1Dw.user.gioia.aioe.org!not-for-mail
From: Blady <p.p11@orange.fr>
Newsgroups: comp.lang.ada
Subject: Ada.Text_IO.File_Type object with user defined Get and Put
 subprograms.
Date: Thu, 30 Jul 2020 22:21:08 +0200
Organization: Aioe.org NNTP Server
Message-ID: <rfva3i$9vk$1@gioia.aioe.org>
NNTP-Posting-Host: kqdng8QplyO0uO59ICP1Dw.user.gioia.aioe.org
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 7bit
X-Complaints-To: abuse@aioe.org
User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10.15; rv:68.0)
 Gecko/20100101 Thunderbird/68.10.0
X-Mozilla-News-Host: news://nntp.aioe.org:119
Content-Language: en-US
X-Notice: Filtered by postfilter v. 0.9.2
Xref: reader01.eternal-september.org comp.lang.ada:59604
List-Id: <comp.lang.ada>

Hello,

Given a legacy code calling many Put_Line from Ada.Text_IO which works 
nice in a Terminal, I want to add a mode which sends these outputs to 
another process without changing the legacy code too much.
And I want to keep the Terminal mode.

Is there a way to create a File_Type object (from Ada.Text_IO) which 
would have user defined Get and Put subprograms instead of the 
predefined ones of the file system?

Thus in my case, I will create a custom File_Type object My_Output with 
the user define Put which will send the lines to the other process and 
then I will call "Set_Output (My_Ouput);" before the legacy code.

Thanks Pascal.