/****************************************************************************
 *
 * $Source: /cvsroot/riscossmbserver/smbserver/src/unix/c/rmdir,v $
 * $Date: 1999/11/23 22:05:12 $
 * $Revision: 1.2 $
 * $State: Exp $
 * $Author: david $
 *
 * $Log: rmdir,v $
 * Revision 1.2  1999/11/23 22:05:12  david
 * Increased filename length to MAXPATHLEN
 * uname and dirent - support for spaces in a filename which
 * is translated to 0xa0 on RISCOS and mapping of obscure DOS
 * filename characters to RICOS characters as 2-327 or the PRMs
 *
 * Revision 1.1  1999/05/16 12:00:09  david
 * Initial revision
 *
 * Revision 1.2  1996/10/30 22:04:51  unixlib
 * Massive changes made by Nick Burret and Peter Burwood.
 *
 * Revision 1.1  1996/04/19 21:35:27  simon
 * Initial revision
 *
 ***************************************************************************/

static const char rcs_id[] = "$Id: rmdir,v 1.2 1999/11/23 22:05:12 david Exp $";
       
#if 0
#include <errno.h>
#include <unistd.h>

#include <sys/types.h>
#include <sys/os.h>
     
#else

#include "includes.h"
#include "swis.h"
#include "my_os.h"

/*extern _kernel_oserror *my_os_fsctrl(int r0, char *name, int r2, int r3);
#define os_file my_os_file
#define os_swi  my_os_swi
#define os_fsctrl my_os_fsctrl  */

#endif

int rmdir (const char *directory)
{
  int r[10];
  _kernel_oserror *e;
  char *dir;

  dir = __uname ((char *)directory, 0);

  if (!myos_file (0x05, dir, r))
    {
      switch (r[0])
	{
	case 2:
	  break;
	case 1:
	  errno = ENOTDIR;
	  return (-1);
	  break;
	default:
	  errno = ENOENT;
	  return (-1);
	  break;
	}
    }
  if (e = myos_fsctrl (27, dir, 0, 0642))
    {
    /*  __seterr (e); */
      return (-1);
    }

  return (0);
}
