#include <string.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <unistd.h>
#include <errno.h>

#define MYPORT 5897
#define BACKLOG 10
#define DATALEN 13

int main (void) {

	int sockfd, new_fd;
    struct sockaddr_in my_addr;
    struct sockaddr_in their_addr;
    int sin_size;

    char data[DATALEN];

    int bytes_sent;

    extern int errno;

    /* Set up the IEC program structures */
    iec_scan_init (RL_COLD_START);

	/* Set up the socket */
    sockfd = socket(AF_INET, SOCK_STREAM, 0);

    my_addr.sin_family = AF_INET;
    my_addr.sin_port = htons(MYPORT);
    my_addr.sin_addr.s_addr = INADDR_ANY;
    memset(&(my_addr.sin_zero), '\0', 8);

    bind(sockfd, (struct sockaddr *)&my_addr, sizeof(struct sockaddr));

    listen(sockfd, BACKLOG);

    sin_size = sizeof(struct sockaddr_in);

    /* And now we wait for a connection */
    new_fd = accept(sockfd, (struct sockaddr *)&their_addr, &sin_size);

    if (new_fd == -1) {
	    printf ("Couldn't accept connection\n");
    }

    printf ("Client connected\n");

	/* Send the results to the client */
	sprintf (data, "%d,%d,%d,%d,%d,%d", 1, 2, 3, 4, 5, 6);

	printf ("Sending results\n");
	bytes_sent = send (sockfd, data, strlen (data), 0);
	if (bytes_sent == -1) {
		switch (errno) {
			case EBADF: printf ("Invalid socket file descriptor\n"); break;
			case EINTR: printf ("Operation interrupted\n"); break;
			case ENOTSOCK: printf ("Descriptor is not a socket\n"); break;
			case EMSGSIZE: printf ("Message is too large\n"); break;
			case EWOULDBLOCK: printf ("Operation would block\n"); break;
			case ENOBUFS: printf ("Not enough internal buffer space\n"); break;
			case ENOTCONN: printf ("Socket is not connected\n"); break;
			case EPIPE: printf ("Connection broken\n"); break;
			default: printf ("Unknown error\n");
		}
	}

	while (1) {
		/* Send the results to the client */
		sprintf (data, "%d,%d,%d,%d,%d,%d", 1, 2, 3, 4, 5, 6);

		printf ("Sending results\n");
		bytes_sent = send (sockfd, data, strlen (data), 0);
		if (bytes_sent == -1) {
			switch (errno) {
				case EBADF: printf ("Invalid socket file descriptor\n"); break;
				case EINTR: printf ("Operation interrupted\n"); break;
				case ENOTSOCK: printf ("Descriptor is not a socket\n"); break;
				case EMSGSIZE: printf ("Message is too large\n"); break;
				case EWOULDBLOCK: printf ("Operation would block\n"); break;
				case ENOBUFS: printf ("Not enough internal buffer space\n"); break;
				case ENOTCONN: printf ("Socket is not connected\n"); break;
				case EPIPE: printf ("Connection broken\n"); break;
				default: printf ("Unknown error\n");
			}
		}

		sleep (1);
	}
}