head	1.1;
access;
symbols
	tcllib-1-13:1.1;
locks; strict;
comment	@# @;


1.1
date	2010.03.26.05.07.25;	author andreas_kupries;	state Exp;
branches;
next	;


desc
@@


1.1
log
@
	* New module, 'pt' for ParserTools. Requires Tcl 8.5. Supercedes
	  grammar_peg, grammar_me, and page.
@
text
@# -*- text -*-
# Parsing Expression Grammar 'TEMPLATE'.
# Generated for unknown, from file 'TEST'

#
# Grammar Start Expression
#

<<MAIN>>:
         call              kleene_3
         halt


kleene_3:
# *
#     'a'

         loc_push
         error_push

         call              char_1

         error_pop_merge
   fail! jump              failed_4
         loc_pop_discard
         jump              kleene_3

failed_4:
         loc_pop_rewind
         status_ok
         return

char_1:
# 'a'

         input_next        "t a"
     ok! test_char         "a"
         return

#
#
@
