comp.lang.ada
 help / color / mirror / Atom feed
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


  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