Advertisement
Guest User

Untitled

a guest
Aug 12th, 2011
212
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 6 0.72 KB | None | 0 0
  1. grammar EPG {
  2.     token TOP           { ^ [ <channel> ** \n ] \n? $ }
  3.     token channel       { [ <channel_start> ] \n [ [ <entry> ** \n ] \n ]? [ <channel_end> ] }
  4.     token channel_start { 'C' \s <channel_id> \s <channel_name> }
  5.     token channel_id    { \S+ }
  6.     token channel_name  { \N+ }
  7.     token entry         {
  8.         <event_start> \n
  9.         <title> \n
  10.         [<short_text> \n]?
  11.         [<description> \n]?
  12.         [<stream> [ [ \n <stream> ] ** 0..* ] \n]?
  13.         [<timestamp> \n]?
  14.         <event_end>
  15.     }
  16.     token channel_end   { c }
  17.     token event_start   { 'E' \N* }
  18.     token title         { 'T' \N* }
  19.     token short_text    { 'S' \N* }
  20.     token description   { 'D' \N* }
  21.     token stream        { 'X' \N* }
  22.     token timestamp     { 'V' \N* }
  23.     token event_end     { 'e' \N* }
  24. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement