Unwanted newline

Unwanted newline

[rm-throwaway4]

May be I did not rtfm enough, but I can't find the answer.

rm@gloria ~/abinu
$ cat ctest.c
#include <stdio.h>

void main(void) {
                putchar('X');
}

rm@gloria ~/abinu
$ cat test.adb

with ADA.TEXT_IO;
use  ADA.TEXT_IO;

procedure test is
   package IntIO is new ADA.TEXT_IO.INTEGER_IO(INTEGER);
   use IntIO;

begin

   PUT("X");

end test;

rm@gloria ~/abinu
$ ./ctest;echo Y
XY

rm@gloria ~/abinu
$ ./test;echo Y
X
Y

Apparently Text_Io places newline when program exits even if I did not
ask for it. How to output ONLY "X" in Ada, without newline?

Re: Unwanted newline

[Robert A Duff]

rm-throwaway4@gunlab.com.ru writes:

> Apparently Text_Io places newline when program exits even if I did not
> ask for it. How to output ONLY "X" in Ada, without newline?

You can avoid Text_IO, and interface directly to C routines.
I've found that to be fairly portable in practise.

- Bob

Re: Unwanted newline

[Georg Bauhaus]

rm-throwaway4@gunlab.com.ru wrote:

> begin
> 
>    PUT("X");
> 
> end test;
...
> 
> Apparently Text_Io places newline when program exits even if I did not
> ask for it. How to output ONLY "X" in Ada, without newline?


Ada's Text_IO is a bit more "sophisticated" than C's stdio.
Try using streams instead:

   declare
      bare_out: constant Stream_Access := Stream(Text_IO.Current_Output);
   begin
      Character'write(bare_out, 'X');
   end;


-- Georg 

Re: Unwanted newline

[Dr. Adrian Wrigley]

On Mon, 13 Jun 2005 14:12:57 +0200, Georg Bauhaus wrote:

> Ada's Text_IO is a bit more "sophisticated" than C's stdio.

I hadn't noticed this effect with the newline!
(Put and Put_Line get the same result)

Can you give a more detailed explanation?
(I suppose ploughing through the RM might help...)
-- 
Adrian

Re: Unwanted newline

[Mark Lorenzen]

"Dr. Adrian Wrigley" <amtw@linuxchip.demon.co.uk.uk.uk> writes:

> On Mon, 13 Jun 2005 14:12:57 +0200, Georg Bauhaus wrote:
> 
> > Ada's Text_IO is a bit more "sophisticated" than C's stdio.
> 
> I hadn't noticed this effect with the newline!
> (Put and Put_Line get the same result)
> 
> Can you give a more detailed explanation?
> (I suppose ploughing through the RM might help...)
> -- 
> Adrian

A.10.2 (3).