1 /* BEGIN INCLUDE FILE - dm_operator_constants.incl.pl1 */
 2 
 3 /* Written by Lindsey Spratt, 07/07/82
 4 Modified:
 5 10/07/82 by Lindsey Spratt:  Added the GREATER, LESS, GREATER_OR_EQUAL,
 6             LESS_OR_EQUAL and REGULAR_EXPRESSION operator codes.  Also, added
 7             bit(1) arrays for determining if a given operator code "uses" a
 8             given operator.  For example, USES_LESS_OPERATOR(x) = "1"b only if
 9             x = LESS_OPERATOR_CODE or x = LESS_OR_EQUAL_OPERATOR_CODE.
10 */
11 
12 /* format: style2,ind3 */
13      dcl     (
14              EQUAL_OPERATOR_CODE    init (1),
15              GREATER_OPERATOR_CODE  init (2),
16              LESS_OPERATOR_CODE     init (7),
17              REGULAR_EXPRESSION_OPERATOR_CODE
18                                     init (8),
19              NOT_EQUAL_OPERATOR_CODE
20                                     init (5),
21              GREATER_OR_EQUAL_OPERATOR_CODE
22                                     init (3),
23              LESS_OR_EQUAL_OPERATOR_CODE
24                                     init (6),
25              EQUAL_IDX              init (18),
26              GREATER_IDX            init (17),
27              NOT_IDX                init (16),
28              REGULAR_EXPRESSION_IDX init (15)
29              )                      fixed bin internal static options (constant);
30 
31      dcl     (
32              USES_LESS_OPERATOR     init ("0"b, (5) (1)"0"b, "1"b /* <= */, "1"b /* < */, (24) (1)"0"b),
33              USES_GREATER_OPERATOR  init ("0"b, "0"b, "1"b /* > */, "1"b /* >= */, (28) (1)"0"b),
34              USES_EQUAL_OPERATOR    init ("0"b, "1"b /* = */, "0"b, "1"b /* >= */, "0"b, "0"b, "1"b /* <= */,
35                                     (25) (1)"0"b),
36              USES_REGULAR_EXPRESSION_OPERATOR
37                                     init ("0"b, (7) (1)"0"b, "1"b /* reg exp */, (3) (1)"0"b, "1"b /* not reg exp */,
38                                     (19) (1)"0"b)
39              )                      dimension (0:31) bit (1) unaligned internal static options (constant);
40 
41 /* END INCLUDE FILE - dm_operator_constants.incl.pl1 */