/*********************************************************************\
    *  Copyright (c) 1991 by Wen-King Su (wen-king@vlsi.cs.caltech.edu)   *
    *                                                                     *
    *  You may copy or modify this file in any manner you wish, provided  *
    *  that this notice is always included, and that you hold the author  *
    *  harmless for any loss or damage resulting from the installation or *
    *  use of this software.                                              *
    \*********************************************************************/

#include "common_def.h"

static struct sockaddr_in INET_ZERO = { AF_INET };

extern int errno;
#define DSIZE (sizeof(int)*8)
#define SAVE(A) { int sav; sav = errno; A; errno = sav; }

#ifndef EXOS_IPC

#include <netdb.h>

extern unsigned long inet_addr();

_x_udp(port)
    int *port;
{
    int f, len, zz;
    struct sockaddr_in me ;
    struct sockaddr_in sin;

    me = sin = INET_ZERO;

    me.sin_port = htons((unsigned short) *port);
    me.sin_family = AF_INET;
 
    if((f=socket(AF_INET,SOCK_DGRAM,0)) == -1) return(-1);
 
    if( setsockopt(f,SOL_SOCKET,SO_REUSEADDR,(char *)&zz,sizeof(zz)) < 0 ||
        bind(f,(struct sockaddr *) &me,(len = sizeof(me))) < 0 ||
        getsockname(f,(struct sockaddr *)&sin,&len) < 0)
                                { SAVE(((void) close(f))); return(-1); }
    if(!*port) *port = ntohs((unsigned short) sin.sin_port); return(f);
}      

_x_adr(host,port,his)
    struct sockaddr_in *his;
    char *host;
    int port;
{
    char myhost[128];
    struct hostent *H;
    int    i;
    char *s, *d;
 
    *his = INET_ZERO;
    if(!host) (void) gethostname(host = myhost,sizeof(myhost));
 
    if((his->sin_addr.s_addr = inet_addr(host)) != -1)
    {   his->sin_family = AF_INET;
    } else
    if(H = gethostbyname(host))
    {   for(s = (char *)H->h_addr, d = (char *)&his->sin_addr, i = H->h_length;
						i--; *d++ = *s++);
        his->sin_family = H->h_addrtype;
    } else return(-1);
    his->sin_port = htons((unsigned short) port);
 
    return(0);
}

_x_select(rf, tt)       /* tt is in unit of ms */
    int *rf;
    long tt;
{
    struct timeval timeout;

    if(tt != -1)
    {
	if(tt < MIN_DELAY) tt = MIN_DELAY;
        timeout.tv_sec  =  tt / 1000;
        timeout.tv_usec = (tt % 1000)*1000;
        return(select(DSIZE, rf, (int *) 0, (int *) 0, &timeout));
    }
       
    return(select(DSIZE, rf, (int *) 0, (int *) 0, (struct timeval *) 0));
}
#endif  /* not EXOS_IPC */

#ifdef EXOS_IPC

extern long rhost();

_x_udp(port)
    int *port;
{
    struct sockaddr_in sin; int f;

    sin = INET_ZERO;
    sin.sin_family = AF_INET;
    sin.sin_port   = htons((unsigned short) *port);
    if((f = socket(SOCK_DGRAM, (struct sockproto *) 0, &sin, SO_REUSEADDR))
							== -1) return(-1);
    sin = INET_ZERO;
    if(socketaddr(f,&sin) == -1) { SAVE(((void) close(f))); return(-1); }
    if(!*port) *port = ntohs((unsigned short) sin.sin_port); return(f);
}

_x_adr(host,port,his)
    char *host;
    int port;
    struct sockaddr_in *his;
{
    char myhost[128];
    int f;

    *his = INET_ZERO;
    if(!host) (void) gethostname(host = myhost,sizeof(myhost));

    his->sin_family = AF_INET;
    his->sin_port   = htons((unsigned short) port);

    if((his->sin_addr.s_addr = rhost(&host)) == -1) return(-1);

    return(0);
}

_x_select(readfds, tt)
    int *readfds;
    long tt;				/* Time to wait in miniseconds. */
{
    int  code;
    long mask = *readfds;

    if(tt & 0xc0000000) tt = 0x3fffffff;/* It does not like 0x7fffffff. */

    code = select(DSIZE, &mask, (long *) 0, tt);

    *readfds = mask;

    return(code);
}

recvfrom(s, msg, len, flags, from, fromlen)
    char *msg;
    int s, len, flags, *fromlen;
    struct sockaddr_in *from;
{
    return(receive(s,from,msg,len));
}

sendto(s, msg, len, flags, to, tolen)
    char *msg;
    int s, len, flags, tolen;
    struct sockaddr_in *to;
{
     to->sin_family = AF_INET;
     return(send(s,to,msg,len));
}

#endif /* EXOS_IPC */