diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-11-11 23:33:31 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-11-11 23:33:31 +0000 |
commit | b4791d3cd1cc6bfe759cef5635f54c38a3b58396 (patch) | |
tree | e050bb8ef649433a621ea16ce0c2713708ed7dac | |
parent | adca4c5a61407996abfffacc6991e8f909bc3ad0 (diff) |
ported to 'variable ' technique and use proc instead of proc+
svn path=/trunk/externals/tclfile/; revision=15726
-rw-r--r-- | exists.tcl | 29 | ||||
-rw-r--r-- | mkdir-help.pd | 1 | ||||
-rw-r--r-- | mkdir.tcl | 25 |
3 files changed, 33 insertions, 22 deletions
@@ -1,10 +1,13 @@ package require Tclpd 0.2.3 package require TclpdLib 0.19 -proc+ exists::constructor {self args} { - set @current_canvas [canvas_getcurrent] +proc exists::constructor {self args} { + if {![namespace exists $self]} { + namespace eval $self {} + } + variable ${self}::current_canvas [canvas_getcurrent] # set to blank so the var always exists - set @filename {} + variable ${self}::filename {} # add second inlet (first created by default) pd::add_inlet $self list @@ -13,24 +16,26 @@ proc+ exists::constructor {self args} { pd::add_outlet $self list } -proc+ exists::0_symbol {self args} { +proc exists::0_symbol {self args} { # HOT inlet - set @filename [pd::arg 0 symbol] + variable ${self}::filename [pd::arg 0 symbol] exists::0_bang $self } -proc+ exists::0_bang {self} { - if {[file pathtype $@filename] eq "absolute"} { - pd::outlet $self 0 float [file exists $@filename] +proc exists::0_bang {self} { + variable ${self}::current_canvas + variable ${self}::filename + if {[file pathtype $filename] eq "absolute"} { + pd::outlet $self 0 float [file exists $filename] } else { - set dir [[canvas_getdir $@current_canvas] cget -s_name] - pd::outlet $self 0 float [file exists [file join $dir $@filename]] + set dir [[canvas_getdir $current_canvas] cget -s_name] + pd::outlet $self 0 float [file exists [file join $dir $filename]] } } -proc+ exists::1_symbol {self args} { +proc exists::1_symbol {self args} { # COLD inlet - set @filename [pd::arg 0 symbol] + variable ${self}::filename [pd::arg 0 symbol] } pd::class exists diff --git a/mkdir-help.pd b/mkdir-help.pd index 9a3e041..4ea2384 100644 --- a/mkdir-help.pd +++ b/mkdir-help.pd @@ -15,3 +15,4 @@ #X connect 2 0 4 0; #X connect 3 0 2 0; #X connect 4 0 5 0; +#X connect 6 0 2 0; @@ -1,33 +1,38 @@ package require Tclpd 0.2.3 package require TclpdLib 0.19 -proc+ mkdir::constructor {self args} { +proc mkdir::constructor {self args} { + if {![namespace exists $self]} { + namespace eval $self {} + } + variable ${self}::filename set @current_canvas [canvas_getcurrent] # set to blank so the var always mkdir - set @filename {} + set filename {} # add second inlet (first created by default) pd::add_inlet $self list } -proc+ mkdir::0_symbol {self args} { +proc mkdir::0_symbol {self args} { # HOT inlet - set @filename [pd::arg 0 symbol] + variable ${self}::filename [pd::arg 0 symbol] mkdir::0_bang $self } -proc+ mkdir::0_bang {self} { - if {[file pathtype $@filename] eq "absolute"} { - file mkdir $@filename +proc mkdir::0_bang {self} { + variable ${self}::filename + 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] + set dir [[canvas_getdir $current_canvas] cget -s_name] + file mkdir [file join $dir $filename] } } proc+ mkdir::1_symbol {self args} { # COLD inlet - set @filename [pd::arg 0 symbol] + variable ${self}::filename [pd::arg 0 symbol] } pd::class mkdir |