lib/compat.c

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