← Back to branch summary

~ubuntu-branches/ubuntu/precise/kompozer/precise

« back to all changes in this revision

Viewing changes to mozilla/dbm/src/mktemp.c

  • Committer: Bazaar Package Importer
  • Author(s): Anthony Yarusso
  • Date: 2007-08-27 01:11:03 UTC
  • Revision ID: james.westby@ubuntu.com-20070827011103-2jgf4s6532gqu2ka
Tags: upstream-0.7.10
Import upstream version 0.7.10

Show diffs side-by-side

added added

removed removed

Lines of Context:
mozilla/dbm/src/mktemp.c
 
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. All advertising materials mentioning features or use of this software
 
14
 *    must display the following acknowledgement:
 
15
 *      This product includes software developed by the University of
 
16
 *      California, Berkeley and its contributors.
 
17
 * 4. Neither the name of the University nor the names of its contributors
 
18
 *    may be used to endorse or promote products derived from this software
 
19
 *    without specific prior written permission.
 
20
 *
 
21
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 
22
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 
23
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 
24
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 
25
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 
26
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 
27
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 
28
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 
29
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 
30
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 
31
 * SUCH DAMAGE.
 
32
 */
 
33
 
 
34
#if defined(LIBC_SCCS) && !defined(lint)
 
35
static char sccsid[] = "@(#)mktemp.c    8.1 (Berkeley) 6/4/93";
 
36
#endif /* LIBC_SCCS and not lint */
 
37
 
 
38
#include "watcomfx.h"
 
39
 
 
40
#ifdef macintosh
 
41
#include <unix.h>
 
42
#else
 
43
#include <sys/types.h>
 
44
#include <sys/stat.h>
 
45
#endif
 
46
#include <fcntl.h>
 
47
#include <errno.h>
 
48
#include <stdio.h>
 
49
#include <ctype.h>
 
50
#include "mcom_db.h"
 
51
 
 
52
#if !defined(_WINDOWS) && !defined(XP_OS2_VACPP)
 
53
#include <unistd.h>
 
54
#endif
 
55
 
 
56
#ifdef XP_OS2_VACPP
 
57
#include <process.h>
 
58
#endif
 
59
 
 
60
#ifdef _WINDOWS
 
61
#include <process.h>
 
62
#include "winfile.h"
 
63
#endif
 
64
 
 
65
static int _gettemp(char *path, register int *doopen, int extraFlags);
 
66
 
 
67
int
 
68
mkstemp(char *path)
 
69
{
 
70
#ifdef XP_OS2
 
71
        FILE *temp = tmpfile();
 
72
 
 
73
        return (temp ? fileno(temp) : -1);
 
74
#else
 
75
        int fd;
 
76
 
 
77
        return (_gettemp(path, &fd, 0) ? fd : -1);
 
78
#endif
 
79
}
 
80
 
 
81
int
 
82
mkstempflags(char *path, int extraFlags)
 
83
{
 
84
        int fd;
 
85
 
 
86
        return (_gettemp(path, &fd, extraFlags) ? fd : -1);
 
87
}
 
88
 
 
89
char *
 
90
mktemp(char *path)
 
91
{
 
92
        return(_gettemp(path, (int *)NULL, 0) ? path : (char *)NULL);
 
93
}
 
94
 
 
95
/* NB: This routine modifies its input string, and does not always restore it.
 
96
** returns 1 on success, 0 on failure.
 
97
*/
 
98
static int 
 
99
_gettemp(char *path, register int *doopen, int extraFlags)
 
100
{    
 
101
#if !defined(_WINDOWS) || defined(_WIN32)
 
102
        extern int errno;                    
 
103
#endif
 
104
        register char *start, *trv;
 
105
        struct stat sbuf;
 
106
        unsigned int pid;
 
107
 
 
108
        pid = getpid();
 
109
        for (trv = path; *trv; ++trv);          /* extra X's get set to 0's */
 
110
        while (*--trv == 'X') {
 
111
                *trv = (pid % 10) + '0';
 
112
                pid /= 10;
 
113
        }
 
114
 
 
115
        /*
 
116
         * check the target directory; if you have six X's and it
 
117
         * doesn't exist this runs for a *very* long time.
 
118
         */
 
119
        for (start = trv + 1;; --trv) {
 
120
                char saved;
 
121
                if (trv <= path)
 
122
                        break;
 
123
                saved = *trv;
 
124
                if (saved == '/' || saved == '\\') {
 
125
                        int rv;
 
126
                        *trv = '\0';
 
127
                        rv = stat(path, &sbuf);
 
128
                        *trv = saved;
 
129
                        if (rv)
 
130
                                return(0);
 
131
                        if (!S_ISDIR(sbuf.st_mode)) {
 
132
                                errno = ENOTDIR;
 
133
                                return(0);
 
134
                        }
 
135
                        break;
 
136
                }
 
137
        }
 
138
 
 
139
        for (;;) {
 
140
                if (doopen) {
 
141
                        if ((*doopen =
 
142
                            open(path, O_CREAT|O_EXCL|O_RDWR|extraFlags, 0600)) >= 0)
 
143
                                return(1);
 
144
                        if (errno != EEXIST)
 
145
                                return(0);
 
146
                }
 
147
                else if (stat(path, &sbuf))
 
148
                        return(errno == ENOENT ? 1 : 0);
 
149
 
 
150
                /* tricky little algorithm for backward compatibility */
 
151
                for (trv = start;;) {
 
152
                        if (!*trv)
 
153
                                return(0);
 
154
                        if (*trv == 'z')
 
155
                                *trv++ = 'a';
 
156
                        else {
 
157
                                if (isdigit(*trv))
 
158
                                        *trv = 'a';
 
159
                                else
 
160
                                        ++*trv;
 
161
                                break;
 
162
                        }
 
163
                }
 
164
        }
 
165
        /*NOTREACHED*/
 
166
}