Lines Matching +defs:grammar +defs:peg
10 ## a parsing expression grammar provided by a peg container. The
21 package require grammar::me::tcl
26 namespace eval ::grammar::peg::interp {
29 namespace import ::grammar::me::tcl::*
30 upvar #0 ::grammar::me::tcl::ok ok
36 proc ::grammar::peg::interp::setup {peg} {
41 if {![$peg is valid]} {
42 return -code error "Cannot initialize interpreter for invalid grammar"
44 set se [$peg start]
45 foreach s [$peg nonterminals] {
46 set ru($s) [$peg nonterminal rule $s]
47 set mo($s) [$peg nonterminal mode $s]
54 proc ::grammar::peg::interp::parse {nxcmd emvar astvar} {
77 proc ::grammar::peg::interp::MatchExpr {e} {
332 namespace eval ::grammar::peg::interp {
350 package provide grammar::peg::interp 0.1