diff options
Diffstat (limited to 'lexilla/test/examples/tcl')
| -rw-r--r-- | lexilla/test/examples/tcl/SciTE.properties | 2 | ||||
| -rw-r--r-- | lexilla/test/examples/tcl/x.tcl | 13 | ||||
| -rw-r--r-- | lexilla/test/examples/tcl/x.tcl.styled | 13 |
3 files changed, 28 insertions, 0 deletions
diff --git a/lexilla/test/examples/tcl/SciTE.properties b/lexilla/test/examples/tcl/SciTE.properties new file mode 100644 index 000000000..8cecd97b4 --- /dev/null +++ b/lexilla/test/examples/tcl/SciTE.properties @@ -0,0 +1,2 @@ +lexer.*.tcl=tcl +keywords.*.tcl=proc set socket vwait diff --git a/lexilla/test/examples/tcl/x.tcl b/lexilla/test/examples/tcl/x.tcl new file mode 100644 index 000000000..d1260fc82 --- /dev/null +++ b/lexilla/test/examples/tcl/x.tcl @@ -0,0 +1,13 @@ +# tcl tests + +#simple example + +proc Echo_Server {port} { + set s [socket -server EchoAccept $port] + vwait forever; +} + +# Bug #1947 + +$s($i,"n") +set n $showArray($i,"neighbor") diff --git a/lexilla/test/examples/tcl/x.tcl.styled b/lexilla/test/examples/tcl/x.tcl.styled new file mode 100644 index 000000000..66af41327 --- /dev/null +++ b/lexilla/test/examples/tcl/x.tcl.styled @@ -0,0 +1,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}) |