1 <?xml version = "1.0" encoding="iso-8859-1" standalone="yes"?>
\r
2 <?xml-stylesheet type="text/xsl" href="plaintext.xsl"?>
\r
5 <language lang="Norsk">
\r
8 <outfile>index.tcl</outfile>
\r
9 <menutext>Config Target</menutext>
\r
10 <menulink>index.tcl</menulink>
\r
11 <pageheading>OpenOCD debugger</pageheading>
\r
12 <level2parent>index.tcl</level2parent>
\r
13 <level2menu href="index.tcl" title="Target Status" titlestyle="color:#4e6627;">
\r
16 <level2menu href="terminal.tcl" title="UART forwarding" titlestyle="color:#4e6627;">
\r
21 <markup_code><![CDATA[
\r
25 <tr><td style="height:10px;width:535px;"> </td></tr>
\r
26 <tr><td style="height:1px;width:535px;background-color:#a2c5d1;"></td></tr>
\r
27 <tr><td style="height:5px;width:535px;"> </td></tr>
\r
30 <H1>Target Status</H1>
\r
34 <td class="fontbigger">
\r
36 set form_address [formfetch form_address]
\r
37 set form_action [formfetch form_action]
\r
39 if {[string compare $form_action "Halt"]==0} {
\r
40 append console [encode [capture_catch "halt"]]
\r
42 if {[string compare $form_action "Resume"]==0} {
\r
43 append console [encode [capture_catch "resume"]]
\r
46 if {[string compare $form_action "Reset and run"]==0} {
\r
47 append console [encode [capture_catch "reset run"]]
\r
50 if {[string compare $form_action "Power on"]==0} {
\r
51 append console [encode [capture_catch "power on"]]
\r
53 if {[string compare $form_action "Power off"]==0} {
\r
54 append console [encode [capture_catch "power off"]]
\r
58 <tcl>append console [encode [capture_catch poll]]</tcl>
\r
63 <form action="index.tcl" method="post">
\r
65 <td><input type="submit" name="form_action" value="Reset and run"></td>
\r
66 <td class="buttonspacesmall"></td><td><input type="submit" name="form_action" value="Halt"></td>
\r
67 <td class="buttonspacesmall"></td><td><input type="submit" name="form_action" value="Resume"></td>
\r
68 <td style="width:50px;"></td><td><input type="submit" name="form_action" value="Power on"></td>
\r
69 <td class="buttonspacesmall"></td><td><input type="submit" name="form_action" value="Power off"></td>
\r
79 <markup_code><![CDATA[
\r
80 <p>Target status shows that status of the connected target. </p>
\r
81 <p><b>Current target</b> - selected target configuration. <br>
\r
82 <p><b>Startup</b> - whether or not the target script ran to completion. Note
\r
83 that even if the target is disconnected, powered down or unresponsive, the
\r
84 startup script will still run to completion. Startup - OK does not mean
\r
85 that the target is fully operational, simply that the configuration script
\r
86 did not contain syntax errors for instance.
\r
87 See log for details. <br>
\r
88 <p><b>Target power</b> - Detects power on target. <br>
\r
89 If the JTAG cable is not connected, or the target has no power, then no target power will be detected.</p>
\r
90 <p>Type "help power" in telnet for command to control power relay.</p>
\r
101 <outfile>targets.tcl</outfile>
\r
102 <level2parent>documentation.tcl</level2parent>
\r
103 <pageheading>Target config quick start guide</pageheading>
\r
105 <markup_code><![CDATA[
\r
107 A target needs an openocd.cfg file. This config file sets up
\r
108 the CPU, flash and reset init script. Either OpenOCD ships with an
\r
109 openocd.cfg file for your target or you need to take an existing
\r
110 config file and modify it for your needs.
\r
112 The reset init script is crucial. It will set up e.g. MMU, chip
\r
113 select registers, etc. after a reset. The init.cfg (reset init script)
\r
114 is embedded into the openocd.cfg file in the sampls OpenOCD provides.
\r
116 Writing an openocd.cfg from scratch is a non-trivial exercise, but
\r
117 fortunally it only has to be done once for a target and afterwards it
\r
118 rarely if ever needs to be changed.
\r
124 Quick start guide on how to configure a target.
\r
135 <outfile>flashinfo.tcl</outfile>
\r
136 <menutext>Flash</menutext>
\r
137 <menulink>flashinfo.tcl</menulink>
\r
138 <pageheading>Flash Information</pageheading>
\r
139 <level2parent>flashinfo.tcl</level2parent>
\r
140 <level2menu href="flashinfo.tcl" title="Info" titlestyle="color:#4e6627;">
\r
142 <level2menu href="erase.tcl" title="Erase" titlestyle="color:#4e6627;">
\r
144 <level2menu href="flash.tcl" title="Program / Verify" titlestyle="color:#4e6627;">
\r
146 <level2menu href="production.tcl" title="Production" titlestyle="color:#4e6627;">
\r
150 <markup_code><![CDATA[
\r
152 <div style="font-size:14px;">Configured flash banks:</div>
\r
154 <code style="white-space: nowrap;">
\r
156 set flash_return [ocd_flash_banks]
\r
157 if {[llength $flash_return]!=0} {
\r
158 append buffer [encode [flash banks]]
\r
160 set form_action [formfetch form_action]
\r
161 if {[string compare $form_action "Reset CPU and probe flash"]==0} {
\r
162 append console [encode [capture_catch "reset init"]]
\r
163 append buffer [encode [capture_catch "flash probe 0"]]
\r
164 append buffer [encode [capture_catch "flash info 0"]]
\r
167 append buffer "No flash bank configured."
\r
171 <form action="flashinfo.tcl" method="post">
\r
172 <input type="submit" name="form_action" value="Reset CPU and probe flash">
\r
175 foreach a [ocd_flash_banks] {
\r
176 append buffer "Flash bank at [format "0x%08x size 0x%08x" $a(base) $a(size)]: "
\r
178 <form action="downloadmem.tcl" method="post">
\r
179 <input type="hidden" name="form_address" value="<tcl>append buffer [format "0x%08x" $a(base)]</tcl>">
\r
180 <input type="hidden" name="form_length" value="<tcl>append buffer [format "0x%08x" $a(size)]</tcl>">
\r
182 <input type="submit" value="Download" name="form_action">
\r
194 <p>Here you will find information about the flash chips that you have
\r
195 in your configuration.<p/>
\r
196 <p><b>Reset CPU and probe flash</b> - This will reset the CPU and show
\r
197 you more detailed information about your flash. This includes information about
\r
198 the different sectors in the flash, and the flash driver used.</p>
\r
206 <outfile>flash.tcl</outfile>
\r
207 <level2parent>flashinfo.tcl</level2parent>
\r
208 <pageheading>Program / Verify Flash</pageheading>
\r
210 <markup_code><![CDATA[
\r
214 set form_offset [formfetch form_offset]
\r
215 set form_action [formfetch form_action]
\r
216 set form_type [formfetch form_type]
\r
220 catch {set post $post_data} err
\r
222 if {[string compare $form_offset ""]==0} {
\r
225 if {[string compare $form_type ""]==0} {
\r
229 </tcl><code style="white-space: nowrap;"><tcl>
\r
232 append buffer {<form enctype="multipart/form-data" action="flash.tcl" method="post">}
\r
234 set action_reset [expr {[string length $form_action]!=0}]
\r
235 set action_flash [expr {[string compare $form_action "Flash"]==0 || [string compare $form_action "Flash and verify"]==0}]
\r
236 set action_verify [expr {[string compare $form_action "Verify"]==0 || [string compare $form_action "Flash and verify"]==0}]
\r
238 if {$action_reset} {
\r
239 append console [encode [capture_catch "reset init"]]
\r
244 append buffer {<table>}
\r
245 append buffer {<tr><td class="formtext">File</td><td><input type="file" name="form_filecontent"></td></tr>}
\r
246 append buffer "<tr><td class=\"formtext\" >Offset</td><td><input type=\"text\" name=\"form_offset\" value=\"$form_offset\"></td></tr>"
\r
249 <tr><td class="formtext" style="padding-top:1px;">Type</td><td>
\r
250 <select name="form_type">
\r
252 <tcl>if {[string compare $form_type ""]==0} { append buffer {selected="selected"} } </tcl>
\r
253 value ="">auto</option>
\r
255 <tcl>if {[string compare $form_type "elf"]==0} { append buffer {selected="selected"} } </tcl>
\r
256 value ="elf">elf</option>
\r
258 <tcl>if {[string compare $form_type "bin"]==0} { append buffer {selected="selected"} } </tcl>
\r
259 value ="bin">binary</option>
\r
261 <tcl>if {[string compare $form_type "ihex"]==0} { append buffer {selected="selected"} } </tcl>
\r
262 value ="ihex">ihex</option>
\r
263 <!-- broken <option value ="s19">s19</option> -->
\r
273 <tr><td style="height:15px;width:535px;"> </td></tr>
\r
274 <tr><td style="height:1px;width:535px;background-color:#a2c5d1;"></td></tr>
\r
275 <tr><td style="height:15px;width:535px;"> </td></tr>
\r
279 <td><input type="submit" name="form_action" value="Flash" ></td>
\r
280 <td class="buttonspacesmall"></td><td><input type="submit" name="form_action" value="Flash and verify" ></td>
\r
281 <td class="buttonspacesmall"></td><td><input type="submit" name="form_action" value="Verify" ></td>
\r
287 if {$action_flash||$action_verify} {
\r
288 catch {writeform form_filecontent $upload_filename} result
\r
289 append console [encode $result]
\r
291 append buffer "<br>"
\r
292 if {$action_flash} {
\r
293 append console [encode [capture_catch "halt"]]
\r
294 append buffer "<b>"
\r
295 if {[catch {capture_catch {eval "flash write_image erase $upload_filename $form_offset $form_type"}} result]} {
\r
296 append buffer "Flash write failed<br>"
\r
297 append console [encode $result]
\r
299 append buffer [encode $result]
\r
300 append buffer "Flash write succeed<br>"
\r
302 append buffer "</b>"
\r
304 if {$action_verify} {
\r
305 append console [encode [capture_catch "halt"]]
\r
306 append buffer "<b>"
\r
307 if {[catch {capture_catch {eval "verify_image $upload_filename $form_offset $form_type"}} result]} {
\r
308 append buffer "Verify failed<br>"
\r
309 append console [encode $result]
\r
311 append buffer [encode $result]
\r
312 append buffer "Verify succeed<br>"
\r
314 append buffer "</b>"
\r
324 <p>Program and/or verify the flash on your target.</p>
\r
325 <p><b>Flash</b> - Halt CPU, automatically erase flash if required and program flash with image.</p>
\r
326 <p><b>Flash and verify</b> - Programs the flash and verifies the programmed flash content is correct.</p>
\r
327 <p><b>Verify</b> - Halt CPU and verify image in flash or RAM.</p>
\r
328 <p><b>Offset</b> - This value is added to the address of the image.<br>
\r
329 Binary images start at address 0 by default, whereas elf and ihex have addresses encoded into the image.<br>
\r
330 Typically 0 for elf/ihex and the address to write the image to for binary files.</p>
\r
343 <outfile>production.tcl</outfile>
\r
344 <level2parent>flashinfo.tcl</level2parent>
\r
345 <pageheading>Production</pageheading>
\r
347 <markup_code><![CDATA[
\r
349 set form_action [formfetch form_action]
\r
350 set form_serialnumber [formfetch form_serialnumber]
\r
351 append buffer [production_info]
\r
354 <form enctype="multipart/form-data" action="production.tcl" method="post">
\r
355 <code style="white-space: nowrap;">
\r
357 if {[string compare $form_action "Upload firmware"]==0} {
\r
358 set wrotedata [catch {writeform form_filecontent $upload_filename} result]
\r
359 append buffer [encode $result]
\r
360 if {$wrotedata==0} {
\r
361 append buffer "<br>Running production procedure<p>"
\r
362 append buffer "<br>Reset and init: <br>"
\r
364 append console [encode [capture_catch {catch "production $upload_filename $form_serialnumber"}]]
\r
367 if {[string compare $form_action "Test"]==0} {
\r
368 append buffer "<br>Running production test. Output from first 10 seconds printed below. <p>"
\r
370 append console [encode [capture_catch {catch production_test}]]
\r
372 if {[string compare $form_action "Power on"]==0} {
\r
373 append console [encode [capture_catch "power on"]]
\r
375 if {[string compare $form_action "Power off"]==0} {
\r
376 append console [encode [capture_catch "power off"]]
\r
381 append buffer {<p class="formtext">Firmware file(raw binary) <input type="file" name="form_filecontent"><p>}
\r
382 append buffer {<p class="formtext">Serial number <input type="text" name="form_serialnumber"><p>}
\r
386 <tr><td style="height:15px;width:535px;"> </td></tr>
\r
387 <tr><td style="height:1px;width:535px;background-color:#a2c5d1;"></td></tr>
\r
388 <tr><td style="height:15px;width:535px;"> </td></tr>
\r
392 <td><input type="submit" name="form_action" value="Upload firmware" ></td>
\r
393 <td class="buttonspacesmall"> </td><td><input type="submit" name="form_action" value="Test"></td>
\r
394 <td class="buttonspacesmall"> </td><td><input type="submit" name="form_action" value="Power on"></td>
\r
395 <td class="buttonspacesmall"> </td><td><input type="submit" name="form_action" value="Power off">
\r
403 The target script can implement the "production", "production_info" and "production_test" tcl proc's. These procedures
\r
404 are used on this page. There are default implementations that do nothing.
\r
406 <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>
\r
407 <p><b>Test</b> - Power up target, run 10 second target test. Output is provided via the DCC output channel. </p>
\r
408 <p><b>Power on</b> - Power on target.</p>
\r
409 <p><b>Power off</b> - Power off target.</p>
\r
410 <p><b>Serial number</b> - A target script can use this string in the production procedure. Type "help production" for more info.</p>
\r
422 <outfile>erase.tcl</outfile>
\r
423 <menulink>erase.tcl</menulink>
\r
424 <pageheading>Erase Flash</pageheading>
\r
425 <level2parent>flashinfo.tcl</level2parent>
\r
427 <markup_code><![CDATA[
\r
433 set form_address [formfetch form_address]
\r
434 set form_length [formfetch form_length]
\r
435 set form_action [formfetch form_action]
\r
437 if {[string compare $form_length ""]==0} {
\r
438 set form_length 0x10000
\r
440 if {[string compare $form_address ""]==0} {
\r
441 if {[catch {[first_flash_base]} result]==0} {
\r
442 set form_address "0x[tohex $result]"
\r
447 if {[string compare $form_address ""]!=0} {
\r
448 if {[string compare $form_action "Erase"]==0} {
\r
449 append buffer "<code style=\"white-space: nowrap;\">"
\r
450 append console [encode [capture_catch {
\r
452 flash erase_address $form_address $form_length}]]
\r
453 append buffer </code>
\r
460 <form action="erase.tcl" method="post">
\r
462 <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>
\r
463 <tr><td class="formtext">Length</td><td><input type="text" name="form_length" value="<tcl>append buffer $form_length</tcl>"></td></tr>
\r
467 <tr><td style="height:15px;width:535px;"> </td></tr>
\r
468 <tr><td style="height:1px;width:535px;background-color:#a2c5d1;"></td></tr>
\r
469 <tr><td style="height:15px;width:535px;"> </td></tr>
\r
472 <input type="submit" name="form_action" value="Erase"><br>
\r
482 <p>Note that flash programming will erase flash if required.<p/>
\r
483 <p>Reset and init CPU, then erase address range.</p>
\r
484 <p>The length field is specified in number of bytes.</p>
\r
493 <outfile>run.tcl</outfile>
\r
494 <menulink>run.tcl</menulink>
\r
495 <pageheading>Run program</pageheading>
\r
496 <level2parent>flashinfo.tcl</level2parent>
\r
498 <markup_code><![CDATA[
\r
504 set form_address [formfetch form_address]
\r
505 set form_action [formfetch form_action]
\r
507 if {[string compare $form_action "Run from address"]==0} {
\r
508 append console [encode [capture_catch "halt"]]
\r
509 append console [encode [capture_catch "wait_halt"]]
\r
510 append console [encode [capture_catch "resume $form_address"]]
\r
513 if {[string compare $form_action "Halt"]==0} {
\r
514 append console [encode [capture_catch "halt"]]
\r
515 append console [encode [capture_catch "wait_halt"]]
\r
518 if {[string compare $form_action "Reset and run"]==0} {
\r
519 append console [encode [capture_catch "reset run"]]
\r
522 if {[string compare $form_action "Reset and init"]==0} {
\r
523 append console [encode [capture_catch "reset init"]]
\r
526 append console [encode [capture_catch poll]]
\r
530 <form action="run.tcl" method="post">
\r
532 <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>
\r
536 <tr><td style="height:15px;width:535px;"> </td></tr>
\r
537 <tr><td style="height:1px;width:535px;background-color:#a2c5d1;"></td></tr>
\r
538 <tr><td style="height:15px;width:535px;"> </td></tr>
\r
541 <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>
\r
549 <p>Reset and run - reset CPU and let it run.</p>
\r
550 <p>Halt - halt CPU.</p>
\r
551 <p>Run from address - halt CPU and resume from address. Default is resume from current address.</p>
\r
552 <p>Reset and init - reset CPU and run init script.</p>
\r
561 <outfile>browsemem.tcl</outfile>
\r
562 <menutext>Memory</menutext>
\r
563 <menulink>browsemem.tcl</menulink>
\r
564 <pageheading>Browse / Edit Memory</pageheading>
\r
565 <level2parent>browsemem.tcl</level2parent>
\r
566 <level2menu href="browsemem.tcl" title="Browse / Edit" titlestyle="color:#4e6627;">
\r
568 Browse and edit memory.
\r
571 <level2menu href="downloadmem.tcl" title="Download" titlestyle="color:#4e6627;">
\r
573 Copy memory range to developer machine
\r
578 <markup_code><![CDATA[
\r
584 set form_address [formfetch form_address]
\r
585 set form_length [formfetch form_length]
\r
586 set form_type [formfetch form_type]
\r
587 set form_action [formfetch form_action]
\r
588 set form_value [formfetch form_value]
\r
590 if {[string compare $form_length ""]==0} {
\r
593 if {$form_length<=0} {
\r
594 set form_length 0x80
\r
596 if {$form_length>0x1000} {
\r
597 set form_length 0x1000
\r
600 if {[string compare $form_type ""]==0} {
\r
604 if {[string compare $form_type "mdw"]==0} {
\r
606 set modify_cmd mww
\r
608 if {[string compare $form_type "mdh"]==0} {
\r
610 set modify_cmd mwh
\r
612 if {[string compare $form_type "mdb"]==0} {
\r
614 set modify_cmd mwb
\r
620 if {[string compare $form_address ""]!=0} {
\r
621 if {[string compare $form_action "Previous"]==0} {
\r
622 # Kludge! Work around problems parsing hex in Jim Tcl expressions
\r
623 incr form_address ; set form_address [expr $form_address-1]
\r
624 if {$form_address-$form_length>0} {
\r
625 set form_address "0x[tohex [expr $form_address-$form_length]]"
\r
627 set form_address "0x0"
\r
630 if {[string compare $form_action "Next"]==0} {
\r
631 # Kludge! Work around problems parsing hex in Jim Tcl expressions
\r
632 incr form_address ; set form_address [expr $form_address-1]
\r
633 set form_address "0x[tohex [expr $form_address+$form_length]]"
\r
635 if {[string compare $form_action "Modify"]==0} {
\r
636 append console [capture_catch "$modify_cmd $form_address $form_value"]
\r
638 if {[string compare $form_action "Fill"]==0} {
\r
639 append console [capture_catch "$modify_cmd $form_address $form_value $form_length"]
\r
646 <form action="browsemem.tcl" method="post">
\r
648 <tr><td class="formtext">Address</td><td><input type="text" name="form_address" value="<tcl>append buffer $form_address</tcl>"></td></tr>
\r
649 <tr><td class="formtext">Length</td><td><input type="text" name="form_length" value="<tcl>append buffer "0x[tohex $form_length]"</tcl>"></td></tr>
\r
650 <tr><td class="formtext">Value</td><td><input type="text" name="form_value" value="<tcl>append buffer $form_value</tcl>"></td>
\r
651 <td class="buttonspacesmall"> </td><td><input type="submit" name="form_action" value="Modify"></td>
\r
652 <td class="buttonspacesmall"> </td><td><input type="submit" name="form_action" value="Fill"></td></tr>
\r
653 <tr><td class="formtext">Type</td><td style="padding-top:1px;">
\r
654 <select name="form_type">
\r
656 <tcl>if {[string compare $form_type "mdb"]==0} { append buffer {selected="selected"} } </tcl> value ="mdb">8 bit
\r
659 <tcl>if {[string compare $form_type "mdh"]==0} { append buffer {selected="selected"} } </tcl> value ="mdh">16 bit
\r
662 <tcl>if {[string compare $form_type "mdw"]==0} { append buffer {selected="selected"} } </tcl>value ="mdw">32 bit
\r
669 <tr><td style="height:15px;width:535px;"> </td></tr>
\r
670 <tr><td style="height:1px;width:535px;background-color:#a2c5d1;"></td></tr>
\r
671 <tr><td style="height:15px;width:535px;"> </td></tr>
\r
675 <td><input type="submit" name="form_action" value="Refresh"></td>
\r
676 <td class="buttonspacesmall"> </td><td><input type="submit" name="form_action" value="Previous" ></td>
\r
677 <td class="buttonspacesmall"> </td><td><input type="submit" name="form_action" value="Next" ></td>
\r
683 <div class="fontbigger">Memory:</div><p>
\r
684 <code style="white-space: nowrap; font-size:11px;font:courier new;">
\r
686 if {[string compare $form_address ""]!=0} {
\r
687 append console [encode [capture_catch halt]]
\r
688 append buffer [encode [capture_catch "$form_type $form_address [expr $form_length]"]]
\r
700 <p>Browse and edit target memory.<br>
\r
701 Length is in bytes, maximum 4096 bytes.</p>
\r
702 <p>An error message is shown when trying to browse or edit memory which cases a CPU fault.</p>
\r
703 <p>CPU will be halted if required.</p>
\r
704 <p><b>Modify</b> - Will modify only one byte, half-word or word starting at Address.</p>
\r
705 <p><b>Fill</b> - Will fill the specified region with the specified value.</p>
\r
706 <p><b>Refresh</b> - Display the content of the specified memory area.</p>
\r
717 <outfile>downloadmem.tcl</outfile>
\r
718 <level2parent>browsemem.tcl</level2parent>
\r
719 <pageheading>Download Memory Range</pageheading>
\r
721 <markup_code><![CDATA[
\r
723 set form_address [formfetch form_address]
\r
724 set form_length [formfetch form_length]
\r
725 set form_action [formfetch form_action]
\r
727 <form action="downloadmem.tcl" method="post">
\r
729 <tr><td class="formtext">Address</td><td><input type="text" name="form_address" value="<tcl>append buffer $form_address</tcl>"></td></tr>
\r
730 <tr><td class="formtext">Length</td><td><input type="text" name="form_length" value="<tcl>append buffer $form_length</tcl>"></td></tr>
\r
735 <tr><td style="height:15px;width:535px;"> </td></tr>
\r
736 <tr><td style="height:1px;width:535px;background-color:#a2c5d1;"></td></tr>
\r
737 <tr><td style="height:15px;width:535px;"> </td></tr>
\r
740 <input type="submit" value="Download" name="form_action">
\r
745 if {[string compare $form_action "Download"]==0} {
\r
746 append console [encode [capture_catch "reset init"]]
\r
747 append console [encode [capture_catch "dump_image /tmp/dump.bin $form_address $form_length"]]
\r
749 <form action="../dump.bin" target="_blank">
\r
750 <input type="submit" name="form_action" value="Save downloaded memory">
\r
762 Download memory from target. <br>
\r
763 <b>Note</b> that download memory can take
\r
764 a long time(potentially minutes for megabytes at low JTAG clk speeds).
\r
766 Once the memory is downloaded a link is available on the page to download
\r
767 the file to your PC.
\r
777 <outfile>openocd.tcl</outfile>
\r
778 <menutext>OpenOCD</menutext>
\r
779 <menulink>openocd.tcl</menulink>
\r
780 <pageheading>Run Command</pageheading>
\r
781 <level2parent>openocd.tcl</level2parent>
\r
782 <level2menu href="openocd.tcl" title="Run Command" titlestyle="color:#4e6627;">
\r
784 <level2menu href="guiupload.tcl" title="Upload File" titlestyle="color:#4e6627;">
\r
791 <markup_code><![CDATA[
\r
794 set form_command [formfetch form_command]
\r
796 set form_edittext ""
\r
797 if {[string length $form_command]>0} {
\r
798 set form_edittext [capture_catch {eval $form_command}]
\r
801 append buffer {<form action="openocd.tcl" method="post">} "\n"
\r
802 append buffer {Command<br>}
\r
803 append buffer {<textarea style="overflow:auto;" rows="5" cols="65" name="form_command" wrap="off">}
\r
804 append buffer [to_textarea $form_command]
\r
805 append buffer {</textarea><br>}
\r
806 append buffer {<input type="submit" value="Run" name="form_action" ><br>}
\r
807 append buffer {<textarea style="overflow:auto;" rows="21" cols="65" name="form_edittext" readonly=1 wrap="off">}
\r
808 append buffer [to_textarea $form_edittext]
\r
809 append buffer {</textarea><br>}
\r
811 append buffer {</form>} "\n"
\r
819 <p>Run tcl statement(s). Add "ocd_" prefix to OpenOCD commands otherwise
\r
820 there will be no output, e.g. "reset init" use "ocd_reset init".
\r
822 <p><a href="/ram/log">Click here to download log</a>.</p>
\r
823 <p>To download log you can also use commands like "wget http://<tcl>append buffer [ip]</tcl>/ram/log", or
\r
824 point your web browser to said address.</p>
\r
826 You can also execute tcl commands using curl from your developer PC:
\r
829 curl --form form_command=ocd_version <tcl>append buffer [ip]</tcl>runtcl.tcl
\r
840 <outfile>guiupload.tcl</outfile>
\r
841 <level2parent>openocd.tcl</level2parent>
\r
842 <pageheading>Upload File</pageheading>
\r
844 <markup_code><![CDATA[
\r
847 set form_filename [formfetch form_filename];
\r
848 set form_action [formfetch form_action];
\r
849 #set form_filecontent [formfetch form_filecontent];
\r
851 append buffer {<form enctype="multipart/form-data" action="guiupload.tcl" method="post">}
\r
852 append buffer <br>
\r
853 if {[string compare $form_action "Upload"]==0} {
\r
854 if {[catch {writeform form_filecontent $form_filename} result]==0} {
\r
855 append buffer [encode $result]
\r
857 append buffer Wrote $form_filename
\r
861 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>}
\r
862 append buffer {<td class="formtext">File to upload</td><td><input type="file" name="form_filecontent"></td></tr></table>}
\r
863 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>}
\r
864 append buffer {<input type="submit" name="form_action" value="Upload" ><br> }
\r
865 append buffer {</form>}
\r
877 <outfile>targets.tcl</outfile>
\r
878 <level2parent>documentation.tcl</level2parent>
\r
879 <pageheading>Target config quick start guide</pageheading>
\r
881 <markup_code><![CDATA[
\r
883 A target needs an openocd.cfg file. This config file sets up
\r
884 the CPU, flash and reset init script. Either OpenOCD ships with an
\r
885 openocd.cfg file for your target or you need to take an existing
\r
886 config file and modify it for your needs.
\r
888 The reset init script is crucial. It will set up e.g. MMU, chip
\r
889 select registers, etc. after a reset. The init.cfg (reset init script)
\r
890 is embedded into the openocd.cfg file in the sampls OpenOCD provides.
\r
892 Writing an openocd.cfg from scratch is a non-trivial exercise, but
\r
893 fortunally it only has to be done once for a target and afterwards it
\r
894 rarely if ever needs to be changed.
\r
900 Quick start guide on how to configure a target.
\r
912 <menulink>index.tcl</menulink>
\r
913 <level2parent>index.tcl</level2parent>
\r
914 <outfile>terminal.tcl</outfile>
\r
915 <pageheading>UART forwarding</pageheading>
\r
917 <markup_code><![CDATA[
\r
919 set form_baudrate [formfetch form_baudrate]
\r
920 if {[string length $form_baudrate]==0} {
\r
921 set form_baudrate [ocd_uart]
\r
922 set form_baudrate [string range $form_baudrate 0 [expr [string length $form_baudrate]-2]]
\r
924 set form_action [formfetch form_action]
\r
926 <form action="terminal.tcl" method="post">
\r
928 <select name="form_baudrate">
\r
930 foreach i {9600 19200 38400 57600 115200} {
\r
932 <option <tcl>if {[string compare $form_baudrate $i]==0} { append buffer {selected="selected"} } </tcl>
\r
933 value ="<tcl>append buffer $i</tcl>"><tcl>append buffer $i</tcl></option>
\r
940 <input type="submit" name="form_action" value="Set baudrate" >
\r
943 if {[string compare $form_action "Set baudrate"]==0} {
\r
944 append console [encode [ocd_uart $form_baudrate]]
\r
948 <h2>Simple UART</h2>
\r
949 This terminal window is purely for illustrative purposes. Use telnet or a terminal program
\r
950 to talk to the target over TCP/IP for anything but trivial case of reading/writing a few
\r
951 lines of texts in simple tests.
\r
956 Serial port data to target is forwarded(both directions) in the simple terminal window
\r
957 to the left. Alternatively you can <b>telnet <tcl>append buffer [ip]</tcl> 5555</b>
\r
958 or connect via TCP/IP from e.g. HyperTerminal.
\r
960 Type "help uart" in telnet for information on how to set uart speed for target. Normally
\r
961 the uart speed is set from the target configuration script by adding an "uart N", where
\r
projects / fw / openocd / blob