diff options
author | Didier Raboud <odyx@debian.org> | 2017-11-28 16:59:36 +0100 |
---|---|---|
committer | Didier Raboud <odyx@debian.org> | 2017-11-28 16:59:36 +0100 |
commit | ba67de24f09cd22ab6f3ac3a0b89e3a62a1bfbc1 (patch) | |
tree | 83052b1c6912c4ba587206fff50787cc67be2ea0 /examples/parray.tcl |
Import jimtcl_0.77+dfsg0.orig.tar.xz
[dgit import orig jimtcl_0.77+dfsg0.orig.tar.xz]
Diffstat (limited to 'examples/parray.tcl')
-rw-r--r-- | examples/parray.tcl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/examples/parray.tcl b/examples/parray.tcl new file mode 100644 index 0000000..8ac5d3d --- /dev/null +++ b/examples/parray.tcl @@ -0,0 +1,17 @@ +# Example of using the 'putter' function to redirect parray output + +set a {1 one 2 two 3 three} + +# Use 'curry' to create a single command from two words +stderr puts "curry" +parray a * [curry stderr puts] + +# Same thing, but an alias instead +stderr puts "\nalias" +alias stderr_puts stderr puts +parray a * stderr_puts + +# Now use a lambda to accumulate the results in a buffer +stderr puts "\nlamba" +parray a * [lambda {msg} {lappend ::lines $msg}] +stderr puts [join $lines \n] |