diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-11-14 05:43:13 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-11-14 05:43:13 +0000 |
commit | 6d3a518ce3393a2c00b4795d13d7c420ce8b441d (patch) | |
tree | a7786721ba704a144f9f1cc30849977a10da0890 /tclfile.tcl | |
parent | 40359cc18bdb10a89c22f22bd51791f760e094d0 (diff) |
move shared function to a Tcl package, now that tclpd supports a local package
svn path=/trunk/externals/tclfile/; revision=15742
Diffstat (limited to 'tclfile.tcl')
-rw-r--r-- | tclfile.tcl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/tclfile.tcl b/tclfile.tcl new file mode 100644 index 0000000..7700a5d --- /dev/null +++ b/tclfile.tcl @@ -0,0 +1,14 @@ +package require Tclpd 0.2.3 + +package provide tclfile 0.1 +namespace eval ::tclfile { +} + +proc tclfile::make_symbol {argslist} { + set output [pd::strip_selectors $argslist] + set selector [lindex $output 0] + if {$selector eq "list" || $selector eq "float"} { + set output [lrange $output 1 end] + } + return $output +} |