1 |
294 |
jeremybenn |
-- REPSPEC.ADA
|
2 |
|
|
--
|
3 |
|
|
-- Grant of Unlimited Rights
|
4 |
|
|
--
|
5 |
|
|
-- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687,
|
6 |
|
|
-- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained
|
7 |
|
|
-- unlimited rights in the software and documentation contained herein.
|
8 |
|
|
-- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making
|
9 |
|
|
-- this public release, the Government intends to confer upon all
|
10 |
|
|
-- recipients unlimited rights equal to those held by the Government.
|
11 |
|
|
-- These rights include rights to use, duplicate, release or disclose the
|
12 |
|
|
-- released technical data and computer software in whole or in part, in
|
13 |
|
|
-- any manner and for any purpose whatsoever, and to have or permit others
|
14 |
|
|
-- to do so.
|
15 |
|
|
--
|
16 |
|
|
-- DISCLAIMER
|
17 |
|
|
--
|
18 |
|
|
-- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR
|
19 |
|
|
-- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED
|
20 |
|
|
-- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE
|
21 |
|
|
-- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE
|
22 |
|
|
-- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A
|
23 |
|
|
-- PARTICULAR PURPOSE OF SAID MATERIAL.
|
24 |
|
|
--*
|
25 |
|
|
--
|
26 |
|
|
-- PURPOSE:
|
27 |
|
|
-- THIS REPORT PACKAGE PROVIDES THE MECHANISM FOR REPORTING THE
|
28 |
|
|
-- PASS/FAIL/NOT-APPLICABLE RESULTS OF EXECUTABLE (CLASSES A, C,
|
29 |
|
|
-- D, E, AND L) TESTS.
|
30 |
|
|
|
31 |
|
|
-- IT ALSO PROVIDES THE MECHANISM FOR GUARANTEEING THAT CERTAIN
|
32 |
|
|
-- VALUES BECOME DYNAMIC (NOT KNOWN AT COMPILE-TIME).
|
33 |
|
|
|
34 |
|
|
-- HISTORY:
|
35 |
|
|
-- JRK 12/13/79
|
36 |
|
|
-- JRK 06/10/80
|
37 |
|
|
-- JRK 08/06/81
|
38 |
|
|
-- JRK 10/27/82
|
39 |
|
|
-- JRK 06/01/84
|
40 |
|
|
-- PWB 07/30/87 ADDED PROCEDURE SPECIAL_ACTION.
|
41 |
|
|
-- TBN 08/20/87 ADDED FUNCTION LEGAL_FILE_NAME.
|
42 |
|
|
-- BCB 05/17/90 ADDED FUNCTION TIME_STAMP.
|
43 |
|
|
-- WMC 01/24/94 INCREASED RANGE OF TYPE FILE_NUM FROM 1..3 TO 1..5.
|
44 |
|
|
-- KAS 06/19/95 ADDED FUNCTION IDENT_WIDE_CHAR.
|
45 |
|
|
-- KAS 06/19/95 ADDED FUNCTION IDENT_WIDE_STR.
|
46 |
|
|
|
47 |
|
|
PACKAGE REPORT IS
|
48 |
|
|
|
49 |
|
|
SUBTYPE FILE_NUM IS INTEGER RANGE 1..5;
|
50 |
|
|
|
51 |
|
|
-- THE REPORT ROUTINES.
|
52 |
|
|
|
53 |
|
|
PROCEDURE TEST -- THIS ROUTINE MUST BE INVOKED AT THE
|
54 |
|
|
-- START OF A TEST, BEFORE ANY OF THE
|
55 |
|
|
-- OTHER REPORT ROUTINES ARE INVOKED.
|
56 |
|
|
-- IT SAVES THE TEST NAME AND OUTPUTS THE
|
57 |
|
|
-- NAME AND DESCRIPTION.
|
58 |
|
|
( NAME : STRING; -- TEST NAME, E.G., "C23001A-AB".
|
59 |
|
|
DESCR : STRING -- BRIEF DESCRIPTION OF TEST, E.G.,
|
60 |
|
|
-- "UPPER/LOWER CASE EQUIVALENCE IN " &
|
61 |
|
|
-- "IDENTIFIERS".
|
62 |
|
|
);
|
63 |
|
|
|
64 |
|
|
PROCEDURE FAILED -- OUTPUT A FAILURE MESSAGE. SHOULD BE
|
65 |
|
|
-- INVOKED SEPARATELY TO REPORT THE
|
66 |
|
|
-- FAILURE OF EACH SUBTEST WITHIN A TEST.
|
67 |
|
|
( DESCR : STRING -- BRIEF DESCRIPTION OF WHAT FAILED.
|
68 |
|
|
-- SHOULD BE PHRASED AS:
|
69 |
|
|
-- "(FAILED BECAUSE) ...REASON...".
|
70 |
|
|
);
|
71 |
|
|
|
72 |
|
|
PROCEDURE NOT_APPLICABLE -- OUTPUT A NOT-APPLICABLE MESSAGE.
|
73 |
|
|
-- SHOULD BE INVOKED SEPARATELY TO REPORT
|
74 |
|
|
-- THE NON-APPLICABILITY OF EACH SUBTEST
|
75 |
|
|
-- WITHIN A TEST.
|
76 |
|
|
( DESCR : STRING -- BRIEF DESCRIPTION OF WHAT IS
|
77 |
|
|
-- NOT-APPLICABLE. SHOULD BE PHRASED AS:
|
78 |
|
|
-- "(NOT-APPLICABLE BECAUSE)...REASON...".
|
79 |
|
|
);
|
80 |
|
|
|
81 |
|
|
PROCEDURE SPECIAL_ACTION -- OUTPUT A MESSAGE DESCRIBING SPECIAL
|
82 |
|
|
-- ACTIONS TO BE TAKEN.
|
83 |
|
|
-- SHOULD BE INVOKED SEPARATELY TO GIVE
|
84 |
|
|
-- EACH SPECIAL ACTION.
|
85 |
|
|
( DESCR : STRING -- BRIEF DESCRIPTION OF ACTION TO BE
|
86 |
|
|
-- TAKEN.
|
87 |
|
|
);
|
88 |
|
|
|
89 |
|
|
PROCEDURE COMMENT -- OUTPUT A COMMENT MESSAGE.
|
90 |
|
|
( DESCR : STRING -- THE MESSAGE.
|
91 |
|
|
);
|
92 |
|
|
|
93 |
|
|
PROCEDURE RESULT; -- THIS ROUTINE MUST BE INVOKED AT THE
|
94 |
|
|
-- END OF A TEST. IT OUTPUTS A MESSAGE
|
95 |
|
|
-- INDICATING WHETHER THE TEST AS A
|
96 |
|
|
-- WHOLE HAS PASSED, FAILED, IS
|
97 |
|
|
-- NOT-APPLICABLE, OR HAS TENTATIVELY
|
98 |
|
|
-- PASSED PENDING SPECIAL ACTIONS.
|
99 |
|
|
|
100 |
|
|
-- THE DYNAMIC VALUE ROUTINES.
|
101 |
|
|
|
102 |
|
|
-- EVEN WITH STATIC ARGUMENTS, THESE FUNCTIONS WILL HAVE DYNAMIC
|
103 |
|
|
-- RESULTS.
|
104 |
|
|
|
105 |
|
|
FUNCTION IDENT_INT -- AN IDENTITY FUNCTION FOR TYPE INTEGER.
|
106 |
|
|
( X : INTEGER -- THE ARGUMENT.
|
107 |
|
|
) RETURN INTEGER; -- X.
|
108 |
|
|
|
109 |
|
|
FUNCTION IDENT_CHAR -- AN IDENTITY FUNCTION FOR TYPE
|
110 |
|
|
-- CHARACTER.
|
111 |
|
|
( X : CHARACTER -- THE ARGUMENT.
|
112 |
|
|
) RETURN CHARACTER; -- X.
|
113 |
|
|
|
114 |
|
|
FUNCTION IDENT_WIDE_CHAR -- AN IDENTITY FUNCTION FOR TYPE
|
115 |
|
|
-- WIDE_CHARACTER.
|
116 |
|
|
( X : WIDE_CHARACTER -- THE ARGUMENT.
|
117 |
|
|
) RETURN WIDE_CHARACTER; -- X.
|
118 |
|
|
|
119 |
|
|
FUNCTION IDENT_BOOL -- AN IDENTITY FUNCTION FOR TYPE BOOLEAN.
|
120 |
|
|
( X : BOOLEAN -- THE ARGUMENT.
|
121 |
|
|
) RETURN BOOLEAN; -- X.
|
122 |
|
|
|
123 |
|
|
FUNCTION IDENT_STR -- AN IDENTITY FUNCTION FOR TYPE STRING.
|
124 |
|
|
( X : STRING -- THE ARGUMENT.
|
125 |
|
|
) RETURN STRING; -- X.
|
126 |
|
|
|
127 |
|
|
FUNCTION IDENT_WIDE_STR -- AN IDENTITY FUNCTION FOR TYPE WIDE_STRING.
|
128 |
|
|
( X : WIDE_STRING -- THE ARGUMENT.
|
129 |
|
|
) RETURN WIDE_STRING; -- X.
|
130 |
|
|
|
131 |
|
|
FUNCTION EQUAL -- A RECURSIVE EQUALITY FUNCTION FOR TYPE
|
132 |
|
|
-- INTEGER.
|
133 |
|
|
( X, Y : INTEGER -- THE ARGUMENTS.
|
134 |
|
|
) RETURN BOOLEAN; -- X = Y.
|
135 |
|
|
|
136 |
|
|
-- OTHER UTILITY ROUTINES.
|
137 |
|
|
|
138 |
|
|
FUNCTION LEGAL_FILE_NAME -- A FUNCTION TO GENERATE LEGAL EXTERNAL
|
139 |
|
|
-- FILE NAMES.
|
140 |
|
|
( X : FILE_NUM := 1; -- DETERMINES FIRST CHARACTER OF NAME.
|
141 |
|
|
NAM : STRING := "" -- DETERMINES REST OF NAME.
|
142 |
|
|
) RETURN STRING; -- THE GENERATED NAME.
|
143 |
|
|
|
144 |
|
|
FUNCTION TIME_STAMP -- A FUNCTION TO GENERATE THE TIME AND
|
145 |
|
|
-- DATE TO PLACE IN THE OUTPUT OF AN ACVC
|
146 |
|
|
-- TEST.
|
147 |
|
|
RETURN STRING; -- THE TIME AND DATE.
|
148 |
|
|
|
149 |
|
|
END REPORT;
|