[PD] "readdir" for XP ?

Fri Oct 15 16:32:55 CEST 2004

At 12:23 15.10.2004, oliver wrote:
>hi, list,
>
>has anybody made a windoze .dll out of moocow's "readdir" external ?

i don`t know about readdir... but if its only reading folders the folderglider
external might be handy. it requires tot...

regards
wolfgang

>thanks for any hint
>
>oliver
>
>--
>
>
>////////////////////////////////////////////////////////
>\\\\\\\\\\\\\ http://klingt.org/ground/lift \\\\\\\\\\\\
>///////// http://klingt.org/executive-ensemble /////////
>\\\\\\\\\\\\\ http://klingt.org/~oliver/prb \\\\\\\\\\\\
>////////////////////////////////////////////////////////
>\\\\\\\\ LIVE-BUILDER (music improvisation tool): \\\\\\
>/////// http://klingt.org/~oliver/pd/live-builder //////
>\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
>
>_______________________________________________
>PD-list at iem.at mailing list
>UNSUBSCRIBE and account-management -> 
>http://iem.at/cgi-bin/mailman/listinfo/pd-list
-------------- next part --------------
#N canvas 96 0 1010 716 10;
#X obj 45 14 inlet;
#X obj 237 428 tot .;
#X obj 527 294 loadbang;
#X obj 233 639 outlet;
#X obj 621 640 outlet;
#X msg 129 118 query set dir [tk_chooseDirectory] .:;
#X obj 129 140 tot .;
#X obj 237 481 route bang;
#X text 231 661 FILE NAME;
#X text 617 663 NO FILE NAME TO READ;
#X text 664 645 BANG OUT;
#X text 275 640 FILE NAME SYMBOL;
#X obj 292 509 tosymbol;
#X text 587 338 FILE SEARCH CRITERIA;
#X text 575 12 NEEDS TOT;
#X obj 10 171 route bang;
#X obj 263 188 tosymbol;
#X obj 237 357 pack f s s;
#X obj 7 238 print ***folderglidererror;
#X obj 328 296 symbol \$2;
#X obj 528 337 symbol \$1;
#X obj 328 273 loadbang;
#X obj 264 324 makesymbol "%s";
#X msg 237 386 query set dir \$2 .: if .($dir != "" && ![catch .(glob
[file join $dir \$3].) res].) .(lindex $res \$1.);
#X obj 292 618 spigot;
#X obj 348 559 r \$0auto;
#X obj 666 471 f;
#X obj 696 472 + 1;
#X obj 665 391 r \$0auto;
#X obj 222 563 s \$0auto;
#X msg 222 541 0;
#X obj 237 503 t b b;
#X obj 397 156 s \$0auto;
#X msg 383 125 1;
#X obj 665 412 sel 1;
#X obj 679 493 t f f;
#X msg 666 442 0;
#X obj 292 561 t b s;
#X msg 422 125 0;
#X msg 10 216 bad folder selection ... keeping previous value;
#X text 575 34 OPEN folderglider-ex.pd for instructions;
#X obj 237 458 spigot;
#X obj 35 464 spigot;
#N canvas 256 104 809 560 listbuilder 0;
#X obj 344 9 inlet;
#X obj 83 111 f;
#X msg 148 112 0;
#X obj 115 111 + 17;
#X obj 602 81 makesymbol pd-%sgui.pd;
#X obj 84 14 inlet;
#X text 58 0 File name 2 add;
#X text 381 9 clear;
#X obj 85 79 t b s;
#X obj 84 244 pack 0 s;
#X obj 602 3 loadbang;
#X obj 109 343 unpack s f f s;
#X obj 109 446 pack s f f s s;
#X msg 109 470 \; \$5 \$1 \$2 \$3 \$4;
#X obj 187 391 r \$0guiname;
#X obj 602 105 s \$0guiname;
#N canvas 841 70 406 627 1027gui.pd 1;
#X obj 0 0 send 1027guifilename;
#X msg 0 17 /astro.obj;
#X msg 0 34 /baum.obj;
#X msg 0 51 /BUSH1.obj;
#X msg 0 68 /buzmker1.obj;
#X msg 0 85 /cat.obj;
#X msg 0 102 /creep.obj;
#X msg 0 119 /cubes2d.obj;
#X msg 0 136 /cubes3d.obj;
#X msg 0 153 /digitreeireg.obj;
#X msg 0 170 /doctor.obj;
#X msg 0 187 /fetzen.obj;
#X msg 0 204 /grassbush.obj;
#X msg 0 221 /grassplantze.obj;
#X msg 0 238 /hochaus.obj;
#X msg 0 255 /kleinerstern1.obj;
#X msg 0 272 /konstrux.obj;
#X msg 0 289 /kralle.obj;
#X msg 0 306 /kralle2.obj;
#X msg 0 323 /objekt2.obj;
#X msg 0 340 /powerplant.obj;
#X msg 0 357 /saege.obj;
#X msg 0 374 /star_01.obj;
#X msg 0 391 /star_02.obj;
#X msg 0 408 /star_03.obj;
#X msg 0 425 /star_04.obj;
#X msg 0 442 /star_05.obj;
#X msg 0 459 /stern.obj;
#X msg 0 476 /sternkrack.obj;
#X msg 0 493 /teilen.obj;
#X msg 0 510 /thingi.obj;
#X msg 0 527 /Thumbs.db;
#X msg 0 544 /tree40.obj;
#X msg 0 561 /treeplane.obj;
#X msg 0 578 /treeplane02.obj;
#X msg 0 595 /weed.obj;
#X msg 0 612 /yesa.obj;
#X msg 0 629 /zusammen.obj;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 0 0;
#X connect 6 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 0 0;
#X connect 15 0 0 0;
#X connect 16 0 0 0;
#X connect 17 0 0 0;
#X connect 18 0 0 0;
#X connect 19 0 0 0;
#X connect 20 0 0 0;
#X connect 21 0 0 0;
#X connect 22 0 0 0;
#X connect 23 0 0 0;
#X connect 24 0 0 0;
#X connect 25 0 0 0;
#X connect 26 0 0 0;
#X connect 27 0 0 0;
#X connect 28 0 0 0;
#X connect 29 0 0 0;
#X connect 30 0 0 0;
#X connect 31 0 0 0;
#X connect 32 0 0 0;
#X connect 33 0 0 0;
#X connect 34 0 0 0;
#X connect 35 0 0 0;
#X connect 36 0 0 0;
#X connect 37 0 0 0;
#X restore 607 453 pd \$0gui.pd;
#N canvas 0 0 462 312 makesend 0;
#X obj 145 59 inlet;
#X obj 254 138 r \$0guiname;
#X obj 144 83 f \$0;
#X obj 144 124 unpack s f f s s;
#X obj 152 155 pack s f f s s s;
#X msg 152 177 \; \$6 \$1 \$2 \$3 \$4 \$5;
#X msg 144 103 obj 0 0 send \$1guifilename;
#X connect 0 0 2 0;
#X connect 1 0 4 5;
#X connect 2 0 6 0;
#X connect 3 0 4 0;
#X connect 3 1 4 1;
#X connect 3 2 4 2;
#X connect 3 3 4 3;
#X connect 3 4 4 4;
#X connect 4 0 5 0;
#X connect 6 0 3 0;
#X restore 311 128 pd makesend;
#X obj 577 27 t b b;
#X msg 109 305 msg 0 \$1 \$2;
#X obj 83 173 + 17;
#X obj 84 277 t l l;
#X msg 67 302 \$1;
#X obj 67 345 / 17;
#N canvas 70 180 452 302 makeconnect 0;
#X obj 61 53 inlet;
#X obj 62 143 unpack s f f f f;
#X obj 152 176 r \$0guiname;
#X obj 61 198 pack s f f f f s;
#X msg 61 225 \; \$6 \$1 \$2 \$3 \$4 \$5;
#X msg 62 119 connect \$1 0 0 0;
#X connect 0 0 5 0;
#X connect 1 0 3 0;
#X connect 1 1 3 1;
#X connect 1 2 3 2;
#X connect 1 3 3 3;
#X connect 1 4 3 4;
#X connect 2 0 3 5;
#X connect 3 0 4 0;
#X connect 5 0 1 0;
#X restore 14 384 pd makeconnect;
#N canvas 15 306 454 304 clear 0;
#X obj 82 37 inlet;
#X obj 137 112 r \$0guiname;
#X msg 82 83 clear;
#X obj 90 135 pack s s;
#X msg 91 158 \; \$2 \$1;
#X connect 0 0 2 0;
#X connect 1 0 3 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X restore 366 81 pd clear;
#X obj 311 44 t b b b;
#X obj 289 15 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 601 54 f \$0;
#X obj 399 185 r \$0show;
#X obj 499 243 r \$0guiname;
#X obj 397 260 pack s f s;
#X msg 397 231 vis;
#X obj 398 208 t b f;
#X msg 397 282 \; \$3 \$1 \$2;
#X obj 84 41 stripdir;
#X obj 445 646 makesymbol %s/%s;
#X obj 83 60 makesymbol /%s;
#X connect 0 0 26 0;
#X connect 1 0 3 0;
#X connect 1 0 20 0;
#X connect 2 0 1 1;
#X connect 3 0 1 1;
#X connect 4 0 15 0;
#X connect 5 0 35 0;
#X connect 8 0 1 0;
#X connect 8 1 9 1;
#X connect 9 0 21 0;
#X connect 10 0 18 0;
#X connect 11 0 12 0;
#X connect 11 1 12 1;
#X connect 11 2 12 2;
#X connect 11 3 12 3;
#X connect 12 0 13 0;
#X connect 14 0 12 4;
#X connect 18 0 26 0;
#X connect 18 1 28 0;
#X connect 19 0 11 0;
#X connect 20 0 9 0;
#X connect 21 0 22 0;
#X connect 21 1 19 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 26 0 17 0;
#X connect 26 1 2 0;
#X connect 26 2 25 0;
#X connect 27 0 26 0;
#X connect 28 0 4 0;
#X connect 29 0 33 0;
#X connect 30 0 31 2;
#X connect 31 0 34 0;
#X connect 32 0 31 0;
#X connect 33 0 32 0;
#X connect 33 1 31 1;
#X connect 35 0 37 0;
#X connect 37 0 8 0;
#X restore 99 559 pd listbuilder;
#X obj 142 39 route bang choose float criteria all stop build show
;
#X obj 462 156 s \$0clean;
#X obj 141 517 r \$0clean;
#X obj 429 91 t b b b b;
#N canvas 360 147 454 304 spigot 0;
#X obj 114 61 r \$0spigot;
#X obj 274 46 loadbang;
#X msg 274 72 1;
#X obj 267 218 outlet;
#X obj 53 211 outlet;
#X obj 152 135 t f f;
#X obj 143 183 == 0;
#X connect 0 0 5 0;
#X connect 1 0 2 0;
#X connect 2 0 5 0;
#X connect 5 0 6 0;
#X connect 5 1 3 0;
#X connect 6 0 4 0;
#X restore 137 460 pd spigot;
#X msg 494 125 0;
#X obj 526 155 s \$0spigot;
#X obj 36 490 route bang;
#X obj 33 544 s \$0spigot;
#X msg 33 522 1;
#X obj 98 532 t b s;
#X obj 84 511 tosymbol;
#X obj 537 92 s \$0show;
#X obj 497 552 r \$0guifilename;
#X obj 422 671 outlet;
#X obj 497 575 tosymbol;
#X obj 620 67 loadbang;
#X msg 619 90 0;
#X obj 364 321 s \$0path;
#X obj 427 622 pack s s;
#X obj 497 596 t b s;
#X obj 428 585 symbol;
#X obj 429 540 r \$0path;
#X obj 445 646 makesymbol %s%s;
#X connect 0 0 44 0;
#X connect 1 0 41 0;
#X connect 1 0 42 0;
#X connect 2 0 20 0;
#X connect 5 0 6 0;
#X connect 6 0 15 0;
#X connect 7 0 31 0;
#X connect 7 1 12 0;
#X connect 12 0 37 0;
#X connect 15 0 39 0;
#X connect 15 1 16 0;
#X connect 16 0 22 0;
#X connect 16 0 62 0;
#X connect 17 0 23 0;
#X connect 19 0 22 0;
#X connect 19 0 62 0;
#X connect 20 0 17 2;
#X connect 21 0 19 0;
#X connect 22 0 17 1;
#X connect 23 0 1 0;
#X connect 24 0 26 0;
#X connect 25 0 24 1;
#X connect 26 0 35 0;
#X connect 27 0 26 1;
#X connect 28 0 34 0;
#X connect 30 0 29 0;
#X connect 31 0 4 0;
#X connect 31 1 30 0;
#X connect 33 0 32 0;
#X connect 34 0 36 0;
#X connect 35 0 17 0;
#X connect 35 1 27 0;
#X connect 36 0 26 0;
#X connect 37 0 24 0;
#X connect 37 1 3 0;
#X connect 38 0 32 0;
#X connect 39 0 18 0;
#X connect 41 0 7 0;
#X connect 42 0 51 0;
#X connect 44 0 5 0;
#X connect 44 1 5 0;
#X connect 44 2 17 0;
#X connect 44 3 20 0;
#X connect 44 4 33 0;
#X connect 44 5 38 0;
#X connect 44 6 47 0;
#X connect 44 7 56 0;
#X connect 44 8 16 0;
#X connect 46 0 43 1;
#X connect 47 0 33 0;
#X connect 47 1 45 0;
#X connect 47 2 49 0;
#X connect 47 3 38 0;
#X connect 48 0 42 1;
#X connect 48 1 41 1;
#X connect 49 0 50 0;
#X connect 51 0 53 0;
#X connect 51 1 55 0;
#X connect 53 0 52 0;
#X connect 54 0 24 0;
#X connect 54 1 43 0;
#X connect 55 0 54 0;
#X connect 57 0 59 0;
#X connect 59 0 64 0;
#X connect 60 0 61 0;
#X connect 61 0 56 0;
#X connect 63 0 67 0;
#X connect 64 0 65 0;
#X connect 64 1 63 1;
#X connect 65 0 63 0;
#X connect 66 0 65 0;
#X connect 67 0 58 0;