first stab at some tclpd objectssvn2git-root

svn path=/trunk/externals/tclfile/; revision=15713

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"