From 7c5acf8660ddfce4746152e03749b699532f513f Mon Sep 17 00:00:00 2001
From: Antonio Borneo
Date: Wed, 30 Dec 2009 07:48:49 +0800
Subject: whitespace cleanup, mostly for docs
Remove useless space/tab at end of lines.
Remove spaces in indentation and replace with tab.
Signed-off-by: Antonio Borneo
Signed-off-by: David Brownell
---
src/server/httpd/menu.xml | 454 +++++++++++++++++++++----------------------
src/server/httpd/menu.xsl | 240 +++++++++++------------
src/server/httpd/menuweb.css | 6 +-
src/server/httpd/readme.txt | 2 +-
4 files changed, 351 insertions(+), 351 deletions(-)
(limited to 'src/server/httpd')
diff --git a/src/server/httpd/menu.xml b/src/server/httpd/menu.xml
index ef1d4ec8..be144641 100644
--- a/src/server/httpd/menu.xml
+++ b/src/server/httpd/menu.xml
@@ -1,26 +1,26 @@
-
+
index.tcl
- Config Target
- index.tcl
+ Config Target
+ index.tclOpenOCD debuggerindex.tcl
-
-
+
 
@@ -35,18 +35,18 @@
set form_address [formfetch form_address]
set form_action [formfetch form_action]
-
+
if {[string compare $form_action "Halt"]==0} {
append console [encode [capture_catch "halt"]]
}
if {[string compare $form_action "Resume"]==0} {
append console [encode [capture_catch "resume"]]
}
-
+
if {[string compare $form_action "Reset and run"]==0} {
append console [encode [capture_catch "reset run"]]
}
-
+
if {[string compare $form_action "Power on"]==0} {
append console [encode [capture_catch "power on"]]
}
@@ -54,13 +54,13 @@
append console [encode [capture_catch "power off"]]
}
-
+
append console [encode [capture_catch poll]]
-
]]>Target status shows that status of the connected target.
+
Target status shows that status of the connected target.
Current target - selected target configuration.
Startup - whether or not the target script ran to completion. Note
that even if the target is disconnected, powered down or unresponsive, the
startup script will still run to completion. Startup - OK does not mean
that the target is fully operational, simply that the configuration script
- did not contain syntax errors for instance.
+ did not contain syntax errors for instance.
See log for details.
Target power - Detects power on target.
If the JTAG cable is not connected, or the target has no power, then no target power will be detected.
Type "help power" in telnet for command to control power relay.
The reset init script is crucial. It will set up e.g. MMU, chip
select registers, etc. after a reset. The init.cfg (reset init script)
is embedded into the openocd.cfg file in the sampls OpenOCD provides.
@@ -116,25 +116,25 @@
Writing an openocd.cfg from scratch is a non-trivial exercise, but
fortunally it only has to be done once for a target and afterwards it
rarely if ever needs to be changed.
-
-
+
+
]]>
-
- Quick start guide on how to configure a target.
+
+ Quick start guide on how to configure a target.
-
-
+
+
-
+
flashinfo.tcl
- Flash
- flashinfo.tcl
+ Flash
+ flashinfo.tclFlash Informationflashinfo.tcl
@@ -150,13 +150,13 @@
Configured flash banks:
-
+
set flash_return [ocd_flash_banks]
if {[llength $flash_return]!=0} {
append buffer [encode [flash banks]]
-
+
set form_action [formfetch form_action]
if {[string compare $form_action "Reset CPU and probe flash"]==0} {
append console [encode [capture_catch "reset init"]]
@@ -168,17 +168,17 @@
}
-
foreach a [ocd_flash_banks] {
append buffer "Flash bank at [format "0x%08x size 0x%08x" $a(base) $a(size)]: "
-
@@ -186,7 +186,7 @@
}
-
+
]]>
@@ -198,7 +198,7 @@
the different sectors in the flash, and the flash driver used.
]]>
-
+
@@ -208,82 +208,82 @@
Program / Verify Flash
-
+
set form_offset [formfetch form_offset]
set form_action [formfetch form_action]
set form_type [formfetch form_type]
-
-
+
+
set post ""
catch {set post $post_data} err
-
+
if {[string compare $form_offset ""]==0} {
set form_offset 0
}
if {[string compare $form_type ""]==0} {
set form_type ""
}
-
+
-
+
set data ""
append buffer {
-
+
append buffer {
+
-
+
]]>
-
+
Program and/or verify the flash on your target.
Flash - Halt CPU, automatically erase flash if required and program flash with image.
Flash and verify - Programs the flash and verifies the programmed flash content is correct.
Verify - Halt CPU and verify image in flash or RAM.
-
Offset - This value is added to the address of the image.
- Binary images start at address 0 by default, whereas elf and ihex have addresses encoded into the image.
+
Offset - This value is added to the address of the image.
+ Binary images start at address 0 by default, whereas elf and ihex have addresses encoded into the image.
Typically 0 for elf/ihex and the address to write the image to for binary files.
- ]]>
+ ]]>
-
-
+
+
-
+
@@ -350,23 +350,23 @@
set form_serialnumber [formfetch form_serialnumber]
append buffer [production_info]
-
+
-
+
]]>
-
+
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.
+
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.
- ]]>
+ ]]>
-
-
+
+
-
+
erase.tcl
- erase.tcl
+ erase.tclErase Flashflashinfo.tcl
-
+
set form_address [formfetch form_address]
set form_length [formfetch form_length]
set form_action [formfetch form_action]
-
+
if {[string compare $form_length ""]==0} {
set form_length 0x10000
- }
+ }
if {[string compare $form_address ""]==0} {
if {[catch {[first_flash_base]} result]==0} {
set form_address "0x[tohex $result]"
- }
- }
-
-
+ }
+ }
+
+
if {[string compare $form_address ""]!=0} {
if {[string compare $form_action "Erase"]==0} {
append buffer ""
@@ -451,13 +451,13 @@
reset init
flash erase_address $form_address $form_length}]]
append buffer
- }
+ }
}
-
-
+
+
-
-
-
-
+
+
]]>
The length field is specified in number of bytes.
]]>
-
+
run.tcl
- run.tcl
+ run.tclRun programflashinfo.tcl
set form_address [formfetch form_address]
@@ -508,26 +508,26 @@ if {[string compare $form_action "Run from address"]==0} {
append console [encode [capture_catch "halt"]]
append console [encode [capture_catch "wait_halt"]]
append console [encode [capture_catch "resume $form_address"]]
-}
+}
if {[string compare $form_action "Halt"]==0} {
append console [encode [capture_catch "halt"]]
append console [encode [capture_catch "wait_halt"]]
}
-
+
if {[string compare $form_action "Reset and run"]==0} {
append console [encode [capture_catch "reset run"]]
}
-
+
if {[string compare $form_action "Reset and init"]==0} {
append console [encode [capture_catch "reset init"]]
-}
+}
append console [encode [capture_catch poll]]
-
-
-
+
+
]]>
Reset and init - reset CPU and run init script.
]]>
-
+
browsemem.tcl
- Memory
- browsemem.tcl
+ Memory
+ browsemem.tclBrowse / Edit Memorybrowsemem.tcl
@@ -570,53 +570,53 @@ append console [encode [capture_catch poll]]
-
+
-
+
set form_address [formfetch form_address]
set form_length [formfetch form_length]
set form_type [formfetch form_type]
set form_action [formfetch form_action]
set form_value [formfetch form_value]
-
+
if {[string compare $form_length ""]==0} {
set form_length 0
- }
+ }
if {$form_length<=0} {
set form_length 0x80
- }
+ }
if {$form_length>0x1000} {
set form_length 0x1000
- }
-
+ }
+
if {[string compare $form_type ""]==0} {
set form_type mdw
}
-
+
if {[string compare $form_type "mdw"]==0} {
set wordsize 4
- set modify_cmd mww
+ set modify_cmd mww
}
if {[string compare $form_type "mdh"]==0} {
set wordsize 2
- set modify_cmd mwh
+ set modify_cmd mwh
}
if {[string compare $form_type "mdb"]==0} {
set wordsize 1
- set modify_cmd mwb
+ set modify_cmd mwb
}
-
-
-
-
+
+
+
+
if {[string compare $form_address ""]!=0} {
if {[string compare $form_action "Previous"]==0} {
# Kludge! Work around problems parsing hex in Jim Tcl expressions
@@ -626,24 +626,24 @@ append console [encode [capture_catch poll]]
} else {
set form_address "0x0"
}
- }
+ }
if {[string compare $form_action "Next"]==0} {
# Kludge! Work around problems parsing hex in Jim Tcl expressions
incr form_address ; set form_address [expr $form_address-1]
set form_address "0x[tohex [expr $form_address+$form_length]]"
- }
+ }
if {[string compare $form_action "Modify"]==0} {
append console [capture_catch "$modify_cmd $form_address $form_value"]
- }
+ }
if {[string compare $form_action "Fill"]==0} {
append console [capture_catch "$modify_cmd $form_address $form_value $form_length"]
- }
+ }
}
-
-
+
+
-
-
The reset init script is crucial. It will set up e.g. MMU, chip
select registers, etc. after a reset. The init.cfg (reset init script)
is embedded into the openocd.cfg file in the sampls OpenOCD provides.
@@ -892,24 +892,24 @@ append console [encode [capture_catch poll]]
Writing an openocd.cfg from scratch is a non-trivial exercise, but
fortunally it only has to be done once for a target and afterwards it
rarely if ever needs to be changed.
-
-
+
+
]]>
-
- Quick start guide on how to configure a target.
+
+ Quick start guide on how to configure a target.
-
-
+
+
-
+
- index.tcl
+ index.tclindex.tclterminal.tclUART forwarding
@@ -924,27 +924,27 @@ append console [encode [capture_catch poll]]
set form_action [formfetch form_action]
+
if {[string compare $form_action "Set baudrate"]==0} {
append console [encode [ocd_uart $form_baudrate]]
}
-
+
Simple UART
This terminal window is purely for illustrative purposes. Use telnet or a terminal program
to talk to the target over TCP/IP for anything but trivial case of reading/writing a few
@@ -963,11 +963,11 @@ append console [encode [capture_catch poll]]
]]>
-
+
-
+
-
-
\ No newline at end of file
+
+
diff --git a/src/server/httpd/menu.xsl b/src/server/httpd/menu.xsl
index 7b47d9e0..b54f16c7 100644
--- a/src/server/httpd/menu.xsl
+++ b/src/server/httpd/menu.xsl
@@ -2,7 +2,7 @@
]>
@@ -16,17 +16,17 @@
OpenOCD debugger
-
-
-
+
+
+
-
-
+
+
set console ""
set upload_filename /ram/upload
-
+
@@ -92,17 +92,17 @@
-
+
-
+
-
+
@@ -142,96 +142,96 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
- 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} {
-
-
-
+
+
+
+
+ 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} {
+
+