Tcl Library Source Code

4_choice at [adc31140b4]
Login

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