Skip to content

Instantly share code, notes, and snippets.

@ingydotnet
Created September 21, 2011 07:53
Show Gist options
  • Save ingydotnet/1231500 to your computer and use it in GitHub Desktop.
Save ingydotnet/1231500 to your computer and use it in GitHub Desktop.
ingy@thinkingy:~/src/pegex-pgx$ perl -MXXX -MPegex -e 'XXX pegex("pegex.pgx",{wrap=>0})->parse("pegex.pgx")'
---
-
- grammar
-
-
-
- ''
-
-
-
- .
- comment
- '*'
-
-
- ''
- rule_definition
- ''
- +
-
-
- .
- comment
- '*'
-
- rule_definition
-
-
- '~'
-
-
- ''
- rule_name
- ''
-
- <BLANK>*<COLON>~
-
-
- ''
- rule_group
- ''
-
-
- ''
- rule_ending
- ''
-
- rule_group
-
-
-
- ''
- any_group
- ''
-
-
-
-
- ''
- all_group
- ''
-
- all_group
-
-
-
- ''
- rule_part
- ''
-
- '~'
-
- any_group
-
-
-
- ''
- rule_part
- ''
-
-
- ''
-
-
- '~<PIPE>~'
-
-
- ''
- rule_part
- ''
- +
-
- rule_part
-
-
-
- ''
- rule_item
- ''
-
-
- ''
-
-
- '~<WS><STAR><STAR><WS>~'
-
-
- ''
- rule_item
- ''
- '?'
-
- rule_item
-
-
-
- ''
- rule_reference
- ''
-
-
-
-
- ''
- regular_expression
- ''
-
-
-
- ''
- bracketed_group
- ''
-
-
-
- ''
- error_message
- ''
-
- rule_reference
-
-
- (<rule_modifier>?)<LANGLE><rule_name><RANGLE>(<rule_quantifier>?)
-
- regular_expression
-
-
- '<SLASH>([^<SLASH><DOS>]*)<SLASH>'
-
- bracketed_group
-
-
- (<DOT>?)<LSQUARE>~
-
-
- ''
- rule_group
- ''
-
- '~<RSQUARE>(<rule_quantifier>?)'
-
- error_message
-
-
- '<GRAVE>([^<GRAVE><DOS>]*)<GRAVE>'
-
- rule_modifier
-
-
- '[<BANG><EQUAL><PLUS><DASH><DOT>]'
-
- rule_quantifier
-
-
- '[<STAR><PLUS><QMARK>]'
-
- rule_name
-
-
- (<ALPHA><WORD>*)
-
- rule_ending
-
-
- '~?(?:<BREAK>~|<SEMI>~|<EOS>)'
-
- comment
-
-
- (?:<blank_line>|<comment_line>)
-
- blank_line
-
-
- '<BLANK>*<EOL>'
-
- comment_line
-
-
- '<HASH><line>'
-
- line
-
-
- '<ANY>*<EOL>'
...
at -e line 1
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment