1 /* BEGIN INCLUDE FILE ... mlsys_parse_txt_options.incl.pl1 */
 2 /* Created:  June 1983 by G. Palter */
 3 
 4 /* Options for the mlsys_utils_$parse_address_list_text and mlsys_utils_$parse_message_text entrypoints */
 5 
 6 dcl  1 parse_text_options aligned based (parse_text_options_ptr),
 7        2 version character (8) unaligned,
 8        2 area_ptr pointer,                                  /* -> area for following structures; null => system free */
 9        2 flags,
10          3 list_errors bit (1) unaligned,                   /* ON => return the list of errors in the input text */
11          3 validate_addresses bit (1) unaligned,            /* ON => validate the existence of the addresses in the
12                                                                      address list or message */
13          3 include_invalid_addresses bit (1) unaligned,     /* ON => create an invalid address for each unparseable
14                                                                      substring of the input text */
15          3 mbz bit (33) unaligned;                          /* must be set to ""b by the caller */
16 
17 dcl  PARSE_TEXT_OPTIONS_VERSION_1 character (8) static options (constant) initial ("mlsptxt1");
18 
19 dcl  parse_text_options_ptr pointer;
20 
21 
22 /* Describes the errors detected while parsing the printed representation of an address list or message */
23 
24 dcl  1 parse_text_error_list aligned based (parse_text_error_list_ptr),
25        2 n_errors fixed binary,                             /* set to # of errors detected */
26        2 errors (parse_text_error_list_n_errors refer (parse_text_error_list.n_errors)),
27          3 text_start fixed binary (21),                    /* ... set to index of first character in the substring */
28          3 text_lth fixed binary (21),                      /* ... set to length of this invalid substring */
29          3 code fixed binary (35),                          /* ... set to an error code which describes what is wrong with
30                                                                    this substring */
31          3 additional_info character (128) varying;         /* ... and extra information to clarify the error */
32 
33 dcl  parse_text_error_list_ptr pointer;
34 
35 dcl  parse_text_error_list_n_errors fixed binary;           /* used to allocate the above structure */
36 
37 /* END INCLUDE FILE ... mlsys_parse_txt_options.incl.pl1 */