Subversion Repositories openrisc_me

-- REPSPEC.ADA

--

--                             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.

--*

--

-- PURPOSE:

--      THIS REPORT PACKAGE PROVIDES THE MECHANISM FOR REPORTING THE

--      PASS/FAIL/NOT-APPLICABLE RESULTS OF EXECUTABLE (CLASSES A, C,

--      D, E, AND L) TESTS.

--      IT ALSO PROVIDES THE MECHANISM FOR GUARANTEEING THAT CERTAIN

--      VALUES BECOME DYNAMIC (NOT KNOWN AT COMPILE-TIME).

-- HISTORY:

--      JRK 12/13/79

--      JRK 06/10/80

--      JRK 08/06/81

--      JRK 10/27/82

--      JRK 06/01/84

--      PWB 07/30/87  ADDED PROCEDURE SPECIAL_ACTION.

--      TBN 08/20/87  ADDED FUNCTION LEGAL_FILE_NAME.

--      BCB 05/17/90  ADDED FUNCTION TIME_STAMP.

--      WMC 01/24/94  INCREASED RANGE OF TYPE FILE_NUM FROM 1..3 TO 1..5.

--      KAS 06/19/95  ADDED FUNCTION IDENT_WIDE_CHAR.

--      KAS 06/19/95  ADDED FUNCTION IDENT_WIDE_STR.

PACKAGE REPORT IS

     SUBTYPE FILE_NUM IS INTEGER RANGE 1..5;

  -- THE REPORT ROUTINES.

     PROCEDURE TEST           -- THIS ROUTINE MUST BE INVOKED AT THE

                              -- START OF A TEST, BEFORE ANY OF THE

                              -- OTHER REPORT ROUTINES ARE INVOKED.

                              -- IT SAVES THE TEST NAME AND OUTPUTS THE

                              -- NAME AND DESCRIPTION.

        ( NAME : STRING;      -- TEST NAME, E.G., "C23001A-AB".

          DESCR : STRING      -- BRIEF DESCRIPTION OF TEST, E.G.,

                              -- "UPPER/LOWER CASE EQUIVALENCE IN " &

                              -- "IDENTIFIERS".

        );

     PROCEDURE FAILED         -- OUTPUT A FAILURE MESSAGE.  SHOULD BE

                              -- INVOKED SEPARATELY TO REPORT THE

                              -- FAILURE OF EACH SUBTEST WITHIN A TEST.

        ( DESCR : STRING      -- BRIEF DESCRIPTION OF WHAT FAILED.

                              -- SHOULD BE PHRASED AS:

                              -- "(FAILED BECAUSE) ...REASON...".

        );

     PROCEDURE NOT_APPLICABLE -- OUTPUT A NOT-APPLICABLE MESSAGE.

                              -- SHOULD BE INVOKED SEPARATELY TO REPORT

                              -- THE NON-APPLICABILITY OF EACH SUBTEST

                              -- WITHIN A TEST.

        ( DESCR : STRING      -- BRIEF DESCRIPTION OF WHAT IS

                              -- NOT-APPLICABLE. SHOULD BE PHRASED AS:

                              -- "(NOT-APPLICABLE BECAUSE)...REASON...".

        );

     PROCEDURE SPECIAL_ACTION -- OUTPUT A MESSAGE DESCRIBING SPECIAL

                              -- ACTIONS TO BE TAKEN.

                              -- SHOULD BE INVOKED SEPARATELY TO GIVE

                              -- EACH SPECIAL ACTION.

        ( DESCR : STRING      -- BRIEF DESCRIPTION OF ACTION TO BE

                              -- TAKEN.

        );

     PROCEDURE COMMENT        -- OUTPUT A COMMENT MESSAGE.

        ( DESCR : STRING      -- THE MESSAGE.

        );

     PROCEDURE RESULT;        -- THIS ROUTINE MUST BE INVOKED AT THE

                              -- END OF A TEST.  IT OUTPUTS A MESSAGE

                              -- INDICATING WHETHER THE TEST AS A

                              -- WHOLE HAS PASSED, FAILED, IS

                              -- NOT-APPLICABLE, OR HAS TENTATIVELY

                              -- PASSED PENDING SPECIAL ACTIONS.

  -- THE DYNAMIC VALUE ROUTINES.

     -- EVEN WITH STATIC ARGUMENTS, THESE FUNCTIONS WILL HAVE DYNAMIC

     -- RESULTS.

     FUNCTION IDENT_INT       -- AN IDENTITY FUNCTION FOR TYPE INTEGER.

        ( X : INTEGER         -- THE ARGUMENT.

        ) RETURN INTEGER;     -- X.

     FUNCTION IDENT_CHAR      -- AN IDENTITY FUNCTION FOR TYPE

                              -- CHARACTER.

        ( X : CHARACTER       -- THE ARGUMENT.

        ) RETURN CHARACTER;   -- X.

     FUNCTION IDENT_WIDE_CHAR -- AN IDENTITY FUNCTION FOR TYPE

                              -- WIDE_CHARACTER.

        ( X : WIDE_CHARACTER  -- THE ARGUMENT.

        ) RETURN WIDE_CHARACTER; -- X.

     FUNCTION IDENT_BOOL      -- AN IDENTITY FUNCTION FOR TYPE BOOLEAN.

        ( X : BOOLEAN         -- THE ARGUMENT.

        ) RETURN BOOLEAN;     -- X.

     FUNCTION IDENT_STR       -- AN IDENTITY FUNCTION FOR TYPE STRING.

        ( X : STRING          -- THE ARGUMENT.

        ) RETURN STRING;      -- X.

     FUNCTION IDENT_WIDE_STR  -- AN IDENTITY FUNCTION FOR TYPE WIDE_STRING.

        ( X : WIDE_STRING     -- THE ARGUMENT.

        ) RETURN WIDE_STRING; -- X.

     FUNCTION EQUAL           -- A RECURSIVE EQUALITY FUNCTION FOR TYPE

                              -- INTEGER.

        ( X, Y : INTEGER      -- THE ARGUMENTS.

        ) RETURN BOOLEAN;     -- X = Y.

-- OTHER UTILITY ROUTINES.

     FUNCTION LEGAL_FILE_NAME -- A FUNCTION TO GENERATE LEGAL EXTERNAL

                              -- FILE NAMES.

        ( X : FILE_NUM := 1;  -- DETERMINES FIRST CHARACTER OF NAME.

          NAM : STRING := ""  -- DETERMINES REST OF NAME.

        ) RETURN STRING;      -- THE GENERATED NAME.

     FUNCTION TIME_STAMP      -- A FUNCTION TO GENERATE THE TIME AND

                              -- DATE TO PLACE IN THE OUTPUT OF AN ACVC

                              -- TEST.

          RETURN STRING;      -- THE TIME AND DATE.

END REPORT;