git.sur5r.net Git - openocd/blob - src/server/httpd/openocd.tcl

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