Subversion Repositories or1k_old

#include <string.h>

#include "sys/dir.h"

#include "sys/dirent.h"

#include <errno.h>

DIR *opendir(char *name)

{

  int length;

  DIR *dir = (DIR *)malloc(sizeof(DIR));

  dir->num_read = 0;

  dir->name = (char *)malloc(strlen(name)+6);

  strcpy(dir->name, name);

  /* Append a "." if we got only the device name */

  if (dir->name[1] == ':' && strlen(dir->name) == 2)

      strcat(dir->name, ".");

  /* Strip trailing slashes, so we can append "/*.*" */

  while (1)

  {

      length = strlen(dir->name);

      if (length == 0) break;

      if (dir->name[length - 1] == '/' ||

          dir->name[length - 1] == '\\')

          dir->name[length - 1] = '\0';

      else

          break;

  }

  strcat(dir->name, "/*.*");

  return dir;

}

static char *strlwr(char *s)

{

  char *p = s;

  while (*s)

  {

    if ((*s >= 'A') && (*s <= 'Z'))

      *s += 'a'-'A';

    s++;

  }

  return p;

}

struct dirent *readdir(DIR *dir)

{

  int done;

  int oerrno = errno;

  if (dir->num_read)

    done = findnext(&dir->ff);

  else

    done = findfirst(dir->name, &dir->ff,

                     FA_ARCH|FA_RDONLY|FA_DIREC|FA_HIDDEN|FA_SYSTEM);

  if (done)

  {

    if (errno == ENMFILE)

      errno = oerrno;

    return 0;

  }

  dir->num_read ++;

  dir->de.d_namlen = strlen(dir->ff.ff_name);

  strcpy(dir->de.d_name,dir->ff.ff_name);

  strlwr(dir->de.d_name);

  return &dir->de;

}

long telldir(DIR *dir)

{

  return dir->num_read;

}

void seekdir(DIR *dir, long loc)

{

  int i;

  rewinddir(dir);

  for (i=0; i<loc; i++)

    readdir(dir);

}

void rewinddir(DIR *dir)

{

  dir->num_read = 0;

}

int closedir(DIR *dir)

{

  free(dir->name);

  free(dir);

  return 0;

}