lib/compat.c

   1 /*
   2    Copyright (C) Andrew Tridgell 1998
   3    Copyright (C) 2002 by Martin Pool
   4
   5    This program is free software; you can redistribute it and/or modify
   6    it under the terms of the GNU General Public License as published by
   7    the Free Software Foundation; either version 2 of the License, or
   8    (at your option) any later version.
   9
  10    This program is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13    GNU General Public License for more details.
  14
  15    You should have received a copy of the GNU General Public License
  16    along with this program; if not, write to the Free Software
  17    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18 */
  19
  20 /**
  21  * @file compat.c
  22  *
  23  * Reimplementations of standard functions for platforms that don't
  24  * have them.
  25  **/
  26
  27
  28
  29 #include "rsync.h"
  30
  31
  32 #ifndef HAVE_STRDUP
  33  char *strdup(char *s)
  34 {
  35   int l = strlen(s) + 1;
  36   char *ret = (char *)malloc(l);
  37   if (ret)
  38     strcpy(ret,s);
  39   return ret;
  40 }
  41 #endif
  42
  43 #ifndef HAVE_GETCWD
  44  char *getcwd(char *buf, int size)
  45 {
  46         return getwd(buf);
  47 }
  48 #endif
  49
  50
  51 #ifndef HAVE_WAITPID
  52  pid_t waitpid(pid_t pid, int *statptr, int options)
  53 {
  54 #ifdef HAVE_WAIT4
  55         return wait4(pid, statptr, options, NULL);
  56 #else
  57         /* If wait4 is also not available, try wait3 for SVR3 variants */
  58         /* Less ideal because can't actually request a specific pid */
  59         /* At least the WNOHANG option is supported */
  60         /* Code borrowed from apache fragment written by dwd@bell-labs.com */
  61         int tmp_pid, dummystat;;
  62         if (kill(pid, 0) == -1) {
  63                 errno = ECHILD;
  64                 return -1;
  65         }
  66         if (statptr == NULL)
  67                 statptr = &dummystat;
  68         while (((tmp_pid = wait3(statptr, options, 0)) != pid) &&
  69                     (tmp_pid != -1) && (tmp_pid != 0) && (pid != -1))
  70             ;
  71         return tmp_pid;
  72 #endif
  73 }
  74 #endif
  75
  76
  77 #ifndef HAVE_MEMMOVE
  78  void *memmove(void *dest, const void *src, size_t n)
  79 {
  80         bcopy((char *) src, (char *) dest, n);
  81         return dest;
  82 }
  83 #endif
  84
  85 #ifndef HAVE_STRPBRK
  86 /**
  87  * Find the first ocurrence in @p s of any character in @p accept.
  88  *
  89  * Derived from glibc
  90  **/
  91  char *strpbrk(const char *s, const char *accept)
  92 {
  93         while (*s != '\0')  {
  94                 const char *a = accept;
  95                 while (*a != '\0') {
  96                         if (*a++ == *s) return (char *)s;
  97                 }
  98                 ++s;
  99         }
 100
 101         return NULL;
 102 }
 103 #endif
 104
 105
 106 #ifndef HAVE_STRLCPY
 107 /**
 108  * Like strncpy but does not 0 fill the buffer and always null
 109  * terminates.
 110  *
 111  * @param bufsize is the size of the destination buffer.
 112  *
 113  * @return index of the terminating byte.
 114  **/
 115  size_t strlcpy(char *d, const char *s, size_t bufsize)
 116 {
 117         size_t len = strlen(s);
 118         size_t ret = len;
 119         if (bufsize <= 0) return 0;
 120         if (len >= bufsize) len = bufsize-1;
 121         memcpy(d, s, len);
 122         d[len] = 0;
 123         return ret;
 124 }
 125 #endif
 126
 127 #ifndef HAVE_STRLCAT
 128 /**
 129  * Like strncat() but does not 0 fill the buffer and always null
 130  * terminates.
 131  *
 132  * @param bufsize length of the buffer, which should be one more than
 133  * the maximum resulting string length.
 134  **/
 135  size_t strlcat(char *d, const char *s, size_t bufsize)
 136 {
 137         size_t len1 = strlen(d);
 138         size_t len2 = strlen(s);
 139         size_t ret = len1 + len2;
 140
 141         if (len1+len2 >= bufsize) {
 142                 len2 = bufsize - (len1+1);
 143         }
 144         if (len2 > 0) {
 145                 memcpy(d+len1, s, len2);
 146                 d[len1+len2] = 0;
 147         }
 148         return ret;
 149 }
 150 #endif
 151
 152 #ifdef REPLACE_INET_NTOA
 153  char *rep_inet_ntoa(struct in_addr ip)
 154 {
 155         unsigned char *p = (unsigned char *)&ip.s_addr;
 156         static char buf[18];
 157 #if WORDS_BIGENDIAN
 158         snprintf(buf, 18, "%d.%d.%d.%d",
 159                  (int)p[0], (int)p[1], (int)p[2], (int)p[3]);
 160 #else
 161         snprintf(buf, 18, "%d.%d.%d.%d",
 162                  (int)p[3], (int)p[2], (int)p[1], (int)p[0]);
 163 #endif
 164         return buf;
 165 }
 166 #endif
 167
 168 #ifdef REPLACE_INET_ATON
 169  int inet_aton(const char *cp, struct in_addr *inp)
 170 {
 171         unsigned int a1, a2, a3, a4;
 172         unsigned long ret;
 173
 174         if (strcmp(cp, "255.255.255.255") == 0) {
 175                 inp->s_addr = (unsigned) -1;
 176                 return 0;
 177         }
 178
 179         if (sscanf(cp, "%u.%u.%u.%u", &a1, &a2, &a3, &a4) != 4 ||
 180             a1 > 255 || a2 > 255 || a3 > 255 || a4 > 255) {
 181                 return 0;
 182         }
 183
 184         ret = (a1 << 24) | (a2 << 16) | (a3 << 8) | a4;
 185
 186         inp->s_addr = htonl(ret);
 187
 188         if (inp->s_addr == (unsigned) -1) {
 189                 return 0;
 190         }
 191         return 1;
 192 }
 193 #endif
 194
 195 /* some systems don't take the 2nd argument */
 196 int sys_gettimeofday(struct timeval *tv)
 197 {
 198 #if HAVE_GETTIMEOFDAY_TZ
 199         return gettimeofday(tv, NULL);
 200 #else
 201         return gettimeofday(tv);
 202 #endif
 203 }