src/server/httpd/openocd.tcl

   1 # converted to .tcl by html2tcl.tcl
   2 set buffer ""
   3 append buffer {
   4
   5
   6
   7
   8
   9
  10
  11
  12
  13
  14
  15
  16
  17
  18
  19
  20
  21
  22
  23
  24
  25
  26
  27
  28
  29
  30
  31
  32
  33
  34
  35
  36
  37
  38
  39
  40
  41
  42
  43                 <html xmlns="http://www.w3.org/TR/REC-html40">
  44 <head>
  45 <title>OpenOCD debugger</title>
  46 <meta charset="utf-8" content="text/html" http-equiv="Content-Type"/>
  47 <link type="text/css" rel="stylesheet" href="menuweb.css"/>
  48 </head>
  49 }
  50
  51                                 set console ""
  52                                 set upload_filename /ram/upload
  53
  54 append buffer {
  55 <body style="margin:0px;">
  56 <div style="width:974px;height:85px;">
  57 <div style="float:left;position:relative;left:32px;width:478px;">
  58 <a href="/">
  59                                                         OpenOCD
  60                                                 </a>
  61 </div>
  62 <div style="float:left;position:relative;height:26px; width:278px;left:122px;background-image:url('menu_cuts/top_right.png');">
  63 <div style="position:relative;left:15px;top:4px;" class="textlight">
  64 }
  65 append buffer [capture version]
  66 append buffer {
  67 </div>
  68 </div>
  69 </div>
  70 <table style="padding:0px;border-collapse:collapse;">
  71 <tr>
  72 <td style="width:33px;">
  73 <div style="width:20px;height:510px;">
  74                                                                 &nbsp;
  75                                                         </div>
  76 </td>
  77 <td style="vertical-align:top;height:100%;width:140px;padding:0px;">
  78 <table style="padding:0px;border-collapse:collapse;height:100%;width:140px;">
  79 <tr style="height:59px;">
  80 <td/>
  81 </tr>
  82 <tr>
  83 <td style="width:140px;height:38px;background-image:url('menu_cuts/v_tab_selected.png');background-repeat: no-repeat;">
  84 <div style="position:relative;left:10px;top:10px;font-weight:bold;">
  85 <a href="openocd.tcl" style="font-weight: bold;">Run Command</a>
  86 </div>
  87 </td>
  88 </tr>
  89 <tr>
  90 <td style="width:140px;height:38px;background-image:url('menu_cuts/v_tab.png');background-repeat: no-repeat;">
  91 <div style="position:relative;left:10px;top:10px;font-weight:bold;">
  92 <a href="guiupload.tcl" style="">Upload File</a>
  93 </div>
  94 </td>
  95 </tr>
  96 <tr>
  97 <td style="width:140px;height:35px;background-image:url('menu_cuts/v_1.png')"/>
  98 </tr>
  99 <tr>
 100 <td style="width:140px;background-image:url('menu_cuts/v_2_tile.png')"/>
 101 </tr>
 102 <tr>
 103 <td style="width:140px;height:140px;background-image:url('menu_cuts/v_3.png')"/>
 104 </tr>
 105 </table>
 106 </td>
 107 <td style="vertical-align:top;padding:0px;height:100%">
 108 <table style="padding:0px;border-collapse:collapse;height:100%;">
 109 <tr>
 110 <td>
 111 <table style="padding:0px;border-collapse:collapse;">
 112 <tr>
 113 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1.png');background-repeat: no-repeat;">
 114 <div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">
 115 <a href="index.tcl">Config Target</a>
 116 </div>
 117 </td>
 118 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1.png');background-repeat: no-repeat;">
 119 <div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">
 120 <a href="flashinfo.tcl">Flash</a>
 121 </div>
 122 </td>
 123 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1.png');background-repeat: no-repeat;">
 124 <div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">
 125 <a href="browsemem.tcl">Memory</a>
 126 </div>
 127 </td>
 128 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1_selected.png');background-repeat: no-repeat;">
 129 <div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">
 130 <a href="openocd.tcl" style="font-weight: bold;">OpenOCD</a>
 131 </div>
 132 </td>
 133 </tr>
 134 </table>
 135 </td>
 136 </tr>
 137 <tr>
 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">
 139 <div style="width:500px;background-color:#ffffff;height:100%;">
 140                                                                                         &nbsp;
 141                                                                                 </div>
 142 </td>
 143 </tr>
 144 <tr>
 145 <td style="background-color:#ffffff;text-indent:30px;height:40px;" colspan="6">
 146 <H1>Run Command</H1>
 147 </td>
 148 </tr>
 149 <tr style="height:100%;">
 150 <td style="background-color:#ffffff;padding-left:30px;padding-right:30px;width=535px;height:100%;" colspan="6">
 151
 152                         }
 153
 154                                 set form_command [formfetch form_command]
 155
 156                                 set form_edittext ""
 157                                 if {[string length $form_command]>0} {
 158                                         set form_edittext [capture_catch {eval $form_command}]
 159                                 }
 160
 161                                 append buffer {<form action="openocd.tcl" method="post">} "\n"
 162                                 append buffer {Command<br>}
 163                                 append buffer {<textarea  style="overflow:auto;"  rows="5" cols="65" name="form_command" wrap="off">}
 164                                 append buffer [to_textarea $form_command]
 165                                 append buffer {</textarea><br>}
 166                                 append buffer {<input type="submit" value="Run" name="form_action" ><br>}
 167                                 append buffer {<textarea  style="overflow:auto;"  rows="21" cols="65" name="form_edittext" readonly=1 wrap="off">}
 168                                 append buffer [to_textarea $form_edittext]
 169                                 append buffer {</textarea><br>}
 170
 171                                 append buffer {</form>} "\n"
 172
 173
 174 append buffer {
 175
 176                         </td>
 177 </tr>
 178 }
 179
 180
 181                                                                         set toggle_details [formfetch toggle_details]
 182                                                                         if {[string length $toggle_details]==0} {
 183                                                                                 set toggle_details 0
 184                                                                         }
 185                                                                         set show_details [load_var show_details]
 186                                                                         if {[string length $show_details]==0} {
 187                                                                                 set show_details 0
 188                                                                         }
 189                                                                         if {$toggle_details==1} {
 190                                                                                 set show_details [expr 1-$show_details]
 191                                                                                 save_var show_details $show_details
 192                                                                         }
 193
 194                                                                         if {[string length $console]!=0} {
 195
 196 append buffer {
 197 <tr style="height:100%;">
 198 <td style="height:100%;background-color:red;" colspan="6">
 199 <table style="padding:0px;border-collapse:collapse;background-color:#ffffff;width:100%" class="textgray">
 200 <td style="width:25px;">&nbsp;</td>
 201 }
 202
 203                                                                                                                 if {$show_details==1} {
 204                                                                                                                         append buffer <
 205                                                                                                                         append buffer {td style="background-color:#dddddd;padding-left:5px;padding-right:5px;padding-top:3px;padding-bottom:3px;"}
 206                                                                                                                         append buffer >
 207                                                                                                                 } else {
 208                                                                                                                         append buffer <
 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;"}
 210                                                                                                                         append buffer >
 211                                                                                                                 }
 212
 213 append buffer {
 214 <a class="openocd" href="openocd.tcl?toggle_details=1">
 215 }
 216
 217                                                                                                                         if {$show_details==1} {
 218                                                                                                                                 append buffer "Hide details"
 219                                                                                                                                 append buffer <br/>
 220                                                                                                                         } else {
 221                                                                                                                                 append buffer {<div style="position:relative;top:7px;text-align:center;">}
 222                                                                                                                                 append buffer "Show details"
 223                                                                                                                                 append buffer {</div>}
 224                                                                                                                         }
 225
 226 append buffer {
 227 </a>
 228 }
 229
 230                                                                                                                         if {$show_details==1} {
 231                                                                                                                                 append buffer $console
 232                                                                                                                         }
 233
 234 append buffer {</td>}
 235
 236                                                                                                                 if {$show_details!=1} {
 237                                                                                                                         append buffer {<td>&nbsp;</td>}
 238                                                                                                                 }
 239
 240 append buffer {
 241 <td style="width:25px;">&nbsp;</td>
 242 </table>
 243 </td>
 244 </tr>
 245 }
 246
 247                                                                          }
 248
 249 append buffer {
 250 <tr>
 251 <td style="height:30px;background-image:url('menu_cuts/center_bottom.png');background-repeat: no-repeat;background-position:top right;" colspan="6">
 252 <div style="width:500px;background-color:#ffffff;height:100%;">
 253                                                                                         &nbsp;
 254                                                                                 </div>
 255 </td>
 256 </tr>
 257 </table>
 258 </td>
 259 <td style="width:6px;"/>
 260 <td style="width:245px;height:100%">
 261 <table style="padding:0px;border-collapse:collapse;height:100%;">
 262 <tr>
 263 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab2_selected.png');background-repeat: no-repeat;">
 264 <div style="position:relative;top:7px;;font-weight:bold;text-align:center;width:100px;" class="textgray">
 265                                                                                     Documentation
 266                                                                                  </div>
 267 </td>
 268 <td width="40px">
 269                                                                                 &nbsp;
 270                                                                         </td>
 271 <td/>
 272 </tr>
 273 <tr>
 274 <td style="height:10px;width:245px;background-image:url('menu_cuts/right_top_small.png');" colspan="3"/>
 275 </tr>
 276 <tr>
 277 <td style="background-color:#d8d7d7;width:245px;padding-left:10px;padding-buttom:10px;line-height:17px;" colspan="3">
 278 <a target="_blank" href="http://openocd.berlios.de/doc/openocd.pdf">OpenOCD Manual</a>
 279 <br/>
 280 </td>
 281 </tr>
 282 <tr>
 283 <td style="background-color:#d8d7d7;height:15px;" colspan="3"/>
 284 </tr>
 285 <tr>
 286 <td colspan="3">
 287 <table style="padding:0px;border-collapse:collapse;">
 288 <td style="background-color:#d8d7d7;width:10px;height:1px"/>
 289 <td style="background-color:#999999;width:225px; height:1px;"/>
 290 <td style="background-color:#d8d7d7;width:10px;height:1px"/>
 291 </table>
 292 </td>
 293 </tr>
 294 <tr>
 295 <td style="background-color:#d8d7d7;height:15px;" colspan="3"/>
 296 </tr>
 297 <tr style="height:100%;">
 298 <td style="height:100%;background-color:#d8d7d7;padding-left:10px;padding-right:10px;" colspan="3" class="textgray">
 299
 300                                 <p>Run tcl statement(s). Add "ocd_" prefix to OpenOCD commands otherwise
 301                                 there will be no output, e.g. "reset init" use "ocd_reset init".
 302                                 <p/>
 303                                 <p><a href="/ram/log">Click here to download log</a>.</p>
 304                                 <p>To download log you can also use commands like "wget http://}
 305 append buffer [ip]
 306 append buffer {/ram/log", or
 307                                 point your web browser to said address.</p>
 308                                 <p>
 309                                 You can also execute tcl commands using curl from your developer PC:
 310                                 </p>
 311                                 <code>
 312                                 curl --form form_command=ocd_version }
 313 append buffer [ip]
 314 append buffer {runtcl.tcl
 315                                 </code>
 316
 317
 318                         </td>
 319 </tr>
 320 <tr>
 321 <td style="height:30px;background-image:url('menu_cuts/right_bottom.png');" colspan="3">
 322                                                                                 &nbsp;
 323                                                                         </td>
 324 </tr>
 325 </table>
 326 </td>
 327 </tr>
 328 </table>
 329 </body>
 330 </html>
 331
 332
 333
 334
 335
 336
 337
 338
 339
 340
 341
 342
 343
 344
 345
 346
 347
 348
 349
 350 }
 351
 352 start_chunked "html"
 353 write_chunked $buffer
 354 end_chunked
 355