From 6c476966de617b405b9204ff8e5de04fded79f1a Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Thu, 10 Nov 2011 21:18:47 +0000
Subject: fix tclpd.lib usage

svn path=/trunk/externals/tclfile/; revision=15716
---
 exists-help.pd | 42 +++++++++++-------------------------------
 exists.tcl     | 13 +++----------
 2 files changed, 14 insertions(+), 41 deletions(-)

diff --git a/exists-help.pd b/exists-help.pd
index a9da207..5dde020 100644
--- a/exists-help.pd
+++ b/exists-help.pd
@@ -1,31 +1,11 @@
-#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;
+#N canvas 199 234 450 300 10;
+#X obj 190 139 exists;
+#X floatatom 193 175 5 0 0 0 - - -;
+#X obj 194 199 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X msg 205 76 symbol unexistent?;
+#X msg 181 45 symbol exists.tcl;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 3 0 0 0;
+#X connect 4 0 0 0;
diff --git a/exists.tcl b/exists.tcl
index c927ac6..a74aa84 100644
--- a/exists.tcl
+++ b/exists.tcl
@@ -11,25 +11,18 @@ proc+ exists::constructor {self args} {
 
 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"
+    set @filename [pd::arg 0 symbol]
     exists::0_bang $self
 }
 
 proc+ exists::0_bang {self} {
     if {$@filename == {}} return
-    pd::outlet $self 0 [list float [file exists $@filename]]
+    pd::outlet $self 0 float [file exists $@filename]
 }
 
 proc+ exists::1_anything {self args} {
     # COLD inlet
-    set @filename [lindex {*}$args 1]
+    set @filename [pd::arg 0 symbol]
 }
 
 pd::class exists
-- 
cgit v1.2.1