Re: Actual stream of a certain type

Re: Actual stream of a certain type

[Marius Amado-Alves]

> I want to write a library that exports a type T whose stream
> operations 'Write and 'Read require that the actual stream be of a
> certain type, also provided by the library, and visible and usable in
> the body of the operations.

Correction: the provided stream type is an add-on, or mix-in, to  
whatever stream type the user needs (and provides himself). (As  
opposed to a stream type entirely defined in the library, as my first  
description could suggest.) Thanks.

Actual stream of a certain type

[Marius Amado-Alves]

I want to write a library that exports a type T whose stream  
operations 'Write and 'Read require that the actual stream be of a  
certain type, also provided by the library, and visible and usable in  
the body of the operations. Any idea how to accomplish his? I've been  
at it for hours now. Thanks a lot.

Re: Actual stream of a certain type

[tmoran]

> I want to write a library that exports a type T whose stream
> operations 'Write and 'Read require that the actual stream be of a
> certain type, also provided by the library, and visible and usable in
   You can write your own 'Read and 'Write for T and within those check
if not Stream.all in T_Kind_of_Stream then raise ...

Re: Actual stream of a certain type

[Marius Amado-Alves]

>    You can write your own 'Read and 'Write for T and within those  
> check
> if not Stream.all in T_Kind_of_Stream then raise ...

Thanks, I know, I tried that, but I don't seem to succeed combining  
that with providing T_Stream as a mix-in. I also tried Ada 2005  
interfaces with GNAT. I thought I saw a real case for interfaces and  
that interested me because all examples I have seen so far are  
academic, not compelling. But failed. Every time Ada got in the way.  
It's really a love-hate relation with her. Shall I post the code here?

Re: Actual stream of a certain type

[Dmitry A. Kazakov]

On Thu, 27 Jul 2006 00:47:00 +0100, Marius Amado-Alves wrote:

> Thanks, I know, I tried that, but I don't seem to succeed combining  
> that with providing T_Stream as a mix-in. I also tried Ada 2005  
> interfaces with GNAT. I thought I saw a real case for interfaces and  
> that interested me because all examples I have seen so far are  
> academic, not compelling. But failed. Every time Ada got in the way.  
> It's really a love-hate relation with her.

You have a "parallel types hierarchy" problem, which in general has no
solution in Ada.

On Thu, 27 Jul 2006 01:25:04 +0100, in comp.lang.ada you wrote:

> Ok, here it goes. Of all idioms I tried maybe the least unsuccessful  
> (?) ones are those that raise Program_Error with message  
> "accessibility check failed" (GNAT) for line marked HERE below. The  
> problem here is: how to use the stream visible on that line, as the  
> good T_Stream object he is, pass it as a variable, etc? Thanks a  
> great lot.
> 
>     type T_Stream_Class_Access is access all T_Stream'Class;
> 
>     procedure Write_T
>       (Stream : T_Stream_Class_Access;
>        Item : in T) is
>     begin
>        Foobar (Stream.all, Item);
>     end;
> 
>     procedure Write
>       (Stream : not null access Ada.Streams.Root_Stream_Type'Class;
>        Item : in T) is
>     begin
>        if Stream.all not in T_Stream'Class then
>           raise Actual_Stream_Must_Be_A_T_Stream;
>        else
>           Write_T (T_Stream_Class_Access (Stream), Item); -- <== HERE
>        end if;
>     end;

I would use (double-dispatch emulation):

   procedure Write_T (Stream : in out T_Stream; Item : T'Class) is
   begin
      Foobar (Stream, Item);
   end Write_T;

   procedure Write
             (  Stream : access Ada.Streams.Root_Stream_Type'Class;
                Item   : T
             )  is
   begin
      if Stream.all not in T_Stream'Class then
         raise Actual_Stream_Must_Be_A_T_Stream;
      else
         Write_T (T_Stream'Class (Stream.all), Item);
      end if;
   end Write;

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de

Re: Actual stream of a certain type

[Marius Amado-Alves]

>    procedure Write_T (Stream : in out T_Stream; Item : T'Class) is
>    begin
>       Foobar (Stream, Item);
>    end Write_T;
>
>    procedure Write
>              (  Stream : access Ada.Streams.Root_Stream_Type'Class;
>                 Item   : T
>              )  is
>    begin
>       if Stream.all not in T_Stream'Class then
>          raise Actual_Stream_Must_Be_A_T_Stream;
>       else
>          Write_T (T_Stream'Class (Stream.all), Item);
>       end if;
>    end Write;

Thanks a lot! I'll try this. I did not try it before because I  
thought the call to Write_T on Write would not pass Stream as a  
variable, i.e. the conversion would create a read-only view. But if  
you wrote it, it must be one of those Ada idiosyncrasies. Thanks a lot.

Re: Actual stream of a certain type

[Marius Amado-Alves]

> ... it must be one of those Ada idiosyncrasies...

Ok, I'm laughable, it's the view conversion of course, I can't  
believe I forgot it. Thanks a lot. All is well now.

Re: Actual stream of a certain type

[Marius Amado-Alves]

Ok, here it goes. Of all idioms I tried maybe the least unsuccessful  
(?) ones are those that raise Program_Error with message  
"accessibility check failed" (GNAT) for line marked HERE below. The  
problem here is: how to use the stream visible on that line, as the  
good T_Stream object he is, pass it as a variable, etc? Thanks a  
great lot.

    type T_Stream_Class_Access is access all T_Stream'Class;

    procedure Write_T
      (Stream : T_Stream_Class_Access;
       Item : in T) is
    begin
       Foobar (Stream.all, Item);
    end;

    procedure Write
      (Stream : not null access Ada.Streams.Root_Stream_Type'Class;
       Item : in T) is
    begin
       if Stream.all not in T_Stream'Class then
          raise Actual_Stream_Must_Be_A_T_Stream;
       else
          Write_T (T_Stream_Class_Access (Stream), Item); -- <== HERE
       end if;
    end;