📄 terminal.tcl
字号:
# converted to .tcl by html2tcl.tclset 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 $iappend buffer {">}append buffer $iappend 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 $bufferend_chunked⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -