diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-11-08 02:58:10 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-11-08 02:58:10 +0000 |
commit | 53b224a8e82d3bdeddf093316145ad2c2c9ca6a9 (patch) | |
tree | aa899b139849617e330b5fdad3c1ccf381202b3c |
first stab at some tclpd objectssvn2git-root
svn path=/trunk/externals/tclfile/; revision=15713
-rw-r--r-- | exists-help.pd | 31 | ||||
-rw-r--r-- | exists.tcl | 35 | ||||
-rw-r--r-- | mkdir-help.pd | 2 | ||||
-rw-r--r-- | mkdir.tcl | 35 |
4 files changed, 103 insertions, 0 deletions
diff --git a/exists-help.pd b/exists-help.pd new file mode 100644 index 0000000..a9da207 --- /dev/null +++ b/exists-help.pd @@ -0,0 +1,31 @@ +#N canvas 199 234 450 300 10; +#X obj 190 139 exists; +#X msg 181 45 exists.tcl; +#X floatatom 193 175 5 0 0 0 - - -; +#X msg 205 76 symbol /tmp; +#X msg 222 101 spaces in a filename.txt; +#X floatatom 209 225 5 0 0 0 - - -; +#X symbolatom 257 224 10 0 0 0 - - -; +#X obj 162 245 bng 15 250 50 0 empty empty bang -6 23 1 12 -262144 +-1 -1; +#X obj 162 201 route bang float symbol list; +#X obj 209 245 bng 15 250 50 0 empty empty float -4 23 1 12 -262144 +-1 -1; +#X obj 257 245 bng 15 250 50 0 empty empty symbol -12 23 1 12 -262144 +-1 -1; +#X obj 305 245 bng 15 250 50 0 empty empty list -2 23 1 12 -262144 +-1 -1; +#X obj 353 245 bng 15 250 50 0 empty empty undefined -18 23 1 12 -262144 +-1 -1; +#X connect 0 0 2 0; +#X connect 0 0 8 0; +#X connect 1 0 0 0; +#X connect 3 0 0 0; +#X connect 4 0 0 0; +#X connect 5 0 9 0; +#X connect 6 0 10 0; +#X connect 8 0 7 0; +#X connect 8 1 5 0; +#X connect 8 2 6 0; +#X connect 8 3 11 0; +#X connect 8 4 12 0; diff --git a/exists.tcl b/exists.tcl new file mode 100644 index 0000000..c927ac6 --- /dev/null +++ b/exists.tcl @@ -0,0 +1,35 @@ +package require Tclpd 0.2.3 +package require TclpdLib 0.19 + +proc+ exists::constructor {self args} { + # add second inlet (first created by default) + pd::add_inlet $self list + + # add outlet + pd::add_outlet $self list +} + +proc+ exists::0_symbol {self args} { + # HOT inlet + set @filename [lindex {*}$args 1] + exists::0_bang $self +} + +proc+ exists::0_anything {self args} { + # HOT inlet + set @filename [lindex {*}$args 1] + pd::post "anything: $@filename" + exists::0_bang $self +} + +proc+ exists::0_bang {self} { + if {$@filename == {}} return + pd::outlet $self 0 [list float [file exists $@filename]] +} + +proc+ exists::1_anything {self args} { + # COLD inlet + set @filename [lindex {*}$args 1] +} + +pd::class exists diff --git a/mkdir-help.pd b/mkdir-help.pd new file mode 100644 index 0000000..f271ab0 --- /dev/null +++ b/mkdir-help.pd @@ -0,0 +1,2 @@ +#N canvas 225 242 450 300 10; +#X obj 201 178 mkdir; diff --git a/mkdir.tcl b/mkdir.tcl new file mode 100644 index 0000000..9201a28 --- /dev/null +++ b/mkdir.tcl @@ -0,0 +1,35 @@ +package require Tclpd 0.2.3 +package require TclpdLib 0.19 + +puts stderr "Loading mkdir.tcl" + +if {[namespace exists mkdir]} {return} +namespace eval mkdir { +} + +proc+ mkdir::constructor {self args} { + # add outlet + pd::add_outlet $self list +} + +# HOT inlet +proc+ mkdir::0_list {self args} { + puts stderr "tclfile/mkdir: list" + #pd::outlet $self 0 list $@curlist +} + +# HOT inlet +proc+ mkdir::0_symbol {self args} { + puts stderr "tclfile/mkdir: symbol" +# pd::outlet $self 0 list $@curlist +} + +proc+ mkdir::0_bang {self} { + puts stderr "tclfile/mkdir: bang" +# pd::outlet $self 0 list $@curlist +} + +puts stderr "pd::class mkdir" +pd::class mkdir + +puts stderr "Finished reading mkdir.tcl" |