File modules/pt/tests/data/ok/peg_container-templated-incremental/4_choice artifact 4384dfde1f part of check-in adc31140b4
# -*- tcl -*- # Parsing Expression Grammar 'TEMPLATE'. # Generated for unknown, from file 'TEST' package require Tcl 8.5 package require snit package require pt::peg::container snit::type TEMPLATE { constructor {} { install myg using pt::peg::container ${selfns}::G $myg start {/ {t a} {t b} {t c}} } component myg delegate method * to myg } package provide TEMPLATE return