1 # converted to .tcl by html2tcl.tcl
\r
43 <html xmlns="http://www.w3.org/TR/REC-html40">
\r
45 <title>OpenOCD debugger</title>
\r
46 <meta charset="utf-8" content="text/html" http-equiv="Content-Type"/>
\r
47 <link type="text/css" rel="stylesheet" href="menuweb.css"/>
\r
52 set upload_filename /ram/upload
\r
55 <body style="margin:0px;">
\r
56 <div style="width:974px;height:85px;">
\r
57 <div style="float:left;position:relative;left:32px;width:478px;">
\r
62 <div style="float:left;position:relative;height:26px; width:278px;left:122px;background-image:url('menu_cuts/top_right.png');">
\r
63 <div style="position:relative;left:15px;top:4px;" class="textlight">
\r
65 append buffer [capture version]
\r
70 <table style="padding:0px;border-collapse:collapse;">
\r
72 <td style="width:33px;">
\r
73 <div style="width:20px;height:510px;">
\r
77 <td style="vertical-align:top;height:100%;width:140px;padding:0px;">
\r
78 <table style="padding:0px;border-collapse:collapse;height:100%;width:140px;">
\r
79 <tr style="height:59px;">
\r
83 <td style="width:140px;height:38px;background-image:url('menu_cuts/v_tab_selected.png');background-repeat: no-repeat;">
\r
84 <div style="position:relative;left:10px;top:10px;font-weight:bold;">
\r
85 <a href="openocd.tcl" style="font-weight: bold;">Run Command</a>
\r
90 <td style="width:140px;height:38px;background-image:url('menu_cuts/v_tab.png');background-repeat: no-repeat;">
\r
91 <div style="position:relative;left:10px;top:10px;font-weight:bold;">
\r
92 <a href="guiupload.tcl" style="">Upload File</a>
\r
97 <td style="width:140px;height:35px;background-image:url('menu_cuts/v_1.png')"/>
\r
100 <td style="width:140px;background-image:url('menu_cuts/v_2_tile.png')"/>
\r
103 <td style="width:140px;height:140px;background-image:url('menu_cuts/v_3.png')"/>
\r
107 <td style="vertical-align:top;padding:0px;height:100%">
\r
108 <table style="padding:0px;border-collapse:collapse;height:100%;">
\r
111 <table style="padding:0px;border-collapse:collapse;">
\r
113 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1.png');background-repeat: no-repeat;">
\r
114 <div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">
\r
115 <a href="index.tcl">Config Target</a>
\r
118 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1.png');background-repeat: no-repeat;">
\r
119 <div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">
\r
120 <a href="flashinfo.tcl">Flash</a>
\r
123 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1.png');background-repeat: no-repeat;">
\r
124 <div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">
\r
125 <a href="browsemem.tcl">Memory</a>
\r
128 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1_selected.png');background-repeat: no-repeat;">
\r
129 <div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">
\r
130 <a href="openocd.tcl" style="font-weight: bold;">OpenOCD</a>
\r
138 <td style="height:30px;width:535px;background-image:url('menu_cuts/center_top.png');background-repeat: no-repeat;background-position:top right;" colspan="6">
\r
139 <div style="width:500px;background-color:#ffffff;height:100%;">
\r
145 <td style="background-color:#ffffff;text-indent:30px;height:40px;" colspan="6">
\r
146 <H1>Run Command</H1>
\r
149 <tr style="height:100%;">
\r
150 <td style="background-color:#ffffff;padding-left:30px;padding-right:30px;width=535px;height:100%;" colspan="6">
\r
154 set form_command [formfetch form_command]
\r
156 set form_edittext ""
\r
157 if {[string length $form_command]>0} {
\r
158 catch {capture_catch {eval "$form_command"}} form_edittext
\r
161 append buffer {<form action="openocd.tcl" method="post">} "\n"
\r
162 append buffer {Command<br>}
\r
163 append buffer {<textarea style="overflow:auto;" rows="5" cols="65" name="form_command" wrap="off">}
\r
164 append buffer [to_textarea $form_command]
\r
165 append buffer {</textarea><br>}
\r
166 append buffer {<input type="submit" value="Run" name="form_action" ><br>}
\r
167 append buffer {<textarea style="overflow:auto;" rows="21" cols="65" name="form_edittext" readonly=1 wrap="off">}
\r
168 append buffer [to_textarea $form_edittext]
\r
169 append buffer {</textarea><br>}
\r
171 append buffer {</form>} "\n"
\r
181 set toggle_details [formfetch toggle_details]
\r
182 if {[string length $toggle_details]==0} {
\r
183 set toggle_details 0
\r
185 set show_details [load_var show_details]
\r
186 if {[string length $show_details]==0} {
\r
189 if {$toggle_details==1} {
\r
190 set show_details [expr 1-$show_details]
\r
191 save_var show_details $show_details
\r
194 if {[string length $console]!=0} {
\r
197 <tr style="height:100%;">
\r
198 <td style="height:100%;background-color:red;" colspan="6">
\r
199 <table style="padding:0px;border-collapse:collapse;background-color:#ffffff;width:100%" class="textgray">
\r
200 <td style="width:25px;"> </td>
\r
203 if {$show_details==1} {
\r
205 append buffer {td style="background-color:#dddddd;padding-left:5px;padding-right:5px;padding-top:3px;padding-bottom:3px;"}
\r
209 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;"}
\r
214 <a class="openocd" href="openocd.tcl?toggle_details=1">
\r
217 if {$show_details==1} {
\r
218 append buffer "Hide details"
\r
219 append buffer <br/>
\r
221 append buffer {<div style="position:relative;top:7px;text-align:center;">}
\r
222 append buffer "Show details"
\r
223 append buffer {</div>}
\r
230 if {$show_details==1} {
\r
231 append buffer $console
\r
234 append buffer {</td>}
\r
236 if {$show_details!=1} {
\r
237 append buffer {<td> </td>}
\r
241 <td style="width:25px;"> </td>
\r
251 <td style="height:30px;background-image:url('menu_cuts/center_bottom.png');background-repeat: no-repeat;background-position:top right;" colspan="6">
\r
252 <div style="width:500px;background-color:#ffffff;height:100%;">
\r
259 <td style="width:6px;"/>
\r
260 <td style="width:245px;height:100%">
\r
261 <table style="padding:0px;border-collapse:collapse;height:100%;">
\r
263 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab2_selected.png');background-repeat: no-repeat;">
\r
264 <div style="position:relative;top:7px;;font-weight:bold;text-align:center;width:100px;" class="textgray">
\r
274 <td style="height:10px;width:245px;background-image:url('menu_cuts/right_top_small.png');" colspan="3"/>
\r
277 <td style="background-color:#d8d7d7;width:245px;padding-left:10px;padding-buttom:10px;line-height:17px;" colspan="3">
\r
278 <a target="_blank" href="http://openocd.berlios.de/doc/openocd.pdf">OpenOCD Manual</a>
\r
283 <td style="background-color:#d8d7d7;height:15px;" colspan="3"/>
\r
287 <table style="padding:0px;border-collapse:collapse;">
\r
288 <td style="background-color:#d8d7d7;width:10px;height:1px"/>
\r
289 <td style="background-color:#999999;width:225px; height:1px;"/>
\r
290 <td style="background-color:#d8d7d7;width:10px;height:1px"/>
\r
295 <td style="background-color:#d8d7d7;height:15px;" colspan="3"/>
\r
297 <tr style="height:100%;">
\r
298 <td style="height:100%;background-color:#d8d7d7;padding-left:10px;padding-right:10px;" colspan="3" class="textgray">
\r
300 <p>Run tcl statement(s). Add "ocd_" prefix to OpenOCD commands otherwise
\r
301 there will be no output, e.g. "reset init" use "ocd_reset init".
\r
303 <p><a href="/ram/log">Click here to download log</a>.</p>
\r
304 <p>To download log you can also use commands like "wget http://}
\r
306 append buffer {/ram/log", or
\r
307 point your web browser to said address.</p>
\r
309 You can also execute tcl commands using curl from your developer PC:
\r
312 curl --form form_command=ocd_version }
\r
314 append buffer {runtcl.tcl
\r
321 <td style="height:30px;background-image:url('menu_cuts/right_bottom.png');" colspan="3">
\r
352 start_chunked "html"
\r
353 write_chunked $buffer
\r