diff options
| -rwxr-xr-x | readdir/configure | 6 | ||||
| -rw-r--r-- | readdir/configure.ac | 6 | ||||
| -rw-r--r-- | readdir/src/readdir-help.pd | 71 |
3 files changed, 44 insertions, 39 deletions
diff --git a/readdir/configure b/readdir/configure index 8d2276e..da49a2e 100755 --- a/readdir/configure +++ b/readdir/configure @@ -4078,8 +4078,9 @@ else fi -##-- check for dirent d_type decls -{ echo "$as_me:$LINENO: checking whether DT_REG is declared" >&5 +if test "$HAVE_STRUCT_DIRENT_D_TYPE" = "yes"; then + ##-- check for dirent d_type decls + { echo "$as_me:$LINENO: checking whether DT_REG is declared" >&5 echo $ECHO_N "checking whether DT_REG is declared... $ECHO_C" >&6; } if test "${ac_cv_have_decl_DT_REG+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 @@ -4550,6 +4551,7 @@ _ACEOF fi +fi ## /local: structs diff --git a/readdir/configure.ac b/readdir/configure.ac index 62a7f7d..0051b27 100644 --- a/readdir/configure.ac +++ b/readdir/configure.ac @@ -68,10 +68,12 @@ AC_CHECK_MEMBERS([struct dirent.d_type], [HAVE_STRUCT_DIRENT_D_TYPE=yes],[HAVE_STRUCT_DIRENT_D_TYPE=no], [#include <dirent.h>]) -##-- check for dirent d_type decls -AC_CHECK_DECLS([DT_REG,DT_DIR,DT_FIFO,DT_SOCK,DT_CHR,DT_BLK,DT_UNKNOWN], +if test "$HAVE_STRUCT_DIRENT_D_TYPE" = "yes"; then + ##-- check for dirent d_type decls + AC_CHECK_DECLS([DT_REG,DT_DIR,DT_FIFO,DT_SOCK,DT_CHR,DT_BLK,DT_UNKNOWN], [],[], [#include <dirent.h>]) +fi ## /local: structs diff --git a/readdir/src/readdir-help.pd b/readdir/src/readdir-help.pd index 81335e7..2952f72 100644 --- a/readdir/src/readdir-help.pd +++ b/readdir/src/readdir-help.pd @@ -1,40 +1,40 @@ -#N canvas 438 13 543 650 10; -#X msg 89 227 close; -#X msg 52 79 bang; -#X msg 83 160 tell; -#X obj 38 322 print dir-entry; -#X obj 82 294 print end-of-directory; -#X text 130 8 readdir : simple directory accessor; -#X text 245 617 Bryan Jurish <moocow@ling.uni-potsdam.de>; -#X text 157 46 open DIR : opens the directory DIR; -#X text 185 80 bang : outlet next directory entry; -#X text 185 101 next : ditto; -#X msg 59 101 next; -#X msg 71 137 rewind; -#X text 173 137 rewind : return to beginning of directory; -#X text 187 160 tell : output current position; -#X text 146 185 seek FLOAT : goto position FLOAT; -#X msg 86 184 seek 0; -#X text 181 229 close : close directory; -#X text 258 295 2nd outlet bangs at end of directory; -#X text 260 325 Directory entries go to 1st outlet; -#X text 39 370 Directory entries appear as messages of the form TYPE +#N canvas 44 62 540 544 10; +#X msg 87 194 close; +#X msg 54 75 bang; +#X msg 77 144 tell; +#X obj 38 292 print dir-entry; +#X obj 82 264 print end-of-directory; +#X text 130 4 readdir : simple directory accessor; +#X text 240 523 Bryan Jurish <moocow@ling.uni-potsdam.de>; +#X text 155 36 open DIR : opens the directory DIR; +#X text 184 77 bang : outlet next directory entry; +#X text 184 94 next : ditto; +#X msg 61 94 next; +#X msg 71 125 rewind; +#X text 173 125 rewind : return to beginning of directory; +#X text 187 145 tell : output current position; +#X text 146 163 seek FLOAT : goto position FLOAT; +#X msg 82 163 seek 0; +#X text 181 192 close : close directory; +#X text 258 265 2nd outlet bangs at end of directory; +#X text 260 295 Directory entries go to 1st outlet; +#X text 39 321 Directory entries appear as messages of the form TYPE NAME \, where NAME is the name of the entry \, and TYPE is one of the following:; -#X text 87 416 file : regular file; -#X text 94 429 dir : subdirectory; -#X text 87 442 fifo : named pipe; -#X text 87 455 sock : local-domain socket; -#X text 73 468 chrdev : character device; -#X text 73 482 blkdev : block device; -#X obj 38 267 readdir; -#X msg 39 47 open /tmp; -#X text 66 495 unknown : something else (maybe a symlink); -#X text 45 530 WARNING:; -#X text 59 544 Recognition of directory entry types does NOT work on -windows or any other system whose `dirent' struct is missing the `d_type' -field. On such systems \, the TYPE selector on the first outlet is -always the symbol `unknown'.; +#X text 147 361 file : regular file; +#X text 154 374 dir : subdirectory; +#X text 147 387 fifo : named pipe; +#X text 147 400 sock : local-domain socket; +#X text 133 413 chrdev : character device; +#X text 133 427 blkdev : block device; +#X obj 38 237 readdir; +#X msg 44 46 open /tmp; +#X text 126 440 unknown : something else (maybe a symlink); +#X msg 38 26 open .; +#X text 39 462 BEWARE: Recognition of directory entry types does NOT +work on windows or any other system whose `dirent' struct is missing +the `d_type' field. On such systems \, the TYPE selector on the first +outlet is always the symbol `unknown'.; #X connect 0 0 26 0; #X connect 1 0 26 0; #X connect 2 0 26 0; @@ -44,3 +44,4 @@ always the symbol `unknown'.; #X connect 26 0 3 0; #X connect 26 1 4 0; #X connect 27 0 26 0; +#X connect 29 0 26 0; |