src/lhdir.c

   1 /* ------------------------------------------------------------------------ */
   2 /* LHa for UNIX                                                                                                                         */
   3 /*                              lhdir.c -- Directory access routine                                                     */
   4 /*                                                                                                                                                      */
   5 /*              Copyright (C) MCMLXXXIX Yooichi.Tagawa                                                          */
   6 /*              Modified                        Nobutaka Watazaki                                                       */
   7 /*                                                                                                                                                      */
   8 /*      Emulate opendir(),readdir(),closedir() function for LHarc                               */
   9 /*                                                                                                                                                      */
  10 /*      Ver. 0.00  Original                                                             1988.05.31  Y.Tagawa    */
  11 /*      Ver. 0.03  Release #3 for LHarc UNIX                    1988.07.02  Y.Tagawa    */
  12 /*      Ver. 1.00  Fixed                                                                1989.09.22  Y.Tagawa    */
  13 /*      Ver. 1.14  Source All chagned                                   1995.01.14      N.Watazaki      */
  14 /* ------------------------------------------------------------------------ */
  15 #include "lha.h"
  16
  17 /* Where is O_RDONLY ? (^_^) */
  18 #include <sys/file.h>
  19
  20 #ifndef O_RDONLY
  21 #include <fcntl.h>
  22 #endif
  23
  24 #define direct old_direct
  25
  26 #include <sys/dir.h>
  27
  28 #undef direct
  29
  30 #ifndef DIRSIZ
  31 /* Warning :  Are you sure? (normally defined in <sys/dir.h> */
  32 #define DIRSIZ  14
  33 #endif
  34
  35 #include "lhdir.h"
  36
  37 /* ------------------------------------------------------------------------ */
  38 DIR            *
  39 opendir(name)
  40         char           *name;
  41 {
  42         register DIR   *dirp;
  43         register int    fd;
  44
  45         if ((fd = open(name, O_RDONLY)) >= 0) {
  46                 if ((dirp = (DIR *) malloc(sizeof(DIR))) != (DIR *) 0) {
  47                         dirp->dd_fd = fd;
  48                         dirp->dd_loc = 0;
  49                         dirp->dd_size = 0;
  50                         return dirp;
  51                 }
  52
  53                 close(fd);
  54         }
  55
  56         return (DIR *) 0;
  57 }
  58
  59 /* ------------------------------------------------------------------------ */
  60 struct direct  *
  61 readdir(dirp)
  62         register DIR   *dirp;
  63 {
  64         static struct direct lhdir;
  65         register struct old_direct *dp;
  66
  67         do {
  68                 if (dirp->dd_loc >= dirp->dd_size) {
  69                         dirp->dd_loc = 0;
  70                         if ((dirp->dd_size = read(dirp->dd_fd, dirp->dd_buf, DIRBLKSIZ)) <= 0)
  71                                 return (struct direct *) 0;
  72                 }
  73
  74                 dp = (struct old_direct *) (dirp->dd_buf + dirp->dd_loc);
  75
  76                 if (dirp->dd_loc + sizeof(struct old_direct) > dirp->dd_size)
  77                         return (struct direct *) 0;
  78
  79                 dirp->dd_loc += sizeof(struct old_direct);
  80
  81         } while (dp->d_ino == 0);
  82
  83         /* construct new format */
  84         lhdir.d_ino = dp->d_ino;
  85         strncpy(lhdir.d_name, dp->d_name, DIRSIZ);
  86         lhdir.d_name[DIRSIZ] = '\0';
  87         lhdir.d_namlen = strlen(lhdir.d_name);
  88
  89         return &lhdir;
  90 }
  91
  92 /* ------------------------------------------------------------------------ */
  93 closedir(dirp)
  94         DIR            *dirp;
  95 {
  96         close(dirp->dd_fd);
  97         free(dirp);
  98 }