/*
 * Test name: test14.c
 *
 * Objetive: The purpose of this test is to make sure that select works
 * with ptys.
 *
 * Adapted from test11.c (pipe test).
 * 
 * Ben Gras
 */
#include <time.h>
#include <sys/types.h>
#include <sys/wait.h>
#include <sys/asynchio.h>
#include <fcntl.h>
#include <unistd.h>
#include <sys/select.h>
#include <stdio.h>
#include <stdlib.h>
#include <limits.h>
#include <string.h>
#include <signal.h>
#include <libutil.h>
char name[100];
void pipehandler(int sig)
{
}
#define CHILDFD 1
#define PARENTFD 0
void do_child(int pty_fds[]) 
{
	/* reads from pipe and prints out the data */
	char data[2048];
	int retval;	 
	fd_set fds_read;
	fd_set fds_exception;	
	struct timeval timeout;
	signal(SIGPIPE, pipehandler);
	signal(SIGUSR1, pipehandler);
	/* first, close the write part, since it is not needed */
	close(pty_fds[PARENTFD]);
	
	while(1) {
		FD_ZERO(&fds_read);
		FD_ZERO(&fds_exception);
		FD_SET(pty_fds[CHILDFD], &fds_read);
		FD_SET(pty_fds[CHILDFD], &fds_exception);
		timeout.tv_sec = 5;
		timeout.tv_usec = 0;
		retval = select(pty_fds[CHILDFD]+2,  &fds_read, NULL, &fds_exception, &timeout);
		if (retval == -1) {
			perror("select");
			fprintf(stderr, "child: Error in select\n");
			continue;
		} else printf("child select: %d\n", retval);
		if (FD_ISSET(pty_fds[CHILDFD], &fds_exception)) {
			printf("child: exception fd set. quitting.\n");
			break;
		}
		if (FD_ISSET(pty_fds[CHILDFD], &fds_read)) {
			printf("child: read fd set. reading.\n");
			if ((retval = read(pty_fds[CHILDFD], data, sizeof(data))) < 0) {
				perror("read");
				fprintf(stderr, "child: couldn't read from pty\n");
				exit(-1);
			}
			if(retval == 0) {
				fprintf(stderr, "child: eof on pty\n");
				break;
			}
			data[retval] = '\0';
			printf("pid %d pty reads (%d): %s\n", getpid(), retval, data);
		} else printf("child: no fd set\n");
	}
	
	exit(0);
}
void do_parent(int pty_fds[]) 
{
	char data[1024];
	int retval;
	fd_set fds_write;
	signal(SIGPIPE, pipehandler);
	signal(SIGUSR1, pipehandler);
	/* first, close the read part of pty, since it is not needed */
	close(pty_fds[CHILDFD]);
	/* now enter a loop of read user input, and writing it to the pty */
	while (1) {
		FD_ZERO(&fds_write);
		FD_SET(pty_fds[PARENTFD], &fds_write);
		printf("pid %d Waiting for pty ready to write on %s...\n",
			getpid(), name);
		retval = select(pty_fds[PARENTFD]+2, NULL, &fds_write, NULL, NULL);
		if (retval == -1) {
			perror("select");
			fprintf(stderr, "Parent: Error in select\n");
			exit(-1);
		}		
		printf("Input data: ");
		if(!gets(data)) {
			printf("parent: eof; exiting\n");
			break;
		}
		if (!strcmp(data, "exit"))
			break;
		if (!FD_ISSET(pty_fds[PARENTFD], &fds_write)) {
			fprintf(stderr, "parent: write fd not set?! retrying\n");
			continue;
		}
		retval = write(pty_fds[PARENTFD], data, 1024);
		if (retval == -1) {
			perror("write");
			fprintf(stderr, "Error writing on pty\n");
			exit(-1);
		} else printf("wrote %d\n", retval);
	}
	/* got exit from user */
	close(pty_fds[PARENTFD]);	/* close pty, let child know we're done */
	wait(&retval);
	printf("Child exited with status: %d\n", retval);
	exit(0);
}
int main(int argc, char *argv[])
{
	int ptys[2];
	int retval;
	int pid;	
	if(openpty(&ptys[0], &ptys[1], name, NULL, NULL) < 0) {
		perror("openpty");
		return 1;
	}
	printf("Using %s\n", name);
	pid = fork();
	if (pid == -1) {
		fprintf(stderr, "Error forking\n");
		exit(-1);
	}
	if (pid == 0) /* child proc */
		do_child(ptys);
	else
		do_parent(ptys);
	/* not reached */
	return 0;
}