From 6f03ce6f2bee8102babead9adc06b3551acac85c Mon Sep 17 00:00:00 2001
From: Luke Iannini <lukeiannini@users.sourceforge.net>
Date: Fri, 8 Feb 2008 09:51:34 +0000
Subject: initial import from my personal svn

svn path=/trunk/abstractions/senderfruit/; revision=9380
---
 core/trimdirs.pd | 63 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 63 insertions(+)
 create mode 100644 core/trimdirs.pd

(limited to 'core/trimdirs.pd')

diff --git a/core/trimdirs.pd b/core/trimdirs.pd
new file mode 100644
index 0000000..4a9c804
--- /dev/null
+++ b/core/trimdirs.pd
@@ -0,0 +1,63 @@
+#N canvas 694 125 474 478 10;
+#X obj 185 137 symbol2list /;
+#X obj 185 176 list-splat -1;
+#X obj 156 282 list2symbol /;
+#X obj 185 202 list split 1;
+#X obj 21 181 symbol2list;
+#X obj 21 208 list prepend /;
+#X obj 21 272 list2symbol;
+#X msg 84 160 symbol;
+#X obj 84 139 loadbang;
+#X msg 84 250 symbol;
+#X obj 84 229 loadbang;
+#X obj 156 251 list append;
+#X obj 344 54 \$1;
+#X obj 344 31 loadbang;
+#X obj 344 109 * -1;
+#X obj 402 21 inlet;
+#X obj 185 20 inlet;
+#X text 32 376 Trims the last [n] directories from the end of a path.
+;
+#X text 33 390 With [trimdirs 1] \, /Users/Me/Pd/Synths becomes /Users/Me/Pd
+;
+#X text 32 404 Handles spaces just fine.;
+#X text 357 434 Luke Iannini 2008;
+#X text 357 446 proyekto.net;
+#X obj 156 343 outlet;
+#X obj 344 137 sel 0;
+#X obj 185 87 demultiplex;
+#X obj 371 159 t a b;
+#X msg 376 198 1;
+#X msg 344 198 0;
+#X obj 185 110 s \$0passthrough;
+#X obj 170 314 r \$0passthrough;
+#X obj 344 82 abs;
+#X text 32 418 No/0 argument passes input through unchanged;
+#X connect 0 0 1 0;
+#X connect 1 0 3 0;
+#X connect 2 0 22 0;
+#X connect 3 0 4 0;
+#X connect 3 1 11 1;
+#X connect 4 0 5 0;
+#X connect 5 0 6 0;
+#X connect 6 0 11 0;
+#X connect 7 0 4 1;
+#X connect 8 0 7 0;
+#X connect 9 0 6 1;
+#X connect 10 0 9 0;
+#X connect 11 0 2 0;
+#X connect 12 0 30 0;
+#X connect 13 0 12 0;
+#X connect 14 0 23 0;
+#X connect 15 0 30 0;
+#X connect 16 0 24 0;
+#X connect 23 0 27 0;
+#X connect 23 1 25 0;
+#X connect 24 0 28 0;
+#X connect 24 1 0 0;
+#X connect 25 0 1 1;
+#X connect 25 1 26 0;
+#X connect 26 0 24 1;
+#X connect 27 0 24 1;
+#X connect 29 0 22 0;
+#X connect 30 0 14 0;
-- 
cgit v1.2.1