[irc/evilnet/x3.git] / src / compat.c

#undef gettimeofday
#undef memcpy
#undef memset
#undef strerror

#include "common.h"

#ifdef HAVE_SYS_TIMEB_H
# include <sys/timeb.h>
#endif
#ifdef HAVE_MEMORY_H
# include <memory.h>
#endif
#ifdef HAVE_ARPA_INET_H
# include <arpa/inet.h>
#endif

#if !defined(HAVE_GETTIMEOFDAY) && defined(HAVE_FTIME)
extern gettimeofday(struct timeval * tv, struct timezone * tz);
{
    if (!tv)
    {
        errno = EFAULT;
        return -1;
    }

    struct timeb tb;

    ftime(&tb); /* FIXME: some versions are void return others int */

    tv->tv_sec  = tb.time;
    tv->tv_usec = ((long)tb.millitm)*1000;
    if (tz)
    {
        tz->tz_minuteswest = 0;
        tz->tz_dsttime     = 0;
    }

    return 0;
}
#endif

#ifndef HAVE_MEMCPY
extern void * memcpy(void * dest, void const * src, unsigned long n)
{
/* very slow, your fault for not having memcpy()*/
    unsigned char * td=dest;
    unsigned char * ts=src;
    unsigned long   i;

    if (!td || !ts)
        return NULL;

    for (i=0; i<n; i++)
        td[i] = ts[i];
    return dest;
}
#endif

#ifndef HAVE_MEMSET
/* very slow, deal with it */
extern void * memset(void * dest, int c, unsigned long n)
{
    unsigned char * temp=dest;
    unsigned long   i;

    if (!temp)
        return NULL;

    for (i=0; i<n; i++)
        temp[i] = (unsigned char)c;
    return dest;
}
#endif

#ifndef HAVE_STRDUP
extern char * strdup(char const * str)
{
    char * out;

    if (!str)
        return NULL;
    if (!(out = malloc(strlen(str)+1)))
        return NULL;
    strcpy(out,str);
    return out;
}
#endif

