From: Jerry <list_email@icloud.com>
Subject: Re: How to write "Hello" to a text file without a line terminator
Date: Fri, 12 Aug 2016 00:44:55 -0700 (PDT)
Date: 2016-08-12T00:44:55-07:00 [thread overview]
Message-ID: <4c49991e-9001-464f-afbb-3fcbf78e5656@googlegroups.com> (raw)
In-Reply-To: <nojti9$8sq$1@gioia.aioe.org>
On Friday, August 12, 2016 at 12:23:55 AM UTC-7, Dmitry A. Kazakov wrote:
> No, it does not, if you are talking about the standard library Put.
>
> It is Put_Line that does.
>
Both of these programs put a line terminator after Hello.
with Ada.Text_IO; use Ada.Text_IO;
procedure test_ada_eol is
begin
Put("Hello");
end test_ada_eol;
with Ada.Text_IO; use Ada.Text_IO;
procedure test_ada_eol_to_file is
Test_Ada_EOL_File : Ada.Text_IO.File_Type;
begin
Create(Test_Ada_EOL_File, Out_File, "Test Ada EOL.txt");
Put(Test_Ada_EOL_File, "Hello");
Close(Test_Ada_EOL_File);
end test_ada_eol_to_file;
You can see it directly in the file or on a terminal, optinally with
$ ./test_ada_eol |od -a
Jerry
next prev parent reply other threads:[~2016-08-12 7:44 UTC|newest]
Thread overview: 28+ messages / expand[flat|nested] mbox.gz Atom feed top
2016-08-12 4:05 How to write "Hello" to a text file without a line terminator Jerry
2016-08-12 6:41 ` G.B.
2016-08-12 7:23 ` Dmitry A. Kazakov
2016-08-12 7:41 ` J-P. Rosen
2016-08-12 7:46 ` Jerry
2016-08-12 7:44 ` Jerry [this message]
2016-08-12 17:34 ` Jeffrey R. Carter
2016-08-13 3:21 ` Jerry
2016-08-13 4:23 ` Jeffrey R. Carter
2016-08-13 9:12 ` AdaMagica
2016-08-13 18:03 ` Jeffrey R. Carter
2016-08-14 7:58 ` AdaMagica
2016-08-14 8:30 ` Simon Wright
2016-08-14 8:54 ` Dmitry A. Kazakov
2016-08-14 9:40 ` Simon Wright
2016-08-14 10:17 ` Dmitry A. Kazakov
2016-08-14 11:28 ` Simon Wright
2016-08-14 13:31 ` Dmitry A. Kazakov
2016-08-15 23:35 ` Randy Brukardt
2016-08-14 13:28 ` AdaMagica
2016-08-14 13:54 ` Simon Wright
2016-08-14 17:05 ` Jeffrey R. Carter
2016-08-14 18:26 ` AdaMagica
2016-08-14 19:19 ` Dmitry A. Kazakov
2016-08-14 13:32 ` AdaMagica
2016-08-14 16:39 ` Jeffrey R. Carter
2016-08-12 7:46 ` Simon Wright
[not found] ` <noka54$ci$1@dont-email.me>
2016-08-12 13:44 ` Dmitry A. Kazakov
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox