# converted to .tcl by html2tcl.tcl set buffer "" append buffer { OpenOCD debugger } set console "" set upload_filename /ram/upload append buffer {

} append buffer [capture version] append buffer {

Info

Erase

Program / Verify

Production

} set toggle_details [formfetch toggle_details] if {[string length $toggle_details]==0} { set toggle_details 0 } set show_details [load_var show_details] if {[string length $show_details]==0} { set show_details 0 } if {$toggle_details==1} { set show_details [expr 1-$show_details] save_var show_details $show_details } if {[string length $console]!=0} { append buffer { } } append buffer {

Config Target

Flash

Memory

OpenOCD

Production

} set form_action [formfetch form_action] set form_serialnumber [formfetch form_serialnumber] append buffer [production_info] append buffer {


					}
	
						if {[string compare $form_action "Upload firmware"]==0} {
							set wrotedata [catch {writeform form_filecontent $upload_filename} result]  
							append buffer [encode $result]
							if {$wrotedata==0} {
								append buffer "
Running production procedure"
								append buffer "
Reset and init: 
"
								
								append console [encode [capture_catch {catch "production $upload_filename $form_serialnumber"}]]
							}
						}
						if {[string compare $form_action "Test"]==0} {
							append buffer "
Running production test. Output from first 10 seconds printed below.

" append console [encode [capture_catch {catch production_test}]] } if {[string compare $form_action "Power on"]==0} { append console [encode [capture_catch "power on"]] } if {[string compare $form_action "Power off"]==0} { append console [encode [capture_catch "power off"]] } append buffer { } append buffer {

Firmware file(raw binary)

} append buffer {

Serial number

} append buffer {

} if {$show_details==1} { append buffer < append buffer {td style="background-color:#dddddd;padding-left:5px;padding-right:5px;padding-top:3px;padding-bottom:3px;"} append buffer > } else { append buffer < append buffer {td style="background-image:url('menu_cuts/h_tab_free.png');width:110px;height:29px;background-repeat: no-repeat;background-position:top left;"} append buffer > } append buffer { } if {$show_details==1} { append buffer "Hide details" append buffer
} else { append buffer {

} append buffer "Show details" append buffer {

} } append buffer { } if {$show_details==1} { append buffer $console } append buffer {} if {$show_details!=1} { append buffer {} } append buffer {

Documentation

OpenOCD Manual

The target script can implement the "production", "production_info" and "production_test" tcl proc's. These procedures are used on this page. There are default implementations that do nothing.

Upload firmware - Power cycle target, reset target and program raw binary file to flash bank 0, offset 0 and verify flash programming. Leave target powered on.

Test - Power up target, run 10 second target test. Output is provided via the DCC output channel.

Power on - Power on target.

Power off - Power off target.

Serial number - A target script can use this string in the production procedure. Type "help production" for more info.

} start_chunked "html" write_chunked $buffer end_chunked