#ifndef HAVE_STRERROR
extern char const * strerror(int errornum)
{
    if (errornum==0)
	return "No error";
#ifdef EPERM
    if (errornum==EPERM)
	return "Operation not permitted";
#endif
#ifdef ENOENT
    if (errornum==ENOENT)
	return "No such file or directory";
#endif
#ifdef ESRCH
    if (errornum==ESRCH)
	return "No such process";
#endif
#ifdef EINTR
    if (errornum==EINTR)
	return "Interrupted system call";
#endif
#ifdef EIO
    if (errornum==EIO)
	return "I/O error";
#endif
#ifdef ENXIO
    if (errornum==EIO)
	return "No such device or address";
#endif
#ifdef EBADF
    if (errornum==EBADF)
	return "Bad file number";
#endif
#ifdef EAGAIN
    if (errornum==EAGAIN)
	return "Try again";
#endif
#ifdef ENOMEM
    if (errornum==ENOMEM)
	return "Out of memory";
#endif
#ifdef EACCES
    if (errornum==EACCES)
	return "Permission denied";
#endif
#ifdef EFAULT
    if (errornum==EFAULT)
	return "Bad address";
#endif
#ifdef EBUSY
    if (errornum==EBUSY)
	return "Device or resource busy";
#endif
#ifdef EEXIST
    if (errornum==EEXIST)
	return "File exists";
#endif
#ifdef EXDEV
    if (errornum==EXDEV)
	return "Cross-device link";
#endif
#ifdef EDEADLK
    if (errornum==EXDEV)
	return "Resource deadlock would occur";
#endif
#ifdef EDEADLOCK
    if (errornum==EDEADLOCK)
	return "Resource deadlock would occur";
#endif
#ifdef ENODEV
    if (errornum==ENODEV)
	return "No such device";
#endif
#ifdef ENOTDIR
    if (errornum==ENOTDIR)
	return "Not a directory";
#endif
#ifdef EISDIR
    if (errornum==EISDIR)
	return "Is a directory";
#endif
#ifdef EINVAL
    if (errornum==EINVAL)
	return "Invalid argument";
#endif
#ifdef ENFILE
    if (errornum==ENFILE)
	return "Too many open files in system";
#endif
#ifdef EMFILE
    if (errornum==EMFILE)
	return "Too many open files";
#endif
#ifdef ENOTTY
    if (errornum==ENOTTY)
	return "Not a typewriter";
#endif
#ifdef ETXTBSY
    if (errornum==ETXTBSY)
	return "Text file busy";
#endif
#ifdef EFBIG
    if (errornum==EFBIG)
	return "File too large";
#endif
#ifdef ENOSPC
    if (errornum==ENOSPC)
	return "No space left on device";
#endif
#ifdef ESPIPE
    if (errornum==ESPIPE)
	return "Illegal seek";
#endif
#ifdef EROFS
    if (errornum==EROFS)
	return "Read-only file system";
#endif
#ifdef EMLINK
    if (errornum==EMLINK)
	return "Too many links";
#endif
#ifdef EPIPE
    if (errornum==EPIPE)
	return "Broken pipe";
#endif
#ifdef EDOM
    if (errornum==EDOM)
	return "Math argument out of domain of func";
#endif
#ifdef ERANGE
    if (errornum==ERANGE)
	return "Math result not representable";
#endif
#ifdef ENAMETOOLONG
    if (errornum==ENAMETOOLONG)
	return "File name too long";
#endif
#ifdef ENOLCK
    if (errornum==ENOLCK)
	return "No record locks avaliable";
#endif
#ifdef ENOSYS
    if (errornum==ENOSYS)
	return "Function not implemented";
#endif
#ifdef ENOTEMPTY
    if (errornum==ENOTEMPTY)
	return "Directory not empty";
#endif
#ifdef ELOOP
    if (errornum==ELOOP)
	return "Too many symbolic links encountered";
#endif
#ifdef EHOSTDOWN
    if (errornum==EHOSTDOWN)
	return "Host is down";
#endif
#ifdef EHOSTUNREACH
    if (errornum==EHOSTUNREACH)
	return "No route to host";
#endif
#ifdef EALREADY
    if (errornum==EALREADY)
	return "Operation already in progress";
#endif
#ifdef EINPROGRESS
    if (errornum==EINPROGRESS)
	return "Operation now in progress";
#endif
#ifdef ESTALE
    if (errornum==ESTALE)
	return "Stale NFS filehandle";
#endif
#ifdef EDQUOT
    if (errornum==EDQUOT)
	return "Quota exceeded";
#endif
#ifdef EWOULDBLOCK
    if (errornum==EWOULDBLOCK)
	return "Operation would block";
#endif
#ifdef ECOMM
    if (errornum==ECOMM)
	return "Communication error on send";
#endif
#ifdef EPROTO
    if (errornum==EPROTO)
	return "Protocol error";
#endif
#ifdef EPROTONOSUPPORT
    if (errornum==EPROTONOSUPPORT)
	return "Protocol not supported";
#endif
#ifdef ESOCKTNOSUPPORT
    if (errornum==ESOCKTNOSUPPORT)
	return "Socket type not supported";
#endif
#ifdef ESOCKTNOSUPPORT
    if (errornum==EOPNOTSUPP)
	return "Operation not supported";
#endif
#ifdef EPFNOSUPPORT
    if (errornum==EPFNOSUPPORT)
	return "Protocol family not supported";
#endif
#ifdef EAFNOSUPPORT
    if (errornum==EAFNOSUPPORT)
	return "Address family not supported by protocol family";
#endif
#ifdef EADDRINUSE
    if (errornum==EADDRINUSE)
	return "Address already in use";
#endif
#ifdef EADDRNOTAVAIL
    if (errornum==EADDRNOTAVAIL)
	return "Cannot assign requested address";
#endif
#ifdef ENETDOWN
    if (errornum==ENETDOWN)
	return "Network is down";
#endif
#ifdef ENETUNREACH
    if (errornum==ENETUNREACH)
	return "Network is unreachable";
#endif
#ifdef ENETRESET
    if (errornum==ENETRESET)
	return "Network dropped connection on reset";
#endif
#ifdef ECONNABORTED
    if (errornum==ECONNABORTED)
	return "Software caused connection abort";
#endif
#ifdef ECONNRESET
    if (errornum==ECONNRESET)
	return " Connection reset by peer";
#endif
#ifdef ENOBUFS
    if (errornum==ENOBUFS)
	return "No buffer space available";
#endif
#ifdef EISCONN
    if (errornum==EISCONN)
	return "Socket is already connected";
#endif
#ifdef ENOTCONN
    if (errornum==ENOTCONN)
	return "Socket is not connected";
#endif
#ifdef ESHUTDOWN
    if (errornum==ESHUTDOWN)
	return " Cannot send after socket shutdown";
#endif
#ifdef ETIMEDOUT
    if (errornum==ETIMEDOUT)
	return "Connection timed out";
#endif
#ifdef ECONNREFUSED
    if (errornum==ECONNREFUSED)
	return "Connection refused";
#endif
    return "Unknown error";
}
#endif

