Subversion Repositories openrisc_me

-- CXAC005.A

--

--                             Grant of Unlimited Rights

--

--     The Ada Conformity Assessment Authority (ACAA) holds unlimited

--     rights in the software and documentation contained herein. Unlimited

--     rights are the same as those granted by the U.S. Government for older

--     parts of the Ada Conformity Assessment Test Suite, and are defined

--     in DFAR 252.227-7013(a)(19). By making this public release, the ACAA

--     intends to confer upon all recipients unlimited rights equal to those

--     held by the ACAA. These rights include rights to use, duplicate,

--     release or disclose the released technical data and computer software

--     in whole or in part, in any manner and for any purpose whatsoever, and

--     to have or permit others to do so.

--

--                                    DISCLAIMER

--

--     ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR

--     DISCLOSED ARE AS IS.  THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED

--     WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE

--     SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE

--     OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A

--     PARTICULAR PURPOSE OF SAID MATERIAL.

--*

--

-- OBJECTIVE:

--    Check that stream file positioning work as specified.  (Defect Report

--    8652/0055).

--

-- CHANGE HISTORY:

--    12 FEB 2001   PHL   Initial version.

--    14 MAR 2001   RLB   Readied for release; fixed Not_Applicable check

--                        to terminate test gracefully.

--

--!

with Ada.Streams.Stream_Io;

use Ada.Streams;

with Ada.Exceptions;

use Ada.Exceptions;

with Report;

use Report;

