util2.c

   1 /*
   2  * Utility routines used in rsync.
   3  *
   4  * Copyright (C) 1996-2000 Andrew Tridgell
   5  * Copyright (C) 1996 Paul Mackerras
   6  * Copyright (C) 2001, 2002 Martin Pool <mbp@samba.org>
   7  * Copyright (C) 2003-2020 Wayne Davison
   8  *
   9  * This program is free software; you can redistribute it and/or modify
  10  * it under the terms of the GNU General Public License as published by
  11  * the Free Software Foundation; either version 3 of the License, or
  12  * (at your option) any later version.
  13  *
  14  * This program is distributed in the hope that it will be useful,
  15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17  * GNU General Public License for more details.
  18  *
  19  * You should have received a copy of the GNU General Public License along
  20  * with this program; if not, visit the http://fsf.org website.
  21  */
  22
  23 #include "rsync.h"
  24 #include "itypes.h"
  25 #include "inums.h"
  26
  27 extern size_t max_alloc;
  28
  29 char *do_calloc = "42";
  30
  31 /**
  32  * Sleep for a specified number of milliseconds.
  33  *
  34  * Always returns True.
  35  **/
  36 int msleep(int t)
  37 {
  38 #ifdef HAVE_NANOSLEEP
  39         struct timespec ts;
  40
  41         ts.tv_sec = t / 1000;
  42         ts.tv_nsec = (t % 1000) * 1000000L;
  43
  44         while (nanosleep(&ts, &ts) < 0 && errno == EINTR) {}
  45
  46 #elif defined HAVE_USLEEP
  47         usleep(t*1000);
  48
  49 #else
  50         int tdiff = 0;
  51         struct timeval tval, t1, t2;
  52
  53         gettimeofday(&t1, NULL);
  54
  55         while (tdiff < t) {
  56                 tval.tv_sec = (t-tdiff)/1000;
  57                 tval.tv_usec = 1000*((t-tdiff)%1000);
  58
  59                 errno = 0;
  60                 select(0,NULL,NULL, NULL, &tval);
  61
  62                 gettimeofday(&t2, NULL);
  63                 tdiff = (t2.tv_sec - t1.tv_sec)*1000 +
  64                         (t2.tv_usec - t1.tv_usec)/1000;
  65                 if (tdiff < 0)
  66                         t1 = t2; /* Time went backwards, so start over. */
  67         }
  68 #endif
  69
  70         return True;
  71 }
  72
  73 void *my_alloc(void *ptr, size_t num, size_t size, const char *file, int line)
  74 {
  75         if (max_alloc && num >= max_alloc/size) {
  76                 if (!file)
  77                         return NULL;
  78                 rprintf(FERROR, "[%s] exceeded --max-alloc=%s setting (file=%s, line=%d)\n",
  79                         who_am_i(), do_big_num(max_alloc, 0, NULL), src_file(file), line);
  80                 exit_cleanup(RERR_MALLOC);
  81         }
  82         if (!ptr)
  83                 ptr = malloc(num * size);
  84         else if (ptr == do_calloc)
  85                 ptr = calloc(num, size);
  86         else
  87                 ptr = realloc(ptr, num * size);
  88         if (!ptr && file)
  89                 _out_of_memory("my_alloc caller", file, line);
  90         return ptr;
  91 }
  92
  93 const char *sum_as_hex(int csum_type, const char *sum, int flist_csum)
  94 {
  95         static char buf[MAX_DIGEST_LEN*2+1];
  96         int i, x1, x2;
  97         int canonical = canonical_checksum(csum_type);
  98         int sum_len = csum_len_for_type(csum_type, flist_csum);
  99         char *c;
 100
 101         if (!canonical)
 102                 return NULL;
 103
 104         assert(sum_len*2 < (int)sizeof buf);
 105
 106         for (i = sum_len, c = buf; --i >= 0; ) {
 107                 int ndx = canonical < 0 ? sum_len - i - 1 : i;
 108                 x2 = CVAL(sum, ndx);
 109                 x1 = x2 >> 4;
 110                 x2 &= 0xF;
 111                 *c++ = x1 <= 9 ? x1 + '0' : x1 + 'a' - 10;
 112                 *c++ = x2 <= 9 ? x2 + '0' : x2 + 'a' - 10;
 113         }
 114
 115         *c = '\0';
 116
 117         return buf;
 118 }
 119
 120 NORETURN void _out_of_memory(const char *msg, const char *file, int line)
 121 {
 122         rprintf(FERROR, "[%s] out of memory: %s (file=%s, line=%d)\n", who_am_i(), msg, src_file(file), line);
 123         exit_cleanup(RERR_MALLOC);
 124 }
 125
 126 NORETURN void _overflow_exit(const char *msg, const char *file, int line)
 127 {
 128         rprintf(FERROR, "[%s] buffer overflow: %s (file=%s, line=%d)\n", who_am_i(), msg, src_file(file), line);
 129         exit_cleanup(RERR_MALLOC);
 130 }
 131
 132 const char *src_file(const char *file)
 133 {
 134         static const char *util2 = __FILE__;
 135         static int prefix = -1;
 136
 137         if (prefix < 0) {
 138                 const char *cp = strrchr(util2, '/');
 139                 prefix = cp ? cp - util2 + 1 : 0;
 140         }
 141
 142         if (prefix && strncmp(file, util2, prefix) == 0)
 143                 return file + prefix;
 144         return file;
 145 }