Logo Search packages:      
Sourcecode: jupp version File versions  Download package

dir.c

/* $MirOS: contrib/code/jupp/dir.c,v 1.2 2008/05/13 13:08:21 tg Exp $ */
/*
 *    Directory package for older UNIXs
 *    Copyright
 *          (C) 1992 Joseph H. Allen
 *
 *    This file is part of JOE (Joe's Own Editor)
 */

00010 struct direct {
      short d_ino;
      unsigned char d_name[14];
};

void *opendir(unsigned char *name)
{
      return fopen(name, "r");
}

struct direct *readdir(void *f)
{
      static struct direct direct;

      while (1 == fread(&direct, sizeof(struct direct), 1, (FILE *) f)) {
            if (direct.d_ino) {
                  return &direct;
            }
      }
      return 0;
}

void closedir(FILE *f)
{
      fclose(f);
}

int mkdir(unsigned char *s)
{
      unsigned char *y = NULL;
      int rtval;

      y = vsncpy(sv(y), sc("/bin/mkdir "));
      y = vsncpy(sv(y), sz(s));
      y = vsncpy(sv(y), sc(" 2>/dev/null"));
      tickoff();
      rtval = system(y);
      tickon();
      vsrm(y);
      return rtval;
}

Generated by  Doxygen 1.6.0   Back to index