notepad-plus-plus/scintilla/test/examples/x.tcl.styled

14 lines
340 B
Plaintext
Raw Normal View History

2019-05-04 18:14:48 +00:00
{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})