File: x.tcl.folded

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 (14 lines) | stat: -rw-r--r-- 360 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 2 400   3 + # tcl tests
 1 401   3 | 
 0 401   3 | #simple example
 1 401   3 | 
 2 400   2 + proc Echo_Server {port} {
 0 401   2 |     set s [socket -server EchoAccept $port]
 0 401   2 |     vwait forever;
 0 401   0 | }
 1 400   0   
 2 400   3 + # Bug #1947
 1 401   3 | 
 0 400   0   $s($i,"n")
 0 400   0   set n $showArray($i,"neighbor")
 1 400   0