#ifndef HAVE_GETADDRINFO

int getaddrinfo(const char *node, const char *service, const struct addrinfo *hints, struct addrinfo **res)
{
    /* Only support IPv4 if OS doesn't provide this function. */
    struct sockaddr_in sin;

    if (hints && hints->ai_family != AF_INET)
        return 1;
    memset(&sin, 0, sizeof(sin));
    sin.sin_family = AF_INET;

    if (node) {
        if (hints && hints->ai_flags & AI_NUMERICHOST) {
#if HAVE_INET_ATON
            if (!inet_aton(node, &sin.sin_addr))
                return 2;
#else
            sin.sin_addr.s_addr = inet_addr(node);
            if (sin.sin_addr.s_addr == INADDR_NONE)
                return 2;
#endif
        } else {
            struct hostent *he;
            he = gethostbyname(node);
            if (!he)
                return 3;
            memcpy(&sin.sin_addr, he->h_addr, he->h_length);
        }
    } else if (hints && hints->ai_flags & AI_PASSIVE) {
        /* leave it unspecifed */
    } else {
        inet_aton("127.0.0.1", &sin.sin_addr);
    }

    if (!service)
        sin.sin_port = ntohs(0);
    else if (!(sin.sin_port = ntohs(atoi(service))))
        return 4;

    *res = calloc(1, sizeof(**res) + sizeof(sin));
    (*res)->ai_family = sin.sin_family;
    (*res)->ai_socktype = hints && hints->ai_socktype ? hints->ai_socktype : SOCK_STREAM;
    (*res)->ai_protocol = hints && hints->ai_socktype ? hints->ai_socktype : 0;
    (*res)->ai_addrlen = sizeof(sin);
    (*res)->ai_addr = (struct sockaddr*)(*res + 1);
    memcpy((*res)->ai_addr, &sin, (*res)->ai_addrlen);
    (*res)->ai_canonname = 0;
    (*res)->ai_next = 0;
    return 0;
}

/* TODO: implement fallback getnameinfo() */

void freeaddrinfo(struct addrinfo *res)
{
    struct addrinfo *next;
    for (; res; res = next) {
        next = res->ai_next;
        free(res);
    }
}

#endif
Commit	Line	Data
d76ed9a9	1	#undef gettimeofday
	2	#undef memcpy
	3	#undef memset
	4	#undef strerror
	5
	6	#include "common.h"
	7
	8	#ifdef HAVE_SYS_TIMEB_H
	9	# include <sys/timeb.h>
	10	#endif
	11	#ifdef HAVE_MEMORY_H
	12	# include <memory.h>
	13	#endif
1136f709	14	#ifdef HAVE_ARPA_INET_H
	15	# include <arpa/inet.h>
	16	#endif
