1 #if defined(LIBC_SCCS) && !defined(lint)
2 static const char sccsid[] = "@(#)mktemp.c 8.1 (Berkeley) 6/4/93";
3 static const char rcsid[] = "$Id: mktemp.c,v 1.2 2005/04/27 04:56:11 sra Exp $";
4 #endif /* LIBC_SCCS and not lint */
5
6 /*
7 * Copyright (c) 1987, 1993
8 * The Regents of the University of California. All rights reserved.
9 *
10 * Redistribution and use in source and binary forms, with or without
11 * modification, are permitted provided that the following conditions
12 * are met:
13 * 1. Redistributions of source code must retain the above copyright
14 * notice, this list of conditions and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 * notice, this list of conditions and the following disclaimer in the
17 * documentation and/or other materials provided with the distribution.
18 * 3. All advertising materials mentioning features or use of this software
19 * must display the following acknowledgement:
20 * This product includes software developed by the University of
21 * California, Berkeley and its contributors.
22 * 4. Neither the name of the University nor the names of its contributors
23 * may be used to endorse or promote products derived from this software
24 * without specific prior written permission.
25 *
26 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
27 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
28 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
29 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
30 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
31 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
32 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
33 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
34 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
35 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
36 * SUCH DAMAGE.
37 */
38
39 /*
40 * Portions Copyright (c) 1993 by Digital Equipment Corporation.
41 *
42 * Permission to use, copy, modify, and distribute this software for any
43 * purpose with or without fee is hereby granted, provided that the above
44 * copyright notice and this permission notice appear in all copies, and that
45 * the name of Digital Equipment Corporation not be used in advertising or
46 * publicity pertaining to distribution of the document or software without
47 * specific, written prior permission.
48 *
49 * THE SOFTWARE IS PROVIDED "AS IS" AND DIGITAL EQUIPMENT CORP. DISCLAIMS ALL
50 * WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES
51 * OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL DIGITAL EQUIPMENT
52 * CORPORATION BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
53 * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
54 * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
55 * ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
56 * SOFTWARE.
57 */
58
59 #include "port_before.h"
60
61 #include <sys/types.h>
62 #include <sys/stat.h>
63
64 #include <ctype.h>
65 #include <errno.h>
66 #include <fcntl.h>
67 #include <stdio.h>
68
69 #include "port_after.h"
70
71 #if (!defined(NEED_MKTEMP)) && (!defined(NEED_MKSTEMP))
72 int __mktemp_unneeded__;
73 #else
74
75 static int gettemp(char *path, int *doopen);
76
77 #ifdef NEED_MKSTEMP
mkstemp(char * path)78 mkstemp(char *path) {
79 int fd;
80
81 return (gettemp(path, &fd) ? fd : -1);
82 }
83 #endif
84
85 #ifdef NEED_MKTEMP
86 char *
mktemp(char * path)87 mktemp(char *path) {
88 return(gettemp(path, (int *)NULL) ? path : (char *)NULL);
89 }
90 #endif
91
92 static int
gettemp(char * path,int * doopen)93 gettemp(char *path, int *doopen) {
94 char *start, *trv;
95 struct stat sbuf;
96 u_int pid;
97
98 pid = getpid();
99 for (trv = path; *trv; ++trv); /*%< extra X's get set to 0's */
100 while (*--trv == 'X') {
101 *trv = (pid % 10) + '0';
102 pid /= 10;
103 }
104
105 /*
106 * check the target directory; if you have six X's and it
107 * doesn't exist this runs for a *very* long time.
108 */
109 for (start = trv + 1;; --trv) {
110 if (trv <= path)
111 break;
112 if (*trv == '/') {
113 *trv = '\0';
114 if (stat(path, &sbuf))
115 return(0);
116 if (!S_ISDIR(sbuf.st_mode)) {
117 errno = ENOTDIR;
118 return(0);
119 }
120 *trv = '/';
121 break;
122 }
123 }
124
125 for (;;) {
126 if (doopen) {
127 if ((*doopen =
128 open(path, O_CREAT|O_EXCL|O_RDWR, 0600)) >= 0)
129 return(1);
130 if (errno != EEXIST)
131 return(0);
132 }
133 else if (stat(path, &sbuf))
134 return(errno == ENOENT ? 1 : 0);
135
136 /* tricky little algorithm for backward compatibility */
137 for (trv = start;;) {
138 if (!*trv)
139 return(0);
140 if (*trv == 'z')
141 *trv++ = 'a';
142 else {
143 if (isdigit(*trv))
144 *trv = 'a';
145 else
146 ++*trv;
147 break;
148 }
149 }
150 }
151 /*NOTREACHED*/
152 }
153
154 #endif /*NEED_MKTEMP*/
155
156 /*! \file */
157