[BACK]Return to compat_mkdtemp.c CVS log [TXT][DIR] Up to [cvsweb.bsd.lv] / mandoc

File: [cvsweb.bsd.lv] / mandoc / compat_mkdtemp.c (download)

Revision 1.1, Thu Mar 19 14:57:29 2015 UTC (5 years, 6 months ago) by schwarze
Branch: MAIN

Compat glue needed for Solaris 9 and 10.

Thanks to Sevan Janiyan <venture37 at geeklan dot co dot uk> for
reporting the Solaris 10 issues, to Jan Holzhueter <jh at opencsw
dot org> for some additional insight, and to OpenCSW in general for
providing me with a Solaris 9/10/11 testing environment.

#include "config.h"

#if HAVE_MKDTEMP

int dummy;

#else

/*	$Id: compat_mkdtemp.c,v 1.1 2015/03/19 14:57:29 schwarze Exp $	*/
/*
 * Copyright (c) 2015 Ingo Schwarze <schwarze@openbsd.org>
 *
 * Permission to use, copy, modify, and distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 *
 * The algorithm of this function is inspired by OpenBSD mkdtemp(3)
 * by Theo de Raadt and Todd Miller, but the code differs.
 */

#include <sys/stat.h>
#include <errno.h>
#include <limits.h>
#include <stdlib.h>
#include <string.h>

char *
mkdtemp(char *path)
{
	char		*start, *cp;
	unsigned	 int tries;

	start = strchr(path, '\0');
	while (start > path && start[-1] == 'X')
		start--;

	for (tries = INT_MAX; tries; tries--) {
		if (mktemp(path) == NULL) {
			errno = EEXIST;
			return(NULL);
		}
		if (mkdir(path, S_IRUSR | S_IWUSR | S_IXUSR) == 0)
			return(path);
		if (errno != EEXIST)
			return(NULL);
		for (cp = start; *cp != '\0'; cp++)
			*cp = 'X';
	}
	errno = EEXIST;
	return(NULL);
}

#endif