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 /mkdir.tcl |
first stab at some tclpd objectssvn2git-root
svn path=/trunk/externals/tclfile/; revision=15713
Diffstat (limited to 'mkdir.tcl')
-rw-r--r-- | mkdir.tcl | 35 |
1 files changed, 35 insertions, 0 deletions
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" |