-# converted to .tcl by html2tcl.tcl\r
-set buffer ""\r
-append buffer {\r
- \r
- \r
-\r
- \r
- \r
- \r
-\r
-\r
- \r
-\r
-\r
-\r
- \r
- \r
-\r
- \r
-\r
-\r
-\r
-\r
- \r
-\r
-\r
-\r
- \r
-\r
-\r
- \r
-\r
-\r
- \r
-\r
- \r
-\r
-\r
- \r
-\r
-\r
-\r
- \r
-\r
- \r
- \r
- \r
- \r
-\r
-\r
- \r
-\r
-\r
- \r
-\r
-\r
- <html xmlns="http://www.w3.org/TR/REC-html40">\r
-<head>\r
-<title>OpenOCD debugger</title>\r
-<meta charset="utf-8" content="text/html" http-equiv="Content-Type"/>\r
-<link type="text/css" rel="stylesheet" href="menuweb.css"/>\r
-</head>\r
-}\r
-\r
- set console ""\r
- set upload_filename /ram/upload\r
- \r
-append buffer {\r
-<body style="margin:0px;">\r
-<div style="width:974px;height:85px;">\r
-<div style="float:left;position:relative;left:32px;width:478px;">\r
-<a href="/">\r
- OpenOCD\r
- </a>\r
-</div>\r
-<div style="float:left;position:relative;height:26px; width:278px;left:122px;background-image:url('menu_cuts/top_right.png');">\r
-<div style="position:relative;left:15px;top:4px;" class="textlight">\r
-}\r
-append buffer [capture version]\r
-append buffer {\r
-</div>\r
-</div>\r
-</div>\r
-<table style="padding:0px;border-collapse:collapse;">\r
-<tr>\r
-<td style="width:33px;">\r
-<div style="width:20px;height:510px;">\r
- \r
- </div>\r
-</td>\r
-<td style="vertical-align:top;height:100%;width:140px;padding:0px;">\r
-<table style="padding:0px;border-collapse:collapse;height:100%;width:140px;">\r
-<tr style="height:59px;">\r
-<td/>\r
-</tr>\r
-<tr>\r
-<td style="width:140px;height:38px;background-image:url('menu_cuts/v_tab.png');background-repeat: no-repeat;">\r
-<div style="position:relative;left:10px;top:10px;font-weight:bold;">\r
-<a href="index.tcl" style="">Target Status</a>\r
-</div>\r
-</td>\r
-</tr>\r
-<tr>\r
-<td style="width:140px;height:35px;background-image:url('menu_cuts/v_1.png')"/>\r
-</tr>\r
-<tr>\r
-<td style="width:140px;background-image:url('menu_cuts/v_2_tile.png')"/>\r
-</tr>\r
-<tr>\r
-<td style="width:140px;height:140px;background-image:url('menu_cuts/v_3.png')"/>\r
-</tr>\r
-</table>\r
-</td>\r
-<td style="vertical-align:top;padding:0px;height:100%">\r
-<table style="padding:0px;border-collapse:collapse;height:100%;">\r
-<tr>\r
-<td>\r
-<table style="padding:0px;border-collapse:collapse;">\r
-<tr>\r
-<td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1_selected.png');background-repeat: no-repeat;">\r
-<div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">\r
-<a href="index.tcl" style="font-weight: bold;">Config Target</a>\r
-</div>\r
-</td>\r
-<td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1.png');background-repeat: no-repeat;">\r
-<div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">\r
-<a href="flashinfo.tcl">Flash</a>\r
-</div>\r
-</td>\r
-<td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1.png');background-repeat: no-repeat;">\r
-<div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">\r
-<a href="browsemem.tcl">Memory</a>\r
-</div>\r
-</td>\r
-<td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1.png');background-repeat: no-repeat;">\r
-<div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">\r
-<a href="openocd.tcl">OpenOCD</a>\r
-</div>\r
-</td>\r
-</tr>\r
-</table>\r
-</td>\r
-</tr>\r
-<tr>\r
-<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
-<div style="width:500px;background-color:#ffffff;height:100%;">\r
- \r
- </div>\r
-</td>\r
-</tr>\r
-<tr>\r
-<td style="background-color:#ffffff;text-indent:30px;height:40px;" colspan="6">\r
-<H1>UART forwarding</H1>\r
-</td>\r
-</tr>\r
-<tr style="height:100%;">\r
-<td style="background-color:#ffffff;padding-left:30px;padding-right:30px;width=535px;height:100%;" colspan="6">\r
- }\r
-\r
- set form_baudrate [formfetch form_baudrate]\r
- if {[string length $form_baudrate]==0} {\r
- set form_baudrate [ocd_uart]\r
- set form_baudrate [string range $form_baudrate 0 [expr [string length $form_baudrate]-2]]\r
- }\r
- set form_action [formfetch form_action]\r
- \r
-append buffer {\r
- <form action="terminal.tcl" method="post">\r
- Target baudrate: \r
- <select name="form_baudrate">\r
- }\r
-\r
- foreach i {9600 19200 38400 57600 115200} { \r
- \r
-append buffer {\r
- <option }\r
-if {[string compare $form_baudrate $i]==0} { append buffer {selected="selected"} } \r
-append buffer {\r
- value ="}\r
-append buffer $i\r
-append buffer {">}\r
-append buffer $i\r
-append buffer {</option>\r
- }\r
-\r
- }\r
- \r
-append buffer {\r
- </select>\r
-\r
- <p> \r
- <input type="submit" name="form_action" value="Set baudrate" >\r
- </form> \r
- }\r
-\r
- if {[string compare $form_action "Set baudrate"]==0} {\r
- append console [encode [ocd_uart $form_baudrate]]\r
- }\r
- \r
-append buffer {\r
- \r
- <h2>Simple UART</h2>\r
- This terminal window is purely for illustrative purposes. Use telnet or a terminal program\r
- to talk to the target over TCP/IP for anything but trivial case of reading/writing a few\r
- lines of texts in simple tests.\r
- <p>\r
- </td>\r
-</tr>\r
-}\r
-\r
- \r
- set toggle_details [formfetch toggle_details]\r
- if {[string length $toggle_details]==0} {\r
- set toggle_details 0\r
- }\r
- set show_details [load_var show_details]\r
- if {[string length $show_details]==0} {\r
- set show_details 0\r
- }\r
- if {$toggle_details==1} {\r
- set show_details [expr 1-$show_details]\r
- save_var show_details $show_details\r
- }\r
- \r
- if {[string length $console]!=0} {\r
- \r
-append buffer {\r
-<tr style="height:100%;">\r
-<td style="height:100%;background-color:red;" colspan="6">\r
-<table style="padding:0px;border-collapse:collapse;background-color:#ffffff;width:100%" class="textgray">\r
-<td style="width:25px;"> </td>\r
-}\r
-\r
- if {$show_details==1} {\r
- append buffer <\r
- append buffer {td style="background-color:#dddddd;padding-left:5px;padding-right:5px;padding-top:3px;padding-bottom:3px;"}\r
- append buffer >\r
- } else {\r
- append buffer <\r
- 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
- append buffer >\r
- }\r
- \r
-append buffer {\r
-<a class="openocd" href="terminal.tcl?toggle_details=1">\r
-}\r
-\r
- if {$show_details==1} {\r
- append buffer "Hide details"\r
- append buffer <br/>\r
- } else {\r
- append buffer {<div style="position:relative;top:7px;text-align:center;">}\r
- append buffer "Show details"\r
- append buffer {</div>}\r
- }\r
- \r
-append buffer {\r
-</a>\r
-}\r
-\r
- if {$show_details==1} {\r
- append buffer $console\r
- }\r
- \r
-append buffer {</td>}\r
-\r
- if {$show_details!=1} {\r
- append buffer {<td> </td>}\r
- }\r
- \r
-append buffer {\r
-<td style="width:25px;"> </td>\r
-</table>\r
-</td>\r
-</tr>\r
-}\r
-\r
- }\r
- \r
-append buffer {\r
-<tr>\r
-<td style="height:30px;background-image:url('menu_cuts/center_bottom.png');background-repeat: no-repeat;background-position:top right;" colspan="6">\r
-<div style="width:500px;background-color:#ffffff;height:100%;">\r
- \r
- </div>\r
-</td>\r
-</tr>\r
-</table>\r
-</td>\r
-<td style="width:6px;"/>\r
-<td style="width:245px;height:100%">\r
-<table style="padding:0px;border-collapse:collapse;height:100%;">\r
-<tr>\r
-<td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab2_selected.png');background-repeat: no-repeat;">\r
-<div style="position:relative;top:7px;;font-weight:bold;text-align:center;width:100px;" class="textgray">\r
- Documentation\r
- </div>\r
-</td>\r
-<td width="40px">\r
- \r
- </td>\r
-<td/>\r
-</tr>\r
-<tr>\r
-<td style="height:10px;width:245px;background-image:url('menu_cuts/right_top_small.png');" colspan="3"/>\r
-</tr>\r
-<tr>\r
-<td style="background-color:#d8d7d7;width:245px;padding-left:10px;padding-buttom:10px;line-height:17px;" colspan="3">\r
-<a target="_blank" href="http://openocd.berlios.de/doc/openocd.pdf">OpenOCD Manual</a>\r
-<br/>\r
-</td>\r
-</tr>\r
-<tr>\r
-<td style="background-color:#d8d7d7;height:15px;" colspan="3"/>\r
-</tr>\r
-<tr>\r
-<td colspan="3">\r
-<table style="padding:0px;border-collapse:collapse;">\r
-<td style="background-color:#d8d7d7;width:10px;height:1px"/>\r
-<td style="background-color:#999999;width:225px; height:1px;"/>\r
-<td style="background-color:#d8d7d7;width:10px;height:1px"/>\r
-</table>\r
-</td>\r
-</tr>\r
-<tr>\r
-<td style="background-color:#d8d7d7;height:15px;" colspan="3"/>\r
-</tr>\r
-<tr style="height:100%;">\r
-<td style="height:100%;background-color:#d8d7d7;padding-left:10px;padding-right:10px;" colspan="3" class="textgray">\r
- \r
- Serial port data to target is forwarded(both directions) in the simple terminal window\r
- to the left. Alternatively you can <b>telnet }\r
-append buffer [ip]\r
-append buffer { 5555</b>\r
- or connect via TCP/IP from e.g. HyperTerminal.\r
- <p>\r
- Type "help uart" in telnet for information on how to set uart speed for target. Normally\r
- the uart speed is set from the target configuration script by adding an "uart N", where\r
- N is the baudrate.\r
- \r
- </td>\r
-</tr>\r
-<tr>\r
-<td style="height:30px;background-image:url('menu_cuts/right_bottom.png');" colspan="3">\r
- \r
- </td>\r
-</tr>\r
-</table>\r
-</td>\r
-</tr>\r
-</table>\r
-</body>\r
-</html>\r
-\r
-\r
- \r
- \r
- \r
-}\r
-\r
-start_chunked "html"\r
-write_chunked $buffer\r
-end_chunked\r
-\r
+# converted to .tcl by html2tcl.tcl
+set buffer ""
+append buffer {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <html xmlns="http://www.w3.org/TR/REC-html40">
+<head>
+<title>OpenOCD debugger</title>
+<meta charset="utf-8" content="text/html" http-equiv="Content-Type"/>
+<link type="text/css" rel="stylesheet" href="menuweb.css"/>
+</head>
+}
+
+ set console ""
+ set upload_filename /ram/upload
+
+append buffer {
+<body style="margin:0px;">
+<div style="width:974px;height:85px;">
+<div style="float:left;position:relative;left:32px;width:478px;">
+<a href="/">
+ OpenOCD
+ </a>
+</div>
+<div style="float:left;position:relative;height:26px; width:278px;left:122px;background-image:url('menu_cuts/top_right.png');">
+<div style="position:relative;left:15px;top:4px;" class="textlight">
+}
+append buffer [capture version]
+append buffer {
+</div>
+</div>
+</div>
+<table style="padding:0px;border-collapse:collapse;">
+<tr>
+<td style="width:33px;">
+<div style="width:20px;height:510px;">
+
+ </div>
+</td>
+<td style="vertical-align:top;height:100%;width:140px;padding:0px;">
+<table style="padding:0px;border-collapse:collapse;height:100%;width:140px;">
+<tr style="height:59px;">
+<td/>
+</tr>
+<tr>
+<td style="width:140px;height:38px;background-image:url('menu_cuts/v_tab.png');background-repeat: no-repeat;">
+<div style="position:relative;left:10px;top:10px;font-weight:bold;">
+<a href="index.tcl" style="">Target Status</a>
+</div>
+</td>
+</tr>
+<tr>
+<td style="width:140px;height:35px;background-image:url('menu_cuts/v_1.png')"/>
+</tr>
+<tr>
+<td style="width:140px;background-image:url('menu_cuts/v_2_tile.png')"/>
+</tr>
+<tr>
+<td style="width:140px;height:140px;background-image:url('menu_cuts/v_3.png')"/>
+</tr>
+</table>
+</td>
+<td style="vertical-align:top;padding:0px;height:100%">
+<table style="padding:0px;border-collapse:collapse;height:100%;">
+<tr>
+<td>
+<table style="padding:0px;border-collapse:collapse;">
+<tr>
+<td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1_selected.png');background-repeat: no-repeat;">
+<div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">
+<a href="index.tcl" style="font-weight: bold;">Config Target</a>
+</div>
+</td>
+<td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1.png');background-repeat: no-repeat;">
+<div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">
+<a href="flashinfo.tcl">Flash</a>
+</div>
+</td>
+<td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1.png');background-repeat: no-repeat;">
+<div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">
+<a href="browsemem.tcl">Memory</a>
+</div>
+</td>
+<td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1.png');background-repeat: no-repeat;">
+<div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">
+<a href="openocd.tcl">OpenOCD</a>
+</div>
+</td>
+</tr>
+</table>
+</td>
+</tr>
+<tr>
+<td style="height:30px;width:535px;background-image:url('menu_cuts/center_top.png');background-repeat: no-repeat;background-position:top right;" colspan="6">
+<div style="width:500px;background-color:#ffffff;height:100%;">
+
+ </div>
+</td>
+</tr>
+<tr>
+<td style="background-color:#ffffff;text-indent:30px;height:40px;" colspan="6">
+<H1>UART forwarding</H1>
+</td>
+</tr>
+<tr style="height:100%;">
+<td style="background-color:#ffffff;padding-left:30px;padding-right:30px;width=535px;height:100%;" colspan="6">
+ }
+
+ set form_baudrate [formfetch form_baudrate]
+ if {[string length $form_baudrate]==0} {
+ set form_baudrate [ocd_uart]
+ set form_baudrate [string range $form_baudrate 0 [expr [string length $form_baudrate]-2]]
+ }
+ set form_action [formfetch form_action]
+
+append buffer {
+ <form action="terminal.tcl" method="post">
+ Target baudrate:
+ <select name="form_baudrate">
+ }
+
+ foreach i {9600 19200 38400 57600 115200} {
+
+append buffer {
+ <option }
+if {[string compare $form_baudrate $i]==0} { append buffer {selected="selected"} }
+append buffer {
+ value ="}
+append buffer $i
+append buffer {">}
+append buffer $i
+append buffer {</option>
+ }
+
+ }
+
+append buffer {
+ </select>
+
+ <p>
+ <input type="submit" name="form_action" value="Set baudrate" >
+ </form>
+ }
+
+ if {[string compare $form_action "Set baudrate"]==0} {
+ append console [encode [ocd_uart $form_baudrate]]
+ }
+
+append buffer {
+
+ <h2>Simple UART</h2>
+ This terminal window is purely for illustrative purposes. Use telnet or a terminal program
+ to talk to the target over TCP/IP for anything but trivial case of reading/writing a few
+ lines of texts in simple tests.
+ <p>
+ </td>
+</tr>
+}
+
+
+ set toggle_details [formfetch toggle_details]
+ if {[string length $toggle_details]==0} {
+ set toggle_details 0
+ }
+ set show_details [load_var show_details]
+ if {[string length $show_details]==0} {
+ set show_details 0
+ }
+ if {$toggle_details==1} {
+ set show_details [expr 1-$show_details]
+ save_var show_details $show_details
+ }
+
+ if {[string length $console]!=0} {
+
+append buffer {
+<tr style="height:100%;">
+<td style="height:100%;background-color:red;" colspan="6">
+<table style="padding:0px;border-collapse:collapse;background-color:#ffffff;width:100%" class="textgray">
+<td style="width:25px;"> </td>
+}
+
+ if {$show_details==1} {
+ append buffer <
+ append buffer {td style="background-color:#dddddd;padding-left:5px;padding-right:5px;padding-top:3px;padding-bottom:3px;"}
+ append buffer >
+ } else {
+ append buffer <
+ 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;"}
+ append buffer >
+ }
+
+append buffer {
+<a class="openocd" href="terminal.tcl?toggle_details=1">
+}
+
+ if {$show_details==1} {
+ append buffer "Hide details"
+ append buffer <br/>
+ } else {
+ append buffer {<div style="position:relative;top:7px;text-align:center;">}
+ append buffer "Show details"
+ append buffer {</div>}
+ }
+
+append buffer {
+</a>
+}
+
+ if {$show_details==1} {
+ append buffer $console
+ }
+
+append buffer {</td>}
+
+ if {$show_details!=1} {
+ append buffer {<td> </td>}
+ }
+
+append buffer {
+<td style="width:25px;"> </td>
+</table>
+</td>
+</tr>
+}
+
+ }
+
+append buffer {
+<tr>
+<td style="height:30px;background-image:url('menu_cuts/center_bottom.png');background-repeat: no-repeat;background-position:top right;" colspan="6">
+<div style="width:500px;background-color:#ffffff;height:100%;">
+
+ </div>
+</td>
+</tr>
+</table>
+</td>
+<td style="width:6px;"/>
+<td style="width:245px;height:100%">
+<table style="padding:0px;border-collapse:collapse;height:100%;">
+<tr>
+<td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab2_selected.png');background-repeat: no-repeat;">
+<div style="position:relative;top:7px;;font-weight:bold;text-align:center;width:100px;" class="textgray">
+ Documentation
+ </div>
+</td>
+<td width="40px">
+
+ </td>
+<td/>
+</tr>
+<tr>
+<td style="height:10px;width:245px;background-image:url('menu_cuts/right_top_small.png');" colspan="3"/>
+</tr>
+<tr>
+<td style="background-color:#d8d7d7;width:245px;padding-left:10px;padding-buttom:10px;line-height:17px;" colspan="3">
+<a target="_blank" href="http://openocd.berlios.de/doc/openocd.pdf">OpenOCD Manual</a>
+<br/>
+</td>
+</tr>
+<tr>
+<td style="background-color:#d8d7d7;height:15px;" colspan="3"/>
+</tr>
+<tr>
+<td colspan="3">
+<table style="padding:0px;border-collapse:collapse;">
+<td style="background-color:#d8d7d7;width:10px;height:1px"/>
+<td style="background-color:#999999;width:225px; height:1px;"/>
+<td style="background-color:#d8d7d7;width:10px;height:1px"/>
+</table>
+</td>
+</tr>
+<tr>
+<td style="background-color:#d8d7d7;height:15px;" colspan="3"/>
+</tr>
+<tr style="height:100%;">
+<td style="height:100%;background-color:#d8d7d7;padding-left:10px;padding-right:10px;" colspan="3" class="textgray">
+
+ Serial port data to target is forwarded(both directions) in the simple terminal window
+ to the left. Alternatively you can <b>telnet }
+append buffer [ip]
+append buffer { 5555</b>
+ or connect via TCP/IP from e.g. HyperTerminal.
+ <p>
+ Type "help uart" in telnet for information on how to set uart speed for target. Normally
+ the uart speed is set from the target configuration script by adding an "uart N", where
+ N is the baudrate.
+
+ </td>
+</tr>
+<tr>
+<td style="height:30px;background-image:url('menu_cuts/right_bottom.png');" colspan="3">
+
+ </td>
+</tr>
+</table>
+</td>
+</tr>
+</table>
+</body>
+</html>
+
+
+
+
+
+}
+
+start_chunked "html"
+write_chunked $buffer
+end_chunked
+
Code Review / openocd.git / blobdiff