WSJT-X/plrs_subs.c
Joe Taylor a0e2fc7989 Change file names .F to .f, .F90 to .f90
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@2455 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2011-10-03 20:02:58 +00:00

42 lines
867 B
C

#include <sys/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <time.h>
#include <stdio.h>
#include <arpa/inet.h>
#include <string.h>
#include <stdlib.h>
#define HELLO_PORT 50004
#define HELLO_GROUP "239.255.0.0"
struct sockaddr_in addr;
int fd;
void setup_ssocket_(void)
{
struct ip_mreq mreq;
/* create what looks like an ordinary UDP socket */
if ((fd=socket(AF_INET,SOCK_DGRAM,0)) < 0) {
perror("socket");
exit(EXIT_FAILURE);
}
/* set up destination address */
memset(&addr,0,sizeof(addr));
addr.sin_family=AF_INET;
// addr.sin_addr.s_addr=inet_addr(HELLO_GROUP);
addr.sin_addr.s_addr=inet_addr("128.112.87.74");
addr.sin_port=htons(HELLO_PORT);
}
void send_pkt_(char buf[])
{
if (sendto(fd,buf,1416,0,(struct sockaddr *) &addr,
sizeof(addr)) < 0) {
perror("sendto");
exit(EXIT_FAILURE);}
}