modules/page/gen_peg_canon.tcl

15 namespace eval ::page::gen::peg::canon {}
20 proc ::page::gen::peg::canon {t chan} {
24     canon::Setup $t
27     canon::Synth $t
37 proc ::page::gen::peg::canon::Setup {t} {
71 proc ::page::gen::peg::canon::Synth {t} {
82 proc ::page::gen::peg::canon::SynthNode {t n} {
102 proc ::page::gen::peg::canon::SynthNode/Root {t n} {
147 proc ::page::gen::peg::canon::SynthNode/Nonterminal {t n} {
176 proc ::page::gen::peg::canon::SynthNode/t {t n} {
189 proc ::page::gen::peg::canon::SynthNode/n {t n} {
197 proc ::page::gen::peg::canon::SynthNode/.. {t n} {
205 proc ::page::gen::peg::canon::SynthNode/alnum   {t n} {SetBlock $t $n <alnum>}
206 proc ::page::gen::peg::canon::SynthNode/alpha   {t n} {SetBlock $t $n <alpha>}
207 proc ::page::gen::peg::canon::SynthNode/dot     {t n} {SetBlock $t $n .}
208 proc ::page::gen::peg::canon::SynthNode/epsilon {t n} {SetBlock $t $n ""}
210 proc ::page::gen::peg::canon::SynthNode/? {t n} {SynthSuffix $t $n ?}
211 proc ::page::gen::peg::canon::SynthNode/* {t n} {SynthSuffix $t $n *}
212 proc ::page::gen::peg::canon::SynthNode/+ {t n} {SynthSuffix $t $n +}
214 proc ::page::gen::peg::canon::SynthNode/! {t n} {SynthPrefix $t $n !}
215 proc ::page::gen::peg::canon::SynthNode/& {t n} {SynthPrefix $t $n &}
217 proc ::page::gen::peg::canon::SynthSuffix {t n op} {
228 proc ::page::gen::peg::canon::SynthPrefix {t n op} {
239 proc ::page::gen::peg::canon::SynthNode/x {t n} {
326 proc ::page::gen::peg::canon::SynthNode// {t n} {
350 proc ::page::gen::peg::canon::WrapParens {op sop tvar} {
357 proc ::page::gen::peg::canon::Paren {op sop} {
364 proc ::page::gen::peg::canon::Priority {op} {
384 proc ::page::gen::peg::canon::CopyBlock {t n src} {
392 proc ::page::gen::peg::canon::SetBlock {t n text} {
422 proc ::page::gen::peg::canon::AttrFieldLength {modeset} {
428     proc ::page::gen::peg::canon::SHOW {text w h} {
440 namespace eval ::page::gen::peg::canon {
481 package provide page::gen::peg::canon 0.1