File: x.tcl.styled

package info (click to toggle)
codequery 1.0.1%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 17,860 kB
  • sloc: cpp: 151,420; xml: 16,576; python: 5,602; ansic: 5,487; makefile: 559; perl: 496; ruby: 209; sql: 194; sh: 106; php: 53; vhdl: 51; erlang: 47; objc: 22; lisp: 18; cobol: 18; modula3: 17; asm: 14; fortran: 12; ml: 11; tcl: 6
file content (13 lines) | stat: -rw-r--r-- 340 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
{2}# tcl tests
{0}
{2}#simple example
{0}
{12}proc{0} {7}Echo_Server{0} {6}{{7}port{6}}{0} {6}{
{0}    {12}set{0} {7}s{0} {6}[{12}socket{0} {10}-server{0} {7}EchoAccept{0} {8}$port{6}]
{0}    {12}vwait{0} {7}forever{0};
{6}}
{0}
{2}# Bug #1947
{0}
{8}$s{6}({8}$i{6},{5}"n"{6})
{12}set{0} {7}n{0} {8}$showArray{6}({8}$i{6},{5}"neighbor"{6})