src/server/httpd/run.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                 <html xmlns="http://www.w3.org/TR/REC-html40">
  34 <head>
  35 <title>OpenOCD debugger</title>
  36 <meta charset="utf-8" content="text/html" http-equiv="Content-Type"/>
  37 <link type="text/css" rel="stylesheet" href="menuweb.css"/>
  38 </head>
  39 }
  40
  41                                 set console ""
  42                                 set upload_filename /ram/upload
  43
  44 append buffer {
  45 <body style="margin:0px;">
  46 <div style="width:974px;height:85px;">
  47 <div style="float:left;position:relative;left:32px;width:478px;">
  48 <a href="/">
  49                                                         OpenOCD
  50                                                 </a>
  51 </div>
  52 <div style="float:left;position:relative;height:26px; width:278px;left:122px;background-image:url('menu_cuts/top_right.png');">
  53 <div style="position:relative;left:15px;top:4px;" class="textlight">
  54 }
  55 append buffer [capture version]
  56 append buffer {
  57 </div>
  58 </div>
  59 </div>
  60 <table style="padding:0px;border-collapse:collapse;">
  61 <tr>
  62 <td style="width:33px;">
  63 <div style="width:20px;height:510px;">
  64                                                                 &nbsp;
  65                                                         </div>
  66 </td>
  67 <td style="vertical-align:top;height:100%;width:140px;padding:0px;">
  68 <table style="padding:0px;border-collapse:collapse;height:100%;width:140px;">
  69 <tr style="height:59px;">
  70 <td/>
  71 </tr>
  72 <tr>
  73 <td style="width:140px;height:38px;background-image:url('menu_cuts/v_tab.png');background-repeat: no-repeat;">
  74 <div style="position:relative;left:10px;top:10px;font-weight:bold;">
  75 <a href="flashinfo.tcl" style="">Info</a>
  76 </div>
  77 </td>
  78 </tr>
  79 <tr>
  80 <td style="width:140px;height:38px;background-image:url('menu_cuts/v_tab.png');background-repeat: no-repeat;">
  81 <div style="position:relative;left:10px;top:10px;font-weight:bold;">
  82 <a href="erase.tcl" style="">Erase</a>
  83 </div>
  84 </td>
  85 </tr>
  86 <tr>
  87 <td style="width:140px;height:38px;background-image:url('menu_cuts/v_tab.png');background-repeat: no-repeat;">
  88 <div style="position:relative;left:10px;top:10px;font-weight:bold;">
  89 <a href="flash.tcl" style="">Program / Verify</a>
  90 </div>
  91 </td>
  92 </tr>
  93 <tr>
  94 <td style="width:140px;height:38px;background-image:url('menu_cuts/v_tab.png');background-repeat: no-repeat;">
  95 <div style="position:relative;left:10px;top:10px;font-weight:bold;">
  96 <a href="production.tcl" style="">Production</a>
  97 </div>
  98 </td>
  99 </tr>
 100 <tr>
 101 <td style="width:140px;height:35px;background-image:url('menu_cuts/v_1.png')"/>
 102 </tr>
 103 <tr>
 104 <td style="width:140px;background-image:url('menu_cuts/v_2_tile.png')"/>
 105 </tr>
 106 <tr>
 107 <td style="width:140px;height:140px;background-image:url('menu_cuts/v_3.png')"/>
 108 </tr>
 109 </table>
 110 </td>
 111 <td style="vertical-align:top;padding:0px;height:100%">
 112 <table style="padding:0px;border-collapse:collapse;height:100%;">
 113 <tr>
 114 <td>
 115 <table style="padding:0px;border-collapse:collapse;">
 116 <tr>
 117 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1.png');background-repeat: no-repeat;">
 118 <div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">
 119 <a href="index.tcl">Config Target</a>
 120 </div>
 121 </td>
 122 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1_selected.png');background-repeat: no-repeat;">
 123 <div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">
 124 <a href="flashinfo.tcl" style="font-weight: bold;">Flash</a>
 125 </div>
 126 </td>
 127 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1.png');background-repeat: no-repeat;">
 128 <div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">
 129 <a href="browsemem.tcl">Memory</a>
 130 </div>
 131 </td>
 132 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1.png');background-repeat: no-repeat;">
 133 <div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">
 134 <a href="openocd.tcl">OpenOCD</a>
 135 </div>
 136 </td>
 137 </tr>
 138 </table>
 139 </td>
 140 </tr>
 141 <tr>
 142 <td style="height:30px;width:535px;background-image:url('menu_cuts/center_top.png');background-repeat: no-repeat;background-position:top right;" colspan="6">
 143 <div style="width:500px;background-color:#ffffff;height:100%;">
 144                                                                                         &nbsp;
 145                                                                                 </div>
 146 </td>
 147 </tr>
 148 <tr>
 149 <td style="background-color:#ffffff;text-indent:30px;height:40px;" colspan="6">
 150 <H1>Run program</H1>
 151 </td>
 152 </tr>
 153 <tr style="height:100%;">
 154 <td style="background-color:#ffffff;padding-left:30px;padding-right:30px;width=535px;height:100%;" colspan="6">
 155
 156
 157
 158 }
 159
 160
 161 set form_address [formfetch form_address]
 162 set form_action [formfetch form_action]
 163
 164 if {[string compare $form_action "Run from address"]==0} {
 165         append console [encode [capture_catch "halt"]]
 166         append console [encode [capture_catch "wait_halt"]]
 167         append console [encode [capture_catch "resume $form_address"]]
 168 }
 169
 170 if {[string compare $form_action "Halt"]==0} {
 171         append console [encode [capture_catch "halt"]]
 172         append console [encode [capture_catch "wait_halt"]]
 173 }
 174
 175 if {[string compare $form_action "Reset and run"]==0} {
 176         append console [encode [capture_catch "reset run"]]
 177 }
 178
 179 if {[string compare $form_action "Reset and init"]==0} {
 180         append console [encode [capture_catch "reset init"]]
 181 }
 182
 183 append console [encode [capture_catch poll]]
 184
 185
 186 append buffer {
 187
 188 <form action="run.tcl" method="post">
 189         <table>
 190         <tr><td class="formtext" style="padding-right:10px;">Address</td><td><input type="text" name="form_address" value="}
 191 append buffer $form_address
 192 append buffer {"></td></tr>
 193         </td></tr>
 194         </table>
 195         <table>
 196                 <tr><td style="height:15px;width:535px;">&nbsp</td></tr>
 197                 <tr><td style="height:1px;width:535px;background-color:#a2c5d1;"></td></tr>
 198                 <tr><td style="height:15px;width:535px;">&nbsp</td></tr>
 199         </table>
 200
 201         <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>
 202 </form>
 203
 204
 205
 206                         </td>
 207 </tr>
 208 }
 209
 210
 211                                                                         set toggle_details [formfetch toggle_details]
 212                                                                         if {[string length $toggle_details]==0} {
 213                                                                                 set toggle_details 0
 214                                                                         }
 215                                                                         set show_details [load_var show_details]
 216                                                                         if {[string length $show_details]==0} {
 217                                                                                 set show_details 0
 218                                                                         }
 219                                                                         if {$toggle_details==1} {
 220                                                                                 set show_details [expr 1-$show_details]
 221                                                                                 save_var show_details $show_details
 222                                                                         }
 223
 224                                                                         if {[string length $console]!=0} {
 225
 226 append buffer {
 227 <tr style="height:100%;">
 228 <td style="height:100%;background-color:red;" colspan="6">
 229 <table style="padding:0px;border-collapse:collapse;background-color:#ffffff;width:100%" class="textgray">
 230 <td style="width:25px;">&nbsp;</td>
 231 }
 232
 233                                                                                                                 if {$show_details==1} {
 234                                                                                                                         append buffer <
 235                                                                                                                         append buffer {td style="background-color:#dddddd;padding-left:5px;padding-right:5px;padding-top:3px;padding-bottom:3px;"}
 236                                                                                                                         append buffer >
 237                                                                                                                 } else {
 238                                                                                                                         append buffer <
 239                                                                                                                         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;"}
 240                                                                                                                         append buffer >
 241                                                                                                                 }
 242
 243 append buffer {
 244 <a class="openocd" href="run.tcl?toggle_details=1">
 245 }
 246
 247                                                                                                                         if {$show_details==1} {
 248                                                                                                                                 append buffer "Hide details"
 249                                                                                                                                 append buffer <br/>
 250                                                                                                                         } else {
 251                                                                                                                                 append buffer {<div style="position:relative;top:7px;text-align:center;">}
 252                                                                                                                                 append buffer "Show details"
 253                                                                                                                                 append buffer {</div>}
 254                                                                                                                         }
 255
 256 append buffer {
 257 </a>
 258 }
 259
 260                                                                                                                         if {$show_details==1} {
 261                                                                                                                                 append buffer $console
 262                                                                                                                         }
 263
 264 append buffer {</td>}
 265
 266                                                                                                                 if {$show_details!=1} {
 267                                                                                                                         append buffer {<td>&nbsp;</td>}
 268                                                                                                                 }
 269
 270 append buffer {
 271 <td style="width:25px;">&nbsp;</td>
 272 </table>
 273 </td>
 274 </tr>
 275 }
 276
 277                                                                          }
 278
 279 append buffer {
 280 <tr>
 281 <td style="height:30px;background-image:url('menu_cuts/center_bottom.png');background-repeat: no-repeat;background-position:top right;" colspan="6">
 282 <div style="width:500px;background-color:#ffffff;height:100%;">
 283                                                                                         &nbsp;
 284                                                                                 </div>
 285 </td>
 286 </tr>
 287 </table>
 288 </td>
 289 <td style="width:6px;"/>
 290 <td style="width:245px;height:100%">
 291 <table style="padding:0px;border-collapse:collapse;height:100%;">
 292 <tr>
 293 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab2_selected.png');background-repeat: no-repeat;">
 294 <div style="position:relative;top:7px;;font-weight:bold;text-align:center;width:100px;" class="textgray">
 295                                                                                     Documentation
 296                                                                                  </div>
 297 </td>
 298 <td width="40px">
 299                                                                                 &nbsp;
 300                                                                         </td>
 301 <td/>
 302 </tr>
 303 <tr>
 304 <td style="height:10px;width:245px;background-image:url('menu_cuts/right_top_small.png');" colspan="3"/>
 305 </tr>
 306 <tr>
 307 <td style="background-color:#d8d7d7;width:245px;padding-left:10px;padding-buttom:10px;line-height:17px;" colspan="3">
 308 <a target="_blank" href="http://openocd.berlios.de/doc/openocd.pdf">OpenOCD Manual</a>
 309 <br/>
 310 </td>
 311 </tr>
 312 <tr>
 313 <td style="background-color:#d8d7d7;height:15px;" colspan="3"/>
 314 </tr>
 315 <tr>
 316 <td colspan="3">
 317 <table style="padding:0px;border-collapse:collapse;">
 318 <td style="background-color:#d8d7d7;width:10px;height:1px"/>
 319 <td style="background-color:#999999;width:225px; height:1px;"/>
 320 <td style="background-color:#d8d7d7;width:10px;height:1px"/>
 321 </table>
 322 </td>
 323 </tr>
 324 <tr>
 325 <td style="background-color:#d8d7d7;height:15px;" colspan="3"/>
 326 </tr>
 327 <tr style="height:100%;">
 328 <td style="height:100%;background-color:#d8d7d7;padding-left:10px;padding-right:10px;" colspan="3" class="textgray">
 329
 330                                 <p>Reset and run - reset CPU and let it run.</p>
 331                                 <p>Halt - halt CPU.</p>
 332                                 <p>Run from address - halt CPU and resume from address. Default is resume from current address.</p>
 333                                 <p>Reset and init - reset CPU and run init script.</p>
 334
 335                         </td>
 336 </tr>
 337 <tr>
 338 <td style="height:30px;background-image:url('menu_cuts/right_bottom.png');" colspan="3">
 339                                                                                 &nbsp;
 340                                                                         </td>
 341 </tr>
 342 </table>
 343 </td>
 344 </tr>
 345 </table>
 346 </body>
 347 </html>
 348
 349
 350
 351
 352
 353
 354
 355
 356
 357
 358
 359
 360
 361
 362
 363
 364
 365
 366
 367
 368
 369
 370
 371
 372
 373
 374
 375
 376
 377
 378
 379 }
 380
 381 start_chunked "html"
 382 write_chunked $buffer
 383 end_chunked
 384