diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-11-10 23:57:24 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-11-10 23:57:24 +0000 |
commit | 3204da1250f36047ad32fab52167d30ff812bb46 (patch) | |
tree | 19220e81c54531f7a178efd42056982255eb98b2 /mkdir.tcl | |
parent | 70a037898aa44a933c0e5c199b7ac97a392eb0f9 (diff) |
full working implementation using canvas_getdir, and some help on tclpd style from mescalinum
svn path=/trunk/externals/tclfile/; revision=15720
Diffstat (limited to 'mkdir.tcl')
-rw-r--r-- | mkdir.tcl | 36 |
1 files changed, 19 insertions, 17 deletions
@@ -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 |