/usr/lib/pd/extra/list-abs/list-shellsort.pd is in pd-list-abs 0.1-3.
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 | #N canvas 631 361 591 470 10;
#X obj 26 -25 inlet;
#X obj 26 296 outlet;
#N canvas 658 194 260 268 \$0-gap-loop 0;
#X obj 96 66 / 2;
#X obj 96 89 int;
#X obj 34 122 until;
#X obj 34 49 t b f;
#X obj 148 105 sel 0;
#X obj 96 142 t f f;
#X obj 59 159 f;
#X obj 34 26 inlet;
#X obj 59 183 outlet;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 2 0 6 0;
#X connect 3 0 2 0;
#X connect 3 1 0 0;
#X connect 4 0 2 1;
#X connect 5 0 6 1;
#X connect 5 1 4 0;
#X connect 6 0 0 0;
#X connect 6 0 8 0;
#X connect 7 0 3 0;
#X restore 95 150 pd \$0-gap-loop;
#X obj 49 65 list-len;
#N canvas 584 66 450 300 \$0-increment-loop 0;
#X obj 40 26 inlet;
#X obj 163 27 inlet;
#X obj 40 83 until;
#X obj 40 53 t b f;
#X obj 99 100 f;
#X obj 130 101 + 1;
#X obj 136 157 moses;
#X obj 214 175 t b;
#X obj 136 193 outlet;
#X connect 0 0 3 0;
#X connect 1 0 6 1;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 3 1 4 1;
#X connect 4 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 4 1;
#X connect 6 0 8 0;
#X connect 6 1 7 0;
#X connect 7 0 2 1;
#X restore 95 195 pd \$0-increment-loop;
#X obj 95 125 t f f;
#X obj 95 173 t f f;
#N canvas 147 172 708 735 \$0-test-swap-loop 0;
#X obj 102 40 inlet;
#X obj 319 46 inlet;
#X obj 102 63 -;
#X obj 101 444 list-idx;
#X obj 162 444 list-idx;
#X obj 304 124 +;
#X obj 101 494 >;
#X obj 101 518 sel 0 1;
#X obj 332 564 f;
#X obj 365 564 f;
#X obj 297 593 list-swap;
#X obj 297 563 list;
#X obj 427 646 list;
#X obj 102 159 until;
#X obj 164 222 moses 0;
#X obj 164 197 f;
#X obj 197 197 -;
#X obj 102 84 t b f;
#X obj 164 265 t b b;
#X obj 191 287 s \$0-stop-loop;
#X obj 165 126 r \$0-stop-loop;
#X obj 164 307 s \$0-bang-list;
#X obj 101 582 t b b;
#X obj 128 604 s \$0-stop-loop;
#X obj 101 625 s \$0-bang-list;
#X obj 427 576 r \$0-bang-list;
#X obj 427 669 outlet;
#X obj 277 499 t b b;
#X obj 102 180 t b b;
#X obj 102 381 list;
#X obj 102 400 t a a;
#X obj 448 599 r \$0-list-init;
#X obj 318 474 r \$0-list-init;
#X obj 123 331 r \$0-list-init;
#X text 316 25 gap;
#X obj 203 244 s \$0-idx;
#X obj 331 85 r \$0-idx;
#X obj 347 498 r \$0-idx;
#X obj 146 382 r \$0-idx;
#X obj 304 145 s \$0-idx+gap;
#X obj 380 531 r \$0-idx+gap;
#X obj 207 407 r \$0-idx+gap;
#X obj 466 620 r \$0-list-swap;
#X obj 297 621 s \$0-list-swap;
#X obj 137 355 r \$0-list-swap;
#N canvas 468 185 584 529 swap? 0;
#X obj 40 52 inlet;
#X obj 153 52 inlet;
#X obj 361 50 inlet;
#X obj 40 272 spigot 1;
#X obj 256 272 spigot;
#X obj 361 224 unpack 0 0;
#X msg 361 178 1 0;
#X msg 412 196 0 1;
#X obj 463 93 select 0;
#X obj 361 71 select asc desc;
#X obj 40 437 outlet;
#X obj 153 437 outlet;
#X obj 256 300 swap;
#X obj 153 271 spigot 1;
#X obj 317 273 spigot;
#X connect 0 0 3 0;
#X connect 0 0 4 0;
#X connect 1 0 13 0;
#X connect 1 0 14 0;
#X connect 2 0 9 0;
#X connect 3 0 10 0;
#X connect 4 0 12 0;
#X connect 5 0 3 1;
#X connect 5 0 13 1;
#X connect 5 1 4 1;
#X connect 5 1 14 1;
#X connect 6 0 5 0;
#X connect 7 0 5 0;
#X connect 8 0 6 0;
#X connect 8 1 7 0;
#X connect 9 0 6 0;
#X connect 9 1 7 0;
#X connect 9 2 8 0;
#X connect 12 0 10 0;
#X connect 12 1 11 0;
#X connect 13 0 11 0;
#X connect 14 0 12 1;
#X restore 101 471 pd swap?;
#X obj 164 470 r \$0-direction;
#X connect 0 0 2 0;
#X connect 1 0 2 1;
#X connect 1 0 5 1;
#X connect 1 0 16 1;
#X connect 2 0 17 0;
#X connect 3 0 45 0;
#X connect 4 0 45 1;
#X connect 5 0 39 0;
#X connect 6 0 7 0;
#X connect 7 0 22 0;
#X connect 7 1 27 0;
#X connect 7 2 22 0;
#X connect 8 0 10 1;
#X connect 9 0 10 2;
#X connect 10 0 11 1;
#X connect 10 0 43 0;
#X connect 11 0 10 0;
#X connect 12 0 26 0;
#X connect 13 0 28 0;
#X connect 14 0 18 0;
#X connect 14 1 35 0;
#X connect 15 0 16 0;
#X connect 15 0 14 0;
#X connect 16 0 15 1;
#X connect 17 0 13 0;
#X connect 17 1 15 1;
#X connect 18 0 21 0;
#X connect 18 1 19 0;
#X connect 20 0 13 1;
#X connect 22 0 24 0;
#X connect 22 1 23 0;
#X connect 25 0 12 0;
#X connect 27 0 11 0;
#X connect 27 1 9 0;
#X connect 27 1 8 0;
#X connect 28 0 29 0;
#X connect 28 1 15 0;
#X connect 29 0 30 0;
#X connect 30 0 3 0;
#X connect 30 1 4 0;
#X connect 31 0 12 1;
#X connect 32 0 11 1;
#X connect 33 0 29 1;
#X connect 36 0 5 0;
#X connect 37 0 8 1;
#X connect 38 0 3 1;
#X connect 40 0 9 1;
#X connect 41 0 4 1;
#X connect 42 0 12 1;
#X connect 44 0 29 1;
#X connect 45 0 6 0;
#X connect 45 1 6 1;
#X connect 46 0 45 2;
#X restore 95 221 pd \$0-test-swap-loop;
#X obj 26 274 list;
#X obj 49 103 sel 0 1;
#X obj 72 43 s \$0-list-init;
#X obj 99 242 r \$0-list-init;
#X obj 26 22 t b a a;
#X obj 26 -1 list-filter;
#N canvas 0 0 677 293 \$0-checknum 0;
#X obj 131 95 route float;
#X msg 131 116 1;
#X obj 205 149 print;
#X msg 205 119 list-sort: Warning: dropped a non-number from list;
#X obj 131 70 inlet;
#X obj 131 149 outlet;
#X connect 0 0 1 0;
#X connect 0 1 3 0;
#X connect 1 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 0 0;
#X restore 115 -1 pd \$0-checknum;
#X text 46 343 2008 Matt Barber;
#X obj 452 140 loadbang;
#X obj 387 52 inlet;
#X obj 387 201 list append \$1;
#X obj 387 171 t b a;
#X obj 387 229 s \$0-direction;
#X connect 0 0 13 0;
#X connect 2 0 6 0;
#X connect 3 0 9 0;
#X connect 4 0 7 0;
#X connect 5 0 2 0;
#X connect 5 1 4 1;
#X connect 6 0 4 0;
#X connect 6 1 7 1;
#X connect 7 0 8 1;
#X connect 8 0 1 0;
#X connect 9 2 5 0;
#X connect 11 0 8 1;
#X connect 12 0 8 0;
#X connect 12 1 3 0;
#X connect 12 2 10 0;
#X connect 13 0 12 0;
#X connect 13 1 14 0;
#X connect 14 0 13 1;
#X connect 16 0 18 0;
#X connect 17 0 19 0;
#X connect 18 0 20 0;
#X connect 19 0 18 0;
#X connect 19 1 18 1;
|