mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-08 18:16:02 -05:00
eaa540b65b
- Remove alsa/oss from configure.ac and regenerate configure file. - Note it is MAP65 not WSJT. - rfile3a.f90 -> rfile3a.F90 for gfortran preprocessor. - Comment out compiler option that does not work on gfortran for now. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@1151 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
65 lines
1.6 KiB
C
65 lines
1.6 KiB
C
#include <winsock2.h>
|
|
#include <ws2tcpip.h>
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
|
|
#define HELLO_PORT 50004
|
|
//#define HELLO_GROUP "239.255.0.0"
|
|
#define HELLO_GROUP "127.0.0.1"
|
|
|
|
struct sockaddr_in addr;
|
|
int fd;
|
|
|
|
void __stdcall SETUP_SSOCKET(void)
|
|
{
|
|
struct ip_mreq mreq;
|
|
|
|
// Make sure that we have compatible Winsock support
|
|
WORD wVersionRequested;
|
|
WSADATA wsaData;
|
|
int err;
|
|
|
|
wVersionRequested = MAKEWORD( 2, 2 );
|
|
err = WSAStartup( wVersionRequested, &wsaData );
|
|
if ( err != 0 ) {
|
|
/* Tell the user that we could not find a usable */
|
|
/* WinSock DLL. */
|
|
exit(1);
|
|
}
|
|
|
|
/* Confirm that the WinSock DLL supports 2.2.*/
|
|
/* Note that if the DLL supports versions greater */
|
|
/* than 2.2 in addition to 2.2, it will still return */
|
|
/* 2.2 in wVersion since that is the version we */
|
|
/* requested. */
|
|
|
|
if ( LOBYTE( wsaData.wVersion ) != 2 ||
|
|
HIBYTE( wsaData.wVersion ) != 2 ) {
|
|
/* Tell the user that we could not find a usable */
|
|
/* WinSock DLL. */
|
|
WSACleanup( );
|
|
exit(1);
|
|
}
|
|
/* The WinSock DLL is acceptable. Proceed. */
|
|
|
|
/* create what looks like an ordinary UDP socket */
|
|
if ((fd=socket(AF_INET,SOCK_DGRAM,IPPROTO_UDP)) < 0) {
|
|
perror("socket");
|
|
exit(1);
|
|
}
|
|
|
|
/* 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_port=htons(HELLO_PORT);
|
|
}
|
|
|
|
void __stdcall SEND_PKT(char buf[])
|
|
{
|
|
if (sendto(fd,buf,1416,0,
|
|
(struct sockaddr *) &addr, sizeof(addr)) < 0) {
|
|
perror("sendto");
|
|
exit(1);}
|
|
}
|