#include <windows.h>
#include <malloc.h>
#include <time.h>
#include <errno.h>

HMODULE __mingw_get_msvcrt_handle (void);
errno_t __cdecl _wasctime_s (wchar_t *, size_t, const struct tm *);
/* wchar_t * __cdecl _wasctime (const struct tm *); */
static errno_t __cdecl _int_wasctime_s (wchar_t *, size_t, const struct tm *);
static errno_t __cdecl _stub (wchar_t *, size_t, const struct tm *);

errno_t __cdecl (*__MINGW_IMP_SYMBOL(_wasctime_s))(wchar_t *, size_t, const struct tm *) = 
 _stub;

static errno_t __cdecl
_stub (wchar_t *d, size_t dn, const struct tm *pt)
{
  errno_t __cdecl (*f)(wchar_t *, size_t, const struct tm *) = __MINGW_IMP_SYMBOL(_wasctime_s);

  if (f == _stub)
    {
	f = (errno_t __cdecl (*)(wchar_t *, size_t, const struct tm *))
	    GetProcAddress (__mingw_get_msvcrt_handle (), "_wasctime_s");
	if (!f)
	  f = _int_wasctime_s;
	__MINGW_IMP_SYMBOL(_wasctime_s) = f;
    }
  return (*f)(d, dn, pt);
}

errno_t __cdecl
_wasctime_s (wchar_t *d, size_t dn, const struct tm *pt)
{
  return _stub (d, dn, pt);
}

static errno_t __cdecl
_int_wasctime_s (wchar_t *d, size_t dn, const struct tm *pt)
{
  wchar_t *tmp;
  size_t i;

  if (d && dn)
    d[0] = 0;
  if (!d || dn < 26 || !pt || (tmp = _wasctime (pt)) == NULL)
     {
        errno = EINVAL;
	return EINVAL;
     }
  for (i = 0; tmp[i] != 0; i++)
    d[i] = tmp[i];
  d[i] = 0;
  return 0;
}