From 53b224a8e82d3bdeddf093316145ad2c2c9ca6a9 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Tue, 8 Nov 2011 02:58:10 +0000
Subject: first stab at some tclpd objects

svn path=/trunk/externals/tclfile/; revision=15713
---
 exists-help.pd | 31 +++++++++++++++++++++++++++++++
 exists.tcl     | 35 +++++++++++++++++++++++++++++++++++
 mkdir-help.pd  |  2 ++
 mkdir.tcl      | 35 +++++++++++++++++++++++++++++++++++
 4 files changed, 103 insertions(+)
 create mode 100644 exists-help.pd
 create mode 100644 exists.tcl
 create mode 100644 mkdir-help.pd
 create mode 100644 mkdir.tcl

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"
-- 
cgit v1.2.1