-- grammar extracted from MTEvalImpl.mesa by PGS, April 2, 1987 5:42:11 pm PST

||CHAIN ||LISTS

||TABLE1
  1  name-dummy
  2  atom
  3  quoted-string
  4  domain-lit
  5  .
  6  ,
  7  :
  8  ;
  9  @
 10  <
 11  >
 12  eol
 13  error
 14  date-dummy
 15  ampm
 16  day
 17  month
 18  zone
 19  eof

||TABLE2
 20  goal
 21  addr-list
 22  date-time
 23  address
 24  mailbox
 25  group
 26  addr-spec
 27  dot-words
 28  domain
 29  sub-domain
 30  word
 31  phrase
 32  mailbox-list
 33  route-addr
 34  route
 35  date
 36  time
 37  hour


||TABLE3
name-dummy    nameDummy
atom          atomTok
quoted-string qStringTok
domain-lit    dLitTok
.             dotTok
,             commaTok
:             colonTok
;             semiTok
@             atSignTok
<             lBracketTok
>             rBracketTok
error         errorTok
eol           EOLTok
date-dummy    dateDummy
ampm          ampmTok
day           dayTok
month         monthTok
zone          zoneTok


||TABLE4

  1     0  goal           ::= name-dummy addr-list eol 
  2     1                   | date-dummy date-time eol 

  3     2  address        ::= 
  4     3                   | mailbox 
  5     4                   | group 

  6     5  addr-list      ::= address 
  7     6                   | addr-list , address 

  8     7  addr-spec      ::= dot-words 
  9     8                   | addr-spec @ domain 

 10     9  domain         ::= sub-domain 
 11    10                   | domain . sub-domain 

 12    11  dot-words      ::= word 
 13    12                   | dot-words . word 

 14    13  group          ::= phrase : mailbox-list ; 
 15    14                   | phrase : mailbox-list 

 16    15  mailbox        ::= addr-spec 
 17    16                   | route-addr 
 18    17                   | phrase route-addr 
 19    18                   | @ dot-words 

 20    19  mailbox-list   ::= 
 21    20                   | mailbox 
 22    21                   | mailbox-list , 
 23    22                   | mailbox-list , mailbox 

 24    23  phrase         ::= dot-words 
 25    24                   | phrase dot-words 

 26    25  route          ::= @ domain 
 27    26                   | route , @ domain 

 28    27  route-addr     ::= < addr-spec > 
 29    28                   | < route : addr-spec > 

 30    29  sub-domain     ::= atom 
 31    30                   | domain-lit 

 32    31  word           ::= atom 
 33    32                   | quoted-string 

 34    33  date-time      ::= date time 
 35    34                   | day date time 
 36    35                   | day , date time 
 37    36                   | day , date , time 
 38    37                   | day month atom hour atom 
 39    38                   | day month atom hour zone atom 

 40    39  date           ::= atom month atom 
 41    40                   | atom month . atom 
 42    41                   | atom 

 43    42  time           ::= hour zone 
 44    43                   | hour ampm zone 
 45    44                   | hour 

 46    45  hour           ::= atom : atom 
 47    46                   | atom : atom : atom 
 48    47                   | atom