X-Git-Url: https://review.openocd.org/gitweb?p=openocd.git;a=blobdiff_plain;f=src%2Fserver%2Fhttpd%2Fproduction.tcl;h=7c5ba6357ac0bec1209db5078ddcc7d5e55acfaf;hp=8172800b3a82fab7b3b1cc80096f8adbef6c1bcf;hb=015bf559444edd9e7c524e951aad183fdaab9156;hpb=6e1184dcffaf807476ab312404c1bc0a32c38c36 diff --git a/src/server/httpd/production.tcl b/src/server/httpd/production.tcl index 8172800b3a..7c5ba6357a 100644 --- a/src/server/httpd/production.tcl +++ b/src/server/httpd/production.tcl @@ -1,392 +1,392 @@ -# converted to .tcl by html2tcl.tcl -set buffer "" -append buffer { - - - - - - - - - - - - - - - - - - - - - - -OpenOCD debugger - - - -} - - set console "" - set upload_filename /ram/upload - -append buffer { - -
-
- - OpenOCD - -
-
-
-} -append buffer [capture version] -append buffer { -
-
-
- - - - - - - -
-
-   -
-		 - - - - - - - - - - - - - - - - - - - - - -
-
-
-Info -
-
-
-Erase -
-
- -
- -
-
-
-
-		 - - - - - - - - - - - - - -} - - - 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 { - - - -
- - - - - - - -
- - -
-Flash -
-		 -
-Memory -
-		 - -
-
-
-   -
-
-

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 - +# converted to .tcl by html2tcl.tcl +set buffer "" +append buffer { + + + + + + + + + + + + + + + + + + + + + + +OpenOCD debugger + + + +} + + set console "" + set upload_filename /ram/upload + +append buffer { + +
+
+ + OpenOCD + +
+
+
+} +append buffer [capture version] +append buffer { +
+
+
+ + + + + + + +
+
+   +
+		 + + + + + + + + + + + + + + + + + + + + + +
+
+
+Info +
+
+
+Erase +
+
+ +
+ +
+
+
+
+		 + + + + + + + + + + + + + +} + + + 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 { + + + +
+ + + + + + + +
+ + +
+Flash +
+		 +
+Memory +
+		 + +
+
+
+   +
+
+

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 +