Tcl Library Source Code

Artifact 8a8c9b856e77daddd81ef12a339c722a15c4eabd:

• File modules/pt/tests/data/ok/peg_container-templated-bulk/1_functions — 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: 757)

# -*- 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 {n Expression}
        $myg add   Expression Function Sinus
        $myg modes {
            Expression value
            Function   value
            Sinus      value
        }
        $myg rules {
            Expression {n Function}
            Function   {n Sinus}
            Sinus      {x {t s} {t i} {t n} {t \50} {n Expression} {t \51}}
        }
        return
    }

    component myg
    delegate method * to myg
}

package provide TEMPLATE
return