1 # some dummy proc's to get things going for test purposes
9 proc start_chunked {a} {
16 proc write_chunked {a} {
29 # echo "$a=$httppostdata($a)"
30 #return $httppostdata($a)
45 set r [string index "0123456789abcdef" $rem]$r
53 return [string map {\n <br/> { } { } \t { } > > < < / /} $a]
56 #stubs that can be overriden to save between sessions
64 #stubs that can be overriden to save between sessions
76 proc to_textarea {a} {
77 return [string map {& & > > < < / /} $a]
80 proc from_textarea {a} {
81 return [string map {> > < < & & / /} $a]
89 if {![info exists x($e)]} {
99 return [string map {\n <br/> { } { } \t { } > > < < / /} $a]
102 # catch any exceptions, capture output and return it
103 proc capture_catch {a} {
110 proc first_flash_base {} {
111 set t [lindex 0 [ocd_flash_banks]]