1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 |
|
# some dummy proc's to get things going for test purposes
proc ip {} {
return 10.0.0.55
}
proc start_chunked {a} {
global httpdata
global httpmime
set httpmime $a
set httpdata ""
}
proc write_chunked {a} {
global httpdata
append httpdata $a
}
proc end_chunked {} {
}
#proc formfetch {a} {
# global httppostdata
#catch {
# echo "$a=$httppostdata($a)"
#return $httppostdata($a)
#}
#
#return ""
#}
proc tohex {a} {
set r ""
while 1 {
set rem [expr $a%16]
set a [expr $a/16]
set r [string index "0123456789abcdef" $rem]$r
if ($a==0) then break
}
return $r
}
# encode text
proc encode {a} {
return [string map {\n
{ } { } \t { } > > < < / /} $a]
}
#stubs that can be overriden to save between sessions
proc load_var {a} {
global glob_var
catch {
return $glob_var($a)
}
return ""
}
#stubs that can be overriden to save between sessions
proc save_var {a b} {
catch {
set glob_var($a) $b
return ""
} err
set glob_var($a) ""
return ""
}
proc to_textarea {a} {
return [string map {& & > > < < / /} $a]
}
proc from_textarea {a} {
return [string map {> > < < & & / /} $a]
}
proc lunion {a b} {
foreach e $a {
set x($e) {}
}
foreach e $b {
if {![info exists x($e)]} {
lappend a $e
}
}
return $a
}
# encode text
proc encode {a} {
return [string map {\n
{ } { } \t { } > > < < / /} $a]
}
proc first_flash_base {} {
set t [lindex 0 [ocd_flash_banks]]
return $t(base)
}
git/2012/05/openembedded-core.git/refs/?id=7186fa2474c5ca393dfc1557ef27bad02757aac9'>refslogtreecommitdiff