#include "mkdtemp.h"

#include <stdint.h>

#include <string.h>

#include <errno.h>

#include <io.h>

char *

mkdtemp(char *tmpl)

{

    // Implementation based on GLIBC implementation.

    static const char letters[] =

        "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789";

    static uint64_t value;

    const unsigned int ATTEMPTS_MIN = (62 * 62 * 62);

    int save_errno = errno;

    size_t len = strlen(tmpl);

    if (len < 6 || strcmp(&tmpl[len - 6], "XXXXXX"))

    {

        errno = EINVAL;

        return NULL;

    }

    char *XXXXXX = &tmpl[len - 6];

    uint64_t random_time_bits = time(NULL);

    value += (random_time_bits ^ getpid());

    unsigned int count;

    for (count = 0; count < ATTEMPTS_MIN; value += 7777, ++count)

    {

        uint64_t v = value;

        XXXXXX[0] = letters[v % 62];

        v /= 62;

        XXXXXX[1] = letters[v % 62];

        v /= 62;

        XXXXXX[2] = letters[v % 62];

        v /= 62;

        XXXXXX[3] = letters[v % 62];

        v /= 62;

        XXXXXX[4] = letters[v % 62];

        v /= 62;

        XXXXXX[5] = letters[v % 62];

		if (mkdir(tmpl) == 0)

        {

            errno = save_errno;

			return tmpl;

        }

		if (errno != EEXIST)

			return NULL;

    }

    errno = EEXIST;

    return NULL;

}