dir.c

   1 /* Directory hashing for GNU Make.
   2 Copyright (C) 1988, 89, 91, 92, 93, 94, 95, 96 Free Software Foundation, Inc.
   3 This file is part of GNU Make.
   4
   5 GNU Make is free software; you can redistribute it and/or modify
   6 it under the terms of the GNU General Public License as published by
   7 the Free Software Foundation; either version 2, or (at your option)
   8 any later version.
   9
  10 GNU Make is distributed in the hope that it will be useful,
  11 but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 GNU General Public License for more details.
  14
  15 You should have received a copy of the GNU General Public License
  16 along with GNU Make; see the file COPYING.  If not, write to
  17 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  18
  19 #include "make.h"
  20
  21 #ifdef  HAVE_DIRENT_H
  22 # include <dirent.h>
  23 # define NAMLEN(dirent) strlen((dirent)->d_name)
  24 #else
  25 # define dirent direct
  26 # define NAMLEN(dirent) (dirent)->d_namlen
  27 # ifdef HAVE_SYS_NDIR_H
  28 #  include <sys/ndir.h>
  29 # endif
  30 # ifdef HAVE_SYS_DIR_H
  31 #  include <sys/dir.h>
  32 # endif
  33 # ifdef HAVE_NDIR_H
  34 #  include <ndir.h>
  35 # endif
  36 # ifdef HAVE_VMSDIR_H
  37 #  include "vmsdir.h"
  38 # endif /* HAVE_VMSDIR_H */
  39 #endif
  40
  41 /* In GNU systems, <dirent.h> defines this macro for us.  */
  42 #ifdef _D_NAMLEN
  43 #undef NAMLEN
  44 #define NAMLEN(d) _D_NAMLEN(d)
  45 #endif
  46
  47 #if defined (POSIX) && !defined (__GNU_LIBRARY__)
  48 /* Posix does not require that the d_ino field be present, and some
  49    systems do not provide it. */
  50 #define REAL_DIR_ENTRY(dp) 1
  51 #define FAKE_DIR_ENTRY(dp)
  52 #else
  53 #define REAL_DIR_ENTRY(dp) (dp->d_ino != 0)
  54 #define FAKE_DIR_ENTRY(dp) (dp->d_ino = 1)
  55 #endif /* POSIX */
  56 \f
  57 #ifdef __MSDOS__
  58 #include <ctype.h>
  59
  60 static char *
  61 dosify (filename)
  62      char *filename;
  63 {
  64   static char dos_filename[14];
  65   char *df;
  66   int i;
  67
  68   if (filename == 0)
  69     return 0;
  70
  71   if (strpbrk (filename, "\"*+,;<=>?[\\]|") != 0)
  72     return filename;
  73
  74   df = dos_filename;
  75
  76   /* First, transform the name part.  */
  77   for (i = 0; *filename != '\0' && i < 8 && *filename != '.'; ++i)
  78     *df++ = tolower (*filename++);
  79
  80   /* Now skip to the next dot.  */
  81   while (*filename != '\0' && *filename != '.')
  82     ++filename;
  83   if (*filename != '\0')
  84     {
  85       *df++ = *filename++;
  86       for (i = 0; *filename != '\0' && i < 3 && *filename != '.'; ++i)
  87         *df++ = tolower (*filename++);
  88     }
  89
  90   /* Look for more dots.  */
  91   while (*filename != '\0' && *filename != '.')
  92     ++filename;
  93   if (*filename == '.')
  94     return filename;
  95   *df = 0;
  96   return dos_filename;
  97 }
  98 #endif /* __MSDOS__ */
  99
 100 #ifdef _AMIGA
 101 #include <ctype.h>
 102
 103 static char *
 104 amigafy (filename)
 105      char *filename;
 106 {
 107   static char amiga_filename[136];
 108   char *df;
 109   int i;
 110
 111   if (filename == 0)
 112     return 0;
 113
 114   df = amiga_filename;
 115
 116   /* First, transform the name part.  */
 117   for (i = 0; *filename != '\0'; ++i)
 118   {
 119     *df++ = tolower (*filename);
 120     ++filename;
 121   }
 122
 123   *df = 0;
 124
 125   return amiga_filename;
 126 }
 127 #endif /* _AMIGA */
 128
 129 #ifdef VMS
 130
 131 static int
 132 vms_hash (name)
 133     char *name;
 134 {
 135   int h = 0;
 136   int g;
 137
 138   while (*name)
 139     {
 140       h = (h << 4) + *name++;
 141       g = h & 0xf0000000;
 142       if (g)
 143         {
 144           h = h ^ (g >> 24);
 145           h = h ^ g;
 146         }
 147     }
 148   return h;
 149 }
 150
 151 /* fake stat entry for a directory */
 152 static int
 153 vmsstat_dir (name, st)
 154     char *name;
 155     struct stat *st;
 156 {
 157   char *s;
 158   int h;
 159   DIR *dir;
 160
 161   dir = opendir (name);
 162   if (dir == 0)
 163     return -1;
 164   closedir (dir);
 165   s = strchr (name, ':');       /* find device */
 166   if (s)
 167     {
 168       *s++ = 0;
 169       st->st_dev = (char *)vms_hash (name);
 170     }
 171   else
 172     {
 173       st->st_dev = 0;
 174       s = name;
 175     }
 176   h = vms_hash (s);
 177   st->st_ino[0] = h & 0xff;
 178   st->st_ino[1] = h & 0xff00;
 179   st->st_ino[2] = h >> 16;
 180
 181   return 0;
 182 }
 183 #endif /* VMS */
 184 \f
 185 /* Hash table of directories.  */
 186
 187 #ifndef DIRECTORY_BUCKETS
 188 #define DIRECTORY_BUCKETS 199
 189 #endif
 190
 191 struct directory_contents
 192   {
 193     struct directory_contents *next;
 194
 195     dev_t dev;                  /* Device and inode numbers of this dir.  */
 196 #ifdef VMS
 197     ino_t ino[3];
 198 #else
 199     ino_t ino;
 200 #endif
 201     struct dirfile **files;     /* Files in this directory.  */
 202     DIR *dirstream;             /* Stream reading this directory.  */
 203   };
 204
 205 /* Table of directory contents hashed by device and inode number.  */
 206 static struct directory_contents *directories_contents[DIRECTORY_BUCKETS];
 207
 208 struct directory
 209   {
 210     struct directory *next;
 211
 212     char *name;                 /* Name of the directory.  */
 213
 214     /* The directory's contents.  This data may be shared by several
 215        entries in the hash table, which refer to the same directory
 216        (identified uniquely by `dev' and `ino') under different names.  */
 217     struct directory_contents *contents;
 218   };
 219
 220 /* Table of directories hashed by name.  */
 221 static struct directory *directories[DIRECTORY_BUCKETS];
 222
 223
 224 /* Never have more than this many directories open at once.  */
 225
 226 #define MAX_OPEN_DIRECTORIES 10
 227
 228 static unsigned int open_directories = 0;
 229
 230
 231 /* Hash table of files in each directory.  */
 232
 233 struct dirfile
 234   {
 235     struct dirfile *next;
 236     char *name;                 /* Name of the file.  */
 237     char impossible;            /* This file is impossible.  */
 238   };
 239
 240 #ifndef DIRFILE_BUCKETS
 241 #define DIRFILE_BUCKETS 107
 242 #endif
 243 \f
 244 static int dir_contents_file_exists_p PARAMS ((struct directory_contents *dir, char *filename));
 245 static struct directory *find_directory PARAMS ((char *name));
 246
 247 /* Find the directory named NAME and return its `struct directory'.  */
 248
 249 static struct directory *
 250 find_directory (name)
 251      register char *name;
 252 {
 253   register unsigned int hash = 0;
 254   register char *p;
 255   register struct directory *dir;
 256 #ifdef VMS
 257   if ((*name == '.') && (*(name+1) == 0))
 258     name = "[]";
 259   else
 260     name = vmsify (name,1);
 261 #endif
 262
 263   for (p = name; *p != '\0'; ++p)
 264     HASHI (hash, *p);
 265   hash %= DIRECTORY_BUCKETS;
 266
 267   for (dir = directories[hash]; dir != 0; dir = dir->next)
 268     if (strieq (dir->name, name))
 269       break;
 270
 271   if (dir == 0)
 272     {
 273       struct stat st;
 274
 275       /* The directory was not found.  Create a new entry for it.  */
 276
 277       dir = (struct directory *) xmalloc (sizeof (struct directory));
 278       dir->next = directories[hash];
 279       directories[hash] = dir;
 280       dir->name = savestring (name, p - name);
 281
 282       /* The directory is not in the name hash table.
 283          Find its device and inode numbers, and look it up by them.  */
 284
 285 #ifdef VMS
 286       if (vmsstat_dir (name, &st) < 0)
 287 #else
 288       if (stat (name, &st) < 0)
 289 #endif
 290         {
 291         /* Couldn't stat the directory.  Mark this by
 292            setting the `contents' member to a nil pointer.  */
 293           dir->contents = 0;
 294         }
 295       else
 296         {
 297           /* Search the contents hash table; device and inode are the key.  */
 298
 299           struct directory_contents *dc;
 300
 301 #ifdef VMS
 302         hash = ((unsigned int) st.st_dev << 16)
 303                 | ((unsigned int) st.st_ino[0]
 304                 + (unsigned int) st.st_ino[1]
 305                 + (unsigned int) st.st_ino[2]);
 306 #else
 307           hash = ((unsigned int) st.st_dev << 16) | (unsigned int) st.st_ino;
 308 #endif
 309           hash %= DIRECTORY_BUCKETS;
 310
 311           for (dc = directories_contents[hash]; dc != 0; dc = dc->next)
 312             if (dc->dev == st.st_dev
 313 #ifdef VMS
 314                 && dc->ino[0] == st.st_ino[0]
 315                 && dc->ino[1] == st.st_ino[1]
 316                 && dc->ino[2] == st.st_ino[2])
 317 #else
 318                  && dc->ino == st.st_ino)
 319 #endif
 320               break;
 321
 322           if (dc == 0)
 323             {
 324               /* Nope; this really is a directory we haven't seen before.  */
 325
 326               dc = (struct directory_contents *)
 327                 xmalloc (sizeof (struct directory_contents));
 328
 329               /* Enter it in the contents hash table.  */
 330               dc->dev = st.st_dev;
 331 #ifdef VMS
 332               dc->ino[0] = st.st_ino[0];
 333               dc->ino[1] = st.st_ino[1];
 334               dc->ino[2] = st.st_ino[2];
 335 #else
 336               dc->ino = st.st_ino;
 337 #endif
 338               dc->next = directories_contents[hash];
 339               directories_contents[hash] = dc;
 340
 341               dc->dirstream = opendir (name);
 342               if (dc->dirstream == 0)
 343                 {
 344                 /* Couldn't open the directory.  Mark this by
 345                    setting the `files' member to a nil pointer.  */
 346                   dc->files = 0;
 347                 }
 348               else
 349                 {
 350                   /* Allocate an array of buckets for files and zero it.  */
 351                   dc->files = (struct dirfile **)
 352                     xmalloc (sizeof (struct dirfile *) * DIRFILE_BUCKETS);
 353                   bzero ((char *) dc->files,
 354                          sizeof (struct dirfile *) * DIRFILE_BUCKETS);
 355
 356                   /* Keep track of how many directories are open.  */
 357                   ++open_directories;
 358                   if (open_directories == MAX_OPEN_DIRECTORIES)
 359                     /* We have too many directories open already.
 360                        Read the entire directory and then close it.  */
 361                     (void) dir_contents_file_exists_p (dc, (char *) 0);
 362                 }
 363             }
 364
 365           /* Point the name-hashed entry for DIR at its contents data.  */
 366           dir->contents = dc;
 367         }
 368     }
 369
 370   return dir;
 371 }
 372 \f
 373 /* Return 1 if the name FILENAME is entered in DIR's hash table.
 374    FILENAME must contain no slashes.  */
 375
 376 static int
 377 dir_contents_file_exists_p (dir, filename)
 378      register struct directory_contents *dir;
 379      register char *filename;
 380 {
 381   register unsigned int hash;
 382   register char *p;
 383   register struct dirfile *df;
 384   register struct dirent *d;
 385
 386   if (dir == 0 || dir->files == 0)
 387     {
 388     /* The directory could not be stat'd or opened.  */
 389       return 0;
 390     }
 391 #ifdef __MSDOS__
 392   filename = dosify (filename);
 393 #endif
 394
 395 #ifdef _AMIGA
 396   filename = amigafy (filename);
 397 #endif
 398
 399 #ifdef VMS
 400   filename = vmsify (filename,0);
 401 #endif
 402
 403   hash = 0;
 404   if (filename != 0)
 405     {
 406       if (*filename == '\0')
 407         {
 408         /* Checking if the directory exists.  */
 409           return 1;
 410         }
 411
 412       for (p = filename; *p != '\0'; ++p)
 413         HASH (hash, *p);
 414       hash %= DIRFILE_BUCKETS;
 415
 416       /* Search the list of hashed files.  */
 417
 418       for (df = dir->files[hash]; df != 0; df = df->next)
 419         {
 420           if (strieq (df->name, filename))
 421             {
 422               return !df->impossible;
 423             }
 424         }
 425     }
 426
 427   /* The file was not found in the hashed list.
 428      Try to read the directory further.  */
 429
 430   if (dir->dirstream == 0)
 431     {
 432     /* The directory has been all read in.  */
 433       return 0;
 434     }
 435
 436   while ((d = readdir (dir->dirstream)) != 0)
 437     {
 438       /* Enter the file in the hash table.  */
 439       register unsigned int newhash = 0;
 440       unsigned int len;
 441       register unsigned int i;
 442
 443       if (!REAL_DIR_ENTRY (d))
 444         continue;
 445
 446       len = NAMLEN (d);
 447       for (i = 0; i < len; ++i)
 448         HASHI (newhash, d->d_name[i]);
 449       newhash %= DIRFILE_BUCKETS;
 450
 451       df = (struct dirfile *) xmalloc (sizeof (struct dirfile));
 452       df->next = dir->files[newhash];
 453       dir->files[newhash] = df;
 454       df->name = savestring (d->d_name, len);
 455       df->impossible = 0;
 456       /* Check if the name matches the one we're searching for.  */
 457       if (filename != 0
 458           && newhash == hash && strieq (d->d_name, filename))
 459         {
 460           return 1;
 461         }
 462     }
 463
 464   /* If the directory has been completely read in,
 465      close the stream and reset the pointer to nil.  */
 466   if (d == 0)
 467     {
 468       --open_directories;
 469       closedir (dir->dirstream);
 470       dir->dirstream = 0;
 471     }
 472   return 0;
 473 }
 474
 475 /* Return 1 if the name FILENAME in directory DIRNAME
 476    is entered in the dir hash table.
 477    FILENAME must contain no slashes.  */
 478
 479 int
 480 dir_file_exists_p (dirname, filename)
 481      register char *dirname;
 482      register char *filename;
 483 {
 484   return dir_contents_file_exists_p (find_directory (dirname)->contents,
 485                                      filename);
 486 }
 487 \f
 488 /* Return 1 if the file named NAME exists.  */
 489
 490 int
 491 file_exists_p (name)
 492      register char *name;
 493 {
 494   char *dirend;
 495   char *dirname;
 496
 497 #ifndef NO_ARCHIVES
 498   if (ar_name (name))
 499     return ar_member_date (name) != (time_t) -1;
 500 #endif
 501
 502 #ifdef VMS
 503   dirend = rindex (name, ']');
 504   dirend++;
 505   if (dirend == (char *)1)
 506     return dir_file_exists_p ("[]", name);
 507 #else /* !VMS */
 508   dirend = rindex (name, '/');
 509   if (dirend == 0)
 510     return dir_file_exists_p (".", name);
 511   if (dirend == 0)
 512 #ifndef _AMIGA
 513     return dir_file_exists_p (".", name);
 514 #else /* !VMS && !AMIGA */
 515     return dir_file_exists_p ("", name);
 516 #endif /* AMIGA */
 517 #endif /* VMS */
 518
 519   dirname = (char *) alloca (dirend - name + 1);
 520   bcopy (name, dirname, dirend - name);
 521   dirname[dirend - name] = '\0';
 522   return dir_file_exists_p (dirname, dirend + 1);
 523 }
 524 \f
 525 /* Mark FILENAME as `impossible' for `file_impossible_p'.
 526    This means an attempt has been made to search for FILENAME
 527    as an intermediate file, and it has failed.  */
 528
 529 void
 530 file_impossible (filename)
 531      register char *filename;
 532 {
 533   char *dirend;
 534   register char *p = filename;
 535   register unsigned int hash;
 536   register struct directory *dir;
 537   register struct dirfile *new;
 538
 539 #ifdef VMS
 540   dirend = rindex (p, ']');
 541   dirend++;
 542   if (dirend == (char *)1)
 543     dir = find_directory ("[]");
 544 #else
 545   dirend = rindex (p, '/');
 546   if (dirend == 0)
 547 #ifdef _AMIGA
 548     dir = find_directory ("");
 549 #else /* !VMS && !AMIGA */
 550     dir = find_directory (".");
 551 #endif /* AMIGA */
 552 #endif /* VMS */
 553   else
 554     {
 555       char *dirname = (char *) alloca (dirend - p + 1);
 556       bcopy (p, dirname, dirend - p);
 557       dirname[dirend - p] = '\0';
 558       dir = find_directory (dirname);
 559       filename = p = dirend + 1;
 560     }
 561
 562   for (hash = 0; *p != '\0'; ++p)
 563     HASHI (hash, *p);
 564   hash %= DIRFILE_BUCKETS;
 565
 566   if (dir->contents == 0)
 567     {
 568       /* The directory could not be stat'd.  We allocate a contents
 569          structure for it, but leave it out of the contents hash table.  */
 570       dir->contents = (struct directory_contents *)
 571         xmalloc (sizeof (struct directory_contents));
 572 #ifdef VMS
 573       dir->contents->dev = 0;
 574       dir->contents->ino[0] = dir->contents->ino[1] =
 575         dir->contents->ino[2] = 0;
 576 #else
 577       dir->contents->dev = dir->contents->ino = 0;
 578 #endif
 579       dir->contents->files = 0;
 580       dir->contents->dirstream = 0;
 581     }
 582
 583   if (dir->contents->files == 0)
 584     {
 585       /* The directory was not opened; we must allocate the hash buckets.  */
 586       dir->contents->files = (struct dirfile **)
 587         xmalloc (sizeof (struct dirfile) * DIRFILE_BUCKETS);
 588       bzero ((char *) dir->contents->files,
 589              sizeof (struct dirfile) * DIRFILE_BUCKETS);
 590     }
 591
 592   /* Make a new entry and put it in the table.  */
 593
 594   new = (struct dirfile *) xmalloc (sizeof (struct dirfile));
 595   new->next = dir->contents->files[hash];
 596   dir->contents->files[hash] = new;
 597   new->name = savestring (filename, strlen (filename));
 598   new->impossible = 1;
 599 }
 600 \f
 601 /* Return nonzero if FILENAME has been marked impossible.  */
 602
 603 int
 604 file_impossible_p (filename)
 605      char *filename;
 606 {
 607   char *dirend;
 608   register char *p = filename;
 609   register unsigned int hash;
 610   register struct directory_contents *dir;
 611   register struct dirfile *next;
 612
 613 #ifdef VMS
 614   dirend = rindex (filename, ']');
 615   if (dirend == 0)
 616     dir = find_directory ("[]")->contents;
 617 #else
 618   dirend = rindex (filename, '/');
 619   if (dirend == 0)
 620 #ifdef _AMIGA
 621     dir = find_directory ("")->contents;
 622 #else /* !VMS && !AMIGA */
 623     dir = find_directory (".")->contents;
 624 #endif /* AMIGA */
 625 #endif /* VMS */
 626   else
 627     {
 628       char *dirname = (char *) alloca (dirend - filename + 1);
 629       bcopy (p, dirname, dirend - p);
 630       dirname[dirend - p] = '\0';
 631       dir = find_directory (dirname)->contents;
 632       p = filename = dirend + 1;
 633     }
 634
 635   if (dir == 0 || dir->files == 0)
 636     /* There are no files entered for this directory.  */
 637     return 0;
 638
 639 #ifdef __MSDOS__
 640   p = filename = dosify (p);
 641 #endif
 642 #ifdef _AMIGA
 643   p = filename = amigafy (p);
 644 #endif
 645 #ifdef VMS
 646   p = filename = vmsify (p, 1);
 647 #endif
 648
 649   for (hash = 0; *p != '\0'; ++p)
 650     HASH (hash, *p);
 651   hash %= DIRFILE_BUCKETS;
 652
 653   for (next = dir->files[hash]; next != 0; next = next->next)
 654     if (strieq (filename, next->name))
 655       return next->impossible;
 656
 657   return 0;
 658 }
 659 \f
 660 /* Return the already allocated name in the
 661    directory hash table that matches DIR.  */
 662
 663 char *
 664 dir_name (dir)
 665      char *dir;
 666 {
 667   return find_directory (dir)->name;
 668 }
 669 \f
 670 /* Print the data base of directories.  */
 671
 672 void
 673 print_dir_data_base ()
 674 {
 675   register unsigned int i, dirs, files, impossible;
 676   register struct directory *dir;
 677
 678   puts ("\n# Directories\n");
 679
 680   dirs = files = impossible = 0;
 681   for (i = 0; i < DIRECTORY_BUCKETS; ++i)
 682     for (dir = directories[i]; dir != 0; dir = dir->next)
 683       {
 684         ++dirs;
 685         if (dir->contents == 0)
 686           printf ("# %s: could not be stat'd.\n", dir->name);
 687         else if (dir->contents->files == 0)
 688 #ifdef VMS
 689           printf ("# %s (device %d, inode [%d,%d,%d]): could not be opened.\n",
 690                   dir->name, dir->contents->dev,
 691                   dir->contents->ino[0], dir->contents->ino[1],
 692                   dir->contents->ino[2]);
 693 #else
 694           printf ("# %s (device %d, inode %d): could not be opened.\n",
 695                   dir->name, dir->contents->dev, dir->contents->ino);
 696 #endif
 697         else
 698           {
 699             register unsigned int f = 0, im = 0;
 700             register unsigned int j;
 701             register struct dirfile *df;
 702             for (j = 0; j < DIRFILE_BUCKETS; ++j)
 703               for (df = dir->contents->files[j]; df != 0; df = df->next)
 704                 if (df->impossible)
 705                   ++im;
 706                 else
 707                   ++f;
 708 #ifdef VMS
 709             printf ("# %s (device %d, inode [%d,%d,%d]): ",
 710                     dir->name, dir->contents->dev,
 711                         dir->contents->ino[0], dir->contents->ino[1],
 712                         dir->contents->ino[2]);
 713 #else
 714             printf ("# %s (device %d, inode %d): ",
 715                     dir->name, dir->contents->dev, dir->contents->ino);
 716 #endif
 717             if (f == 0)
 718               fputs ("No", stdout);
 719             else
 720               printf ("%u", f);
 721             fputs (" files, ", stdout);
 722             if (im == 0)
 723               fputs ("no", stdout);
 724             else
 725               printf ("%u", im);
 726             fputs (" impossibilities", stdout);
 727             if (dir->contents->dirstream == 0)
 728               puts (".");
 729             else
 730               puts (" so far.");
 731             files += f;
 732             impossible += im;
 733           }
 734       }
 735
 736   fputs ("\n# ", stdout);
 737   if (files == 0)
 738     fputs ("No", stdout);
 739   else
 740     printf ("%u", files);
 741   fputs (" files, ", stdout);
 742   if (impossible == 0)
 743     fputs ("no", stdout);
 744   else
 745     printf ("%u", impossible);
 746   printf (" impossibilities in %u directories.\n", dirs);
 747 }
 748 \f
 749 /* Hooks for globbing.  */
 750
 751 #include <glob.h>
 752
 753 /* Structure describing state of iterating through a directory hash table.  */
 754
 755 struct dirstream
 756   {
 757     struct directory_contents *contents; /* The directory being read.  */
 758
 759     unsigned int bucket;        /* Current hash bucket.  */
 760     struct dirfile *elt;        /* Current elt in bucket.  */
 761   };
 762
 763 /* Forward declarations.  */
 764 static __ptr_t open_dirstream PARAMS ((const char *));
 765 static struct dirent *read_dirstream PARAMS ((__ptr_t));
 766
 767 static __ptr_t
 768 open_dirstream (directory)
 769      const char *directory;
 770 {
 771   struct dirstream *new;
 772   struct directory *dir = find_directory ((char *)directory);
 773
 774   if (dir->contents == 0 || dir->contents->files == 0)
 775     /* DIR->contents is nil if the directory could not be stat'd.
 776        DIR->contents->files is nil if it could not be opened.  */
 777     return 0;
 778
 779   /* Read all the contents of the directory now.  There is no benefit
 780      in being lazy, since glob will want to see every file anyway.  */
 781
 782   (void) dir_contents_file_exists_p (dir->contents, (char *) 0);
 783
 784   new = (struct dirstream *) xmalloc (sizeof (struct dirstream));
 785   new->contents = dir->contents;
 786   new->bucket = 0;
 787   new->elt = new->contents->files[0];
 788
 789   return (__ptr_t) new;
 790 }
 791
 792 static struct dirent *
 793 read_dirstream (stream)
 794      __ptr_t stream;
 795 {
 796   struct dirstream *const ds = (struct dirstream *) stream;
 797   register struct dirfile *df;
 798   static char *buf;
 799   static unsigned int bufsz;
 800
 801   while (ds->bucket < DIRFILE_BUCKETS)
 802     {
 803       while ((df = ds->elt) != 0)
 804         {
 805           ds->elt = df->next;
 806           if (!df->impossible)
 807             {
 808               /* The glob interface wants a `struct dirent',
 809                  so mock one up.  */
 810               struct dirent *d;
 811               unsigned int len = strlen (df->name) + 1;
 812               if (sizeof *d - sizeof d->d_name + len > bufsz)
 813                 {
 814                   if (buf != 0)
 815                     free (buf);
 816                   bufsz *= 2;
 817                   if (sizeof *d - sizeof d->d_name + len > bufsz)
 818                     bufsz = sizeof *d - sizeof d->d_name + len;
 819                   buf = xmalloc (bufsz);
 820                 }
 821               d = (struct dirent *) buf;
 822               FAKE_DIR_ENTRY (d);
 823 #ifdef _DIRENT_HAVE_D_NAMLEN
 824               d->d_namlen = len - 1;
 825 #endif
 826               memcpy (d->d_name, df->name, len);
 827               return d;
 828             }
 829         }
 830       if (++ds->bucket == DIRFILE_BUCKETS)
 831         break;
 832       ds->elt = ds->contents->files[ds->bucket];
 833     }
 834
 835   return 0;
 836 }
 837
 838 void
 839 dir_setup_glob (gl)
 840      glob_t *gl;
 841 {
 842   extern int stat ();
 843
 844   /* Bogus sunos4 compiler complains (!) about & before functions.  */
 845   gl->gl_opendir = open_dirstream;
 846   gl->gl_readdir = read_dirstream;
 847   gl->gl_closedir = free;
 848   gl->gl_stat = stat;
 849   /* We don't bother setting gl_lstat, since glob never calls it.
 850      The slot is only there for compatibility with 4.4 BSD.  */
 851 }