| -- CXAA018.A |
| -- |
| -- Grant of Unlimited Rights |
| -- |
| -- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, |
| -- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained |
| -- unlimited rights in the software and documentation contained herein. |
| -- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making |
| -- this public release, the Government intends to confer upon all |
| -- recipients unlimited rights equal to those held by the Government. |
| -- 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 the subprograms defined in the package Text_IO.Modular_IO |
| -- provide correct results. |
| -- |
| -- TEST DESCRIPTION: |
| -- This test checks that the subprograms defined in the |
| -- Ada.Text_IO.Modular_IO package provide correct results. |
| -- A modular type is defined and used to instantiate the generic |
| -- package Ada.Text_IO.Modular_IO. Values of the modular type are |
| -- written to a Text_IO file, and to a series of string variables, using |
| -- different versions of the procedure Put from the instantiated IO |
| -- package. These modular data items are retrieved from the file and |
| -- string variables using the appropriate instantiated version of |
| -- procedure Get. A variety of Base and Width parameter values are |
| -- used in the procedure calls. |
| -- |
| -- APPLICABILITY CRITERIA: |
| -- This test is applicable to all implementations that support Text_IO |
| -- processing and external files. |
| -- |
| -- |
| -- CHANGE HISTORY: |
| -- 03 Jul 95 SAIC Initial prerelease version. |
| -- 01 May 96 SAIC Incorporated reviewer comments for ACVC 2.1. |
| -- |
| --! |
| |
| with Ada.Text_IO; |
| with System; |
| with Report; |
| |
| procedure CXAA018 is |
| begin |
| |
| Report.Test ("CXAA018", "Check that the subprograms defined in " & |
| "the package Text_IO.Modular_IO provide " & |
| "correct results"); |
| |
| Test_for_Text_IO_Support: |
| declare |
| Data_File : Ada.Text_IO.File_Type; |
| Data_Filename : constant String := Report.Legal_File_Name; |
| begin |
| |
| -- An application creates a text file in mode Out_File, with the |
| -- intention of entering modular data into the file as appropriate. |
| -- In the event that the particular environment where the application |
| -- is running does not support Text_IO, Use_Error or Name_Error will be |
| -- raised on calls to Text_IO operations. Either of these exceptions |
| -- will be handled to produce a Not_Applicable result. |
| |
| Ada.Text_IO.Create (File => Data_File, |
| Mode => Ada.Text_IO.Out_File, |
| Name => Data_Filename); |
| |
| Test_Block: |
| declare |
| |
| type Mod_Type is mod System.Max_Binary_Modulus; |
| -- Max_Binary_Modulus must be at least 2**16, which would result |
| -- in a base range of 0..65535 (zero to one less than the given |
| -- modulus) for this modular type. |
| |
| package Mod_IO is new Ada.Text_IO.Modular_IO(Mod_Type); |
| use Ada.Text_IO, Mod_IO; |
| use type Mod_Type; |
| |
| Number_Of_Modular_Items : constant := 6; |
| Number_Of_Error_Items : constant := 1; |
| |
| TC_Modular : Mod_Type; |
| TC_Last_Character_Read : Positive; |
| |
| Modular_Array : array (1..Number_Of_Modular_Items) of Mod_Type := |
| ( 0, 97, 255, 1025, 12097, 65535 ); |
| |
| |
| procedure Load_File (The_File : in out Ada.Text_IO.File_Type) is |
| begin |
| -- This procedure does not create, open, or close the data file; |
| -- The_File file object must be Open at this point. |
| -- This procedure is designed to load Modular_Type data into a |
| -- data file. |
| -- |
| -- Use the Modular_IO procedure Put to enter modular data items |
| -- into the data file. |
| |
| for i in 1..Number_Of_Modular_Items loop |
| -- Use default Base parameter of 10. |
| Mod_IO.Put(File => Data_File, |
| Item => Modular_Array(i), |
| Width => 6, |
| Base => Mod_IO.Default_Base); |
| end loop; |
| |
| -- Enter data into the file such that on the corresponding "Get" |
| -- of this data, Data_Error must be raised. This value is outside |
| -- the base range of Modular_Type. |
| -- Text_IO is used to enter the value in the file. |
| |
| for i in 1..Number_Of_Error_Items loop |
| Ada.Text_IO.Put(The_File, "-10"); |
| end loop; |
| |
| end Load_File; |
| |
| |
| |
| procedure Process_File(The_File : in out Ada.Text_IO.File_Type) is |
| begin |
| -- This procedure does not create, open, or close the data file; |
| -- The_File file object must be Open at this point. |
| -- Use procedure Get (for Files) to extract the modular data from |
| -- the Text_IO file. |
| |
| for i in 1..Number_Of_Modular_Items loop |
| Mod_IO.Get(The_File, TC_Modular, Width => 6); |
| |
| if TC_Modular /= Modular_Array(i) then |
| Report.Failed("Incorrect modular data read from file " & |
| "data item #" & Integer'Image(i)); |
| end if; |
| end loop; |
| |
| -- The final item in the Data_File is a modular value that is |
| -- outside the base range 0..Num'Last. This value should raise |
| -- Data_Error on an attempt to "Get" it from the file. |
| |
| for i in 1..Number_Of_Error_Items loop |
| begin |
| Mod_IO.Get(The_File, TC_Modular, Mod_IO.Default_Width); |
| Report.Failed |
| ("Exception Data_Error not raised when Get " & |
| "was used to read modular data outside base " & |
| "range of type, item # " & |
| Integer'Image(i)); |
| exception |
| when Ada.Text_IO.Data_Error => |
| null; -- OK, expected exception. |
| when others => |
| Report.Failed("Unexpected exception raised when Get " & |
| "was used to read modular data outside " & |
| "base range of type from Data_File, " & |
| "data item #" & Integer'Image(i)); |
| end; |
| end loop; |
| |
| exception |
| when others => |
| Report.Failed |
| ("Unexpected exception raised in Process_File"); |
| end Process_File; |
| |
| |
| |
| begin -- Test_Block. |
| |
| -- Place modular values into data file. |
| |
| Load_File(Data_File); |
| Ada.Text_IO.Close(Data_File); |
| |
| -- Read modular values from data file. |
| |
| Ada.Text_IO.Open(Data_File, Ada.Text_IO.In_File, Data_Filename); |
| Process_File(Data_File); |
| |
| -- Verify versions of Modular_IO procedures Put and Get for Strings. |
| |
| Modular_IO_in_Strings: |
| declare |
| TC_String_Array : array (1..Number_Of_Modular_Items) |
| of String(1..30) := (others =>(others => ' ')); |
| begin |
| |
| -- Place modular values into strings using the Procedure Put, |
| -- Use a variety of different "Base" parameter values. |
| -- Note: This version of Put uses the length of the given |
| -- string as the value of the "Width" parameter. |
| |
| for i in 1..2 loop |
| Mod_IO.Put(To => TC_String_Array(i), |
| Item => Modular_Array(i), |
| Base => Mod_IO.Default_Base); |
| end loop; |
| for i in 3..4 loop |
| Mod_IO.Put(TC_String_Array(i), |
| Modular_Array(i), |
| Base => 2); |
| end loop; |
| for i in 5..6 loop |
| Mod_IO.Put(TC_String_Array(i), Modular_Array(i), 16); |
| end loop; |
| |
| -- Get modular values from strings using the Procedure Get. |
| -- Compare with expected modular values. |
| |
| for i in 1..Number_Of_Modular_Items loop |
| |
| Mod_IO.Get(From => TC_String_Array(i), |
| Item => TC_Modular, |
| Last => TC_Last_Character_Read); |
| |
| if TC_Modular /= Modular_Array(i) then |
| Report.Failed("Incorrect modular data value obtained " & |
| "from String following use of Procedures " & |
| "Put and Get from Strings, Modular_Array " & |
| "item #" & Integer'Image(i)); |
| end if; |
| end loop; |
| |
| exception |
| when others => |
| Report.Failed("Unexpected exception raised during the " & |
| "evaluation of Put and Get for Strings"); |
| end Modular_IO_in_Strings; |
| |
| exception |
| when others => Report.Failed ("Exception raised in Test_Block"); |
| end Test_Block; |
| |
| |
| -- Delete the external file. |
| if Ada.Text_IO.Is_Open(Data_File) then |
| Ada.Text_IO.Delete(Data_File); |
| else |
| Ada.Text_IO.Open(Data_File, |
| Ada.Text_IO.In_File, |
| Data_Filename); |
| Ada.Text_IO.Delete(Data_File); |
| end if; |
| |
| exception |
| |
| -- Since Use_Error can be raised if, for the specified mode, |
| -- the environment does not support Text_IO operations, the |
| -- following handlers are included: |
| |
| when Ada.Text_IO.Use_Error => |
| Report.Not_Applicable ("Use_Error raised on Text_IO Create"); |
| |
| when Ada.Text_IO.Name_Error => |
| Report.Not_Applicable ("Name_Error raised on Text_IO Create"); |
| |
| when others => |
| Report.Failed ("Unexpected exception raised on text file Create"); |
| |
| end Test_for_Text_IO_Support; |
| |
| Report.Result; |
| |
| end CXAA018; |