commands.tcl 406 Bytes
Newer Older
1

2
3
4
5
6
7
8
9
10
11
12
# Production command
# FIX!!! need to figure out how to feed back relevant output
# from e.g. "flash banks" command...
proc board_produce {filename serialnumber} {
	openocd "reset init"
	openocd "flash write_image erase $filename [flash] bin"]]
	openocd "verify_image $filename [flash] bin"]]
	echo "Successfully ran production procedure"
}

proc board_test {} {
13
	echo "Production test not implemented"
14
}