From 6d3a518ce3393a2c00b4795d13d7c420ce8b441d Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Mon, 14 Nov 2011 05:43:13 +0000
Subject: move shared function to a Tcl package, now that tclpd supports a
 local package

svn path=/trunk/externals/tclfile/; revision=15742
---
 tclfile.tcl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 tclfile.tcl

(limited to 'tclfile.tcl')

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
+}
-- 
cgit v1.2.1