%%	options

copyright owner	=	Dirk Krause
copyright year	=	2015-xxxx
license		=	bsd



%%	header

/**	@file
	Delete directory specified by char name.

	CRT on Windows: Optional.
*/


#ifndef DK4CONF_H_INCLUDED
#include "dk4conf.h"
#endif

#ifndef DK4TYPES_H_INCLUDED
#include "dk4types.h"
#endif

#ifndef DK4ERROR_H_INCLUDED
#include "dk4error.h"
#endif

#ifdef __cplusplus
extern "C" {
#endif

/**	Remove empty directory.
	@param	fn	File name.
	@param	erp	Error report, may be NULL.
	@return	1 on success, 0 on error.
	
	Error codes:
	- DK4_E_INVALID_ARGUMENTS<br>
	  if fn is NULL,
	- DK4_E_RMDIR_FAILED<br>
	  with errno value in iDetails1 if the rmdir() function failed,
	- DK4_E_REMOVE_DIRECTORY_FAILED<br>
	  with GetLastError() value in lDetails1 if the RemoveDirectory()
	  function failed on Windows.
*/
int
dk4delete_directory_c8(const char *fn, dk4_er_t *erp);

#ifdef __cplusplus
}
#endif




%%	module

#include "dk4conf.h"

#if DK4_ON_WINDOWS
#ifndef WINDOWS_H_INCLUDED
#include <windows.h>
#define	WINDOWS_H_INCLUDED 1
#endif
#endif

#include "dk4deldir08.h"


#if DK4_HAVE_UNISTD_H
#include <unistd.h>
#endif

#if DK4_HAVE_IO_H
#include <io.h>
#endif

#if DK4_HAVE_DIRECT_H
#include <direct.h>
#endif

#if DK4_HAVE_ERRNO_H
#include <errno.h>
#endif



$!trace-include



int
dk4delete_directory_c8(const char *fn, dk4_er_t *erp)
{
  int		 back = 0;
  $? "+ dk4delete_directory_c8 \"%!8s\"", TR_8STR(fn)
  if (NULL != fn) {		$? ". fn ok"
#if DK4_ON_WINDOWS
    /* +++ Windows */
#if DK4_WIN_AVOID_CRT || DK4_WIN_DENY_CRT
    if (RemoveDirectoryA(fn)) {
      back = 1;
    } else {
      dk4error_set_ldetails(
        erp, DK4_E_REMOVE_DIRECTORY_FAILED,
        (long)((unsigned long)GetLastError())
      );
    }
#else
    if (RemoveDirectoryA(fn)) {
      back = 1;
    } else {
      if (NULL != erp) {
        errno = 0;
        if (0 == _rmdir(fn)) {
	  back = 1;
	} else {
	  dk4error_set_idetails(erp, DK4_E_RMDIR_FAILED, errno);
	}
      }
    }
#endif
    /* --- Windows */
#else
    /* +++ non-Windows */
    errno = 0;
    if (0 == rmdir(fn)) {
      back = 1;
    } else {
      dk4error_set_idetails(erp, DK4_E_RMDIR_FAILED, errno);
    }
    /* --- non-Windows */
#endif
  } else {			$? "! fn"
    dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS);
  } $? "- dk4delete_directory_c8 %d", back
  return back;
}