Re: The "()" operator revisited.

["Frank J. Lhota" <NOSPAM.lhota.adarose@verizon.net>]

"Frank J. Lhota" <NOSPAM.lhota.adarose@verizon.net> wrote in message
news:raBMb.9128$Qq.7455@nwrdny01.gnilink.net...
> Also, one can easily view a Direct I/O file as an abstract array. The
> package Ada.Direct_Io can inline the following versions of "()" and "():="
> for File_Type:
>
>     function "()" (File  : in File_Type;
>                    Index : in Positive_Count)
>                    return     Element_Type
>     is
>        Result : Element_Type;
>     begin
>        Read( File, Result, From => Index );
>        return Result
>     end "()";
>
>     procedure "():=" (File  : in File_Type;
>                       Index : in Positive_Count;
>                       Item  : in Element_Type)
>     is
>     begin
>        Write( File, Item, To => Index );
>     end "():=";

My apologies, that should have read:

    function "()" (File  : in File_Type;
                   Index : in Positive_Count)
                   return     Element_Type
    is
       Result : Element_Type;
    begin
       Read( File, Result, From => Index );
       return Result;
    end "()";

    procedure "():=" (File  : in out File_Type;
                      Index : in     Positive_Count;
                      Item  : in     Element_Type)
    is
    begin
       Write( File, Item, To => Index );
    end "():=";