/* ------------------------------------------------------------------------ */
/* LHa for UNIX    															*/
/*				lhdir.c -- Directory access routine							*/
/*																			*/
/*		Copyright (C) MCMLXXXIX Yooichi.Tagawa								*/
/*		Modified          		Nobutaka Watazaki							*/
/*																			*/
/* 	Emulate opendir(),readdir(),closedir() function for LHarc	 			*/
/* 																			*/
/*	Ver. 0.00  Original								1988.05.31  Y.Tagawa	*/
/*	Ver. 0.03  Release #3 for LHarc UNIX			1988.07.02  Y.Tagawa	*/
/*	Ver. 1.00  Fixed								1989.09.22  Y.Tagawa	*/
/*	Ver. 1.14  Source All chagned					1995.01.14	N.Watazaki	*/
/* ------------------------------------------------------------------------ */
#include "lha.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);
}
/* Local Variables: */
/* tab-width : 4 */
/* End: */
