Annotation of prex-old/usr/lib/libc/stdio/mktemp.c, Revision 1.1
1.1 ! nbrk 1: /*
! 2: * Copyright (c) 1987, 1993
! 3: * The Regents of the University of California. All rights reserved.
! 4: *
! 5: * Redistribution and use in source and binary forms, with or without
! 6: * modification, are permitted provided that the following conditions
! 7: * are met:
! 8: * 1. Redistributions of source code must retain the above copyright
! 9: * notice, this list of conditions and the following disclaimer.
! 10: * 2. Redistributions in binary form must reproduce the above copyright
! 11: * notice, this list of conditions and the following disclaimer in the
! 12: * documentation and/or other materials provided with the distribution.
! 13: * 3. Neither the name of the University nor the names of its contributors
! 14: * may be used to endorse or promote products derived from this software
! 15: * without specific prior written permission.
! 16: *
! 17: * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
! 18: * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
! 19: * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
! 20: * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
! 21: * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
! 22: * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
! 23: * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
! 24: * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
! 25: * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
! 26: * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
! 27: * SUCH DAMAGE.
! 28: */
! 29:
! 30: #include <sys/types.h>
! 31: #include <sys/stat.h>
! 32: #include <fcntl.h>
! 33: #include <errno.h>
! 34: #include <stdio.h>
! 35: #include <ctype.h>
! 36: #include <unistd.h>
! 37:
! 38: static int _gettemp(char *, int *);
! 39:
! 40: int
! 41: mkstemp(path)
! 42: char *path;
! 43: {
! 44: int fd;
! 45:
! 46: return (_gettemp(path, &fd) ? fd : -1);
! 47: }
! 48:
! 49: char *
! 50: mktemp(path)
! 51: char *path;
! 52: {
! 53: return(_gettemp(path, (int *)NULL) ? path : (char *)NULL);
! 54: }
! 55:
! 56: static int
! 57: _gettemp(path, doopen)
! 58: char *path;
! 59: int *doopen;
! 60: {
! 61: extern int errno;
! 62: char *start, *trv;
! 63: struct stat sbuf;
! 64: u_int pid;
! 65:
! 66: pid = getpid();
! 67: for (trv = path; *trv; ++trv); /* extra X's get set to 0's */
! 68: while (*--trv == 'X') {
! 69: *trv = (pid % 10) + '0';
! 70: pid /= 10;
! 71: }
! 72:
! 73: /*
! 74: * check the target directory; if you have six X's and it
! 75: * doesn't exist this runs for a *very* long time.
! 76: */
! 77: for (start = trv + 1;; --trv) {
! 78: if (trv <= path)
! 79: break;
! 80: if (*trv == '/') {
! 81: *trv = '\0';
! 82: if (stat(path, &sbuf))
! 83: return(0);
! 84: if (!S_ISDIR(sbuf.st_mode)) {
! 85: errno = ENOTDIR;
! 86: return(0);
! 87: }
! 88: *trv = '/';
! 89: break;
! 90: }
! 91: }
! 92:
! 93: for (;;) {
! 94: if (doopen) {
! 95: if ((*doopen =
! 96: open(path, O_CREAT|O_EXCL|O_RDWR, 0600)) >= 0)
! 97: return(1);
! 98: if (errno != EEXIST)
! 99: return(0);
! 100: }
! 101: else if (stat(path, &sbuf))
! 102: return(errno == ENOENT ? 1 : 0);
! 103:
! 104: /* tricky little algorithm for backward compatibility */
! 105: for (trv = start;;) {
! 106: if (!*trv)
! 107: return(0);
! 108: if (*trv == 'z')
! 109: *trv++ = 'a';
! 110: else {
! 111: if (isdigit((unsigned char)*trv))
! 112: *trv = 'a';
! 113: else
! 114: ++*trv;
! 115: break;
! 116: }
! 117: }
! 118: }
! 119: /*NOTREACHED*/
! 120: }
CVSweb