/*----------------------------------------------------------------------*/
/*		Directory access routine for LHarc UNIX			*/
/*		This is part of LHarc UNIX Archiver Driver		*/
/*									*/
/*		Copyright(C) MCMLXXXIX  Yooichi.Tagawa			*/
/*									*/
/*	Emulate opendir(),readdir(),closedir() function for LHarc	*/
/*									*/
/*  V0.00  Original				1988.05.31  Y.Tagawa	*/
/*  V0.03  Release #3 for LHarc UNIX		1988.07.02  Y.Tagawa	*/
/*  V1.00  Fixed				1989.09.22  Y.Tagawa	*/
/*----------------------------------------------------------------------*/


#include <sys/types.h>

/* Where is O_RDONLY ? (^_^) */
#include <sys/file.h>
#ifndef O_RDONLY
#include <fcntl.h>
#endif

#define direct old_direct
#include <sys/dir.h>
#undef direct

#ifndef DIRSIZ
/* Warning :  Are you sure? (normally defined in <sys/dir.h> */
#define DIRSIZ	14
#endif

#include "lhdir.h"


DIR *
opendir (name)
     char *name;
{
  register DIR *dirp;
  register int fd;

  if ((fd = open (name, O_RDONLY)) >= 0)
    {
      if ((dirp = (DIR*)malloc (sizeof (DIR))) != (DIR*)0)
	{
	  dirp->dd_fd = fd;
	  dirp->dd_loc = 0;
	  dirp->dd_size = 0;
	  return dirp;
	}

      close (fd);
    }

  return (DIR*)0;
}

struct direct *
readdir (dirp)
     register DIR *dirp;
{
  static struct direct lhdir;
  register struct old_direct *dp;

  do {
    if (dirp->dd_loc >= dirp->dd_size)
      {
	dirp->dd_loc = 0;
	if ((dirp->dd_size = read (dirp->dd_fd, dirp->dd_buf, DIRBLKSIZ)) <= 0)
	  return (struct direct *)0;
      }

    dp = (struct old_direct *)(dirp->dd_buf + dirp->dd_loc);

    if (dirp->dd_loc + sizeof (struct old_direct) > dirp->dd_size)
      return (struct direct *)0;

    dirp->dd_loc += sizeof (struct old_direct);

  } while (dp->d_ino == 0) ;

  /* construct new format */
  lhdir.d_ino = dp->d_ino;
  strncpy (lhdir.d_name, dp->d_name, DIRSIZ);
  lhdir.d_name[DIRSIZ] = '\0';
  lhdir.d_namlen = strlen (lhdir.d_name);

  return &lhdir;
}

closedir (dirp)
     DIR *dirp;
{
  close (dirp->dd_fd);
  free (dirp);
}