Tcl Library Source Code

Artifact 77051ab6083bb4f2ac3f0686a233eb71549eed6b:

• File modules/pt/tests/data/ok/peg_container-bulk/10_notahead — 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: 359)

snit::type a_pe_grammar {
    constructor {} {
        install myg using pt::peg::container ${selfns}::G
        $myg start {n TEST}
        $myg add   TEST
        $myg modes {
            TEST value
        }
        $myg rules {
            TEST {x {! {t a}} {n IDENTIFIER}}
        }
        return
    }

    component myg
    delegate method * to myg
}