git.sur5r.net Git - openocd/blob - src/server/httpd/terminal.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                 \r
  46                 \r
  47                 \r
  48                 \r
  49 \r
  50 \r
  51                 \r
  52 \r
  53 \r
  54                 \r
  55 \r
  56 \r
  57                 <html xmlns="http://www.w3.org/TR/REC-html40">\r
  58 <head>\r
  59 <title>OpenOCD debugger</title>\r
  60 <meta charset="utf-8" content="text/html" http-equiv="Content-Type"/>\r
  61 <link type="text/css" rel="stylesheet" href="menuweb.css"/>\r
  62 </head>\r
  63 }\r
  64 \r
  65                                 set console ""\r
  66                                 set upload_filename /ram/upload\r
  67                         \r
  68 append buffer {\r
  69 <body style="margin:0px;">\r
  70 <div style="width:974px;height:85px;">\r
  71 <div style="float:left;position:relative;left:32px;width:478px;">\r
  72 <a href="/">\r
  73                                                         OpenOCD\r
  74                                                 </a>\r
  75 </div>\r
  76 <div style="float:left;position:relative;height:26px; width:278px;left:122px;background-image:url('menu_cuts/top_right.png');">\r
  77 <div style="position:relative;left:15px;top:4px;" class="textlight">\r
  78 }\r
  79 append buffer [capture version]\r
  80 append buffer {\r
  81 </div>\r
  82 </div>\r
  83 </div>\r
  84 <table style="padding:0px;border-collapse:collapse;">\r
  85 <tr>\r
  86 <td style="width:33px;">\r
  87 <div style="width:20px;height:510px;">\r
  88                                                                 &nbsp;\r
  89                                                         </div>\r
  90 </td>\r
  91 <td style="vertical-align:top;height:100%;width:140px;padding:0px;">\r
  92 <table style="padding:0px;border-collapse:collapse;height:100%;width:140px;">\r
  93 <tr style="height:59px;">\r
  94 <td/>\r
  95 </tr>\r
  96 <tr>\r
  97 <td style="width:140px;height:38px;background-image:url('menu_cuts/v_tab.png');background-repeat: no-repeat;">\r
  98 <div style="position:relative;left:10px;top:10px;font-weight:bold;">\r
  99 <a href="index.tcl" style="">Target Status</a>\r
 100 </div>\r
 101 </td>\r
 102 </tr>\r
 103 <tr>\r
 104 <td style="width:140px;height:35px;background-image:url('menu_cuts/v_1.png')"/>\r
 105 </tr>\r
 106 <tr>\r
 107 <td style="width:140px;background-image:url('menu_cuts/v_2_tile.png')"/>\r
 108 </tr>\r
 109 <tr>\r
 110 <td style="width:140px;height:140px;background-image:url('menu_cuts/v_3.png')"/>\r
 111 </tr>\r
 112 </table>\r
 113 </td>\r
 114 <td style="vertical-align:top;padding:0px;height:100%">\r
 115 <table style="padding:0px;border-collapse:collapse;height:100%;">\r
 116 <tr>\r
 117 <td>\r
 118 <table style="padding:0px;border-collapse:collapse;">\r
 119 <tr>\r
 120 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1_selected.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="index.tcl" style="font-weight: bold;">Config Target</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="flashinfo.tcl">Flash</a>\r
 128 </div>\r
 129 </td>\r
 130 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1.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="browsemem.tcl">Memory</a>\r
 133 </div>\r
 134 </td>\r
 135 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1.png');background-repeat: no-repeat;">\r
 136 <div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">\r
 137 <a href="openocd.tcl">OpenOCD</a>\r
 138 </div>\r
 139 </td>\r
 140 </tr>\r
 141 </table>\r
 142 </td>\r
 143 </tr>\r
 144 <tr>\r
 145 <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
 146 <div style="width:500px;background-color:#ffffff;height:100%;">\r
 147                                                                                         &nbsp;\r
 148                                                                                 </div>\r
 149 </td>\r
 150 </tr>\r
 151 <tr>\r
 152 <td style="background-color:#ffffff;text-indent:30px;height:40px;" colspan="6">\r
 153 <H1>UART forwarding</H1>\r
 154 </td>\r
 155 </tr>\r
 156 <tr style="height:100%;">\r
 157 <td style="background-color:#ffffff;padding-left:30px;padding-right:30px;width=535px;height:100%;" colspan="6">\r
 158                         }\r
 159 \r
 160                                 set form_baudrate [formfetch form_baudrate]\r
 161                                 if {[string length $form_baudrate]==0} {\r
 162                                         set form_baudrate [ocd_uart]\r
 163                                         set form_baudrate [string range $form_baudrate 0 [expr [string length $form_baudrate]-2]]\r
 164                                 }\r
 165                                 set form_action [formfetch form_action]\r
 166                         \r
 167 append buffer {\r
 168                         <form action="terminal.tcl" method="post">\r
 169                                 Target baudrate: \r
 170                                         <select name="form_baudrate">\r
 171                                                 }\r
 172 \r
 173                                                         foreach i {9600 19200 38400 57600 115200} { \r
 174                                                         \r
 175 append buffer {\r
 176                                                                 <option }\r
 177 if {[string compare $form_baudrate $i]==0} { append buffer {selected="selected"} }  \r
 178 append buffer {\r
 179                                                                 value ="}\r
 180 append buffer $i\r
 181 append buffer {">}\r
 182 append buffer $i\r
 183 append buffer {</option>\r
 184                                                         }\r
 185 \r
 186                                                         }\r
 187                                                         \r
 188 append buffer {\r
 189                                                 </select>\r
 190 \r
 191                                         <p>     \r
 192                                         <input type="submit" name="form_action" value="Set baudrate" >\r
 193                                 </form>                 \r
 194                         }\r
 195 \r
 196                                 if {[string compare $form_action "Set baudrate"]==0} {\r
 197                                         append console [encode [ocd_uart $form_baudrate]]\r
 198                                 }\r
 199                         \r
 200 append buffer {\r
 201                         \r
 202                         <h2>Simple UART</h2>\r
 203                         This terminal window is purely for illustrative purposes. Use telnet or a terminal program\r
 204                         to talk to the target over TCP/IP for anything but trivial case of reading/writing a few\r
 205                         lines of texts in simple tests.\r
 206                         <p>\r
 207                         </td>\r
 208 </tr>\r
 209 }\r
 210 \r
 211                                                                         \r
 212                                                                         set toggle_details [formfetch toggle_details]\r
 213                                                                         if {[string length $toggle_details]==0} {\r
 214                                                                                 set toggle_details 0\r
 215                                                                         }\r
 216                                                                         set show_details [load_var show_details]\r
 217                                                                         if {[string length $show_details]==0} {\r
 218                                                                                 set show_details 0\r
 219                                                                         }\r
 220                                                                         if {$toggle_details==1} {\r
 221                                                                                 set show_details [expr 1-$show_details]\r
 222                                                                                 save_var show_details $show_details\r
 223                                                                         }\r
 224                                                                         \r
 225                                                                         if {[string length $console]!=0} {\r
 226                                                                                 \r
 227 append buffer {\r
 228 <tr style="height:100%;">\r
 229 <td style="height:100%;background-color:red;" colspan="6">\r
 230 <table style="padding:0px;border-collapse:collapse;background-color:#ffffff;width:100%" class="textgray">\r
 231 <td style="width:25px;">&nbsp;</td>\r
 232 }\r
 233 \r
 234                                                                                                                 if {$show_details==1} {\r
 235                                                                                                                         append buffer <\r
 236                                                                                                                         append buffer {td style="background-color:#dddddd;padding-left:5px;padding-right:5px;padding-top:3px;padding-bottom:3px;"}\r
 237                                                                                                                         append buffer >\r
 238                                                                                                                 } else {\r
 239                                                                                                                         append buffer <\r
 240                                                                                                                         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
 241                                                                                                                         append buffer >\r
 242                                                                                                                 }\r
 243                                                                                                         \r
 244 append buffer {\r
 245 <a class="openocd" href="terminal.tcl?toggle_details=1">\r
 246 }\r
 247 \r
 248                                                                                                                         if {$show_details==1} {\r
 249                                                                                                                                 append buffer "Hide details"\r
 250                                                                                                                                 append buffer <br/>\r
 251                                                                                                                         } else {\r
 252                                                                                                                                 append buffer {<div style="position:relative;top:7px;text-align:center;">}\r
 253                                                                                                                                 append buffer "Show details"\r
 254                                                                                                                                 append buffer {</div>}\r
 255                                                                                                                         }\r
 256                                                                                                                         \r
 257 append buffer {\r
 258 </a>\r
 259 }\r
 260 \r
 261                                                                                                                         if {$show_details==1} {\r
 262                                                                                                                                 append buffer $console\r
 263                                                                                                                         }\r
 264                                                                                                                 \r
 265 append buffer {</td>}\r
 266 \r
 267                                                                                                                 if {$show_details!=1} {\r
 268                                                                                                                         append buffer {<td>&nbsp;</td>}\r
 269                                                                                                                 }\r
 270                                                                                                          \r
 271 append buffer {\r
 272 <td style="width:25px;">&nbsp;</td>\r
 273 </table>\r
 274 </td>\r
 275 </tr>\r
 276 }\r
 277 \r
 278                                                                          }\r
 279                                                                 \r
 280 append buffer {\r
 281 <tr>\r
 282 <td style="height:30px;background-image:url('menu_cuts/center_bottom.png');background-repeat: no-repeat;background-position:top right;" colspan="6">\r
 283 <div style="width:500px;background-color:#ffffff;height:100%;">\r
 284                                                                                         &nbsp;\r
 285                                                                                 </div>\r
 286 </td>\r
 287 </tr>\r
 288 </table>\r
 289 </td>\r
 290 <td style="width:6px;"/>\r
 291 <td style="width:245px;height:100%">\r
 292 <table style="padding:0px;border-collapse:collapse;height:100%;">\r
 293 <tr>\r
 294 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab2_selected.png');background-repeat: no-repeat;">\r
 295 <div style="position:relative;top:7px;;font-weight:bold;text-align:center;width:100px;" class="textgray">\r
 296                                                                                     Documentation\r
 297                                                                                  </div>\r
 298 </td>\r
 299 <td width="40px">\r
 300                                                                                 &nbsp;\r
 301                                                                         </td>\r
 302 <td/>\r
 303 </tr>\r
 304 <tr>\r
 305 <td style="height:10px;width:245px;background-image:url('menu_cuts/right_top_small.png');" colspan="3"/>\r
 306 </tr>\r
 307 <tr>\r
 308 <td style="background-color:#d8d7d7;width:245px;padding-left:10px;padding-buttom:10px;line-height:17px;" colspan="3">\r
 309 <a target="_blank" href="http://openocd.berlios.de/doc/openocd.pdf">OpenOCD Manual</a>\r
 310 <br/>\r
 311 </td>\r
 312 </tr>\r
 313 <tr>\r
 314 <td style="background-color:#d8d7d7;height:15px;" colspan="3"/>\r
 315 </tr>\r
 316 <tr>\r
 317 <td colspan="3">\r
 318 <table style="padding:0px;border-collapse:collapse;">\r
 319 <td style="background-color:#d8d7d7;width:10px;height:1px"/>\r
 320 <td style="background-color:#999999;width:225px; height:1px;"/>\r
 321 <td style="background-color:#d8d7d7;width:10px;height:1px"/>\r
 322 </table>\r
 323 </td>\r
 324 </tr>\r
 325 <tr>\r
 326 <td style="background-color:#d8d7d7;height:15px;" colspan="3"/>\r
 327 </tr>\r
 328 <tr style="height:100%;">\r
 329 <td style="height:100%;background-color:#d8d7d7;padding-left:10px;padding-right:10px;" colspan="3" class="textgray">\r
 330                                 \r
 331                                 Serial port data to target is forwarded(both directions) in the simple terminal window\r
 332                                 to the left. Alternatively you can <b>telnet }\r
 333 append buffer [ip]\r
 334 append buffer { 5555</b>\r
 335                                 or connect via TCP/IP from e.g. HyperTerminal.\r
 336                                 <p>\r
 337                                 Type "help uart" in telnet for information on how to set uart speed for target. Normally\r
 338                                 the uart speed is set from the target configuration script by adding an "uart N", where\r
 339                                 N is the baudrate.\r
 340                                 \r
 341                         </td>\r
 342 </tr>\r
 343 <tr>\r
 344 <td style="height:30px;background-image:url('menu_cuts/right_bottom.png');" colspan="3">\r
 345                                                                                 &nbsp;\r
 346                                                                         </td>\r
 347 </tr>\r
 348 </table>\r
 349 </td>\r
 350 </tr>\r
 351 </table>\r
 352 </body>\r
 353 </html>\r
 354 \r
 355 \r
 356                 \r
 357         \r
 358         \r
 359 }\r
 360 \r
 361 start_chunked "html"\r
 362 write_chunked $buffer\r
 363 end_chunked\r
 364 \r