d76ed9a9	17
	18	#if !defined(HAVE_GETTIMEOFDAY) && defined(HAVE_FTIME)
	19	extern gettimeofday(struct timeval * tv, struct timezone * tz);
	20	{
	21	if (!tv)
	22	{
	23	errno = EFAULT;
	24	return -1;
	25	}
	26
	27	struct timeb tb;
	28
	29	ftime(&tb); /* FIXME: some versions are void return others int */
	30
	31	tv->tv_sec = tb.time;
	32	tv->tv_usec = ((long)tb.millitm)*1000;
	33	if (tz)
	34	{
	35	tz->tz_minuteswest = 0;
	36	tz->tz_dsttime = 0;
	37	}
	38
0f6fe38c	39	return 0;
d76ed9a9	40	}
	41	#endif
	42
	43	#ifndef HAVE_MEMCPY
	44	extern void * memcpy(void * dest, void const * src, unsigned long n)
	45	{
d76ed9a9	46	/* very slow, your fault for not having memcpy()*/
	47	unsigned char * td=dest;
	48	unsigned char * ts=src;
	49	unsigned long i;
	50
	51	if (!td \|\| !ts)
	52	return NULL;
	53
	54	for (i=0; i<n; i++)
	55	td[i] = ts[i];
	56	return dest;
d76ed9a9	57	}
	58	#endif
	59
	60	#ifndef HAVE_MEMSET
	61	/* very slow, deal with it */
	62	extern void * memset(void * dest, int c, unsigned long n)
	63	{
	64	unsigned char * temp=dest;
	65	unsigned long i;
	66
	67	if (!temp)
	68	return NULL;
	69
	70	for (i=0; i<n; i++)
	71	temp[i] = (unsigned char)c;
	72	return dest;
	73	}
	74	#endif
	75
	76	#ifndef HAVE_STRDUP
	77	extern char * strdup(char const * str)
	78	{
	79	char * out;
	80
	81	if (!str)
	82	return NULL;
	83	if (!(out = malloc(strlen(str)+1)))
	84	return NULL;
	85	strcpy(out,str);
	86	return out;
	87	}
	88	#endif
	89
	90	#ifndef HAVE_STRERROR
	91	extern char const * strerror(int errornum)
	92	{
	93	if (errornum==0)
	94	return "No error";
	95	#ifdef EPERM
	96	if (errornum==EPERM)
	97	return "Operation not permitted";
	98	#endif
	99	#ifdef ENOENT
	100	if (errornum==ENOENT)
	101	return "No such file or directory";
	102	#endif
	103	#ifdef ESRCH
	104	if (errornum==ESRCH)
	105	return "No such process";
	106	#endif
	107	#ifdef EINTR
	108	if (errornum==EINTR)
	109	return "Interrupted system call";
	110	#endif
	111	#ifdef EIO
	112	if (errornum==EIO)
	113	return "I/O error";
	114	#endif
	115	#ifdef ENXIO
	116	if (errornum==EIO)
	117	return "No such device or address";
	118	#endif
	119	#ifdef EBADF
	120	if (errornum==EBADF)
121	return "Bad file number";
122	#endif
123	#ifdef EAGAIN
124	if (errornum==EAGAIN)
125	return "Try again";
126	#endif
127	#ifdef ENOMEM
128	if (errornum==ENOMEM)
129	return "Out of memory";
130	#endif
131	#ifdef EACCES
132	if (errornum==EACCES)
133	return "Permission denied";
134	#endif
135	#ifdef EFAULT
136	if (errornum==EFAULT)
137	return "Bad address";
138	#endif
139	#ifdef EBUSY
140	if (errornum==EBUSY)
141	return "Device or resource busy";
142	#endif
143	#ifdef EEXIST
144	if (errornum==EEXIST)
145	return "File exists";
146	#endif
147	#ifdef EXDEV
148	if (errornum==EXDEV)
149	return "Cross-device link";
150	#endif
151	#ifdef EDEADLK
152	if (errornum==EXDEV)
153	return "Resource deadlock would occur";
154	#endif
155	#ifdef EDEADLOCK
156	if (errornum==EDEADLOCK)
157	return "Resource deadlock would occur";
158	#endif
159	#ifdef ENODEV
160	if (errornum==ENODEV)
161	return "No such device";
162	#endif
163	#ifdef ENOTDIR
164	if (errornum==ENOTDIR)
165	return "Not a directory";
166	#endif
167	#ifdef EISDIR
168	if (errornum==EISDIR)
169	return "Is a directory";
170	#endif
171	#ifdef EINVAL
172	if (errornum==EINVAL)
173	return "Invalid argument";
174	#endif
175	#ifdef ENFILE
176	if (errornum==ENFILE)
177	return "Too many open files in system";
178	#endif
179	#ifdef EMFILE
180	if (errornum==EMFILE)
181	return "Too many open files";
182	#endif
183	#ifdef ENOTTY
184	if (errornum==ENOTTY)
185	return "Not a typewriter";
186	#endif
187	#ifdef ETXTBSY
188	if (errornum==ETXTBSY)
189	return "Text file busy";
190	#endif
191	#ifdef EFBIG
192	if (errornum==EFBIG)
193	return "File too large";
194	#endif
195	#ifdef ENOSPC
196	if (errornum==ENOSPC)
197	return "No space left on device";
198	#endif
199	#ifdef ESPIPE
200	if (errornum==ESPIPE)
201	return "Illegal seek";
202	#endif
203	#ifdef EROFS
204	if (errornum==EROFS)
205	return "Read-only file system";
206	#endif
207	#ifdef EMLINK
208	if (errornum==EMLINK)
209	return "Too many links";
210	#endif
211	#ifdef EPIPE
212	if (errornum==EPIPE)
213	return "Broken pipe";
214	#endif
215	#ifdef EDOM
216	if (errornum==EDOM)
217	return "Math argument out of domain of func";
218	#endif
219	#ifdef ERANGE
220	if (errornum==ERANGE)
221	return "Math result not representable";
222	#endif
223	#ifdef ENAMETOOLONG
224	if (errornum==ENAMETOOLONG)
225	return "File name too long";
226	#endif
227	#ifdef ENOLCK
228	if (errornum==ENOLCK)
229	return "No record locks avaliable";
230	#endif
231	#ifdef ENOSYS
232	if (errornum==ENOSYS)
233	return "Function not implemented";
234	#endif
235	#ifdef ENOTEMPTY
236	if (errornum==ENOTEMPTY)
237	return "Directory not empty";
238	#endif
239	#ifdef ELOOP
240	if (errornum==ELOOP)
241	return "Too many symbolic links encountered";
242	#endif
243	#ifdef EHOSTDOWN
244	if (errornum==EHOSTDOWN)
245	return "Host is down";
246	#endif
247	#ifdef EHOSTUNREACH
248	if (errornum==EHOSTUNREACH)
249	return "No route to host";
250	#endif
251	#ifdef EALREADY
252	if (errornum==EALREADY)
253	return "Operation already in progress";
254	#endif
255	#ifdef EINPROGRESS
256	if (errornum==EINPROGRESS)
257	return "Operation now in progress";
258	#endif
259	#ifdef ESTALE
260	if (errornum==ESTALE)
261	return "Stale NFS filehandle";
262	#endif
263	#ifdef EDQUOT
264	if (errornum==EDQUOT)
265	return "Quota exceeded";
266	#endif
267	#ifdef EWOULDBLOCK
268	if (errornum==EWOULDBLOCK)
269	return "Operation would block";
270	#endif
271	#ifdef ECOMM
272	if (errornum==ECOMM)
273	return "Communication error on send";
274	#endif
275	#ifdef EPROTO
276	if (errornum==EPROTO)
277	return "Protocol error";
278	#endif
279	#ifdef EPROTONOSUPPORT
280	if (errornum==EPROTONOSUPPORT)
281	return "Protocol not supported";
282	#endif
283	#ifdef ESOCKTNOSUPPORT
284	if (errornum==ESOCKTNOSUPPORT)
285	return "Socket type not supported";
286	#endif
287	#ifdef ESOCKTNOSUPPORT
288	if (errornum==EOPNOTSUPP)
289	return "Operation not supported";
290	#endif
291	#ifdef EPFNOSUPPORT
292	if (errornum==EPFNOSUPPORT)
293	return "Protocol family not supported";
294	#endif
295	#ifdef EAFNOSUPPORT
296	if (errornum==EAFNOSUPPORT)
297	return "Address family not supported by protocol family";
298	#endif
299	#ifdef EADDRINUSE
300	if (errornum==EADDRINUSE)
301	return "Address already in use";
302	#endif
303	#ifdef EADDRNOTAVAIL
304	if (errornum==EADDRNOTAVAIL)
305	return "Cannot assign requested address";
306	#endif
307	#ifdef ENETDOWN
308	if (errornum==ENETDOWN)
309	return "Network is down";
310	#endif
311	#ifdef ENETUNREACH
312	if (errornum==ENETUNREACH)
313	return "Network is unreachable";
314	#endif
315	#ifdef ENETRESET
316	if (errornum==ENETRESET)
317	return "Network dropped connection on reset";
318	#endif
319	#ifdef ECONNABORTED
320	if (errornum==ECONNABORTED)
321	return "Software caused connection abort";
322	#endif
323	#ifdef ECONNRESET
324	if (errornum==ECONNRESET)
325	return " Connection reset by peer";
326	#endif
327	#ifdef ENOBUFS
328	if (errornum==ENOBUFS)
329	return "No buffer space available";
330	#endif
331	#ifdef EISCONN
332	if (errornum==EISCONN)
333	return "Socket is already connected";
334	#endif
335	#ifdef ENOTCONN
336	if (errornum==ENOTCONN)
337	return "Socket is not connected";
338	#endif
339	#ifdef ESHUTDOWN
340	if (errornum==ESHUTDOWN)
341	return " Cannot send after socket shutdown";
342	#endif
343	#ifdef ETIMEDOUT
344	if (errornum==ETIMEDOUT)
345	return "Connection timed out";
346	#endif
347	#ifdef ECONNREFUSED
348	if (errornum==ECONNREFUSED)
349	return "Connection refused";
350	#endif
351	return "Unknown error";
352	}
353	#endif
2f61d1d7	354
	355	#ifndef HAVE_GETADDRINFO
	356
	357	int getaddrinfo(const char node, const char service, const struct addrinfo hints, struct addrinfo *res)
	358	{
	359	/* Only support IPv4 if OS doesn't provide this function. */
	360	struct sockaddr_in sin;
	361
	362	if (hints && hints->ai_family != AF_INET)
	363	return 1;
	364	memset(&sin, 0, sizeof(sin));
	365	sin.sin_family = AF_INET;
	366
	367	if (node) {
	368	if (hints && hints->ai_flags & AI_NUMERICHOST) {
1136f709	369	#if HAVE_INET_ATON
2f61d1d7	370	if (!inet_aton(node, &sin.sin_addr))
2f61d1d7	371	return 2;
1136f709	372	#else
	373	sin.sin_addr.s_addr = inet_addr(node);
	374	if (sin.sin_addr.s_addr == INADDR_NONE)
	375	return 2;
	376	#endif
2f61d1d7	377	} else {
	378	struct hostent *he;
	379	he = gethostbyname(node);
	380	if (!he)
	381	return 3;
	382	memcpy(&sin.sin_addr, he->h_addr, he->h_length);
	383	}
	384	} else if (hints && hints->ai_flags & AI_PASSIVE) {
	385	/* leave it unspecifed */
	386	} else {
	387	inet_aton("127.0.0.1", &sin.sin_addr);
	388	}
	389
	390	if (!service)
	391	sin.sin_port = ntohs(0);
	392	else if (!(sin.sin_port = ntohs(atoi(service))))
	393	return 4;
	394
	395	res = calloc(1, sizeof(*res) + sizeof(sin));
	396	(*res)->ai_family = sin.sin_family;
	397	(*res)->ai_socktype = hints && hints->ai_socktype ? hints->ai_socktype : SOCK_STREAM;
	398	(*res)->ai_protocol = hints && hints->ai_socktype ? hints->ai_socktype : 0;
	399	(*res)->ai_addrlen = sizeof(sin);
	400	(res)->ai_addr = (struct sockaddr)(*res + 1);
	401	memcpy((res)->ai_addr, &sin, (res)->ai_addrlen);
	402	(*res)->ai_canonname = 0;
	403	(*res)->ai_next = 0;
	404	return 0;
	405	}
	406
	407	/* TODO: implement fallback getnameinfo() */
	408
	409	void freeaddrinfo(struct addrinfo *res)
	410	{
	411	struct addrinfo *next;
	412	for (; res; res = next) {
	413	next = res->ai_next;
	414	free(res);
	415	}
	416	}
	417
	418	#endif
	419