From 97926eb08cf74f277e522ffb8c7f985457822de3 Mon Sep 17 00:00:00 2001 From: Thomas Grill Date: Tue, 11 Feb 2003 04:37:35 +0000 Subject: "" svn path=/trunk/; revision=388 --- externals/grill/pool/pool.pd | 146 +++++++++++++++++++++++++------------------ 1 file changed, 85 insertions(+), 61 deletions(-) (limited to 'externals/grill/pool/pool.pd') diff --git a/externals/grill/pool/pool.pd b/externals/grill/pool/pool.pd index 4d5592e3..70fc7461 100644 --- a/externals/grill/pool/pool.pd +++ b/externals/grill/pool/pool.pd @@ -1,10 +1,10 @@ -#N canvas 25 23 980 683 12; +#N canvas 12 3 926 682 12; #X msg 295 108 set 1 2 3; -#X obj 254 615 print K; +#X obj 308 619 print K; #X msg 607 211 getall; #X msg 295 137 set A k g; -#X obj 233 646 print V; -#X obj 272 584 print D; +#X obj 259 648 print V; +#X obj 357 593 print D; #X msg 295 167 set A l m; #X msg 298 196 set 2 34; #X msg 297 227 set 3 17; @@ -19,11 +19,11 @@ #X msg 40 234 absdir \$1; #X text 427 85 clear value; #X text 428 159 get value; -#X obj 291 557 print C; -#X text 363 557 command; -#X text 345 584 directory (abs or rel to current); -#X text 308 647 data value; -#X text 326 615 data key; +#X obj 406 564 print C; +#X text 478 564 command; +#X text 430 593 directory (abs or rel to current); +#X text 334 649 data value; +#X text 380 619 data key; #X msg 41 314 pool pool1; #X msg 42 343 pool; #X text 86 343 set to private; @@ -32,7 +32,7 @@ #X msg 613 111 clrall; #X text 604 89 clear all values in dir; #X text 607 190 get all values in dir; -#X text 314 479 pool name can be given as argument; +#X text 175 500 pool name can be given as argument; #X text 603 136 clear all values and dirs; #X msg 611 158 clrrec; #X msg 605 258 getrec; @@ -54,9 +54,8 @@ #X msg 609 364 cntrec; #X text 677 362 ... and subdirs; #X text 673 376 (depth may be given); -#X msg 296 282 add 3 14; #X text 294 261 set but don't replace; -#N canvas 0 0 512 538 dirs 0; +#N canvas 0 0 514 540 dirs 0; #X msg 109 27 mkdir fld1; #X msg 111 122 chdir; #X msg 110 217 updir; @@ -96,29 +95,51 @@ #X connect 23 0 26 0; #X restore 718 511 pd dirs; #X text 715 485 directory operations; -#N canvas 0 0 469 436 file 0; +#N canvas 0 0 815 447 file 0; #X text 117 207 save dir and subdirs; #X text 117 165 save data in current dir; -#X msg 117 184 svdir c:/temp/pool.dat; -#X msg 117 226 svrec c:/temp/pool.dat; -#X msg 116 272 lddir c:/temp/pool.dat; -#X msg 116 319 ldrec c:/temp/pool.dat; #X text 117 253 load data into current dir; #X text 115 300 load data into current dir and below; #X text 132 340 depth (default -1) and; #X text 134 356 mkdir flag (default 1) can be given; #X text 117 37 save all; #X text 117 81 load all (add to existing data); -#X msg 118 100 load c:/temp/pool.dat; -#X msg 120 54 save c:/temp/pool.dat; #X text 22 12 file operations; #X obj 22 188 s \$0-pool; -#X connect 2 0 15 0; -#X connect 3 0 15 0; -#X connect 4 0 15 0; -#X connect 5 0 15 0; -#X connect 12 0 15 0; -#X connect 13 0 15 0; +#X text 473 209 save dir and subdirs; +#X text 473 167 save data in current dir; +#X text 473 255 load data into current dir; +#X text 471 302 load data into current dir and below; +#X text 488 342 depth (default -1) and; +#X text 490 358 mkdir flag (default 1) can be given; +#X text 473 39 save all; +#X text 473 83 load all (add to existing data); +#X obj 378 190 s \$0-pool; +#X text 444 12 XML format; +#X msg 120 54 save pool.dat; +#X msg 118 100 load pool.dat; +#X msg 117 184 svdir pool.dat; +#X msg 117 226 svrec pool.dat; +#X msg 116 272 lddir pool.dat; +#X msg 116 319 ldrec pool.dat; +#X msg 476 56 savex pool.xml; +#X msg 474 102 loadx pool.xml; +#X msg 473 186 svxdir pool.xml; +#X msg 473 228 svxrec pool.xml; +#X msg 472 274 ldxdir pool.xml; +#X msg 472 321 ldxrec pool.xml; +#X connect 20 0 9 0; +#X connect 21 0 9 0; +#X connect 22 0 9 0; +#X connect 23 0 9 0; +#X connect 24 0 9 0; +#X connect 25 0 9 0; +#X connect 26 0 18 0; +#X connect 27 0 18 0; +#X connect 28 0 18 0; +#X connect 29 0 18 0; +#X connect 30 0 18 0; +#X connect 31 0 18 0; #X restore 719 566 pd file; #X text 717 543 file operations; #X text 717 600 clipboard operations; @@ -162,51 +183,54 @@ #X connect 23 0 26 0; #X restore 719 623 pd clip; #X text 717 454 more commands:; -#X obj 349 429 r \$0-pool; -#X text 174 500 data is shared among pool objects with the same name +#X obj 289 389 r \$0-pool; +#X text 174 517 data is shared among pool objects with the same name ; #X obj 26 10 cnv 15 850 40 empty empty pool 10 22 0 24 -260818 -1 0 ; #X text 272 33 http://www.parasitaere-kapazitaeten.net; -#X obj 317 529 print A; -#X text 382 529 attributes; +#X obj 456 541 print A; +#X text 521 541 attributes; #X msg 43 490 getattributes; #X msg 136 132 getechodir; #X msg 132 232 getabsdir; #X msg 146 313 getpool; -#X obj 260 478 pool; #X text 272 13 a hierarchical storage object \, (C)2002-2003 Thomas Grill; -#X connect 0 0 72 0; -#X connect 2 0 72 0; -#X connect 3 0 72 0; -#X connect 6 0 72 0; -#X connect 7 0 72 0; -#X connect 8 0 72 0; -#X connect 9 0 72 0; -#X connect 10 0 72 0; -#X connect 11 0 72 0; -#X connect 12 0 72 0; +#X msg 296 282 add 2 14; +#X obj 260 478 pool @valcnt 10 @dircnt 5; +#X text 332 442 expected value and directory counts; +#X text 332 457 can be given for optimal performance; +#X connect 0 0 73 0; +#X connect 2 0 73 0; +#X connect 3 0 73 0; +#X connect 6 0 73 0; +#X connect 7 0 73 0; +#X connect 8 0 73 0; +#X connect 9 0 73 0; +#X connect 10 0 73 0; +#X connect 11 0 73 0; +#X connect 12 0 73 0; #X connect 13 0 12 0; #X connect 14 0 15 0; -#X connect 15 0 72 0; -#X connect 23 0 72 0; -#X connect 24 0 72 0; -#X connect 26 0 72 0; -#X connect 28 0 72 0; -#X connect 33 0 72 0; -#X connect 34 0 72 0; -#X connect 45 0 72 0; -#X connect 48 0 72 0; -#X connect 50 0 72 0; -#X connect 53 0 72 0; -#X connect 62 0 72 0; -#X connect 68 0 72 0; -#X connect 69 0 72 0; -#X connect 70 0 72 0; -#X connect 71 0 72 0; -#X connect 72 0 4 0; -#X connect 72 1 1 0; -#X connect 72 2 5 0; -#X connect 72 3 18 0; -#X connect 72 4 66 0; +#X connect 15 0 73 0; +#X connect 23 0 73 0; +#X connect 24 0 73 0; +#X connect 26 0 73 0; +#X connect 28 0 73 0; +#X connect 33 0 73 0; +#X connect 34 0 73 0; +#X connect 45 0 73 0; +#X connect 48 0 73 0; +#X connect 50 0 73 0; +#X connect 61 0 73 0; +#X connect 67 0 73 0; +#X connect 68 0 73 0; +#X connect 69 0 73 0; +#X connect 70 0 73 0; +#X connect 72 0 73 0; +#X connect 73 0 4 0; +#X connect 73 1 1 0; +#X connect 73 2 5 0; +#X connect 73 3 18 0; +#X connect 73 4 65 0; -- cgit v1.2.1