Lines Matching defs:op
16 namespace eval ::pt::pe::op {
26 proc ::pt::pe::op::rename {nt ntnew serial} {
35 proc ::pt::pe::op::drop {dropset serial} {
43 proc ::pt::pe::op::called {serial} {
49 proc ::pt::pe::op::flatten {serial} {
55 proc ::pt::pe::op::fusechars {serial} {
64 proc ::pt::pe::op::Drop {dropset pe op arguments} {
65 if {$op eq "n"} {
74 switch -exact -- $op {
87 set pe [list $op {*}$newarg]
95 proc ::pt::pe::op::Rename {nt ntnew pe op arguments} {
96 #puts R($op)/$arguments/
97 if {($op eq "n") && ([lindex $arguments 0] eq $nt)} {
104 proc ::pt::pe::op::Called {pe op arguments} {
109 #puts -nonewline C|$op|$arguments|=
110 switch -exact -- $op {
124 proc ::pt::pe::op::Flatten {pe op arguments} {
125 switch -exact -- $op {
133 if {[lindex $c 0] eq $op} {
142 return [list $op {*}$res]
152 proc ::pt::pe::op::FuseChars {pe op arguments} {
153 switch -exact -- $op {
205 proc ::pt::pe::op::CollectTerminal {c} {
216 proc ::pt::pe::op::FuseTerminal {} {
247 proc ::pt::pe::op::CollectClass {c} {
262 proc ::pt::pe::op::FuseClass {} {
312 namespace eval ::pt::pe::op {}
317 package provide pt::pe::op 1