Lines Matching refs:proc

38 proc do_backcompat_test {rv bin1 bin2 script} {
46     proc code2 {tcl} { uplevel #0 $tcl }
47     if {$bin1 != ""} { proc code2 {tcl} { testfixture $::bc_chan1 $tcl } }
48     proc code1 {tcl} { testfixture $::bc_chan2 $tcl }
50     proc code1 {tcl} { uplevel #0 $tcl }
51     if {$bin1 != ""} { proc code1 {tcl} { testfixture $::bc_chan1 $tcl } }
52     proc code2 {tcl} { testfixture $::bc_chan2 $tcl }
55   proc sql1 sql { code1 [list db eval $sql] }
56   proc sql2 sql { code2 [list db eval $sql] }
82 proc do_allbackcompat_test {script} {
95       proc do_test {nm sql res} {
111 proc read_file {zFile} {
130 proc write_file {zFile zData} {
136 proc read_file_system {} {
141 proc write_file_system {data} {