[rsync/rsync.git] / lib / compat.c

/* 
   Copyright (C) Andrew Tridgell 1998
   
   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version.
   
   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.
   
   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/

/*
  compatibility functions - replacing functions for platforms that don't
  have them.

  */
#include "rsync.h"


#ifndef HAVE_STRDUP
 char *strdup(char *s)
{
  int l = strlen(s) + 1;
  char *ret = (char *)malloc(l);
  if (ret)
    strcpy(ret,s);
  return ret;
}
#endif

#ifndef HAVE_GETCWD
 char *getcwd(char *buf, int size)
{
	return getwd(buf);
}
#endif


#ifndef HAVE_WAITPID
 pid_t waitpid(pid_t pid, int *statptr, int options)
{
#ifdef HAVE_WAIT4
	return wait4(pid, statptr, options, NULL);
#else
	/* If wait4 is also not available, try wait3 for SVR3 variants */
	/* Less ideal because can't actually request a specific pid */
	/* At least the WNOHANG option is supported */
	/* Code borrowed from apache fragment written by dwd@bell-labs.com */
	int tmp_pid, dummystat;;
	if (kill(pid, 0) == -1) {
		errno = ECHILD;
		return -1;
	}
	if (statptr == NULL)
		statptr = &dummystat;
	while (((tmp_pid = wait3(statptr, options, 0)) != pid) &&
		    (tmp_pid != -1) && (tmp_pid != 0) && (pid != -1))
	    ;
	return tmp_pid;
#endif
}
#endif


#ifndef HAVE_MEMMOVE
 void *memmove(void *dest, const void *src, size_t n)
{
	bcopy((char *) src, (char *) dest, n);
	return dest;
}
#endif

#ifndef HAVE_STRPBRK
/* Find the first ocurrence in S of any character in ACCEPT.  
   derived from glibc 
*/
 char *strpbrk(const char *s, const char *accept)
{
	while (*s != '\0')  {
		const char *a = accept;
		while (*a != '\0') {
			if (*a++ == *s)	return (char *)s;
		}
		++s;
	}

	return NULL;
}
#endif


#ifndef HAVE_STRLCPY
/* like strncpy but does not 0 fill the buffer and always null 
   terminates. bufsize is the size of the destination buffer */
 size_t strlcpy(char *d, const char *s, size_t bufsize)
{
	size_t len = strlen(s);
	size_t ret = len;
	if (bufsize <= 0) return 0;
	if (len >= bufsize) len = bufsize-1;
	memcpy(d, s, len);
	d[len] = 0;
	return ret;
}
#endif

#ifndef HAVE_STRLCAT
/* like strncat but does not 0 fill the buffer and always null 
   terminates. bufsize is the length of the buffer, which should
   be one more than the maximum resulting string length */
 size_t strlcat(char *d, const char *s, size_t bufsize)
{
	size_t len1 = strlen(d);
	size_t len2 = strlen(s);
	size_t ret = len1 + len2;

	if (len1+len2 >= bufsize) {
		len2 = bufsize - (len1+1);
	}
	if (len2 > 0) {
		memcpy(d+len1, s, len2);
		d[len1+len2] = 0;
	}
	return ret;
}
#endif

#ifdef REPLACE_INET_NTOA
 char *rep_inet_ntoa(struct in_addr ip)
{
	unsigned char *p = (unsigned char *)&ip.s_addr;
	static char buf[18];
#if WORDS_BIGENDIAN
	slprintf(buf, 18, "%d.%d.%d.%d", 
		 (int)p[0], (int)p[1], (int)p[2], (int)p[3]);
#else
	slprintf(buf, 18, "%d.%d.%d.%d", 
		 (int)p[3], (int)p[2], (int)p[1], (int)p[0]);
#endif
	return buf;
}
#endif

#ifdef REPLACE_INET_ATON
 int inet_aton(const char *cp, struct in_addr *inp)
{
	unsigned int a1, a2, a3, a4;
	unsigned long ret;

	if (strcmp(cp, "255.255.255.255") == 0) {
		inp->s_addr = (unsigned) -1;
		return 0;
	}

	if (sscanf(cp, "%u.%u.%u.%u", &a1, &a2, &a3, &a4) != 4 ||
	    a1 > 255 || a2 > 255 || a3 > 255 || a4 > 255) {
		return 0;
	}

	ret = (a1 << 24) | (a2 << 16) | (a3 << 8) | a4;

	inp->s_addr = htonl(ret);
	
	if (inp->s_addr == (unsigned) -1) {
		return 0;
	}
	return 1;
}
#endif

/* some systems don't take the 2nd argument */
int sys_gettimeofday(struct timeval *tv)
{
#if HAVE_GETTIMEOFDAY_TZ
	return gettimeofday(tv, NULL);
#else
	return gettimeofday(tv);
#endif
}
Commit	Line	Data
ec0e5ac0 AT	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
5a788ade	39	char getcwd(char buf, int size)
ec0e5ac0 AT	40	{
	41	return getwd(buf);
	42	}
	43	#endif
	44
	45
	46	#ifndef HAVE_WAITPID
5a788ade	47	pid_t waitpid(pid_t pid, int *statptr, int options)
ec0e5ac0	48	{
e68f3481	49	#ifdef HAVE_WAIT4
ec0e5ac0	50	return wait4(pid, statptr, options, NULL);
e68f3481 DD	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
ec0e5ac0 AT	68	}
	69	#endif
	70
9fc310da AT	71
9fc310da AT	72	#ifndef HAVE_MEMMOVE
5a788ade	73	void memmove(void dest, const void *src, size_t n)
9fc310da	74	{
52d7d788	75	bcopy((char ) src, (char ) dest, n);
9fc310da AT	76	return dest;
	77	}
	78	#endif
2b6b4d53 AT	79
	80	#ifndef HAVE_STRPBRK
	81	/* Find the first ocurrence in S of any character in ACCEPT.
	82	derived from glibc
	83	*/
5a788ade	84	char strpbrk(const char s, const char *accept)
2b6b4d53 AT	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
7b3d4257	97
5a788ade AT	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;
f62c17e3	106	if (bufsize <= 0) return 0;
5a788ade AT	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
b17bc22b	134
fca3ef06 AT	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	slprintf(buf, 18, "%d.%d.%d.%d",
	142	(int)p[0], (int)p[1], (int)p[2], (int)p[3]);
	143	#else
	144	slprintf(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
269833af	151	#ifdef REPLACE_INET_ATON
b17bc22b AT	152	int inet_aton(const char cp, struct in_addr inp)
b17bc22b AT	153	{
5b5591d8 AT	154	unsigned int a1, a2, a3, a4;
	155	unsigned long ret;
	156
b17bc22b AT	157	if (strcmp(cp, "255.255.255.255") == 0) {
b17bc22b AT	158	inp->s_addr = (unsigned) -1;
14175f1e	159	return 0;
b17bc22b AT	160	}
b17bc22b AT	161
5b5591d8 AT	162	if (sscanf(cp, "%u.%u.%u.%u", &a1, &a2, &a3, &a4) != 4 \|\|
5b5591d8 AT	163	a1 > 255 \|\| a2 > 255 \|\| a3 > 255 \|\| a4 > 255) {
14175f1e	164	return 0;
5b5591d8 AT	165	}
	166
	167	ret = (a1 << 24) \| (a2 << 16) \| (a3 << 8) \| a4;
	168
	169	inp->s_addr = htonl(ret);
	170
b17bc22b AT	171	if (inp->s_addr == (unsigned) -1) {
	172	return 0;
	173	}
	174	return 1;
	175	}
	176	#endif
3060d4aa AT	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	}