implemented [test_n] to replace [one_n] and [null_n]. It also handles symbols

svn path=/trunk/externals/mapping/; revision=4549

3 files changed, 126 insertions, 0 deletions

diff --git a/help/test_n-help.pd b/help/test_n-help.pd
new file mode 100644
index 0000000..fb1e948
--- /dev/null
+++ b/help/test_n-help.pd
@@ -0,0 +1,26 @@
+#N canvas 354 263 441 356 10;
+#X floatatom 222 280 5 0 0 0 - - -;
+#X floatatom 150 329 5 0 0 0 - - -;
+#X msg 150 245 0;
+#X msg 181 245 1;
+#X text 268 277 size: n;
+#X text 19 25 sends a 1 if the last n values are equal to the first
+argument;
+#X floatatom 137 194 5 0 0 0 - - -;
+#X msg 137 110 word;
+#X msg 175 110 not-word;
+#X msg 120 245 2;
+#X text 13 72 click [word( five times in a row and you will get a 1
+(5 is the default for how many \, aka "n");
+#X text 25 220 click [2( three times in a row and you will get a 1
+;
+#X obj 137 168 test_n word;
+#X obj 150 303 test_n 2 3;
+#X connect 0 0 13 2;
+#X connect 2 0 13 0;
+#X connect 3 0 13 0;
+#X connect 7 0 12 0;
+#X connect 8 0 12 0;
+#X connect 9 0 13 0;
+#X connect 12 0 6 0;
+#X connect 13 0 1 0;
diff --git a/pd/test_n.pd b/pd/test_n.pd
new file mode 100644
index 0000000..e5b3f83
--- /dev/null
+++ b/pd/test_n.pd
@@ -0,0 +1,50 @@
+#N canvas 594 272 556 433 10;
+#X obj 22 -2 inlet;
+#X obj 459 -3 inlet;
+#X obj 225 383 outlet;
+#X obj 142 297 f;
+#X obj 172 297 + 1;
+#X msg 157 264 0;
+#X text 347 79 test for 5 by default;
+#X obj 331 58 float_argument \$2 5;
+#X obj 275 -2 inlet;
+#X obj 210 23 loadbang;
+#X obj 167 100 route float symbol;
+#X obj 142 217 select symbol;
+#X obj 225 353 >=;
+#X obj 22 104 route float;
+#X obj 94 124 symbol;
+#X obj 167 59 list_argument \$1;
+#X floatatom 177 128 5 0 0 0 - - -;
+#X obj 21 59 list split 1;
+#X obj 79 195 ==;
+#X obj 79 217 select 1;
+#X text 1 41 only use 1st element;
+#X obj 288 143 print test_n;
+#X msg 288 122 ERROR: argument type not implmented;
+#X connect 0 0 17 0;
+#X connect 1 0 7 1;
+#X connect 3 0 4 0;
+#X connect 3 0 12 0;
+#X connect 4 0 3 1;
+#X connect 5 0 3 0;
+#X connect 7 0 12 1;
+#X connect 8 0 15 1;
+#X connect 9 0 15 0;
+#X connect 9 0 7 0;
+#X connect 10 0 16 0;
+#X connect 10 0 18 1;
+#X connect 10 1 11 1;
+#X connect 10 2 22 0;
+#X connect 11 0 3 0;
+#X connect 11 1 5 0;
+#X connect 12 0 2 0;
+#X connect 13 0 18 0;
+#X connect 13 1 14 0;
+#X connect 14 0 11 0;
+#X connect 15 0 10 0;
+#X connect 17 0 13 0;
+#X connect 18 0 19 0;
+#X connect 19 0 3 0;
+#X connect 19 1 5 0;
+#X connect 22 0 21 0;
diff --git a/test_n.pd b/test_n.pd
new file mode 100644
index 0000000..e5b3f83
--- /dev/null
+++ b/test_n.pd
@@ -0,0 +1,50 @@
+#N canvas 594 272 556 433 10;
+#X obj 22 -2 inlet;
+#X obj 459 -3 inlet;
+#X obj 225 383 outlet;
+#X obj 142 297 f;
+#X obj 172 297 + 1;
+#X msg 157 264 0;
+#X text 347 79 test for 5 by default;
+#X obj 331 58 float_argument \$2 5;
+#X obj 275 -2 inlet;
+#X obj 210 23 loadbang;
+#X obj 167 100 route float symbol;
+#X obj 142 217 select symbol;
+#X obj 225 353 >=;
+#X obj 22 104 route float;
+#X obj 94 124 symbol;
+#X obj 167 59 list_argument \$1;
+#X floatatom 177 128 5 0 0 0 - - -;
+#X obj 21 59 list split 1;
+#X obj 79 195 ==;
+#X obj 79 217 select 1;
+#X text 1 41 only use 1st element;
+#X obj 288 143 print test_n;
+#X msg 288 122 ERROR: argument type not implmented;
+#X connect 0 0 17 0;
+#X connect 1 0 7 1;
+#X connect 3 0 4 0;
+#X connect 3 0 12 0;
+#X connect 4 0 3 1;
+#X connect 5 0 3 0;
+#X connect 7 0 12 1;
+#X connect 8 0 15 1;
+#X connect 9 0 15 0;
+#X connect 9 0 7 0;
+#X connect 10 0 16 0;
+#X connect 10 0 18 1;
+#X connect 10 1 11 1;
+#X connect 10 2 22 0;
+#X connect 11 0 3 0;
+#X connect 11 1 5 0;
+#X connect 12 0 2 0;
+#X connect 13 0 18 0;
+#X connect 13 1 14 0;
+#X connect 14 0 11 0;
+#X connect 15 0 10 0;
+#X connect 17 0 13 0;
+#X connect 18 0 19 0;
+#X connect 19 0 3 0;
+#X connect 19 1 5 0;
+#X connect 22 0 21 0;