/usr/lib/pd/extra/AutoPreset/apsarray.pd is in pd-autopreset 0.10-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 | #N canvas 69 83 902 629 10;
#X declare -lib libdir -lib ggee -lib moonlib -stdpath moonlib -stdpath
extra/moonlib;
#X obj 290 106 r \$1-setap-snd;
#X obj 34 106 r \$1-getap-snd;
#X obj 13 104 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 64 483 s \$1-getap-rcv;
#X obj 34 462 t b a;
#X obj 34 504 s \$1-getap-next;
#X obj 118 138 r \$3-len-snd;
#X obj 34 148 symbol \$2;
#X obj 34 168 pack s f;
#X obj 510 238 s \$3-len-rcv;
#X obj 601 115 r \$1-pattern-snd;
#X obj 613 209 route store load;
#X obj 613 257 moses 16;
#X obj 681 251 moses 16;
#X obj 732 229 r \$0-nbpattern;
#X obj 290 127 route \$2 _all_;
#X obj 454 388 sel 0;
#X obj 481 451 b;
#X obj 454 365 t f f;
#X obj 525 444 s \$0-nbpattern;
#X obj 392 258 t a f;
#X obj 801 255 r \$3-len-snd;
#X obj 765 287 *;
#X obj 661 277 r \$3-len-snd;
#X obj 613 299 *;
#X obj 613 279 t f b;
#X obj 147 219 r \$0-nbpattern;
#X obj 80 329 r \$0-nbpattern;
#X obj 96 351 f;
#X obj 34 126 t b b;
#X obj 65 307 t b b;
#X obj 65 351 16;
#X obj 601 141 route \$2 _all_;
#X obj 51 231 sarray \$3;
#X msg 51 210 dump _;
#X msg 136 282 setlen \$1;
#X obj 136 302 sarray \$0-pattern;
#X msg 96 371 dump _;
#X obj 96 392 sarray \$0-pattern;
#X obj 511 218 s \$3-len-snd;
#X obj 481 584 sarray \$0-pattern;
#X msg 548 562 print;
#X obj 389 523 sarray \$3;
#X msg 389 452 list set _ 0;
#X obj 389 409 t b a;
#X obj 765 581 sarray \$3;
#X msg 481 514 list set _ 0;
#X obj 481 491 t b a;
#X msg 643 304 dump _;
#X msg 613 351 list set _ \$1;
#X obj 765 355 until;
#X obj 765 378 i;
#X obj 798 378 + 1;
#X msg 765 445 get \$1;
#X obj 765 467 sarray \$0-pattern;
#X obj 765 490 route bang;
#X obj 765 400 t f f;
#X obj 765 537 pack s f;
#X msg 765 510 symbol _;
#X obj 613 420 sarray \$0-pattern;
#X obj 643 324 sarray \$3;
#X msg 765 559 set _ \$2 \$1;
#X obj 765 308 t b f;
#X obj 765 334 f;
#X msg 809 355 0;
#X obj 765 423 +;
#X obj 290 206 route _nbpattern_ _loaded_;
#X obj 613 231 i;
#X obj 681 231 i;
#X obj 573 64 sel 0;
#X obj 600 86 s \$3-len-snd;
#X obj 755 140 sel 2;
#X obj 755 178 s \$0-nbpattern;
#X msg 755 159 0;
#X obj 135 260 * 16;
#X obj 145 239 t b f;
#X obj 525 422 *;
#X obj 540 400 != 2;
#X text 120 38 -if pat_no_all==1 \, doesn't receive "_all_" pattern
commands store/load. If pat_no_all==2 \, no pattern for this.;
#X text 79 81 Please signal array length change to \$3-len-snd.;
#X text 26 16 usage : apsarray Ref Name SArrayName [SArrayLength [pat_no_all]]
;
#X text 25 1 AutoPreset Sarray;
#X text 26 2 AutoPreset Sarray;
#X text 141 2 (for [moonlib/sarray]);
#X text 78 67 Sarray is not included.;
#X obj 290 321 s \$0-nbpattern;
#X obj 413 181 spigot 1;
#X obj 477 180 != 1;
#X obj 335 277 != 2;
#X obj 290 299 spigot 1;
#X obj 330 149 route \$2;
#X obj 711 32 cnv 15 130 60 empty empty help: 20 7 0 12 -204800 -66577
0;
#N canvas 632 399 164 175 open 0;
#X obj 29 16 inlet;
#X obj 29 38 symbol;
#X obj 29 103 pack s s;
#X obj 56 80 getdir;
#X obj 29 59 t s b;
#X msg 29 124 \; pd open \$1 \$2;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 2 0 5 0;
#X connect 3 0 2 1;
#X connect 4 0 2 0;
#X connect 4 1 3 0;
#X restore 715 72 pd open;
#X msg 715 49 0autopreset-help.pd;
#X obj 413 95 route _nbpattern_;
#X obj 413 115 list prepend _nbpattern_;
#X obj 413 134 list trim;
#X obj 573 24 loadbang;
#X obj 573 44 f \$4;
#X obj 719 98 loadbang;
#X obj 719 118 f \$5;
#X obj 719 138 == 0;
#X obj 641 167 spigot 1;
#X obj 540 358 loadbang;
#X obj 540 379 f \$5;
#X obj 335 236 loadbang;
#X obj 335 256 f \$5;
#X obj 477 140 loadbang;
#X obj 477 160 f \$5;
#X obj 34 265 list append;
#X obj 65 413 list append;
#X obj 34 437 list append;
#X obj 392 290 list split 1;
#X obj 426 316 list split;
#X obj 454 341 list split 1;
#X obj 481 536 list append;
#X obj 481 560 list trim;
#X obj 389 476 list append;
#X obj 389 499 list trim;
#X obj 613 376 list append;
#X obj 613 398 list trim;
#X obj 481 471 list prepend;
#X obj 22 590 declare -lib libdir -lib ggee -lib moonlib -stdpath moonlib
-stdpath extra/moonlib;
#X connect 0 0 15 0;
#X connect 1 0 29 0;
#X connect 2 0 29 0;
#X connect 4 0 5 0;
#X connect 4 1 3 0;
#X connect 6 0 8 1;
#X connect 6 0 74 0;
#X connect 7 0 8 0;
#X connect 8 0 109 0;
#X connect 10 0 32 0;
#X connect 11 0 67 0;
#X connect 11 1 68 0;
#X connect 12 0 25 0;
#X connect 13 0 22 0;
#X connect 14 0 13 1;
#X connect 14 0 12 1;
#X connect 15 0 66 0;
#X connect 15 1 90 0;
#X connect 16 1 17 0;
#X connect 17 0 121 0;
#X connect 18 0 16 0;
#X connect 18 1 76 0;
#X connect 20 0 112 0;
#X connect 20 1 9 0;
#X connect 20 1 39 0;
#X connect 20 1 113 1;
#X connect 21 0 63 1;
#X connect 21 0 22 1;
#X connect 22 0 62 0;
#X connect 23 0 24 1;
#X connect 24 0 49 0;
#X connect 25 0 24 0;
#X connect 25 1 48 0;
#X connect 26 0 75 0;
#X connect 27 0 31 1;
#X connect 28 0 37 0;
#X connect 29 0 7 0;
#X connect 29 1 30 0;
#X connect 29 1 34 0;
#X connect 30 0 31 0;
#X connect 30 1 28 0;
#X connect 31 0 110 0;
#X connect 32 0 11 0;
#X connect 32 1 102 0;
#X connect 33 0 109 1;
#X connect 34 0 33 0;
#X connect 35 0 36 0;
#X connect 37 0 38 0;
#X connect 38 0 110 1;
#X connect 41 0 40 0;
#X connect 43 0 117 0;
#X connect 44 0 43 0;
#X connect 44 1 117 1;
#X connect 46 0 115 0;
#X connect 47 0 46 0;
#X connect 47 1 115 1;
#X connect 48 0 60 0;
#X connect 49 0 119 0;
#X connect 50 0 51 0;
#X connect 51 0 52 0;
#X connect 51 0 56 0;
#X connect 52 0 51 1;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 55 0 58 0;
#X connect 55 1 57 0;
#X connect 56 0 65 0;
#X connect 56 1 57 1;
#X connect 57 0 61 0;
#X connect 58 0 57 0;
#X connect 60 0 119 1;
#X connect 61 0 45 0;
#X connect 62 0 63 0;
#X connect 62 1 65 1;
#X connect 62 1 64 0;
#X connect 63 0 50 0;
#X connect 64 0 51 1;
#X connect 65 0 53 0;
#X connect 66 0 89 0;
#X connect 66 2 20 0;
#X connect 67 0 12 0;
#X connect 68 0 13 0;
#X connect 69 1 70 0;
#X connect 71 0 73 0;
#X connect 73 0 72 0;
#X connect 74 0 35 0;
#X connect 74 0 28 1;
#X connect 75 0 74 0;
#X connect 75 1 74 1;
#X connect 76 0 19 0;
#X connect 77 0 76 1;
#X connect 86 0 66 0;
#X connect 87 0 86 1;
#X connect 88 0 89 1;
#X connect 89 0 85 0;
#X connect 90 0 66 0;
#X connect 90 1 94 0;
#X connect 93 0 92 0;
#X connect 94 0 95 0;
#X connect 94 1 66 0;
#X connect 95 0 96 0;
#X connect 96 0 86 0;
#X connect 97 0 98 0;
#X connect 98 0 69 0;
#X connect 99 0 100 0;
#X connect 100 0 71 0;
#X connect 100 0 101 0;
#X connect 101 0 102 1;
#X connect 102 0 11 0;
#X connect 103 0 104 0;
#X connect 104 0 77 0;
#X connect 105 0 106 0;
#X connect 106 0 88 0;
#X connect 107 0 108 0;
#X connect 108 0 87 0;
#X connect 109 0 111 0;
#X connect 110 0 111 1;
#X connect 111 0 4 0;
#X connect 112 1 113 0;
#X connect 113 0 44 0;
#X connect 113 1 114 0;
#X connect 114 0 18 0;
#X connect 114 1 121 1;
#X connect 115 0 116 0;
#X connect 116 0 40 0;
#X connect 117 0 118 0;
#X connect 118 0 42 0;
#X connect 119 0 120 0;
#X connect 120 0 59 0;
#X connect 121 0 47 0;
|