move shared function to a Tcl package, now that tclpd supports a local package

svn path=/trunk/externals/tclfile/; revision=15742

1 files changed, 15 insertions, 5 deletions

diff --git a/mkdir.tcl b/mkdir.tcl
index 9d2f7b7..2ff47eb 100644
--- a/mkdir.tcl
+++ b/mkdir.tcl
@@ -1,24 +1,30 @@
 package require Tclpd 0.3.0
 package require TclpdLib 0.20
+package require tclfile
 
 proc mkdir::constructor {self args} {
     if {![namespace exists $self]} {
         namespace eval $self {}
     }
-    # set to blank so the var always mkdir
-    variable ${self}::filename {}
     variable ${self}::current_canvas [canvas_getcurrent]
+    # set to blank so the var always exists
+    variable ${self}::filename {}
 
     # add second inlet (first created by default)
     pd::add_inlet $self list
 }
 
+# HOT inlet --------------------------------------------------------------------
 proc mkdir::0_symbol {self args} {
-    # HOT inlet
     variable ${self}::filename [pd::arg 0 symbol]
     mkdir::0_bang $self
 }
 
+proc mkdir::0_anything {self args} {
+    variable ${self}::filename [tclfile::make_symbol $args]
+    mkdir::0_bang $self
+}
+
 proc mkdir::0_bang {self} {
     variable ${self}::current_canvas
     variable ${self}::filename
@@ -30,9 +36,13 @@ proc mkdir::0_bang {self} {
     }
 }
 
-proc+ mkdir::1_symbol {self args} {
-    # COLD inlet
+# COLD inlet -------------------------------------------------------------------
+proc mkdir::1_symbol {self args} {
     variable ${self}::filename [pd::arg 0 symbol]
 }
 
+proc mkdir::1_anything {self args} {
+    variable ${self}::filename [tclfile::make_symbol $args]
+}
+
 pd::class mkdir