From 3204da1250f36047ad32fab52167d30ff812bb46 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Thu, 10 Nov 2011 23:57:24 +0000
Subject: full working implementation using canvas_getdir, and some help on
 tclpd style from mescalinum

svn path=/trunk/externals/tclfile/; revision=15720
---
 mkdir.tcl | 36 +++++++++++++++++++-----------------
 1 file changed, 19 insertions(+), 17 deletions(-)

(limited to 'mkdir.tcl')

diff --git a/mkdir.tcl b/mkdir.tcl
index 90b1641..c8c1666 100644
--- a/mkdir.tcl
+++ b/mkdir.tcl
@@ -1,31 +1,33 @@
 package require Tclpd 0.2.3
 package require TclpdLib 0.19
 
-pd::post "Loading mkdir.tcl"
-
 proc+ mkdir::constructor {self args} {
-    # add outlet
-    pd::add_outlet $self list
-}
+    set @current_canvas [canvas_getcurrent]
+    # set to blank so the var always mkdir
+    set @filename {}
 
-# HOT inlet
-proc+ mkdir::0_list {self args} {
-    pd::post "tclfile/mkdir: list"
-    #pd::outlet $self 0 list $@curlist
+    # add second inlet (first created by default)
+    pd::add_inlet $self list
 }
 
-# HOT inlet
 proc+ mkdir::0_symbol {self args} {
-    pd::post "tclfile/mkdir: symbol"
-#    pd::outlet $self 0 list $@curlist
+    # HOT inlet
+    set @filename [pd::arg 0 symbol]
+    mkdir::0_bang $self
 }
 
 proc+ mkdir::0_bang {self} {
-    pd::post "tclfile/mkdir: bang"
-#    pd::outlet $self 0 list $@curlist
+    if {[file pathtype $@filename] eq "absolute"} {
+        file mkdir $@filename
+    } else {
+        set dir [[canvas_getdir $@current_canvas] cget -s_name]
+        file mkdir [file join $dir $@filename]
+    }
 }
 
-pd::post "pd::class mkdir"
-pd::class mkdir
+proc+ mkdir::1_symbol {self args} {
+    # COLD inlet
+    set @filename [pd::arg 0 symbol]
+}
 
-pd::post "Finished reading mkdir.tcl"
+pd::class mkdir
-- 
cgit v1.2.1