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 (len >= bufsize) len = bufsize-1;
 107         memcpy(d, s, len);
 108         d[len] = 0;
 109         return ret;
 110 }
 111 #endif
 112
 113 #ifndef HAVE_STRLCAT
 114 /* like strncat but does not 0 fill the buffer and always null
 115    terminates. bufsize is the length of the buffer, which should
 116    be one more than the maximum resulting string length */
 117  size_t strlcat(char *d, const char *s, size_t bufsize)
 118 {
 119         size_t len1 = strlen(d);
 120         size_t len2 = strlen(s);
 121         size_t ret = len1 + len2;
 122
 123         if (len1+len2 >= bufsize) {
 124                 len2 = bufsize - (len1+1);
 125         }
 126         if (len2 > 0) {
 127                 memcpy(d+len1, s, len2);
 128                 d[len1+len2] = 0;
 129         }
 130         return ret;
 131 }
 132 #endif
 133
 134 #ifdef REPLACE_INET_NTOA
 135  char *rep_inet_ntoa(struct in_addr ip)
 136 {
 137         unsigned char *p = (unsigned char *)&ip.s_addr;
 138         static char buf[18];
 139 #if WORDS_BIGENDIAN
 140         slprintf(buf, 18, "%d.%d.%d.%d",
 141                  (int)p[0], (int)p[1], (int)p[2], (int)p[3]);
 142 #else
 143         slprintf(buf, 18, "%d.%d.%d.%d",
 144                  (int)p[3], (int)p[2], (int)p[1], (int)p[0]);
 145 #endif
 146         return buf;
 147 }
 148 #endif
 149
 150 #ifndef REPLACE_INET_ATON
 151  int inet_aton(const char *cp, struct in_addr *inp)
 152 {
 153         unsigned int a1, a2, a3, a4;
 154         unsigned long ret;
 155
 156         if (strcmp(cp, "255.255.255.255") == 0) {
 157                 inp->s_addr = (unsigned) -1;
 158                 return 1;
 159         }
 160
 161         if (sscanf(cp, "%u.%u.%u.%u", &a1, &a2, &a3, &a4) != 4 ||
 162             a1 > 255 || a2 > 255 || a3 > 255 || a4 > 255) {
 163                 return 1;
 164         }
 165
 166         ret = (a1 << 24) | (a2 << 16) | (a3 << 8) | a4;
 167
 168         inp->s_addr = htonl(ret);
 169
 170         if (inp->s_addr == (unsigned) -1) {
 171                 return 0;
 172         }
 173         return 1;
 174 }
 175 #endif
 176
 177 /* some systems don't take the 2nd argument */
 178 int sys_gettimeofday(struct timeval *tv)
 179 {
 180 #if HAVE_GETTIMEOFDAY_TZ
 181         return gettimeofday(tv, NULL);
 182 #else
 183         return gettimeofday(tv);
 184 #endif
 185 }