msvc: add pragmas for common warnings
[git] / wrapper.c
1 /*
2  * Various trivial helper wrappers around standard functions
3  */
4 #include "cache.h"
5 #include "config.h"
6
7 static void do_nothing(size_t size)
8 {
9 }
10
11 static void (*try_to_free_routine)(size_t size) = do_nothing;
12
13 static int memory_limit_check(size_t size, int gentle)
14 {
15         static size_t limit = 0;
16         if (!limit) {
17                 limit = git_env_ulong("GIT_ALLOC_LIMIT", 0);
18                 if (!limit)
19                         limit = SIZE_MAX;
20         }
21         if (size > limit) {
22                 if (gentle) {
23                         error("attempting to allocate %"PRIuMAX" over limit %"PRIuMAX,
24                               (uintmax_t)size, (uintmax_t)limit);
25                         return -1;
26                 } else
27                         die("attempting to allocate %"PRIuMAX" over limit %"PRIuMAX,
28                             (uintmax_t)size, (uintmax_t)limit);
29         }
30         return 0;
31 }
32
33 try_to_free_t set_try_to_free_routine(try_to_free_t routine)
34 {
35         try_to_free_t old = try_to_free_routine;
36         if (!routine)
37                 routine = do_nothing;
38         try_to_free_routine = routine;
39         return old;
40 }
41
42 char *xstrdup(const char *str)
43 {
44         char *ret = strdup(str);
45         if (!ret) {
46                 try_to_free_routine(strlen(str) + 1);
47                 ret = strdup(str);
48                 if (!ret)
49                         die("Out of memory, strdup failed");
50         }
51         return ret;
52 }
53
54 static void *do_xmalloc(size_t size, int gentle)
55 {
56         void *ret;
57
58         if (memory_limit_check(size, gentle))
59                 return NULL;
60         ret = malloc(size);
61         if (!ret && !size)
62                 ret = malloc(1);
63         if (!ret) {
64                 try_to_free_routine(size);
65                 ret = malloc(size);
66                 if (!ret && !size)
67                         ret = malloc(1);
68                 if (!ret) {
69                         if (!gentle)
70                                 die("Out of memory, malloc failed (tried to allocate %lu bytes)",
71                                     (unsigned long)size);
72                         else {
73                                 error("Out of memory, malloc failed (tried to allocate %lu bytes)",
74                                       (unsigned long)size);
75                                 return NULL;
76                         }
77                 }
78         }
79 #ifdef XMALLOC_POISON
80         memset(ret, 0xA5, size);
81 #endif
82         return ret;
83 }
84
85 void *xmalloc(size_t size)
86 {
87         return do_xmalloc(size, 0);
88 }
89
90 static void *do_xmallocz(size_t size, int gentle)
91 {
92         void *ret;
93         if (unsigned_add_overflows(size, 1)) {
94                 if (gentle) {
95                         error("Data too large to fit into virtual memory space.");
96                         return NULL;
97                 } else
98                         die("Data too large to fit into virtual memory space.");
99         }
100         ret = do_xmalloc(size + 1, gentle);
101         if (ret)
102                 ((char*)ret)[size] = 0;
103         return ret;
104 }
105
106 void *xmallocz(size_t size)
107 {
108         return do_xmallocz(size, 0);
109 }
110
111 void *xmallocz_gently(size_t size)
112 {
113         return do_xmallocz(size, 1);
114 }
115
116 /*
117  * xmemdupz() allocates (len + 1) bytes of memory, duplicates "len" bytes of
118  * "data" to the allocated memory, zero terminates the allocated memory,
119  * and returns a pointer to the allocated memory. If the allocation fails,
120  * the program dies.
121  */
122 void *xmemdupz(const void *data, size_t len)
123 {
124         return memcpy(xmallocz(len), data, len);
125 }
126
127 char *xstrndup(const char *str, size_t len)
128 {
129         char *p = memchr(str, '\0', len);
130         return xmemdupz(str, p ? p - str : len);
131 }
132
133 void *xrealloc(void *ptr, size_t size)
134 {
135         void *ret;
136
137         memory_limit_check(size, 0);
138         ret = realloc(ptr, size);
139         if (!ret && !size)
140                 ret = realloc(ptr, 1);
141         if (!ret) {
142                 try_to_free_routine(size);
143                 ret = realloc(ptr, size);
144                 if (!ret && !size)
145                         ret = realloc(ptr, 1);
146                 if (!ret)
147                         die("Out of memory, realloc failed");
148         }
149         return ret;
150 }
151
152 void *xcalloc(size_t nmemb, size_t size)
153 {
154         void *ret;
155
156         if (unsigned_mult_overflows(nmemb, size))
157                 die("data too large to fit into virtual memory space");
158
159         memory_limit_check(size * nmemb, 0);
160         ret = calloc(nmemb, size);
161         if (!ret && (!nmemb || !size))
162                 ret = calloc(1, 1);
163         if (!ret) {
164                 try_to_free_routine(nmemb * size);
165                 ret = calloc(nmemb, size);
166                 if (!ret && (!nmemb || !size))
167                         ret = calloc(1, 1);
168                 if (!ret)
169                         die("Out of memory, calloc failed");
170         }
171         return ret;
172 }
173
174 /*
175  * Limit size of IO chunks, because huge chunks only cause pain.  OS X
176  * 64-bit is buggy, returning EINVAL if len >= INT_MAX; and even in
177  * the absence of bugs, large chunks can result in bad latencies when
178  * you decide to kill the process.
179  *
180  * We pick 8 MiB as our default, but if the platform defines SSIZE_MAX
181  * that is smaller than that, clip it to SSIZE_MAX, as a call to
182  * read(2) or write(2) larger than that is allowed to fail.  As the last
183  * resort, we allow a port to pass via CFLAGS e.g. "-DMAX_IO_SIZE=value"
184  * to override this, if the definition of SSIZE_MAX given by the platform
185  * is broken.
186  */
187 #ifndef MAX_IO_SIZE
188 # define MAX_IO_SIZE_DEFAULT (8*1024*1024)
189 # if defined(SSIZE_MAX) && (SSIZE_MAX < MAX_IO_SIZE_DEFAULT)
190 #  define MAX_IO_SIZE SSIZE_MAX
191 # else
192 #  define MAX_IO_SIZE MAX_IO_SIZE_DEFAULT
193 # endif
194 #endif
195
196 /**
197  * xopen() is the same as open(), but it die()s if the open() fails.
198  */
199 int xopen(const char *path, int oflag, ...)
200 {
201         mode_t mode = 0;
202         va_list ap;
203
204         /*
205          * va_arg() will have undefined behavior if the specified type is not
206          * compatible with the argument type. Since integers are promoted to
207          * ints, we fetch the next argument as an int, and then cast it to a
208          * mode_t to avoid undefined behavior.
209          */
210         va_start(ap, oflag);
211         if (oflag & O_CREAT)
212                 mode = va_arg(ap, int);
213         va_end(ap);
214
215         for (;;) {
216                 int fd = open(path, oflag, mode);
217                 if (fd >= 0)
218                         return fd;
219                 if (errno == EINTR)
220                         continue;
221
222                 if ((oflag & O_RDWR) == O_RDWR)
223                         die_errno(_("could not open '%s' for reading and writing"), path);
224                 else if ((oflag & O_WRONLY) == O_WRONLY)
225                         die_errno(_("could not open '%s' for writing"), path);
226                 else
227                         die_errno(_("could not open '%s' for reading"), path);
228         }
229 }
230
231 static int handle_nonblock(int fd, short poll_events, int err)
232 {
233         struct pollfd pfd;
234
235         if (err != EAGAIN && err != EWOULDBLOCK)
236                 return 0;
237
238         pfd.fd = fd;
239         pfd.events = poll_events;
240
241         /*
242          * no need to check for errors, here;
243          * a subsequent read/write will detect unrecoverable errors
244          */
245         poll(&pfd, 1, -1);
246         return 1;
247 }
248
249 /*
250  * xread() is the same a read(), but it automatically restarts read()
251  * operations with a recoverable error (EAGAIN and EINTR). xread()
252  * DOES NOT GUARANTEE that "len" bytes is read even if the data is available.
253  */
254 ssize_t xread(int fd, void *buf, size_t len)
255 {
256         ssize_t nr;
257         if (len > MAX_IO_SIZE)
258             len = MAX_IO_SIZE;
259         while (1) {
260                 nr = read(fd, buf, len);
261                 if (nr < 0) {
262                         if (errno == EINTR)
263                                 continue;
264                         if (handle_nonblock(fd, POLLIN, errno))
265                                 continue;
266                 }
267                 return nr;
268         }
269 }
270
271 /*
272  * xwrite() is the same a write(), but it automatically restarts write()
273  * operations with a recoverable error (EAGAIN and EINTR). xwrite() DOES NOT
274  * GUARANTEE that "len" bytes is written even if the operation is successful.
275  */
276 ssize_t xwrite(int fd, const void *buf, size_t len)
277 {
278         ssize_t nr;
279         if (len > MAX_IO_SIZE)
280             len = MAX_IO_SIZE;
281         while (1) {
282                 nr = write(fd, buf, len);
283                 if (nr < 0) {
284                         if (errno == EINTR)
285                                 continue;
286                         if (handle_nonblock(fd, POLLOUT, errno))
287                                 continue;
288                 }
289
290                 return nr;
291         }
292 }
293
294 /*
295  * xpread() is the same as pread(), but it automatically restarts pread()
296  * operations with a recoverable error (EAGAIN and EINTR). xpread() DOES
297  * NOT GUARANTEE that "len" bytes is read even if the data is available.
298  */
299 ssize_t xpread(int fd, void *buf, size_t len, off_t offset)
300 {
301         ssize_t nr;
302         if (len > MAX_IO_SIZE)
303                 len = MAX_IO_SIZE;
304         while (1) {
305                 nr = pread(fd, buf, len, offset);
306                 if ((nr < 0) && (errno == EAGAIN || errno == EINTR))
307                         continue;
308                 return nr;
309         }
310 }
311
312 ssize_t read_in_full(int fd, void *buf, size_t count)
313 {
314         char *p = buf;
315         ssize_t total = 0;
316
317         while (count > 0) {
318                 ssize_t loaded = xread(fd, p, count);
319                 if (loaded < 0)
320                         return -1;
321                 if (loaded == 0)
322                         return total;
323                 count -= loaded;
324                 p += loaded;
325                 total += loaded;
326         }
327
328         return total;
329 }
330
331 ssize_t write_in_full(int fd, const void *buf, size_t count)
332 {
333         const char *p = buf;
334         ssize_t total = 0;
335
336         while (count > 0) {
337                 ssize_t written = xwrite(fd, p, count);
338                 if (written < 0)
339                         return -1;
340                 if (!written) {
341                         errno = ENOSPC;
342                         return -1;
343                 }
344                 count -= written;
345                 p += written;
346                 total += written;
347         }
348
349         return total;
350 }
351
352 ssize_t pread_in_full(int fd, void *buf, size_t count, off_t offset)
353 {
354         char *p = buf;
355         ssize_t total = 0;
356
357         while (count > 0) {
358                 ssize_t loaded = xpread(fd, p, count, offset);
359                 if (loaded < 0)
360                         return -1;
361                 if (loaded == 0)
362                         return total;
363                 count -= loaded;
364                 p += loaded;
365                 total += loaded;
366                 offset += loaded;
367         }
368
369         return total;
370 }
371
372 int xdup(int fd)
373 {
374         int ret = dup(fd);
375         if (ret < 0)
376                 die_errno("dup failed");
377         return ret;
378 }
379
380 /**
381  * xfopen() is the same as fopen(), but it die()s if the fopen() fails.
382  */
383 FILE *xfopen(const char *path, const char *mode)
384 {
385         for (;;) {
386                 FILE *fp = fopen(path, mode);
387                 if (fp)
388                         return fp;
389                 if (errno == EINTR)
390                         continue;
391
392                 if (*mode && mode[1] == '+')
393                         die_errno(_("could not open '%s' for reading and writing"), path);
394                 else if (*mode == 'w' || *mode == 'a')
395                         die_errno(_("could not open '%s' for writing"), path);
396                 else
397                         die_errno(_("could not open '%s' for reading"), path);
398         }
399 }
400
401 FILE *xfdopen(int fd, const char *mode)
402 {
403         FILE *stream = fdopen(fd, mode);
404         if (stream == NULL)
405                 die_errno("Out of memory? fdopen failed");
406         return stream;
407 }
408
409 FILE *fopen_for_writing(const char *path)
410 {
411         FILE *ret = fopen(path, "w");
412
413         if (!ret && errno == EPERM) {
414                 if (!unlink(path))
415                         ret = fopen(path, "w");
416                 else
417                         errno = EPERM;
418         }
419         return ret;
420 }
421
422 static void warn_on_inaccessible(const char *path)
423 {
424         warning_errno(_("unable to access '%s'"), path);
425 }
426
427 int warn_on_fopen_errors(const char *path)
428 {
429         if (errno != ENOENT && errno != ENOTDIR) {
430                 warn_on_inaccessible(path);
431                 return -1;
432         }
433
434         return 0;
435 }
436
437 FILE *fopen_or_warn(const char *path, const char *mode)
438 {
439         FILE *fp = fopen(path, mode);
440
441         if (fp)
442                 return fp;
443
444         warn_on_fopen_errors(path);
445         return NULL;
446 }
447
448 int xmkstemp(char *filename_template)
449 {
450         int fd;
451         char origtemplate[PATH_MAX];
452         strlcpy(origtemplate, filename_template, sizeof(origtemplate));
453
454         fd = mkstemp(filename_template);
455         if (fd < 0) {
456                 int saved_errno = errno;
457                 const char *nonrelative_template;
458
459                 if (strlen(filename_template) != strlen(origtemplate))
460                         filename_template = origtemplate;
461
462                 nonrelative_template = absolute_path(filename_template);
463                 errno = saved_errno;
464                 die_errno("Unable to create temporary file '%s'",
465                         nonrelative_template);
466         }
467         return fd;
468 }
469
470 /* Adapted from libiberty's mkstemp.c. */
471
472 #undef TMP_MAX
473 #define TMP_MAX 16384
474
475 int git_mkstemps_mode(char *pattern, int suffix_len, int mode)
476 {
477         static const char letters[] =
478                 "abcdefghijklmnopqrstuvwxyz"
479                 "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
480                 "0123456789";
481         static const int num_letters = 62;
482         uint64_t value;
483         struct timeval tv;
484         char *filename_template;
485         size_t len;
486         int fd, count;
487
488         len = strlen(pattern);
489
490         if (len < 6 + suffix_len) {
491                 errno = EINVAL;
492                 return -1;
493         }
494
495         if (strncmp(&pattern[len - 6 - suffix_len], "XXXXXX", 6)) {
496                 errno = EINVAL;
497                 return -1;
498         }
499
500         /*
501          * Replace pattern's XXXXXX characters with randomness.
502          * Try TMP_MAX different filenames.
503          */
504         gettimeofday(&tv, NULL);
505         value = ((size_t)(tv.tv_usec << 16)) ^ tv.tv_sec ^ getpid();
506         filename_template = &pattern[len - 6 - suffix_len];
507         for (count = 0; count < TMP_MAX; ++count) {
508                 uint64_t v = value;
509                 /* Fill in the random bits. */
510                 filename_template[0] = letters[v % num_letters]; v /= num_letters;
511                 filename_template[1] = letters[v % num_letters]; v /= num_letters;
512                 filename_template[2] = letters[v % num_letters]; v /= num_letters;
513                 filename_template[3] = letters[v % num_letters]; v /= num_letters;
514                 filename_template[4] = letters[v % num_letters]; v /= num_letters;
515                 filename_template[5] = letters[v % num_letters]; v /= num_letters;
516
517                 fd = open(pattern, O_CREAT | O_EXCL | O_RDWR, mode);
518                 if (fd >= 0)
519                         return fd;
520                 /*
521                  * Fatal error (EPERM, ENOSPC etc).
522                  * It doesn't make sense to loop.
523                  */
524                 if (errno != EEXIST)
525                         break;
526                 /*
527                  * This is a random value.  It is only necessary that
528                  * the next TMP_MAX values generated by adding 7777 to
529                  * VALUE are different with (module 2^32).
530                  */
531                 value += 7777;
532         }
533         /* We return the null string if we can't find a unique file name.  */
534         pattern[0] = '\0';
535         return -1;
536 }
537
538 int git_mkstemp_mode(char *pattern, int mode)
539 {
540         /* mkstemp is just mkstemps with no suffix */
541         return git_mkstemps_mode(pattern, 0, mode);
542 }
543
544 int xmkstemp_mode(char *filename_template, int mode)
545 {
546         int fd;
547         char origtemplate[PATH_MAX];
548         strlcpy(origtemplate, filename_template, sizeof(origtemplate));
549
550         fd = git_mkstemp_mode(filename_template, mode);
551         if (fd < 0) {
552                 int saved_errno = errno;
553                 const char *nonrelative_template;
554
555                 if (!filename_template[0])
556                         filename_template = origtemplate;
557
558                 nonrelative_template = absolute_path(filename_template);
559                 errno = saved_errno;
560                 die_errno("Unable to create temporary file '%s'",
561                         nonrelative_template);
562         }
563         return fd;
564 }
565
566 static int warn_if_unremovable(const char *op, const char *file, int rc)
567 {
568         int err;
569         if (!rc || errno == ENOENT)
570                 return 0;
571         err = errno;
572         warning_errno("unable to %s '%s'", op, file);
573         errno = err;
574         return rc;
575 }
576
577 int unlink_or_msg(const char *file, struct strbuf *err)
578 {
579         int rc = unlink(file);
580
581         assert(err);
582
583         if (!rc || errno == ENOENT)
584                 return 0;
585
586         strbuf_addf(err, "unable to unlink '%s': %s",
587                     file, strerror(errno));
588         return -1;
589 }
590
591 int unlink_or_warn(const char *file)
592 {
593         return warn_if_unremovable("unlink", file, unlink(file));
594 }
595
596 int rmdir_or_warn(const char *file)
597 {
598         return warn_if_unremovable("rmdir", file, rmdir(file));
599 }
600
601 int remove_or_warn(unsigned int mode, const char *file)
602 {
603         return S_ISGITLINK(mode) ? rmdir_or_warn(file) : unlink_or_warn(file);
604 }
605
606 static int access_error_is_ok(int err, unsigned flag)
607 {
608         return (is_missing_file_error(err) ||
609                 ((flag & ACCESS_EACCES_OK) && err == EACCES));
610 }
611
612 int access_or_warn(const char *path, int mode, unsigned flag)
613 {
614         int ret = access(path, mode);
615         if (ret && !access_error_is_ok(errno, flag))
616                 warn_on_inaccessible(path);
617         return ret;
618 }
619
620 int access_or_die(const char *path, int mode, unsigned flag)
621 {
622         int ret = access(path, mode);
623         if (ret && !access_error_is_ok(errno, flag))
624                 die_errno(_("unable to access '%s'"), path);
625         return ret;
626 }
627
628 char *xgetcwd(void)
629 {
630         struct strbuf sb = STRBUF_INIT;
631         if (strbuf_getcwd(&sb))
632                 die_errno(_("unable to get current working directory"));
633         return strbuf_detach(&sb, NULL);
634 }
635
636 int xsnprintf(char *dst, size_t max, const char *fmt, ...)
637 {
638         va_list ap;
639         int len;
640
641         va_start(ap, fmt);
642         len = vsnprintf(dst, max, fmt, ap);
643         va_end(ap);
644
645         if (len < 0)
646                 BUG("your snprintf is broken");
647         if (len >= max)
648                 BUG("attempt to snprintf into too-small buffer");
649         return len;
650 }
651
652 void write_file_buf(const char *path, const char *buf, size_t len)
653 {
654         int fd = xopen(path, O_WRONLY | O_CREAT | O_TRUNC, 0666);
655         if (write_in_full(fd, buf, len) < 0)
656                 die_errno(_("could not write to '%s'"), path);
657         if (close(fd))
658                 die_errno(_("could not close '%s'"), path);
659 }
660
661 void write_file(const char *path, const char *fmt, ...)
662 {
663         va_list params;
664         struct strbuf sb = STRBUF_INIT;
665
666         va_start(params, fmt);
667         strbuf_vaddf(&sb, fmt, params);
668         va_end(params);
669
670         strbuf_complete_line(&sb);
671
672         write_file_buf(path, sb.buf, sb.len);
673         strbuf_release(&sb);
674 }
675
676 void sleep_millisec(int millisec)
677 {
678         poll(NULL, 0, millisec);
679 }
680
681 int xgethostname(char *buf, size_t len)
682 {
683         /*
684          * If the full hostname doesn't fit in buf, POSIX does not
685          * specify whether the buffer will be null-terminated, so to
686          * be safe, do it ourselves.
687          */
688         int ret = gethostname(buf, len);
689         if (!ret)
690                 buf[len - 1] = 0;
691         return ret;
692 }
693
694 int is_empty_or_missing_file(const char *filename)
695 {
696         struct stat st;
697
698         if (stat(filename, &st) < 0) {
699                 if (errno == ENOENT)
700                         return 1;
701                 die_errno(_("could not stat %s"), filename);
702         }
703
704         return !st.st_size;
705 }