Advertisement
Guest User

Untitled

a guest
Jan 20th, 2013
117
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 6 0.33 KB | None | 0 0
  1. rule RlStatements {
  2.     <.term>?
  3.     [   <TkStatement>
  4.         [   <.TkTerm>+
  5.         |   <.before <TkEndBlock>>
  6.         |   $
  7.         |   <panic: Unterminated Statement>
  8.         ]
  9.     ]*  
  10.     {*}
  11. }
  12.  
  13. rule stmts {
  14.     <.term>?[ <stmt> [<.term>+ | <.before <end_block>> | $ | <panic: unterminated statement>] ]* {*}
  15. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement