comp.lang.ada
 help / color / mirror / Atom feed
From: "Jeffrey R.Carter" <spam.jrcarter.not@spam.acm.org.not>
Subject: Re: Weird behavior of Get character with trailing new lines.
Date: Fri, 22 Sep 2023 22:05:55 +0200	[thread overview]
Message-ID: <ueks33$82qd$1@dont-email.me> (raw)
In-Reply-To: <uekq08$clvb$1@dont-email.me>

On 2023-09-22 21:30, Blady wrote:
> 
> A.10.7 Input-Output of Characters and Strings
> For an item of type Character the following procedures are provided:
> procedure Get(File : in File_Type; Item : out Character);
> procedure Get(Item : out Character);
> After skipping any line terminators and any page terminators, reads the next 
> character from the specified input file and returns the value of this character 
> in the out parameter Item.
> The exception End_Error is propagated if an attempt is made to skip a file 
> terminator.

As you have quoted, Get (Character) skips line terminators. End_Of_File returns 
True if there is a single line terminator before the file terminator, but False 
if there are multiple line terminators before the file terminator. So you either 
have to explicitly skip line terminators, or handle End_Error.

-- 
Jeff Carter
"Unix and C are the ultimate computer viruses."
Richard Gabriel
99

  parent reply	other threads:[~2023-09-22 20:05 UTC|newest]

Thread overview: 10+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2023-09-22 19:30 Weird behavior of Get character with trailing new lines Blady
2023-09-22 19:52 ` Niklas Holsti
2023-09-22 20:05 ` Jeffrey R.Carter [this message]
2023-09-23  7:02   ` J-P. Rosen
2023-09-23  8:39     ` Niklas Holsti
2023-09-23  9:25       ` Dmitry A. Kazakov
2023-09-23 14:03         ` Niklas Holsti
2023-09-24  7:50           ` Dmitry A. Kazakov
2023-09-25 19:55       ` Blady
2023-09-26  5:53     ` Randy Brukardt
replies disabled

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