Artifact 68ab71bd7ac8ab3198b7aa7c5859e3e68f749317:
- File modules/pt/tests/data/ok/peg_param-inlined/9_ahead — part of check-in [6d971eaca0] at 2010-03-26 05:07:24 on branch trunk — * New module, 'pt' for ParserTools. Requires Tcl 8.5. Supercedes grammar_peg, grammar_me, and page. (user: andreas_kupries size: 1206)
- File modules/pt/tests/data/ok/peg_param/9_ahead — part of check-in [6d971eaca0] at 2010-03-26 05:07:24 on branch trunk — * New module, 'pt' for ParserTools. Requires Tcl 8.5. Supercedes grammar_peg, grammar_me, and page. (user: andreas_kupries size: 1206)
# -*- text -*-
# Parsing Expression Grammar 'TEMPLATE'.
# Generated for unknown, from file 'TEST'
#
# Grammar Start Expression
#
<<MAIN>>:
call sym_TEST
halt
#
# value Symbol 'TEST'
#
sym_TEST:
# x
# &
# 'a'
# (IDENTIFIER)
symbol_restore TEST
found! jump found_9
loc_push
call sequence_6
fail! value_clear
ok! value_leaf TEST
symbol_save TEST
error_nonterminal TEST
loc_pop_discard
found_9:
ok! ast_value_push
return
sequence_6:
# x
# &
# 'a'
# (IDENTIFIER)
loc_push
error_clear
error_push
call ahead_3
error_pop_merge
fail! jump failed_7
error_push
status_fail ; # Undefined symbol 'IDENTIFIER'
error_pop_merge
fail! jump failed_7
loc_pop_discard
return
failed_7:
loc_pop_rewind
return
ahead_3:
# &
# 'a'
loc_push
input_next "t a"
ok! test_char "a"
loc_pop_rewind
return
#
#