blob: cdf0f6e64314b763fb81d9075f171f3287422892 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
|
#N canvas 25 23 976 679 12;
#X obj 260 478 pool;
#X msg 295 108 set 1 2 3;
#X obj 254 615 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 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 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 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 314 479 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 msg 296 282 add 3 14;
#X text 294 261 set but don't replace;
#N canvas 0 0 510 536 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 469 436 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 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 349 429 r \$0-pool;
#X text 174 500 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 337 32 http://www.parasitaere-kapazitaeten.net;
#X text 337 12 a hierarchical storage object \, (C)2002 Thomas Grill
;
#X obj 317 529 print A;
#X text 382 529 attributes;
#X msg 43 490 getattributes;
#X msg 136 132 getechodir;
#X msg 132 232 getabsdir;
#X msg 146 313 getpool;
#X connect 0 0 5 0;
#X connect 0 1 2 0;
#X connect 0 2 6 0;
#X connect 0 3 19 0;
#X connect 0 4 68 0;
#X connect 1 0 0 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 7 0 0 0;
#X connect 8 0 0 0;
#X connect 9 0 0 0;
#X connect 10 0 0 0;
#X connect 11 0 0 0;
#X connect 12 0 0 0;
#X connect 13 0 0 0;
#X connect 14 0 13 0;
#X connect 15 0 16 0;
#X connect 16 0 0 0;
#X connect 24 0 0 0;
#X connect 25 0 0 0;
#X connect 27 0 0 0;
#X connect 29 0 0 0;
#X connect 34 0 0 0;
#X connect 35 0 0 0;
#X connect 46 0 0 0;
#X connect 49 0 0 0;
#X connect 51 0 0 0;
#X connect 54 0 0 0;
#X connect 63 0 0 0;
#X connect 70 0 0 0;
#X connect 71 0 0 0;
#X connect 72 0 0 0;
#X connect 73 0 0 0;
|
