/*
 * Copyright (c) 1987 Regents of the University of California.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms are permitted
 * provided that the above copyright notice and this paragraph are
 * duplicated in all such forms and that any documentation,
 * advertising materials, and other materials related to such
 * distribution and use acknowledge that the software was developed
 * by the University of California, Berkeley.  The name of the
 * University may not be used to endorse or promote products derived
 * from this software without specific prior written permission.
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
 * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 */

 /* Modified for Amiga GCC by Ray Burr. */

#if defined(LIBC_SCCS) && !defined(lint)
static char sccsid[] = "@(#)mktemp.c    5.7 (Berkeley) 6/27/88";
#endif /* LIBC_SCCS and not lint */

#include <sys/types.h>
#include <sys/file.h>
#include <sys/stat.h>
#include <errno.h>
#include <stdio.h>
#include <ctype.h>

#define YES     1
#define NO      0

#define CURRENT_DIR ""

int getpid (void);
int open (char *, int, ...);

static int _gettemp();

int
mkstemp(as)
        char    *as;
{
        int     fd;

        return (_gettemp(as, &fd) ? fd : -1);
}

char *
mktemp(as)
        char    *as;
{
        return(_gettemp(as, (int *)NULL) ? as : (char *)NULL);
}

static int
_gettemp(as, doopen)
        char    *as;
        register int    *doopen;
{
        extern int      errno;
        register char   *start, *trv;
        struct stat     sbuf;
        u_int   pid;

        pid = getpid();

        /* extra X's get set to 0's */
        for (trv = as; *trv; ++trv);
        while (*--trv == 'X') {
                *trv = (pid % 10) + '0';
                pid /= 10;
        }

        /*
         * check for write permission on target directory; if you have
         * six X's and you can't write the directory, this will run for
         * a *very* long time.
         */
        for (start = ++trv; trv > as && *trv != '/' && *trv != ':'; --trv)
		;
        if (*trv == '/' || *trv == ':') {
		char ch;
		if (*trv == ':' || trv == as || trv[-1] == '/')
			trv++;
		ch = *trv;
                *trv = '\0';
                if (stat(as, &sbuf) || !(sbuf.st_mode & S_IFDIR))
                        return(NO);
                *trv = ch;
        }
        else if (stat(CURRENT_DIR, &sbuf) == -1)
                return(NO);

        for (;;) {
                if (doopen) {
                    if ((*doopen = open(as, O_CREAT|O_EXCL|O_RDWR, 0600)) >= 0)
                        return(YES);
                    if (errno != EEXIST)
                        return(NO);
                }
                else if (stat(as, &sbuf))
                        return(errno == ENOENT ? YES : NO);

                /* tricky little algorithm for backward compatibility */
                for (trv = start;;) {
                        if (!*trv)
                                return(NO);
                        if (*trv == 'z')
                                *trv++ = 'a';
                        else {
                                if (isdigit(*trv))
                                        *trv = 'a';
                                else
                                        ++*trv;
                                break;
                        }
                }
        }
        /*NOTREACHED*/
}