[PD-cvs] abstractions/footils/sssad/_sssad list_argument.pd, NONE, 1.1 singleton-help.pd, NONE, 1.1 singleton.pd, NONE, 1.1 sssad-persistence.pd, NONE, 1.1

[Frank Barknecht]

Update of /cvsroot/pure-data/abstractions/footils/sssad/_sssad
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24126/sssad/_sssad

Added Files:
	list_argument.pd singleton-help.pd singleton.pd 
	sssad-persistence.pd 
Log Message:
sssad imported



--- NEW FILE: list_argument.pd ---
#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;

--- NEW FILE: singleton-help.pd ---
#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;

--- NEW FILE: sssad-persistence.pd ---
#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;

--- NEW FILE: singleton.pd ---
#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;