platform/atm2/ATM22xx-x1x/openocd/http/source_jimhttp.tcl

proc source_jimhttp {scripts} {
    set save [pwd]
    cd [find jimhttp]
    foreach script $scripts {
	source $script
    }
    cd $save
}