Merge branch 'lt/maint-wrap-zlib'
[git] / lockfile.c
1 /*
2  * Copyright (c) 2005, Junio C Hamano
3  */
4 #include "cache.h"
5
6 static struct lock_file *lock_file_list;
7 static const char *alternate_index_output;
8
9 static void remove_lock_file(void)
10 {
11         pid_t me = getpid();
12
13         while (lock_file_list) {
14                 if (lock_file_list->owner == me &&
15                     lock_file_list->filename[0]) {
16                         if (lock_file_list->fd >= 0)
17                                 close(lock_file_list->fd);
18                         unlink(lock_file_list->filename);
19                 }
20                 lock_file_list = lock_file_list->next;
21         }
22 }
23
24 static void remove_lock_file_on_signal(int signo)
25 {
26         remove_lock_file();
27         signal(signo, SIG_DFL);
28         raise(signo);
29 }
30
31 /*
32  * p = absolute or relative path name
33  *
34  * Return a pointer into p showing the beginning of the last path name
35  * element.  If p is empty or the root directory ("/"), just return p.
36  */
37 static char *last_path_elm(char *p)
38 {
39         /* r starts pointing to null at the end of the string */
40         char *r = strchr(p, '\0');
41
42         if (r == p)
43                 return p; /* just return empty string */
44
45         r--; /* back up to last non-null character */
46
47         /* back up past trailing slashes, if any */
48         while (r > p && *r == '/')
49                 r--;
50
51         /*
52          * then go backwards until I hit a slash, or the beginning of
53          * the string
54          */
55         while (r > p && *(r-1) != '/')
56                 r--;
57         return r;
58 }
59
60
61 /* We allow "recursive" symbolic links. Only within reason, though */
62 #define MAXDEPTH 5
63
64 /*
65  * p = path that may be a symlink
66  * s = full size of p
67  *
68  * If p is a symlink, attempt to overwrite p with a path to the real
69  * file or directory (which may or may not exist), following a chain of
70  * symlinks if necessary.  Otherwise, leave p unmodified.
71  *
72  * This is a best-effort routine.  If an error occurs, p will either be
73  * left unmodified or will name a different symlink in a symlink chain
74  * that started with p's initial contents.
75  *
76  * Always returns p.
77  */
78
79 static char *resolve_symlink(char *p, size_t s)
80 {
81         int depth = MAXDEPTH;
82
83         while (depth--) {
84                 char link[PATH_MAX];
85                 int link_len = readlink(p, link, sizeof(link));
86                 if (link_len < 0) {
87                         /* not a symlink anymore */
88                         return p;
89                 }
90                 else if (link_len < sizeof(link))
91                         /* readlink() never null-terminates */
92                         link[link_len] = '\0';
93                 else {
94                         warning("%s: symlink too long", p);
95                         return p;
96                 }
97
98                 if (is_absolute_path(link)) {
99                         /* absolute path simply replaces p */
100                         if (link_len < s)
101                                 strcpy(p, link);
102                         else {
103                                 warning("%s: symlink too long", p);
104                                 return p;
105                         }
106                 } else {
107                         /*
108                          * link is a relative path, so I must replace the
109                          * last element of p with it.
110                          */
111                         char *r = (char*)last_path_elm(p);
112                         if (r - p + link_len < s)
113                                 strcpy(r, link);
114                         else {
115                                 warning("%s: symlink too long", p);
116                                 return p;
117                         }
118                 }
119         }
120         return p;
121 }
122
123
124 static int lock_file(struct lock_file *lk, const char *path, int flags)
125 {
126         if (strlen(path) >= sizeof(lk->filename))
127                 return -1;
128         strcpy(lk->filename, path);
129         /*
130          * subtract 5 from size to make sure there's room for adding
131          * ".lock" for the lock file name
132          */
133         if (!(flags & LOCK_NODEREF))
134                 resolve_symlink(lk->filename, sizeof(lk->filename)-5);
135         strcat(lk->filename, ".lock");
136         lk->fd = open(lk->filename, O_RDWR | O_CREAT | O_EXCL, 0666);
137         if (0 <= lk->fd) {
138                 if (!lock_file_list) {
139                         signal(SIGINT, remove_lock_file_on_signal);
140                         signal(SIGHUP, remove_lock_file_on_signal);
141                         signal(SIGTERM, remove_lock_file_on_signal);
142                         signal(SIGQUIT, remove_lock_file_on_signal);
143                         signal(SIGPIPE, remove_lock_file_on_signal);
144                         atexit(remove_lock_file);
145                 }
146                 lk->owner = getpid();
147                 if (!lk->on_list) {
148                         lk->next = lock_file_list;
149                         lock_file_list = lk;
150                         lk->on_list = 1;
151                 }
152                 if (adjust_shared_perm(lk->filename))
153                         return error("cannot fix permission bits on %s",
154                                      lk->filename);
155         }
156         else
157                 lk->filename[0] = 0;
158         return lk->fd;
159 }
160
161 int hold_lock_file_for_update(struct lock_file *lk, const char *path, int flags)
162 {
163         int fd = lock_file(lk, path, flags);
164         if (fd < 0 && (flags & LOCK_DIE_ON_ERROR))
165                 die("unable to create '%s.lock': %s", path, strerror(errno));
166         return fd;
167 }
168
169 int hold_lock_file_for_append(struct lock_file *lk, const char *path, int flags)
170 {
171         int fd, orig_fd;
172
173         fd = lock_file(lk, path, flags);
174         if (fd < 0) {
175                 if (flags & LOCK_DIE_ON_ERROR)
176                         die("unable to create '%s.lock': %s", path, strerror(errno));
177                 return fd;
178         }
179
180         orig_fd = open(path, O_RDONLY);
181         if (orig_fd < 0) {
182                 if (errno != ENOENT) {
183                         if (flags & LOCK_DIE_ON_ERROR)
184                                 die("cannot open '%s' for copying", path);
185                         close(fd);
186                         return error("cannot open '%s' for copying", path);
187                 }
188         } else if (copy_fd(orig_fd, fd)) {
189                 if (flags & LOCK_DIE_ON_ERROR)
190                         exit(128);
191                 close(fd);
192                 return -1;
193         }
194         return fd;
195 }
196
197 int close_lock_file(struct lock_file *lk)
198 {
199         int fd = lk->fd;
200         lk->fd = -1;
201         return close(fd);
202 }
203
204 int commit_lock_file(struct lock_file *lk)
205 {
206         char result_file[PATH_MAX];
207         size_t i;
208         if (lk->fd >= 0 && close_lock_file(lk))
209                 return -1;
210         strcpy(result_file, lk->filename);
211         i = strlen(result_file) - 5; /* .lock */
212         result_file[i] = 0;
213         if (rename(lk->filename, result_file))
214                 return -1;
215         lk->filename[0] = 0;
216         return 0;
217 }
218
219 int hold_locked_index(struct lock_file *lk, int die_on_error)
220 {
221         return hold_lock_file_for_update(lk, get_index_file(),
222                                          die_on_error
223                                          ? LOCK_DIE_ON_ERROR
224                                          : 0);
225 }
226
227 void set_alternate_index_output(const char *name)
228 {
229         alternate_index_output = name;
230 }
231
232 int commit_locked_index(struct lock_file *lk)
233 {
234         if (alternate_index_output) {
235                 if (lk->fd >= 0 && close_lock_file(lk))
236                         return -1;
237                 if (rename(lk->filename, alternate_index_output))
238                         return -1;
239                 lk->filename[0] = 0;
240                 return 0;
241         }
242         else
243                 return commit_lock_file(lk);
244 }
245
246 void rollback_lock_file(struct lock_file *lk)
247 {
248         if (lk->filename[0]) {
249                 if (lk->fd >= 0)
250                         close(lk->fd);
251                 unlink(lk->filename);
252         }
253         lk->filename[0] = 0;
254 }