1 /* BEGIN INCLUDE FILE ... mlsys_special_chars.incl.pl1 */
  2 /* Created:  June 1981 by G. Palter */
  3 /* Modified: July 1983 by G. Palter for new mail interfaces and RFC822 */
  4 
  5 /* Sets of characters with special meanings to the Multics mail system: */
  6 
  7 /* The definition of whitespace used by the mail system */
  8 
  9 dcl  WHITESPACE character (5) static options (constant) initial ("
 10 ^K^L");                                                     /* horizontal tab, space, newline, vertical tab, formfeed */
 11 
 12 dcl  BACKSLASH_PARENS_NL character (4) static options (constant) initial ("\()
 13 ");
 14 
 15 dcl  BACKSLASH_QUOTE_NL character (3) static options (constant) initial ("\""
 16 ");
 17 
 18 dcl  QUOTE_PARENS_NL character (4) static options (constant) initial ("""()
 19 ");
 20 
 21 
 22 /* Address, date/time, and message-id parsing self-defining tokens and token delimiters */
 23 
 24 dcl  DATE_TIME_BREAKS character (4) static options (constant) initial (",:+-");
 25 
 26 dcl  NORMAL_BREAKS character (8) static options (constant) initial (",:;{}<>@");
 27 
 28 dcl  DATE_TIME_RFC822_DELIMITERS character (13) static options (constant) initial (",:+-()""\
 29 ^K^L");                                                     /* last five are: tab, space, newline, vertical tab, formfeed */
 30 
 31 dcl  DATE_TIME_DELIMITERS character (12) static options (constant) initial (",:+-()""
 32 ^K^L");
 33 
 34 dcl  NORMAL_RFC822_DELIMITERS character (17) static options (constant) initial (",:;{}<>@()""\
 35 ^K^L");
 36 
 37 dcl  NORMAL_DELIMITERS character (16) static options (constant) initial (",:;{}<>@()""
 38 ^K^L");
 39 
 40 dcl  STRUCTURED_RFC822_DELIMITERS character (11) static options (constant) initial ("{}()""\
 41 ^K^L");
 42 
 43 dcl  STRUCTURED_DELIMITERS character (10) static options (constant) initial ("{}()""
 44 ^K^L");
 45 
 46 
 47 /* Characters which must be requoted within the printed or RFC822 representation of addresses */
 48 
 49 dcl  COMMENT_REQUOTE character (7) static options (constant) initial ("()""
 50 ^K^L");
 51 
 52 dcl  COMMENT_RFC822_REQUOTE character (7) static options (constant) initial ("()\
 53 ^K^L");
 54 
 55 dcl  STRUCTURED_REQUOTE character (10) static options (constant) initial ("{}()""
 56 ^K^L");
 57 
 58 dcl  STRUCTURED_RFC822_REQUOTE character (11) static options (constant) initial ("{}()""\
 59 ^K^L");
 60 
 61 dcl  TOP_LEVEL_REQUOTE character (15) static options (constant) initial (",:;<>(){}@""
 62 ^K^L");
 63 
 64 dcl  TOP_LEVEL_RFC822_REQUOTE character (18) static options (constant) initial (",:;<>(){}[]@""\
 65 ^K^L");
 66 
 67 
 68 /* Common sequences used when constructing printed and RFC822 representations */
 69 
 70 dcl (ATSIGN                   initial ("@"),
 71      BACKSLASH                initial ("\"),
 72      CLOSE_PAREN              initial (")"),
 73      COMMA                    initial (","),
 74      SEMICOLON                initial (";"),
 75      HT                       initial ("          "),
 76      BS                       initial ("^H"),
 77      LEFT_ANGLE_BRACKET       initial ("<"),
 78      LEFT_BRACE               initial ("{"),
 79      OPEN_PAREN               initial ("("),
 80      PERIOD                   initial ("."),
 81      QUOTE                    initial (""""),
 82      RIGHT_ANGLE_BRACKET      initial (">"),
 83      RIGHT_BRACE              initial ("}"),
 84      SP                       initial (" "),
 85      COLON                    initial (":"),
 86      HYPHEN                   initial ("-"),
 87      PLUS                     initial ("+"),
 88      NL                       initial ("
 89 "),
 90      CR                       initial ("^M"),
 91      VT                       initial ("^K"),
 92      FF                       initial ("^L"))
 93           character (1) static options (constant);
 94 
 95 dcl (ANGLE_BRACKETS           initial ("<>"),
 96      BACKSLASH_QUOTE          initial ("\"""),
 97      HTSP                     initial ("           "),
 98      NLSP                     initial ("
 99  "),
100      QUOTE_LEFT_BRACE         initial ("""{"),
101      QUOTE_NL                 initial ("""
102 "),
103      QUOTE_QUOTE              initial (""""""),
104      RIGHT_BRACE_QUOTE        initial ("}"""),
105      SP_LEFT_ANGLE_BRACKET    initial (" <"),
106      SP_OPEN_PAREN            initial (" ("),
107      COLON_SP                 initial (": "),
108      COMMA_SP                 initial (", "),
109      SPSP                     initial ("  "),
110      NLNL                     initial ("
111 
112 "))
113           character (2) static options (constant);
114 
115 dcl  SP_AT_SP character (4) static options (constant) initial (" at ");
116 
117 dcl  SP_VIA_SP character (5) static options (constant) initial (" via ");
118 
119 /* END INCLUDE FILE ... mlsys_special_chars.incl.pl1 */