comp.lang.ada
 help / color / mirror / Atom feed
* How to test if file = Ada.Text_IO.Standard_Input ?
@ 2021-10-23  8:06 reinert
  2021-10-23 10:22 ` Jeffrey R.Carter
  0 siblings, 1 reply; 5+ messages in thread
From: reinert @ 2021-10-23  8:06 UTC (permalink / raw)


Hello,

the following program:

  procedure test1 (file1 : in Ada.Text_IO.File_Type) is
      term1 : constant Boolean := file1 in Ada.Text_IO.Standard_Input;
   begin
      null;
   end test1;

compiles under gnat-10 (debian). The point here is to test if "file1" represents the terminal.

However, when I try to compile using the current GNAT Community Edition from AdaCore, I get the error:

test7.adb:38:41: error: invalid operand types for operator "="
test7.adb:38:41: error: left operand has private type "Ada.Text_Io.File_Type"
test7.adb:38:41: error: right operand has type "Ada.Text_Io.File_Access"
gnatmake: "test7.adb" compilation error

So how can I test if "file1" referes to the terminal using the lastest GNAT Community Edition?

reinert

^ permalink raw reply	[flat|nested] 5+ messages in thread

end of thread, other threads:[~2021-10-24 20:51 UTC | newest]

Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-10-23  8:06 How to test if file = Ada.Text_IO.Standard_Input ? reinert
2021-10-23 10:22 ` Jeffrey R.Carter
2021-10-23 12:28   ` reinert
2021-10-23 15:40     ` Gautier write-only address
2021-10-24 20:51   ` Keith Thompson

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox