aboutsummaryrefslogtreecommitdiff
path: root/readdir
diff options
context:
space:
mode:
Diffstat (limited to 'readdir')
-rwxr-xr-xreaddir/configure6
-rw-r--r--readdir/configure.ac6
-rw-r--r--readdir/src/readdir-help.pd71
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;