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                 <html xmlns="http://www.w3.org/TR/REC-html40">\r
  44 <head>\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
  48 </head>\r
  49 }\r
  50 \r
  51                                 set console ""\r
  52                                 set upload_filename /ram/upload\r
  53                         \r
  54 append buffer {\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
  58 <a href="/">\r
  59                                                         OpenOCD\r
  60                                                 </a>\r
  61 </div>\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
  64 }\r
  65 append buffer [capture version]\r
  66 append buffer {\r
  67 </div>\r
  68 </div>\r
  69 </div>\r
  70 <table style="padding:0px;border-collapse:collapse;">\r
  71 <tr>\r
  72 <td style="width:33px;">\r
  73 <div style="width:20px;height:510px;">\r
  74                                                                 &nbsp;\r
  75                                                         </div>\r
  76 </td>\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
  80 <td/>\r
  81 </tr>\r
  82 <tr>\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
  86 </div>\r
  87 </td>\r
  88 </tr>\r
  89 <tr>\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
  93 </div>\r
  94 </td>\r
  95 </tr>\r
  96 <tr>\r
  97 <td style="width:140px;height:35px;background-image:url('menu_cuts/v_1.png')"/>\r
  98 </tr>\r
  99 <tr>\r
 100 <td style="width:140px;background-image:url('menu_cuts/v_2_tile.png')"/>\r
 101 </tr>\r
 102 <tr>\r
 103 <td style="width:140px;height:140px;background-image:url('menu_cuts/v_3.png')"/>\r
 104 </tr>\r
 105 </table>\r
 106 </td>\r
 107 <td style="vertical-align:top;padding:0px;height:100%">\r
 108 <table style="padding:0px;border-collapse:collapse;height:100%;">\r
 109 <tr>\r
 110 <td>\r
 111 <table style="padding:0px;border-collapse:collapse;">\r
 112 <tr>\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
 116 </div>\r
 117 </td>\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
 121 </div>\r
 122 </td>\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
 126 </div>\r
 127 </td>\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
 131 </div>\r
 132 </td>\r
 133 </tr>\r
 134 </table>\r
 135 </td>\r
 136 </tr>\r
 137 <tr>\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
 140                                                                                         &nbsp;\r
 141                                                                                 </div>\r
 142 </td>\r
 143 </tr>\r
 144 <tr>\r
 145 <td style="background-color:#ffffff;text-indent:30px;height:40px;" colspan="6">\r
 146 <H1>Run Command</H1>\r
 147 </td>\r
 148 </tr>\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
 151 \r
 152                         }\r
 153 \r
 154                                 set form_command [formfetch form_command]\r
 155 \r
 156                                 set form_edittext ""\r
 157                                 if {[string length $form_command]>0} {\r
 158                                         set form_edittext [capture_catch {eval $form_command}]\r
 159                                 }\r
 160                                 \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
 170                                 \r
 171                                 append buffer {</form>} "\n"\r
 172                         \r
 173                         \r
 174 append buffer {\r
 175 \r
 176                         </td>\r
 177 </tr>\r
 178 }\r
 179 \r
 180                                                                         \r
 181                                                                         set toggle_details [formfetch toggle_details]\r
 182                                                                         if {[string length $toggle_details]==0} {\r
 183                                                                                 set toggle_details 0\r
 184                                                                         }\r
 185                                                                         set show_details [load_var show_details]\r
 186                                                                         if {[string length $show_details]==0} {\r
 187                                                                                 set show_details 0\r
 188                                                                         }\r
 189                                                                         if {$toggle_details==1} {\r
 190                                                                                 set show_details [expr 1-$show_details]\r
 191                                                                                 save_var show_details $show_details\r
 192                                                                         }\r
 193                                                                         \r
 194                                                                         if {[string length $console]!=0} {\r
 195                                                                                 \r
 196 append buffer {\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;">&nbsp;</td>\r
 201 }\r
 202 \r
 203                                                                                                                 if {$show_details==1} {\r
 204                                                                                                                         append buffer <\r
 205                                                                                                                         append buffer {td style="background-color:#dddddd;padding-left:5px;padding-right:5px;padding-top:3px;padding-bottom:3px;"}\r
 206                                                                                                                         append buffer >\r
 207                                                                                                                 } else {\r
 208                                                                                                                         append buffer <\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
 210                                                                                                                         append buffer >\r
 211                                                                                                                 }\r
 212                                                                                                         \r
 213 append buffer {\r
 214 <a class="openocd" href="openocd.tcl?toggle_details=1">\r
 215 }\r
 216 \r
 217                                                                                                                         if {$show_details==1} {\r
 218                                                                                                                                 append buffer "Hide details"\r
 219                                                                                                                                 append buffer <br/>\r
 220                                                                                                                         } else {\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
 224                                                                                                                         }\r
 225                                                                                                                         \r
 226 append buffer {\r
 227 </a>\r
 228 }\r
 229 \r
 230                                                                                                                         if {$show_details==1} {\r
 231                                                                                                                                 append buffer $console\r
 232                                                                                                                         }\r
 233                                                                                                                 \r
 234 append buffer {</td>}\r
 235 \r
 236                                                                                                                 if {$show_details!=1} {\r
 237                                                                                                                         append buffer {<td>&nbsp;</td>}\r
 238                                                                                                                 }\r
 239                                                                                                          \r
 240 append buffer {\r
 241 <td style="width:25px;">&nbsp;</td>\r
 242 </table>\r
 243 </td>\r
 244 </tr>\r
 245 }\r
 246 \r
 247                                                                          }\r
 248                                                                 \r
 249 append buffer {\r
 250 <tr>\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
 253                                                                                         &nbsp;\r
 254                                                                                 </div>\r
 255 </td>\r
 256 </tr>\r
 257 </table>\r
 258 </td>\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
 262 <tr>\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
 265                                                                                     Documentation\r
 266                                                                                  </div>\r
 267 </td>\r
 268 <td width="40px">\r
 269                                                                                 &nbsp;\r
 270                                                                         </td>\r
 271 <td/>\r
 272 </tr>\r
 273 <tr>\r
 274 <td style="height:10px;width:245px;background-image:url('menu_cuts/right_top_small.png');" colspan="3"/>\r
 275 </tr>\r
 276 <tr>\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
 279 <br/>\r
 280 </td>\r
 281 </tr>\r
 282 <tr>\r
 283 <td style="background-color:#d8d7d7;height:15px;" colspan="3"/>\r
 284 </tr>\r
 285 <tr>\r
 286 <td 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
 291 </table>\r
 292 </td>\r
 293 </tr>\r
 294 <tr>\r
 295 <td style="background-color:#d8d7d7;height:15px;" colspan="3"/>\r
 296 </tr>\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
 299                                 \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
 302                                 <p/>\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
 305 append buffer [ip]\r
 306 append buffer {/ram/log", or\r
 307                                 point your web browser to said address.</p>\r
 308                                 <p>\r
 309                                 You can also execute tcl commands using curl from your developer PC:\r
 310                                 </p>\r
 311                                 <code>\r
 312                                 curl --form form_command=ocd_version }\r
 313 append buffer [ip]\r
 314 append buffer {runtcl.tcl\r
 315                                 </code>\r
 316                                 \r
 317                                 \r
 318                         </td>\r
 319 </tr>\r
 320 <tr>\r
 321 <td style="height:30px;background-image:url('menu_cuts/right_bottom.png');" colspan="3">\r
 322                                                                                 &nbsp;\r
 323                                                                         </td>\r
 324 </tr>\r
 325 </table>\r
 326 </td>\r
 327 </tr>\r
 328 </table>\r
 329 </body>\r
 330 </html>\r
 331 \r
 332                 \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 start_chunked "html"\r
 353 write_chunked $buffer\r
 354 end_chunked\r
 355 \r