Re: Using fwrite in Ada

[tmoran@acm.org]

> I want to read and write binary data from stdin/stdout, unfortunately Ada's
> usual IO routines appear to be text only and (on Win32) convert code 10 to
> codes 10 & 13.
  Ada.Text_IO.Text_Streams addresses exactly that problem.

> To get round this I'm trying to use Interfaces.C_Streams, but I don't know
> How to I get a String into the fwrite function?
   Do you need to call "fwrite", or do you just need to write binary data
that can be read back by another Ada program?  In the latter case, 'write,
as has been suggested, will do the job.  The bit pattern that gets written
is implementation defined, unless you override that.  That can be handy.

>  cptr : chars_ptr;
>  Buffer : String (1..100);
>   cptr:=New_String(Buffer);
  implies that chars_ptr is an access to an unconstrained array.  So it
points to both the subscript range of the string and to the character data
in the string.  That is not the same thing as a C pointer to a byte (that
may happen to be the first byte in the string).

>   vptr:=voids(cptr);
>
>   fwrite(vptr,100,1,stdout);
> But this won't compile, the compiler says that it cannot convert the
> chars_ptr to voids. Coming from a C background, I don't understand why
> something cannot be cast to void.
   In Ada, type matters.  What would you expect to happen if you said
  cptr := chars_ptr(vptr);
How would the cptr find out the size of the string that held the byte
that vptr currently points to?

  Look further at Interfaces.  You seem to want to be able to call fwrite
with a String parameter and ignore its result:
   Tell the compiler:
   procedure fwrite(Source : String;
                   Size, Length : Natural;
                   Target : File_Ptr);
   pragma Import(fwrite, C);
then use it
   fwrite(Buffer, 1, Buffer'length, stdout);