compilers/tge/TGE/Parser.pg

   1 grammar TGE::Parser;
   2
   3 token start { ^ <TGE::Parser::statements>* [ $ | <syntax_error> ] }
   4
   5 rule statements {
   6      <transrule>
   7     | <grammardec>
   8 }
   9
  10 rule grammardec {
  11     grammar <type> <inherit>?';'
  12 }
  13
  14 rule inherit {
  15     is <type>
  16 }
  17
  18 rule transrule {
  19     transform <name>
  20     '(' <type> ')'
  21     <parent>?
  22     <language>?
  23     <action>
  24 }
  25
  26 rule parent {
  27     ':applyto' '(' \'(<-[']>*)\' ')'
  28 }
  29
  30 rule language {
  31     ':language' '(' \'(\w+)\' ')'
  32 }
  33
  34 token action {
  35     '{' (<-[}]>*) '}'
  36 }
  37
  38 token type {
  39     [ '::' ]? \w+ [ '::' \w+ ]*
  40 }
  41
  42 token name { \w+ }
  43
  44 token ws {
  45     [ \s+
  46     | \# \N*
  47     | <.pod_comment>
  48     ]*
  49 }
  50
  51
  52 regex pod_comment {
  53     ^^ '=' [ [ cut \h*: | end [\h\N*]? ]
  54            | for [ \h\N+: ] \n [ \N+\n ]*:
  55            | \w\N*: \n .*? \n '=' [ cut \h*: | end [\h\N*:]? ]
  56            ]
  57            [\n|$]
  58 }
  59
  60 token syntax_error { <?die: 'Syntax error'> }