1 /*  BEGIN:   check_star_name.incl.pl1                         *  *  *  *  *  */
 2 
 3 /****^  HISTORY COMMENTS:
 4   1) change(86-08-14,JSLove), approve(86-08-14,MCR7518),
 5      audit(86-08-14,FCSmith), install(86-10-02,MR12.0-1174):
 6      Created, to support check_star_name_ entrypoint.
 7   2) change(87-06-01,GDixon), approve(87-07-13,MCR7740),
 8      audit(87-06-24,Hartogs), install(87-08-04,MR12.1-1056):
 9      Change structures and bit structures to be unaligned, to match the
10      check_star_name_ parameters to which such strings are passed.
11                                                    END HISTORY COMMENTS */
12 
13 /* format: style3,comcol71,ifthenstmt,indcomtxt,indproc,idind30 */
14 
15 declare   1 check_star                  aligned based,
16             2 reject_wild               bit (1) unaligned,
17             2 ignore_archive            bit (1) unaligned,
18             2 process_archive           bit (1) unaligned,
19             2 ignore_entrypoint         bit (1) unaligned,
20             2 process_entrypoint        bit (1) unaligned,
21             2 ignore_path               bit (1) unaligned,
22             2 process_path              bit (1) unaligned,
23             2 ignore_equal              bit (1) unaligned,
24             2 ignore_length             bit (1) unaligned,
25             2 ignore_nonascii           bit (1) unaligned,
26             2 ignore_null               bit (1) unaligned,
27             2 unimplemented             bit (25) unaligned;
28 
29 declare   (
30           CHECK_STAR_ENTRY_DEFAULT      initial ("00010001000"b),     /* Behavior of check_star_name_$entry (obsolete). */
31           CHECK_STAR_IGNORE_ALL         initial ("01010101111"b),     /* Check for *** and classify only.               */
32           CHECK_STAR_IGNORE_ARCHIVE     initial ("01000000000"b),     /* Do not reject archive convention "::".         */
33           CHECK_STAR_IGNORE_ENTRYPOINT  initial ("00010000000"b),     /* Do not reject "$" or "|" characters.           */
34           CHECK_STAR_IGNORE_EQUAL       initial ("00000001000"b),     /* Do not reject "=" or "%" characters.           */
35           CHECK_STAR_IGNORE_LENGTH      initial ("00000000100"b),     /* Do not reject star names longer than 32 chars. */
36           CHECK_STAR_IGNORE_NONASCII    initial ("00000000010"b),     /* No not reject star names with nonASCII chars.  */
37           CHECK_STAR_IGNORE_NULL        initial ("00000000001"b),     /* Do not reject names with null components.      */
38           CHECK_STAR_IGNORE_PATH        initial ("00000100000"b),     /* Do not reject "<" or ">" characters.           */
39           CHECK_STAR_PATH_DEFAULT       initial ("00110011100"b),     /* Behavior of check_star_name_$path (obsolete).  */
40           CHECK_STAR_PROCESS_ARCHIVE    initial ("00100000000"b),     /* Process "::" as archive delimiter.             */
41           CHECK_STAR_PROCESS_ENTRYPOINT initial ("00001000000"b),     /* Ignore trailing entrypoint if present.         */
42           CHECK_STAR_PROCESS_PATH       initial ("00000010000"b),     /* Ignore leading directory path if present.      */
43           CHECK_STAR_REJECT_WILD        initial ("10000000000"b),     /* Return error_table_$nostars if type not zero.  */
44           CHECK_STAR_UNIMPLEMENTED      initial ("001FFFFFF"b4)       /* Nonexistent test flags.  Reject them.          */
45           )                             bit (36) static options (constant);
46 
47 declare   (
48           STAR_TYPE_MATCHES_EVERYTHING  initial (2),
49           STAR_TYPE_USE_MATCH_PROCEDURE initial (1),
50           STAR_TYPE_USE_PL1_COMPARE     initial (0)
51           )                             fixed bin (2) static options (constant);
52 
53 /*  END OF:  check_star_name.incl.pl1                         *  *  *  *  *  */