From 3faf17f7b713905f582def227df90dac15f3468d Mon Sep 17 00:00:00 2001
From: "N.N." <chr15m@users.sourceforge.net>
Date: Tue, 10 Jul 2007 07:47:46 +0000
Subject: This commit was generated by cvs2svn to compensate for changes in
 r7969, which included commits to RCS files with non-trunk default branches.

svn path=/trunk/abstractions/s-abstractions/; revision=7970
---
 sssad/_sssad/list_argument.pd     |  20 +++++++
 sssad/_sssad/singleton-help.pd    |  42 +++++++++++++
 sssad/_sssad/singleton.pd         | 121 ++++++++++++++++++++++++++++++++++++++
 sssad/_sssad/sssad-persistence.pd |  17 ++++++
 4 files changed, 200 insertions(+)
 create mode 100644 sssad/_sssad/list_argument.pd
 create mode 100644 sssad/_sssad/singleton-help.pd
 create mode 100644 sssad/_sssad/singleton.pd
 create mode 100644 sssad/_sssad/sssad-persistence.pd

(limited to 'sssad/_sssad')

diff --git a/sssad/_sssad/list_argument.pd b/sssad/_sssad/list_argument.pd
new file mode 100644
index 0000000..d532a27
--- /dev/null
+++ b/sssad/_sssad/list_argument.pd
@@ -0,0 +1,20 @@
+#N canvas 160 304 587 350 10;
+#X obj 259 234 outlet;
+#X text 83 259 If the argument is not equal to 0 \, use it. Pd init
+arguments to 0 so unused arguments will be 0;
+#X obj 143 116 select 0;
+#X text 82 296 This is useful to have internals inited \, but not reset
+if there is no argument specified.;
+#X obj 143 190 select 0;
+#X text 275 172 if 2nd arg \, then use as default value;
+#X obj 143 20 inlet;
+#X obj 143 96 list append \$1;
+#X obj 143 169 list append \$2;
+#X obj 143 55 bang;
+#X connect 2 0 8 0;
+#X connect 2 1 0 0;
+#X connect 4 1 0 0;
+#X connect 6 0 9 0;
+#X connect 7 0 2 0;
+#X connect 8 0 4 0;
+#X connect 9 0 7 0;
diff --git a/sssad/_sssad/singleton-help.pd b/sssad/_sssad/singleton-help.pd
new file mode 100644
index 0000000..ab5a392
--- /dev/null
+++ b/sssad/_sssad/singleton-help.pd
@@ -0,0 +1,42 @@
+#N canvas 415 240 552 487 10;
+#X obj 79 44 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
+;
+#X obj 80 137 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
+;
+#X obj 80 230 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
+;
+#X obj 245 43 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
+;
+#X obj 269 139 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
+1;
+#X obj 295 230 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
+1;
+#X obj 75 339 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
+;
+#X obj 75 385 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
+;
+#X obj 80 117 singleton TABLE_X table x;
+#X obj 80 211 singleton TABLE_Y table y 100;
+#X obj 269 119 singleton TABLE_X table x;
+#X obj 295 211 singleton TABLE_Y table y 100;
+#X obj 75 320 singleton LIST list prepend 1 2 3 4 5 6 7 8;
+#X obj 75 365 singleton LIST list prepend 1 2 3 4 5 6 7 8;
+#X text 85 292 Up to 10 arguments supported;
+#X obj 81 85 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
+;
+#X obj 247 84 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
+;
+#X obj 79 24 singleton MUL_A *;
+#X obj 245 23 singleton MUL_A *;
+#X obj 248 65 singleton MUL_B *;
+#X obj 81 65 singleton MUL_B *;
+#X connect 8 0 1 0;
+#X connect 9 0 2 0;
+#X connect 10 0 4 0;
+#X connect 11 0 5 0;
+#X connect 12 0 6 0;
+#X connect 13 0 7 0;
+#X connect 17 0 0 0;
+#X connect 18 0 3 0;
+#X connect 19 0 16 0;
+#X connect 20 0 15 0;
diff --git a/sssad/_sssad/singleton.pd b/sssad/_sssad/singleton.pd
new file mode 100644
index 0000000..6a78865
--- /dev/null
+++ b/sssad/_sssad/singleton.pd
@@ -0,0 +1,121 @@
+#N canvas 184 74 837 725 10;
+#N canvas 0 22 236 173 1047-container 0;
+#X restore 227 18 pd \$0-container;
+#X obj 156 360 f \$0;
+#X obj 156 380 makefilename pd-%d-container;
+#X obj 47 18 loadbang;
+#X obj 47 611 outlet;
+#X obj 47 132 value \$1.SSSAD.req;
+#X obj 47 311 select 0;
+#X obj 47 157 t f f;
+#X obj 77 177 + 1;
+#X obj 77 197 value \$1.SSSAD.req;
+#X obj 47 335 t b b;
+#X msg 47 589 1;
+#X obj 156 401 t s s;
+#X msg 186 423 \; \$1 clear;
+#X text 378 43 more simple-minded \, we would just set \$1.SSSAD.req to
+"1" instead of incrementing it each time. (however \, this way we also
+now how many instances of the class we have). and of course we could
+use just one [value] - i use 2 for better readability.;
+#X obj 324 107 del 0;
+#X obj 324 126 value \$1.SSSAD.req;
+#X floatatom 324 149 5 0 0 0 - - -;
+#X text 322 168 wow! the number of instances;
+#N canvas 0 0 570 825 1047-arguments 0;
+#X obj 36 485 outlet;
+#X obj 36 461 r \$0-tolist;
+#X obj 171 87 t b a;
+#X obj 201 109 s \$0-tolist;
+#X obj 171 156 t b a;
+#X obj 201 178 s \$0-tolist;
+#X obj 171 225 t b a;
+#X obj 201 247 s \$0-tolist;
+#X obj 171 299 t b a;
+#X obj 201 321 s \$0-tolist;
+#X obj 171 64 list_argument \$2;
+#X obj 171 134 list_argument \$3;
+#X obj 171 202 list_argument \$4;
+#X obj 171 276 list_argument \$5;
+#X obj 171 357 list_argument \$6;
+#X obj 171 35 inlet;
+#X obj 171 381 t b a;
+#X obj 201 403 s \$0-tolist;
+#X obj 171 461 t b a;
+#X obj 201 483 s \$0-tolist;
+#X obj 171 437 list_argument \$7;
+#X obj 170 537 t b a;
+#X obj 200 559 s \$0-tolist;
+#X obj 169 607 t b a;
+#X obj 199 629 s \$0-tolist;
+#X obj 169 682 t b a;
+#X obj 199 704 s \$0-tolist;
+#X obj 170 513 list_argument \$8;
+#X obj 169 583 list_argument \$9;
+#X obj 169 658 list_argument \$10;
+#X obj 169 757 t b a;
+#X obj 199 779 s \$0-tolist;
+#X obj 169 733 list_argument \$11;
+#X connect 1 0 0 0;
+#X connect 2 0 11 0;
+#X connect 2 1 3 0;
+#X connect 4 0 12 0;
+#X connect 4 1 5 0;
+#X connect 6 0 13 0;
+#X connect 6 1 7 0;
+#X connect 8 0 14 0;
+#X connect 8 1 9 0;
+#X connect 10 0 2 0;
+#X connect 11 0 4 0;
+#X connect 12 0 6 0;
+#X connect 13 0 8 0;
+#X connect 14 0 16 0;
+#X connect 15 0 10 0;
+#X connect 16 0 20 0;
+#X connect 16 1 17 0;
+#X connect 18 0 27 0;
+#X connect 18 1 19 0;
+#X connect 20 0 18 0;
+#X connect 21 0 28 0;
+#X connect 21 1 22 0;
+#X connect 23 0 29 0;
+#X connect 23 1 24 0;
+#X connect 25 0 32 0;
+#X connect 25 1 26 0;
+#X connect 27 0 21 0;
+#X connect 28 0 23 0;
+#X connect 29 0 25 0;
+#X connect 30 1 31 0;
+#X connect 32 0 30 0;
+#X restore 365 379 pd \$0-arguments;
+#X msg 365 556;
+#X msg 509 377 set \, addsemi \, adddollar 1 \, add2 obj 10 10;
+#X obj 47 48 t b b b b b;
+#X msg 487 530 set;
+#X obj 77 483 symbol;
+#X msg 365 404 add2 \$1;
+#X connect 1 0 2 0;
+#X connect 2 0 12 0;
+#X connect 3 0 22 0;
+#X connect 5 0 7 0;
+#X connect 6 0 10 0;
+#X connect 7 0 6 0;
+#X connect 7 1 8 0;
+#X connect 8 0 9 0;
+#X connect 10 0 11 0;
+#X connect 10 1 24 0;
+#X connect 11 0 4 0;
+#X connect 12 0 24 1;
+#X connect 12 1 13 0;
+#X connect 15 0 16 0;
+#X connect 16 0 17 0;
+#X connect 19 0 25 0;
+#X connect 21 0 20 0;
+#X connect 22 0 5 0;
+#X connect 22 1 1 0;
+#X connect 22 2 15 0;
+#X connect 22 3 19 0;
+#X connect 22 4 21 0;
+#X connect 23 0 20 0;
+#X connect 24 0 20 0;
+#X connect 25 0 20 0;
diff --git a/sssad/_sssad/sssad-persistence.pd b/sssad/_sssad/sssad-persistence.pd
new file mode 100644
index 0000000..4071e1e
--- /dev/null
+++ b/sssad/_sssad/sssad-persistence.pd
@@ -0,0 +1,17 @@
+#N canvas 411 241 354 407 10;
+#X obj 73 159 list;
+#X obj 73 219 list prepend \$1;
+#X obj 73 246 list prepend persist;
+#X obj 73 269 s SSSAD_ADMIN;
+#X obj 73 67 r SSSAD_ADMIN;
+#X obj 73 93 route save;
+#X obj 73 115 b;
+#X text 51 28 args: SSAD-name \$0;
+#X obj 96 136 r \$2-sssad-data;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X connect 4 0 5 0;
+#X connect 5 0 6 0;
+#X connect 6 0 0 0;
+#X connect 8 0 0 1;
-- 
cgit v1.2.1