home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 1 / RISC_DISC_1.iso / pd_share / code / unixlib / !UnixLib / src / unix / c / rmdir < prev    next >
Encoding:
Text File  |  1994-09-30  |  585 b   |  43 lines
  1. static char sccs_id[] = "@(#) rmdir.c 1.0 " __DATE__ " HJR";
  2.  
  3. /* rmdir.c (c) Copyright 1990 H.Rogers */
  4.  
  5. #include <errno.h>
  6.  
  7. #include "sys/types.h"
  8. #include "sys/unix.h"
  9. #include "sys/os.h"
  10.  
  11. int
  12. rmdir (register char *dir)
  13. {
  14.   int r[6];
  15.   os_error *e;
  16.  
  17.   dir = __uname (dir, 0);
  18.  
  19.   if (!os_file (0x05, dir, r))
  20.     {
  21.       switch (r[0])
  22.     {
  23.     case 2:
  24.       break;
  25.     case 1:
  26.       errno = ENOTDIR;
  27.       return (-1);
  28.       break;
  29.     default:
  30.       errno = ENOENT;
  31.       return (-1);
  32.       break;
  33.     }
  34.     }
  35.   if (e = os_fsctrl (27, dir, 0, 0642))
  36.     {
  37.       __seterr (e);
  38.       return (-1);
  39.     }
  40.  
  41.   return (0);
  42. }
  43.