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