Return to mktemp.c CVS log

Up to [local] / prex-old / usr / lib / libc / stdio

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: }