#N canvas 12 3 926 682 12;
#X msg 295 108 set 1 2 3;
#X obj 308 619 print K;
#X msg 607 211 getall;
#X msg 295 137 set A k g;
#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;
#X msg 428 105 clr A;
#X msg 432 181 get A;
#X msg 432 213 get 2;
#X msg 40 132 echodir \$1;
#X obj 40 111 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 40 213 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X msg 40 234 absdir \$1;
#X text 427 85 clear value;
#X text 428 159 get value;
#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;
#X msg 42 405 reset;
#X text 41 384 clear all pool data;
#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 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;
#X text 605 236 get all values in dir and subdirs;
#X text 670 289 bang at EOL;
#X text 673 208 bang at EOL;
#X text 670 257 depth may be given;
#X text 43 291 set pool name;
#X text 40 89 at each command;
#X text 40 73 echo current dir;
#X text 292 83 set values;
#X text 35 194 (default on);
#X text 27 178 report absolute dirs;
#X msg 43 452 help;
#X text 86 453 get some info;
#X text 670 274 default=-1 (= infinite);
#X msg 609 338 cntall;
#X text 675 336 count all values in dir;
#X msg 609 364 cntrec;
#X text 677 362 ... and subdirs;
#X text 673 376 (depth may be given);
#X text 294 261 set but don't replace;
#N canvas 0 0 514 540 dirs 0;
#X msg 109 27 mkdir fld1;
#X msg 111 122 chdir;
#X msg 110 217 updir;
#X msg 111 354 getsub -1;
#X text 110 7 make absolute dir;
#X text 109 51 make relative dir;
#X msg 110 72 mksub fld2;
#X text 109 104 change to absolute dir;
#X msg 110 165 chsub fld2;
#X text 108 146 change to relative dir;
#X text 106 198 change to upper dir;
#X text 107 250 remove absolute dir;
#X msg 108 269 rmdir fld1;
#X msg 110 308 rmsub fld2;
#X text 109 289 remove relative dir;
#X text 109 336 get subdirs;
#X text 251 380 -1 ... infinite;
#X text 167 213 depth may be given;
#X text 168 229 default=1;
#X text 209 349 depth may be given;
#X text 207 365 default=1;
#X text 108 377 count subdirs;
#X msg 111 398 cntsub -1;
#X msg 111 458 getdir;
#X text 110 438 get current dir;
#X text 176 458 always absolute;
#X obj 11 239 s \$0-pool;
#X connect 0 0 26 0;
#X connect 1 0 26 0;
#X connect 2 0 26 0;
#X connect 3 0 26 0;
#X connect 6 0 26 0;
#X connect 8 0 26 0;
#X connect 12 0 26 0;
#X connect 13 0 26 0;
#X connect 22 0 26 0;
#X connect 23 0 26 0;
#X restore 718 511 pd dirs;
#X text 715 485 directory operations;
#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 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 text 22 12 file operations;
#X obj 22 188 s \$0-pool;
#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;
#N canvas 0 0 535 583 clip 0;
#X text 97 56 copy value associated to key into clipboard;
#X msg 100 77 copy A;
#X msg 98 119 cut B;
#X text 96 101 cut value associated to key into clipboard;
#X msg 96 401 paste;
#X msg 98 179 copyall;
#X text 95 158 copy all values in current dir into clipboard;
#X msg 97 221 cutall;
#X text 95 201 cut all values in current dir into clipboard;
#X text 94 263 copy all values in current dir into clipboard;
#X text 94 306 cut all values in current dir into clipboard;
#X msg 97 284 copyrec;
#X text 194 285 depth may be given (default=-1);
#X text 193 326 depth may be given (default=-1);
#X msg 96 326 cutrec 1;
#X text 194 345 1..only with first level subdirs;
#X text 96 379 paste clipboard contents into current directory;
#X text 167 397 depth (default -1) and;
#X text 169 413 mkdir flag (default 1) can be given;
#X text 183 448 depth (default -1) and;
#X text 185 466 mkdir flag (default 1) can be given;
#X msg 95 453 pasteadd;
#X text 95 431 paste but don't replace;
#X msg 94 521 clrclip;
#X text 171 520 clear clipboard (free memory);
#X text 22 12 clipboard operations (this is an internal clipboard...)
;
#X obj 4 193 s \$0-pool;
#X connect 1 0 26 0;
#X connect 2 0 26 0;
#X connect 4 0 26 0;
#X connect 5 0 26 0;
#X connect 7 0 26 0;
#X connect 11 0 26 0;
#X connect 14 0 26 0;
#X connect 21 0 26 0;
#X connect 23 0 26 0;
#X restore 719 623 pd clip;
#X text 717 454 more commands:;
#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 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 text 272 13 a hierarchical storage object \, (C)2002-2003 Thomas
Grill;
#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 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;