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