<?xml version = "1.0" encoding="iso-8859-1" standalone="yes"?>
<?xml-stylesheet type="text/xsl" href="plaintext.xsl"?>
<website>
-
+
<language lang="Norsk">
<page lang="eng">
<outfile>index.tcl</outfile>
- <menutext>Config Target</menutext>
- <menulink>index.tcl</menulink>
+ <menutext>Config Target</menutext>
+ <menulink>index.tcl</menulink>
<pageheading>OpenOCD debugger</pageheading>
<level2parent>index.tcl</level2parent>
<level2menu href="index.tcl" title="Target Status" titlestyle="color:#4e6627;">
</level2menu>
- <!--
+ <!--
<level2menu href="terminal.tcl" title="UART forwarding" titlestyle="color:#4e6627;">
</level2menu>
-->
-
+
<pagetext>
<markup_code><![CDATA[
-
+
<table>
<tr><td style="height:10px;width:535px;"> </td></tr>
<tr><td style="height:1px;width:535px;background-color:#a2c5d1;"></td></tr>
<tcl>
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"]]
}
append console [encode [capture_catch "power off"]]
}
</tcl>
-
+
<tcl>append console [encode [capture_catch poll]]</tcl>
</td>
</tr>
</table>
- <form action="index.tcl" method="post">
+ <form action="index.tcl" method="post">
<table><tr>
<td><input type="submit" name="form_action" value="Reset and run"></td>
<td class="buttonspacesmall"></td><td><input type="submit" name="form_action" value="Halt"></td>
<td class="buttonspacesmall"></td><td><input type="submit" name="form_action" value="Power off"></td>
</tr></table>
- <br>
- <br>
-
+ <br>
+ <br>
+
<p>
</form>
]]></markup_code>
<right_column>
<markup_code><![CDATA[
- <p>Target status shows that status of the connected target. </p>
+ <p>Target status shows that status of the connected target. </p>
<p><b>Current target</b> - selected target configuration. <br>
<p><b>Startup</b> - 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. <br>
<p><b>Target power</b> - Detects power on target. <br>
If the JTAG cable is not connected, or the target has no power, then no target power will be detected.</p>
<p>Type "help power" in telnet for command to control power relay.</p>
]]></markup_code>
</right_column>
-
+
</pagetext>
</page>
-
-
+
+
<page lang="eng">
<pageheading>Target config quick start guide</pageheading>
<pagetext>
<markup_code><![CDATA[
-
+
A target needs an openocd.cfg file. This config file sets up
the CPU, flash and reset init script. Either OpenOCD ships with an
openocd.cfg file for your target or you need to take an existing
config file and modify it for your needs.
- <p>
+ <p>
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.
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.
-
-
+
+
]]></markup_code>
<right_column>
-
- Quick start guide on how to configure a target.
+
+ Quick start guide on how to configure a target.
</right_column>
</pagetext>
-
-
+
+
</page>
-
+
<page lang="eng">
<outfile>flashinfo.tcl</outfile>
- <menutext>Flash</menutext>
- <menulink>flashinfo.tcl</menulink>
+ <menutext>Flash</menutext>
+ <menulink>flashinfo.tcl</menulink>
<pageheading>Flash Information</pageheading>
<level2parent>flashinfo.tcl</level2parent>
<level2menu href="flashinfo.tcl" title="Info" titlestyle="color:#4e6627;">
<markup_code><![CDATA[
<div style="font-size:14px;">Configured flash banks:</div>
- <p>
+ <p>
<code style="white-space: nowrap;">
<tcl>
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"]]
}
</tcl>
<p>
- <form action="flashinfo.tcl" method="post">
+ <form action="flashinfo.tcl" method="post">
<input type="submit" name="form_action" value="Reset CPU and probe flash">
</form>
<tcl>
foreach a [ocd_flash_banks] {
append buffer "Flash bank at [format "0x%08x size 0x%08x" $a(base) $a(size)]: "
</tcl>
- <form action="downloadmem.tcl" method="post">
+ <form action="downloadmem.tcl" method="post">
<input type="hidden" name="form_address" value="<tcl>append buffer [format "0x%08x" $a(base)]</tcl>">
<input type="hidden" name="form_length" value="<tcl>append buffer [format "0x%08x" $a(size)]</tcl>">
-
+
<input type="submit" value="Download" name="form_action">
<br>
</form>
}
</tcl>
</code>
-
+
]]></markup_code>
<right_column>
the different sectors in the flash, and the flash driver used.</p>
]]>
</right_column>
-
+
</pagetext>
</page>
<pageheading>Program / Verify Flash</pageheading>
<pagetext>
<markup_code><![CDATA[
-
+
<tcl>
-
+
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 ""
}
-
+
</tcl><code style="white-space: nowrap;"><tcl>
-
+
set data ""
append buffer {<form enctype="multipart/form-data" action="flash.tcl" method="post">}
-
- set action_reset [expr {[string length $form_action]!=0}]
- set action_flash [expr {[string compare $form_action "Flash"]==0 || [string compare $form_action "Flash and verify"]==0}]
+
+ set action_reset [expr {[string length $form_action]!=0}]
+ set action_flash [expr {[string compare $form_action "Flash"]==0 || [string compare $form_action "Flash and verify"]==0}]
set action_verify [expr {[string compare $form_action "Verify"]==0 || [string compare $form_action "Flash and verify"]==0}]
-
+
if {$action_reset} {
append console [encode [capture_catch "reset init"]]
}
</tcl>
</code><tcl>
-
+
append buffer {<table>}
append buffer {<tr><td class="formtext">File</td><td><input type="file" name="form_filecontent"></td></tr>}
append buffer "<tr><td class=\"formtext\" >Offset</td><td><input type=\"text\" name=\"form_offset\" value=\"$form_offset\"></td></tr>"
-
+
</tcl>
<tr><td class="formtext" style="padding-top:1px;">Type</td><td>
<select name="form_type">
- <option
- <tcl>if {[string compare $form_type ""]==0} { append buffer {selected="selected"} } </tcl>
- value ="">auto</option>
- <option
- <tcl>if {[string compare $form_type "elf"]==0} { append buffer {selected="selected"} } </tcl>
- value ="elf">elf</option>
- <option
- <tcl>if {[string compare $form_type "bin"]==0} { append buffer {selected="selected"} } </tcl>
- value ="bin">binary</option>
- <option
- <tcl>if {[string compare $form_type "ihex"]==0} { append buffer {selected="selected"} } </tcl>
- value ="ihex">ihex</option>
- <!-- broken <option value ="s19">s19</option> -->
+ <option
+ <tcl>if {[string compare $form_type ""]==0} { append buffer {selected="selected"} } </tcl>
+ value ="">auto</option>
+ <option
+ <tcl>if {[string compare $form_type "elf"]==0} { append buffer {selected="selected"} } </tcl>
+ value ="elf">elf</option>
+ <option
+ <tcl>if {[string compare $form_type "bin"]==0} { append buffer {selected="selected"} } </tcl>
+ value ="bin">binary</option>
+ <option
+ <tcl>if {[string compare $form_type "ihex"]==0} { append buffer {selected="selected"} } </tcl>
+ value ="ihex">ihex</option>
+ <!-- broken <option value ="s19">s19</option> -->
</select>
</td>
-
+
</tr>
-
-
+
+
</table>
-
+
<table>
<tr><td style="height:15px;width:535px;"> </td></tr>
<tr><td style="height:1px;width:535px;background-color:#a2c5d1;"></td></tr>
<tr><td style="height:15px;width:535px;"> </td></tr>
</table>
-
+
<table><tr>
<td><input type="submit" name="form_action" value="Flash" ></td>
<td class="buttonspacesmall"></td><td><input type="submit" name="form_action" value="Flash and verify" ></td>
<td class="buttonspacesmall"></td><td><input type="submit" name="form_action" value="Verify" ></td>
</tr></table>
-
+
<p>
<tcl>
-
+
if {$action_flash||$action_verify} {
catch {writeform form_filecontent $upload_filename} result
append console [encode $result]
}
append buffer "</b>"
}
- </tcl>
-
+ </tcl>
+
</form>
-
+
]]></markup_code>
-
+
<right_column>
<![CDATA[
<p>Program and/or verify the flash on your target.</p>
<p><b>Flash</b> - Halt CPU, automatically erase flash if required and program flash with image.</p>
<p><b>Flash and verify</b> - Programs the flash and verifies the programmed flash content is correct.</p>
<p><b>Verify</b> - Halt CPU and verify image in flash or RAM.</p>
- <p><b>Offset</b> - This value is added to the address of the image.<br>
- Binary images start at address 0 by default, whereas elf and ihex have addresses encoded into the image.<br>
+ <p><b>Offset</b> - This value is added to the address of the image.<br>
+ Binary images start at address 0 by default, whereas elf and ihex have addresses encoded into the image.<br>
Typically 0 for elf/ihex and the address to write the image to for binary files.</p>
- ]]>
+ ]]>
</right_column>
-
-
+
+
</pagetext>
-
+
</page>
set form_serialnumber [formfetch form_serialnumber]
append buffer [production_info]
</tcl>
-
+
<form enctype="multipart/form-data" action="production.tcl" method="post">
<code style="white-space: nowrap;">
- <tcl>
+ <tcl>
if {[string compare $form_action "Upload firmware"]==0} {
- set wrotedata [catch {writeform form_filecontent $upload_filename} result]
+ set wrotedata [catch {writeform form_filecontent $upload_filename} result]
append buffer [encode $result]
if {$wrotedata==0} {
append buffer "<br>Running production procedure<p>"
append buffer "<br>Reset and init: <br>"
-
+
append console [encode [capture_catch {catch "production $upload_filename $form_serialnumber"}]]
}
}
if {[string compare $form_action "Test"]==0} {
append buffer "<br>Running production test. Output from first 10 seconds printed below. <p>"
-
+
append console [encode [capture_catch {catch production_test}]]
}
if {[string compare $form_action "Power on"]==0} {
append buffer {<p class="formtext">Firmware file(raw binary) <input type="file" name="form_filecontent"><p>}
append buffer {<p class="formtext">Serial number <input type="text" name="form_serialnumber"><p>}
</tcl>
-
+
<table>
<tr><td style="height:15px;width:535px;"> </td></tr>
<tr><td style="height:1px;width:535px;background-color:#a2c5d1;"></td></tr>
<tr><td style="height:15px;width:535px;"> </td></tr>
</table>
-
+
<table><tr>
<td><input type="submit" name="form_action" value="Upload firmware" ></td>
<td class="buttonspacesmall"> </td><td><input type="submit" name="form_action" value="Test"></td>
<td class="buttonspacesmall"> </td><td><input type="submit" name="form_action" value="Power off">
</tr></table>
</form>
-
+
]]></markup_code>
-
+
<right_column>
<![CDATA[
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.
-
+
<p><b>Upload firmware</b> - Power cycle target, reset target and program raw binary file to flash bank 0, offset 0 and verify flash programming. Leave target powered on.</p>
- <p><b>Test</b> - Power up target, run 10 second target test. Output is provided via the DCC output channel. </p>
+ <p><b>Test</b> - Power up target, run 10 second target test. Output is provided via the DCC output channel. </p>
<p><b>Power on</b> - Power on target.</p>
<p><b>Power off</b> - Power off target.</p>
<p><b>Serial number</b> - A target script can use this string in the production procedure. Type "help production" for more info.</p>
- ]]>
+ ]]>
</right_column>
-
-
+
+
</pagetext>
-
+
</page>
<page lang="eng">
<outfile>erase.tcl</outfile>
- <menulink>erase.tcl</menulink>
+ <menulink>erase.tcl</menulink>
<pageheading>Erase Flash</pageheading>
<level2parent>flashinfo.tcl</level2parent>
<pagetext>
<markup_code><![CDATA[
-
+
<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 "<code style=\"white-space: nowrap;\">"
reset init
flash erase_address $form_address $form_length}]]
append buffer </code>
- }
+ }
}
-
-
+
+
</tcl>
-
- <form action="erase.tcl" method="post">
+
+ <form action="erase.tcl" method="post">
<table>
<tr><td class="formtext" style="padding-right:10px;">Address</td><td><input type="text" name="form_address" value="<tcl>append buffer $form_address</tcl>"></td></tr>
<tr><td class="formtext">Length</td><td><input type="text" name="form_length" value="<tcl>append buffer $form_length</tcl>"></td></tr>
<tr><td style="height:1px;width:535px;background-color:#a2c5d1;"></td></tr>
<tr><td style="height:15px;width:535px;"> </td></tr>
</table>
-
+
<input type="submit" name="form_action" value="Erase"><br>
-
-
+
+
</form>
-
-
+
+
]]></markup_code>
<right_column>
<![CDATA[
<p>The length field is specified in number of bytes.</p>
]]>
</right_column>
-
+
</pagetext>
</page>
<page lang="eng">
<outfile>run.tcl</outfile>
- <menulink>run.tcl</menulink>
+ <menulink>run.tcl</menulink>
<pageheading>Run program</pageheading>
<level2parent>flashinfo.tcl</level2parent>
<pagetext>
<markup_code><![CDATA[
-
+
<tcl>
set form_address [formfetch form_address]
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]]
</tcl>
-<form action="run.tcl" method="post">
+<form action="run.tcl" method="post">
<table>
<tr><td class="formtext" style="padding-right:10px;">Address</td><td><input type="text" name="form_address" value="<tcl>append buffer $form_address</tcl>"></td></tr>
</td></tr>
<tr><td style="height:1px;width:535px;background-color:#a2c5d1;"></td></tr>
<tr><td style="height:15px;width:535px;"> </td></tr>
</table>
-
+
<input type="submit" name="form_action" value="Reset and run"> <input type="submit" name="form_action" value="Run from address"> <input type="submit" name="form_action" value="Halt"><input type="submit" name="form_action" value="Reset and init"><br>
</form>
-
-
+
+
]]></markup_code>
<right_column>
<![CDATA[
<p>Reset and init - reset CPU and run init script.</p>
]]>
</right_column>
-
+
</pagetext>
</page>
<page lang="eng">
<outfile>browsemem.tcl</outfile>
- <menutext>Memory</menutext>
- <menulink>browsemem.tcl</menulink>
+ <menutext>Memory</menutext>
+ <menulink>browsemem.tcl</menulink>
<pageheading>Browse / Edit Memory</pageheading>
<level2parent>browsemem.tcl</level2parent>
<level2menu href="browsemem.tcl" title="Browse / Edit" titlestyle="color:#4e6627;">
</level2menu>
<level2menu href="downloadmem.tcl" title="Download" titlestyle="color:#4e6627;">
<![CDATA[
- Copy memory range to developer machine
+ Copy memory range to developer machine
]]>
</level2menu>
-
+
<pagetext>
<markup_code><![CDATA[
-
+
<tcl>
-
+
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
} 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"]
- }
+ }
}
-
-
+
+
</tcl>
-
- <form action="browsemem.tcl" method="post">
+
+ <form action="browsemem.tcl" method="post">
<table>
<tr><td class="formtext">Address</td><td><input type="text" name="form_address" value="<tcl>append buffer $form_address</tcl>"></td></tr>
<tr><td class="formtext">Length</td><td><input type="text" name="form_length" value="<tcl>append buffer "0x[tohex $form_length]"</tcl>"></td></tr>
<td class="buttonspacesmall"> </td><td><input type="submit" name="form_action" value="Fill"></td></tr>
<tr><td class="formtext">Type</td><td style="padding-top:1px;">
<select name="form_type">
- <option
- <tcl>if {[string compare $form_type "mdb"]==0} { append buffer {selected="selected"} } </tcl> value ="mdb">8 bit
- </option>
- <option
- <tcl>if {[string compare $form_type "mdh"]==0} { append buffer {selected="selected"} } </tcl> value ="mdh">16 bit
- </option>
- <option
- <tcl>if {[string compare $form_type "mdw"]==0} { append buffer {selected="selected"} } </tcl>value ="mdw">32 bit
- </option>
+ <option
+ <tcl>if {[string compare $form_type "mdb"]==0} { append buffer {selected="selected"} } </tcl> value ="mdb">8 bit
+ </option>
+ <option
+ <tcl>if {[string compare $form_type "mdh"]==0} { append buffer {selected="selected"} } </tcl> value ="mdh">16 bit
+ </option>
+ <option
+ <tcl>if {[string compare $form_type "mdw"]==0} { append buffer {selected="selected"} } </tcl>value ="mdw">32 bit
+ </option>
</select>
-
+
</td></tr>
</table>
<table>
<tr><td style="height:1px;width:535px;background-color:#a2c5d1;"></td></tr>
<tr><td style="height:15px;width:535px;"> </td></tr>
</table>
-
+
<table><tr>
<td><input type="submit" name="form_action" value="Refresh"></td>
<td class="buttonspacesmall"> </td><td><input type="submit" name="form_action" value="Previous" ></td>
<td class="buttonspacesmall"> </td><td><input type="submit" name="form_action" value="Next" ></td>
</tr></table>
<br>
-
+
</form>
<p>
<div class="fontbigger">Memory:</div><p>
if {[string compare $form_address ""]!=0} {
append console [encode [capture_catch halt]]
append buffer [encode [capture_catch "$form_type $form_address [expr $form_length]"]]
- }
+ }
</tcl>
</code>
-
-
+
+
]]></markup_code>
<right_column>
<![CDATA[
<p>Browse and edit target memory.<br>
- Length is in bytes, maximum 4096 bytes.</p>
+ Length is in bytes, maximum 4096 bytes.</p>
<p>An error message is shown when trying to browse or edit memory which cases a CPU fault.</p>
<p>CPU will be halted if required.</p>
<p><b>Modify</b> - Will modify only one byte, half-word or word starting at Address.</p>
<p><b>Refresh</b> - Display the content of the specified memory area.</p>
]]>
</right_column>
-
+
</pagetext>
</page>
-
+
<page lang="eng">
set form_address [formfetch form_address]
set form_length [formfetch form_length]
set form_action [formfetch form_action]
- </tcl>
- <form action="downloadmem.tcl" method="post">
+ </tcl>
+ <form action="downloadmem.tcl" method="post">
<table>
<tr><td class="formtext">Address</td><td><input type="text" name="form_address" value="<tcl>append buffer $form_address</tcl>"></td></tr>
<tr><td class="formtext">Length</td><td><input type="text" name="form_length" value="<tcl>append buffer $form_length</tcl>"></td></tr>
<tr><td style="height:1px;width:535px;background-color:#a2c5d1;"></td></tr>
<tr><td style="height:15px;width:535px;"> </td></tr>
</table>
-
+
<input type="submit" value="Download" name="form_action">
-
-
+
+
</form>
<tcl>
if {[string compare $form_action "Download"]==0} {
append console [encode [capture_catch "reset init"]]
append console [encode [capture_catch "dump_image /tmp/dump.bin $form_address $form_length"]]
</tcl>
- <form action="../dump.bin" target="_blank">
+ <form action="../dump.bin" target="_blank">
<input type="submit" name="form_action" value="Save downloaded memory">
</form>
- <tcl>
+ <tcl>
}
-
+
</tcl>
-
+
]]></markup_code>
<right_column>
- <![CDATA[
+ <![CDATA[
Download memory from target. <br>
<b>Note</b> that download memory can take
a long time(potentially minutes for megabytes at low JTAG clk speeds).
]]>
</right_column>
</pagetext>
-
+
</page>
<page lang="eng">
<outfile>openocd.tcl</outfile>
- <menutext>OpenOCD</menutext>
- <menulink>openocd.tcl</menulink>
+ <menutext>OpenOCD</menutext>
+ <menulink>openocd.tcl</menulink>
<pageheading>Run Command</pageheading>
<level2parent>openocd.tcl</level2parent>
<level2menu href="openocd.tcl" title="Run Command" titlestyle="color:#4e6627;">
</level2menu>
<level2menu href="guiupload.tcl" title="Upload File" titlestyle="color:#4e6627;">
<![CDATA[
- Upload file
+ Upload file
]]>
</level2menu>
-
+
<pagetext>
<markup_code><![CDATA[
if {[string length $form_command]>0} {
set form_edittext [capture_catch {eval $form_command}]
}
-
+
append buffer {<form action="openocd.tcl" method="post">} "\n"
append buffer {Command<br>}
- append buffer {<textarea style="overflow:auto;" rows="5" cols="65" name="form_command" wrap="off">}
+ append buffer {<textarea style="overflow:auto;" rows="5" cols="65" name="form_command" wrap="off">}
append buffer [to_textarea $form_command]
append buffer {</textarea><br>}
append buffer {<input type="submit" value="Run" name="form_action" ><br>}
- append buffer {<textarea style="overflow:auto;" rows="21" cols="65" name="form_edittext" readonly=1 wrap="off">}
+ append buffer {<textarea style="overflow:auto;" rows="21" cols="65" name="form_edittext" readonly=1 wrap="off">}
append buffer [to_textarea $form_edittext]
append buffer {</textarea><br>}
-
+
append buffer {</form>} "\n"
-
+
</tcl>
]]></markup_code>
-
+
<right_column>
<![CDATA[
<p>Run tcl statement(s). Add "ocd_" prefix to OpenOCD commands otherwise
<code>
curl --form form_command=ocd_version <tcl>append buffer [ip]</tcl>runtcl.tcl
</code>
-
+
]]>
</right_column>
</pagetext>
</page>
-
-
+
+
<page lang="eng">
<outfile>guiupload.tcl</outfile>
<level2parent>openocd.tcl</level2parent>
<pageheading>Upload File</pageheading>
<pagetext>
<markup_code><![CDATA[
-
+
<tcl>
set form_filename [formfetch form_filename];
set form_action [formfetch form_action];
#set form_filecontent [formfetch form_filecontent];
-
+
append buffer {<form enctype="multipart/form-data" action="guiupload.tcl" method="post">}
- append buffer <br>
+ append buffer <br>
if {[string compare $form_action "Upload"]==0} {
if {[catch {writeform form_filecontent $form_filename} result]==0} {
append buffer [encode $result]
append buffer Wrote $form_filename
}
}
-
+
append buffer {<table style="padding:0px;border-collapse:collapse;"><tr><td class="formtext">Filename on OpenOCD machine</td><td><input type="text" name="form_filename"></td></tr>}
append buffer {<td class="formtext">File to upload</td><td><input type="file" name="form_filecontent"></td></tr></table>}
append buffer {<table><tr><td style="height:15px;width:535px;"> </td></tr><tr><td style="height:1px;width:535px;background-color:#a2c5d1;"></td></tr><tr><td style="height:15px;width:535px;"> </td></tr></table>}
append buffer {<input type="submit" name="form_action" value="Upload" ><br> }
append buffer {</form>}
-
+
</tcl>
-
+
]]></markup_code>
</pagetext>
-
+
</page>
-
+
<page lang="eng">
<pageheading>Target config quick start guide</pageheading>
<pagetext>
<markup_code><![CDATA[
-
+
A target needs an openocd.cfg file. This config file sets up
the CPU, flash and reset init script. Either OpenOCD ships with an
openocd.cfg file for your target or you need to take an existing
config file and modify it for your needs.
- <p>
+ <p>
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.
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.
-
-
+
+
]]></markup_code>
<right_column>
-
- Quick start guide on how to configure a target.
+
+ Quick start guide on how to configure a target.
</right_column>
</pagetext>
-
-
+
+
</page>
-
+
<page lang="eng">
- <menulink>index.tcl</menulink>
+ <menulink>index.tcl</menulink>
<level2parent>index.tcl</level2parent>
<outfile>terminal.tcl</outfile>
<pageheading>UART forwarding</pageheading>
set form_action [formfetch form_action]
</tcl>
<form action="terminal.tcl" method="post">
- Target baudrate:
+ Target baudrate:
<select name="form_baudrate">
<tcl>
- foreach i {9600 19200 38400 57600 115200} {
+ foreach i {9600 19200 38400 57600 115200} {
+ </tcl>
+ <option <tcl>if {[string compare $form_baudrate $i]==0} { append buffer {selected="selected"} } </tcl>
+ value ="<tcl>append buffer $i</tcl>"><tcl>append buffer $i</tcl></option>
+ <tcl>
+ }
</tcl>
- <option <tcl>if {[string compare $form_baudrate $i]==0} { append buffer {selected="selected"} } </tcl>
- value ="<tcl>append buffer $i</tcl>"><tcl>append buffer $i</tcl></option>
- <tcl>
- }
- </tcl>
</select>
- <p>
+ <p>
<input type="submit" name="form_action" value="Set baudrate" >
- </form>
+ </form>
<tcl>
if {[string compare $form_action "Set baudrate"]==0} {
append console [encode [ocd_uart $form_baudrate]]
}
</tcl>
-
+
<h2>Simple UART</h2>
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
]]>
</right_column>
</pagetext>
-
+
</page>
-
+
</language>
-
-</website>
\ No newline at end of file
+
+</website>
<!DOCTYPE xsl:stylesheet [<!ENTITY nbsp " ">]>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns="http://www.w3.org/TR/REC-html40" version="1.0">
<xsl:output method="html" version="4.0" indent="yes" encoding="UTF-8"
-
+
media-type="text/plain; charset=UTF-8"/>
<xsl:param name="pagetogenerate" select="UNDEFINED"/>
<html>
<head>
<title>OpenOCD debugger</title>
- <meta http-equiv="Content-Type" content="text/html" charset="utf-8"/>
- <link href="menuweb.css" rel="stylesheet" type="text/css"/>
-
+ <meta http-equiv="Content-Type" content="text/html" charset="utf-8"/>
+ <link href="menuweb.css" rel="stylesheet" type="text/css"/>
+
</head>
-
-
+
+
<tcl>
set console ""
set upload_filename /ram/upload
</tcl>
-
+
<body style="margin:0px;">
<div style="width:974px;height:85px;">
<div style="float:left;position:relative;left:32px;width:478px;">
</xsl:for-each>
<tr>
<td style="width:140px;height:35px;background-image:url('menu_cuts/v_1.png')">
-
+
</td>
</tr>
<tr>
<td style="width:140px;background-image:url('menu_cuts/v_2_tile.png')">
-
+
</td>
</tr>
<tr>
<td style="width:140px;height:140px;background-image:url('menu_cuts/v_3.png')">
-
+
</td>
</tr>
</table>
</xsl:for-each>
</tr>
</table>
- </td>
- </tr>
- <tr>
- <td colspan="6" style="height:30px;width:535px;background-image:url('menu_cuts/center_top.png');background-repeat: no-repeat;background-position:top right;">
- <div style="width:500px;background-color:#ffffff;height:100%;">
-
- </div>
- </td>
- </tr>
- <tr>
- <td colspan="6" style="background-color:#ffffff;text-indent:30px;height:40px;">
- <H1><xsl:value-of select="pageheading"/></H1>
- </td>
- </tr>
- <tr style="height:100%;">
- <td colspan="6" style="background-color:#ffffff;padding-left:30px;padding-right:30px;width=535px;height:100%;">
+ </td>
+ </tr>
+ <tr>
+ <td colspan="6" style="height:30px;width:535px;background-image:url('menu_cuts/center_top.png');background-repeat: no-repeat;background-position:top right;">
+ <div style="width:500px;background-color:#ffffff;height:100%;">
+
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td colspan="6" style="background-color:#ffffff;text-indent:30px;height:40px;">
+ <H1><xsl:value-of select="pageheading"/></H1>
+ </td>
+ </tr>
+ <tr style="height:100%;">
+ <td colspan="6" style="background-color:#ffffff;padding-left:30px;padding-right:30px;width=535px;height:100%;">
<xsl:value-of disable-output-escaping="yes" select="pagetext/markup_code"/>
- </td>
- </tr>
- <tcl>
- <!-- This is the output from any OpenOCD commands -->
- 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} {
- </tcl>
- <tr style="height:100%;">
- <td colspan="6" style="height:100%;background-color:red;">
+ </td>
+ </tr>
+ <tcl>
+ <!-- This is the output from any OpenOCD commands -->
+ 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} {
+ </tcl>
+ <tr style="height:100%;">
+ <td colspan="6" style="height:100%;background-color:red;">
<table class="textgray" style="padding:0px;border-collapse:collapse;background-color:#ffffff;width:100%">
- <td style="width:25px;"> </td>
- <tcl>
- if {$show_details==1} {
- append buffer <xsl:text disable-output-escaping="yes"><![CDATA[<]]></xsl:text>
- append buffer {td style="background-color:#dddddd;padding-left:5px;padding-right:5px;padding-top:3px;padding-bottom:3px;"}
- append buffer <xsl:text disable-output-escaping="yes"><![CDATA[>]]></xsl:text>
- } else {
- append buffer <xsl:text disable-output-escaping="yes"><![CDATA[<]]></xsl:text>
- 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 <xsl:text disable-output-escaping="yes"><![CDATA[>]]></xsl:text>
- }
- </tcl>
- <a class="openocd">
+ <td style="width:25px;"> </td>
+ <tcl>
+ if {$show_details==1} {
+ append buffer <xsl:text disable-output-escaping="yes"><![CDATA[<]]></xsl:text>
+ append buffer {td style="background-color:#dddddd;padding-left:5px;padding-right:5px;padding-top:3px;padding-bottom:3px;"}
+ append buffer <xsl:text disable-output-escaping="yes"><![CDATA[>]]></xsl:text>
+ } else {
+ append buffer <xsl:text disable-output-escaping="yes"><![CDATA[<]]></xsl:text>
+ 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 <xsl:text disable-output-escaping="yes"><![CDATA[>]]></xsl:text>
+ }
+ </tcl>
+ <a class="openocd">
<xsl:attribute name="href"><xsl:value-of select="$pagetogenerate"/>?toggle_details=1</xsl:attribute>
<tcl>
if {$show_details==1} {
append buffer "Hide details"
- append buffer <br/>
+ append buffer <br/>
} else {
append buffer {<div style="position:relative;top:7px;text-align:center;">}
append buffer "Show details"
append buffer {</div>}
}
</tcl>
- </a>
- <tcl>
- if {$show_details==1} {
- append buffer $console
- }
- </tcl>
+ </a>
+ <tcl>
+ if {$show_details==1} {
+ append buffer $console
+ }
+ </tcl>
<xsl:text disable-output-escaping="yes"><![CDATA[<]]></xsl:text>/td<xsl:text disable-output-escaping="yes"><![CDATA[>]]></xsl:text>
<tcl>
- if {$show_details!=1} {
- append buffer {<td> </td>}
- }
+ if {$show_details!=1} {
+ append buffer {<td> </td>}
+ }
</tcl>
- <td style="width:25px;"> </td>
- </table>
- </td>
+ <td style="width:25px;"> </td>
+ </table>
+ </td>
</tr>
- <tcl>
+ <tcl>
}
</tcl>
- <tr>
- <td colspan="6" style="height:30px;background-image:url('menu_cuts/center_bottom.png');background-repeat: no-repeat;background-position:top right;">
- <div style="width:500px;background-color:#ffffff;height:100%;">
-
- </div>
- </td>
- </tr>
- </table>
+ <tr>
+ <td colspan="6" style="height:30px;background-image:url('menu_cuts/center_bottom.png');background-repeat: no-repeat;background-position:top right;">
+ <div style="width:500px;background-color:#ffffff;height:100%;">
+
+ </div>
+ </td>
+ </tr>
+ </table>
</td>
<td style="width:6px;">
</td>
<tr>
<td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab2_selected.png');background-repeat: no-repeat;">
<div class="textgray" style="position:relative;top:7px;;font-weight:bold;text-align:center;width:100px;">
- Documentation
+ Documentation
</div>
- </td>
- <td width="40px">
-
- </td>
- <td>
- </td>
+ </td>
+ <td width="40px">
+
+ </td>
+ <td>
+ </td>
+ </tr>
+ <tr>
+ <td colspan="3" style="height:10px;width:245px;background-image:url('menu_cuts/right_top_small.png');"></td>
+ </tr>
+ <tr>
+ <td colspan="3" style="background-color:#d8d7d7;width:245px;padding-left:10px;padding-buttom:10px;line-height:17px;">
+ <a href="http://openocd.berlios.de/doc/openocd.pdf" target="_blank">OpenOCD Manual</a><br/>
+ </td>
</tr>
- <tr>
- <td colspan="3" style="height:10px;width:245px;background-image:url('menu_cuts/right_top_small.png');"></td>
- </tr>
- <tr>
- <td colspan="3" style="background-color:#d8d7d7;width:245px;padding-left:10px;padding-buttom:10px;line-height:17px;">
- <a href="http://openocd.berlios.de/doc/openocd.pdf" target="_blank">OpenOCD Manual</a><br/>
- </td>
- </tr>
- <tr><td colspan="3" style="background-color:#d8d7d7;height:15px;"></td></tr>
- <tr>
- <td colspan="3">
- <table style="padding:0px;border-collapse:collapse;">
- <td style="background-color:#d8d7d7;width:10px;height:1px"></td>
- <td style="background-color:#999999;width:225px; height:1px;"></td>
- <td style="background-color:#d8d7d7;width:10px;height:1px"></td>
- </table>
- </td>
- </tr>
- <tr><td colspan="3" style="background-color:#d8d7d7;height:15px;"></td></tr>
- <tr style="height:100%;">
- <td class="textgray" colspan="3" style="height:100%;background-color:#d8d7d7;padding-left:10px;padding-right:10px;">
+ <tr><td colspan="3" style="background-color:#d8d7d7;height:15px;"></td></tr>
+ <tr>
+ <td colspan="3">
+ <table style="padding:0px;border-collapse:collapse;">
+ <td style="background-color:#d8d7d7;width:10px;height:1px"></td>
+ <td style="background-color:#999999;width:225px; height:1px;"></td>
+ <td style="background-color:#d8d7d7;width:10px;height:1px"></td>
+ </table>
+ </td>
+ </tr>
+ <tr><td colspan="3" style="background-color:#d8d7d7;height:15px;"></td></tr>
+ <tr style="height:100%;">
+ <td class="textgray" colspan="3" style="height:100%;background-color:#d8d7d7;padding-left:10px;padding-right:10px;">
<xsl:choose>
<xsl:when test="(pagetext/right_column)">
<xsl:value-of disable-output-escaping="yes" select="pagetext/right_column"/>
</xsl:when>
<xsl:otherwise>
-
+
</xsl:otherwise>
</xsl:choose>
- </td>
- </tr>
- <tr>
- <td colspan="3" style="height:30px;background-image:url('menu_cuts/right_bottom.png');">
-
- </td>
- </tr>
+ </td>
+ </tr>
+ <tr>
+ <td colspan="3" style="height:30px;background-image:url('menu_cuts/right_bottom.png');">
+
+ </td>
+ </tr>
</table>
-
+
</td>
</tr>
-
+
</table>
</body>
</html>
Code Review / openocd.git / commitdiff