procedure CXAC005 is

    Incomplete : exception;

    procedure TC_Assert (Condition : Boolean; Message : String) is

    begin

        if not Condition then

            Failed (Message);

        end if;

    end TC_Assert;

    package Checked_Stream_Io is

        type File_Type (Max_Size : Stream_Element_Count) is limited private;

        function Stream_Io_File (File : File_Type) return Stream_Io.File_Type;

        procedure Create (File : in out File_Type;

                          Mode : in Stream_Io.File_Mode := Stream_Io.Out_File;

                          Name : in String := "";

                          Form : in String := "");

        procedure Open (File : in out File_Type;

                        Mode : in Stream_Io.File_Mode;

                        Name : in String;

                        Form : in String := "");

        procedure Close (File : in out File_Type);

        procedure Delete (File : in out File_Type);

        procedure Reset (File : in out File_Type;

                         Mode : in Stream_Io.File_Mode);

        procedure Reset (File : in out File_Type);

        procedure Read (File : in out File_Type;

                        Item : out Stream_Element_Array;

                        Last : out Stream_Element_Offset;

                        From : in Stream_Io.Positive_Count);

        procedure Read (File : in out File_Type;

                        Item : out Stream_Element_Array;

                        Last : out Stream_Element_Offset);

        procedure Write (File : in out File_Type;

                         Item : in Stream_Element_Array;

                         To : in Stream_Io.Positive_Count);

        procedure Write (File : in out File_Type;

                         Item : in Stream_Element_Array);

        procedure Set_Index (File : in out File_Type;

                             To : in Stream_Io.Positive_Count);

        function Index (File : in File_Type) return Stream_Io.Positive_Count;

        procedure Set_Mode (File : in out File_Type;

                            Mode : in Stream_Io.File_Mode);

    private

        type File_Type (Max_Size : Stream_Element_Count) is

            record

                File : Stream_Io.File_Type;

                Index : Stream_Io.Positive_Count;

                Contents :

                   Stream_Element_Array

                      (Stream_Element_Offset (Ident_Int (1)) .. Max_Size);

            end record;

    end Checked_Stream_Io;

    package body Checked_Stream_Io is

        use Stream_Io;

        function Stream_Io_File (File : File_Type) return Stream_Io.File_Type is

        begin

            return File.File;

        end Stream_Io_File;

        procedure Create (File : in out File_Type;

                          Mode : in Stream_Io.File_Mode := Stream_Io.Out_File;

                          Name : in String := "";

                          Form : in String := "") is

        begin

            Stream_Io.Create (File.File, Mode, Name, Form);

            File.Index := Stream_Io.Index (File.File);

            if Mode = Append_File then

                TC_Assert (File.Index = Stream_Io.Size (File.File) + 1,

                        "Index /= Size + 1 -- Create - Append_File");

            else

                TC_Assert (File.Index = 1, "Index /= 1 -- Create - " &

                                           File_Mode'Image (Mode));

            end if;

        end Create;

        procedure Open (File : in out File_Type;

                        Mode : in Stream_Io.File_Mode;

                        Name : in String;

                        Form : in String := "") is

        begin

            Stream_Io.Open (File.File, Mode, Name, Form);

            File.Index := Stream_Io.Index (File.File);

            if Mode = Append_File then

                TC_Assert (File.Index = Stream_Io.Size (File.File) + 1,

                        "Index /= Size + 1 -- Open - Append_File");

            else

                TC_Assert (File.Index = 1, "Index /= 1 -- Open - " &

                                           File_Mode'Image (Mode));

            end if;

        end Open;

        procedure Close (File : in out File_Type) is

        begin

            Stream_Io.Close (File.File);

        end Close;

        procedure Delete (File : in out File_Type) is

        begin

            Stream_Io.Delete (File.File);

        end Delete;

        procedure Reset (File : in out File_Type;

                         Mode : in Stream_Io.File_Mode) is

        begin

            Stream_Io.Reset (File.File, Mode);

            File.Index := Stream_Io.Index (File.File);

            if Mode = Append_File then

                TC_Assert (File.Index = Stream_Io.Size (File.File) + 1,

                        "Index /= Size + 1 -- Reset - Append_File");

            else

                TC_Assert (File.Index = 1, "Index /= 1 -- Reset - " &

                                           File_Mode'Image (Mode));

            end if;

        end Reset;

        procedure Reset (File : in out File_Type) is

        begin

            Reset (File, Stream_Io.Mode (File.File));

        end Reset;

        procedure Read (File : in out File_Type;

                        Item : out Stream_Element_Array;

                        Last : out Stream_Element_Offset;

                        From : in Stream_Io.Positive_Count) is

        begin

            Set_Index (File, From);

            Read (File, Item, Last);

        end Read;

        procedure Read (File : in out File_Type;

                        Item : out Stream_Element_Array;

                        Last : out Stream_Element_Offset) is

            Index : constant Stream_Element_Offset :=

               Stream_Element_Offset (File.Index);

        begin

            Stream_Io.Read (File.File, Item, Last);

            if Last < Item'Last then

                TC_Assert (Item (Item'First .. Last) =

                        File.Contents (Index .. Index + Last - Item'First),

                        "Incorrect data read from file - 1");

                TC_Assert (Count (Index + Last - Item'First) =

                        Stream_Io.Size (File.File),

                        "Read stopped before end of file");

                File.Index := Count (Index + Last - Item'First) + 1;

            else

                TC_Assert (Item = File.Contents (Index .. Index + Item'Length - 1),

                        "Incorrect data read from file - 2");

                File.Index := File.Index + Item'Length;

            end if;

        end Read;

        procedure Write (File : in out File_Type;

                         Item : in Stream_Element_Array;

                         To : in Stream_Io.Positive_Count) is

        begin

            Set_Index (File, To);

            Write (File, Item);

        end Write;

        procedure Write (File : in out File_Type;

                         Item : in Stream_Element_Array) is

            Index : constant Stream_Element_Offset :=

               Stream_Element_Offset (File.Index);

        begin

            Stream_Io.Write (File.File, Item);

            File.Contents (Index .. Index + Item'Length - 1) := Item;

            File.Index := File.Index + Item'Length;

            TC_Assert (File.Index = Stream_Io.Index (File.File),

                    "Write failed to move the index");

        end Write;

        procedure Set_Index (File : in out File_Type;

                             To : in Stream_Io.Positive_Count) is

        begin

            Stream_Io.Set_Index (File.File, To);

            File.Index := Stream_Io.Index (File.File);

            TC_Assert (File.Index = To, "Set_Index failed");

        end Set_Index;

        function Index (File : in File_Type) return Stream_Io.Positive_Count is

            New_Index : constant Count := Stream_Io.Index (File.File);

        begin

            TC_Assert (New_Index = File.Index, "Index changed unexpectedly");

            return New_Index;

        end Index;

        procedure Set_Mode (File : in out File_Type;

                            Mode : in Stream_Io.File_Mode) is

            Old_Index : constant Count := File.Index;

        begin

            Stream_Io.Set_Mode (File.File, Mode);

            File.Index := Stream_Io.Index (File.File);

            if Mode = Append_File then

                TC_Assert (File.Index = Stream_Io.Size (File.File) + 1,

                        "Index /= Size + 1 -- Set_Mode - Append_File");

            else

                TC_Assert (File.Index = Old_Index, "Set_Mode changed the index");

            end if;

        end Set_Mode;

    end Checked_Stream_Io;

    package Csio renames Checked_Stream_Io;

    F : Csio.File_Type (100);

    S : Stream_Element_Array (1 .. 10);

    Last : Stream_Element_Offset;

begin

    Test ("CXAC005", "Check that stream file positioning work as specified");

    declare

        Name : constant String := Legal_File_Name;

    begin

        begin

            Csio.Create (F, Name => Name);

        exception

            when others =>

                Not_Applicable ("Files not supported - Creation with Out_File for Stream_IO");

                raise Incomplete;

        end;

        for I in Stream_Element range 1 .. 10 loop

            Csio.Write (F, ((1 => I + 2)));

        end loop;

        Csio.Write (F, (1 .. 15 => 11));

        Csio.Write (F, (1 .. 15 => 12), To => 15);

        Csio.Reset (F);

        for I in Stream_Element range 1 .. 10 loop

            Csio.Write (F, (1 => I));

        end loop;

        Csio.Write (F, (1 .. 15 => 13));

        Csio.Write (F, (1 .. 15 => 14), To => 15);

        Csio.Write (F, (1 => 90));

        Csio.Set_Mode (F, Stream_Io.In_File);

        Csio.Read (F, S, Last);

        Csio.Read (F, S, Last, From => 3);

        Csio.Read (F, S, Last, From => 28);

        Csio.Set_Mode (F, Stream_Io.Append_File);

        Csio.Write (F, (1 .. 5 => 88));

        Csio.Close (F);

        Csio.Open (F, Name => Name, Mode => Stream_Io.Append_File);

        Csio.Write (F, (1 .. 3 => 33));

        Csio.Set_Mode (F, Stream_Io.In_File);

        Csio.Read (F, S, Last, From => 20);

        Csio.Read (F, S, Last);

        Csio.Reset (F, Stream_Io.Out_File);

        Csio.Write (F, (1 .. 9 => 99));

        -- Check the contents of the entire file.

        declare

            S : Stream_Element_Array

                   (1 .. Stream_Element_Offset

                            (Stream_Io.Size (Csio.Stream_Io_File (F))));

        begin

            Csio.Reset (F, Stream_Io.In_File);

            Csio.Read (F, S, Last);

        end;

        Csio.Delete (F);

    end;

    Result;

exception

   when Incomplete =>

      Report.Result;

   when E:others     =>

      Report.Failed ("Unexpected exception raised - " & Exception_Name (E) &

                      " - " & Exception_Message (E));

      Report.Result;

end CXAC005;