#ifndef LINT
static char *rcsid="$Id: eph_open.c,v 2.25 2000/08/13 21:51:48 crosser Exp $";
#endif

/*
	Copyright (c) 1997-2000 Eugene G. Crosser
	Copyright (c) 1998 Bruce D. Lightner (DOS/Windows support)

	You may distribute and/or use for any purpose modified or unmodified
	copies of this software if you preserve the copyright notice above.

	THIS SOFTWARE IS PROVIDED AS IS AND COME WITH NO WARRANTY OF ANY
	KIND, EITHER EXPRESSED OR IMPLIED.  IN NO EVENT WILL THE
	COPYRIGHT HOLDER BE LIABLE FOR ANY DAMAGES RESULTING FROM THE
	USE OF THIS SOFTWARE.
*/

/*
	$Log: eph_open.c,v $
	Revision 2.25  2000/08/13 21:51:48  crosser
	More changes incorporated from John Bowman's version
	
	Revision 2.24  2000/05/09 13:20:54  crosser
	configure read() with alarm() better.
	Address signed vs. unsigned arguments
	other cleanups to make most notorious compilers happy
	
	Revision 2.23  2000/05/02 22:26:35  crosser
	A few things incorporated from John Bowman's Nikon specific diffs
	
	Revision 2.22  2000/05/02 12:13:32  crosser
	some better debugging output
	alarm() based timeouted read (build with "--without-select")
	
	Revision 2.21  1999/12/13 23:26:52  crosser
	Fix minor bugs in sgtty support, reported to work now.
	
	Revision 2.20  1999/12/11 14:10:15  crosser
	Support sgtty terminal control
	Proper "fake speed" handling (needed two values)
	
	Revision 2.19  1999/12/01 21:41:23  crosser
	add "pseudo" speed
	
	Revision 2.18  1999/08/01 21:36:54  crosser
	Modify source to suit ansi2knr
	(I hate the style that ansi2knr requires but you don't expect me
	to write another smarter ansi2knr implementation, right?)

	Revision 2.17  1999/03/06 13:37:08  crosser
	Convert to autoconf-style

	Revision 2.16  1999/02/10 22:09:36  crosser
	strerror needs string.h with glibc2

	Revision 2.15  1998/12/20 21:49:38  crosser
	move flushinput to more proper place

	Revision 2.14  1998/10/18 13:18:27  crosser
	Put RCS logs and I.D. into the source

	Revision 2.13  1998/08/08 14:00:33  crosser
	make switchoff friendly to Olympus
	
	Revision 2.12  1998/08/01 13:12:41  lightner
	Four ports for DOS
	
	Revision 2.11  1998/08/01 12:30:50  crosser
	flushinput function
	
	Revision 2.10  1998/05/09 18:21:08  crosser
	change O_NONBLOCK to O_NDELAY (is it correct?  I don't know.  On most
	systems they are the same, but what if they are not?  Tell me if you
	have problems.)
	
	Revision 2.9  1998/04/09 07:38:44  crosser
	fix semantics of the "switch off" arg
	
	Revision 2.8  1998/02/26 00:50:39  crosser
	change c_breake code for compatibility
	
	Revision 2.7  1998/02/25 22:47:24  crosser
	fix saving termios data
	
	Revision 2.6  1998/02/16 06:15:05  lightner
	Call _cexit() in ^C handler
	
	Revision 2.5  1998/01/27 21:52:55  crosser
	clean up error message, remove unneeded speep
	
	Revision 2.4  1998/01/18 02:16:45  crosser
	DOS support
	
	Revision 2.3  1998/01/05 19:47:49  lightner
	Win32 syntax error fixed: text->commtext
	
	Revision 2.2  1998/01/04 13:55:57  crosser
	add param for close mode
	
	Revision 2.1  1998/01/03 19:57:13  crosser
	Fix Windows things, improve error reporting
	
	Revision 2.0  1998/01/02 19:20:11  crosser
	Added support for Win32
	
	Revision 1.4  1997/12/24 00:19:13  crosser
	Change default speed to 115200
	
	Revision 1.3  1997/11/03 23:25:11  crosser
	add immediate session finish command
	
	Revision 1.2  1997/09/12 09:42:35  crosser
	skip possible NULs prior to `camera signature'
	
	Revision 1.1  1997/08/17 08:59:54  crosser
	Initial revision
	
*/

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#include <sys/types.h>
#if defined(MSWINDOWS)
#include "usleep.h"
#elif defined(UNIX)
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
#include <termios.h>
#elif defined(DOS)
#include "comio.h"
#include "usleep.h"
#else
 # error platform not defined
#endif
#include <stdio.h>
#ifdef STDC_HEADERS
#include <stdlib.h>
#include <string.h>
#endif
#ifdef HAVE_FCNTL_H
#include <fcntl.h>
#endif
#include <errno.h>
#include "eph_io.h"
#include "eph_priv.h"

#ifdef MSWINDOWS
#define ERRNO GetLastError()
#else
#define ERRNO errno
#endif

#define DEFSPEED 19200

#if defined(MSWINDOWS)

#define CLOSE CloseHandle

#elif defined(UNIX)

#define CLOSE close

#elif defined(DOS)

#define CLOSE(x)  ttclose()

void
exit_cleanup(void)
{
	ttclose();
}

#define ABORT 0

int
c_break(void)
{
	printf("\naborting program...%c\n", 7);
	ttclose();
	exit(255);	/* will call any exit handlers */
	/* notreached */
}

#else
 # error platform not defined
#endif

#ifdef UNIX
speed_t
speed2flag(long ttspeed)
{
	speed_t tspeed;

	switch (ttspeed) {
	case 50:
		tspeed=B50;
		break;
	case 75:
		tspeed=B75;
		break;
	case 150:
		tspeed=B150;
		break;
	case 300:
		tspeed=B300;
		break;
	case 600:
		tspeed=B600;
		break;
	case 1200:
		tspeed=B1200;
		break;
	case 2400:
		tspeed=B2400;
		break;
	case 4800:
		tspeed=B4800;
		break;
	case 9600:
		tspeed=B9600;
		break;
	case 19200:
#ifdef B19200
		tspeed=B19200;
#else
		tspeed=EXTA;
#endif
		break;
	case 38400:
#ifdef B38400
		tspeed=B38400;
#else
		tspeed=EXTB;
#endif
		break;
	case 57600:
#ifdef B57600
		tspeed=B57600;
#else
		tspeed=(speed_t)-1;
#endif
		break;
	case 115200:
#ifdef B115200
		tspeed=B115200;
#else
		tspeed=(speed_t)-1;
#endif
		break;
	default:
		tspeed=(speed_t)-1;
		break;
	}
	return tspeed;
}
#endif /* UNIX */

int
eph_open(eph_iob *iob,char *devname,long speed,long defttspeed,long ttspeed)
{
#if defined(MSWINDOWS)
	DCB dcb = { 0 };
	char commtext[80];
#elif defined(UNIX)
#if defined(USE_TERMIOS)
	struct termios tios;
#elif defined(USE_SGTTY)
	struct sgttyb sgtty;
#elif defined(USE_TERMIO)
	struct termio tio;
#endif
	speed_t tspeed; /* representation of speed sutable for termios */
	speed_t deftspeed;
#elif defined(DOS)
	int port;
#else
 # error platform not defined
#endif
	long ephspeed; /* representation of speed sutable for camera command */
	int rc;
	int count=0;

	/* speed is real, tell it to the camera.  ttspeed is what you have
	   to tell to the serial driver to make it set real speed */

	if (speed == 0) speed=MAX_SPEED;
	if (ttspeed == 0) ttspeed=speed;
	if (defttspeed == 0) defttspeed=DEFSPEED;

	switch (speed) {
	case 9600:	ephspeed=1;	break;
	case 19200:	ephspeed=2;	break;
	case 38400:	ephspeed=3;	break;
	case 57600:	ephspeed=4;	break;
	case 115200:	ephspeed=5;	break;
	default:
		eph_error(iob,ERR_BADSPEED,"specified speed %ld invalid",speed);
		return -1;
	}

#if defined(UNIX)
	if ((tspeed=speed2flag(ttspeed)) == (speed_t)-1) {
		eph_error(iob,ERR_BADSPEED,"specified speed %ld unsupported",
				ttspeed);
		return -1;
	}
	if ((deftspeed=speed2flag(defttspeed)) == (speed_t)-1) {
		eph_error(iob,ERR_BADSPEED,"specified speed %ld unsupported",
				defttspeed);
		return -1;
	}
#endif /* UNIX */

	iob->timeout=DATATIMEOUT+((2048000000L)/speed)*10;
	if (iob->debug) printf("set timeout to %lu\n",DATATIMEOUT+iob->timeout);

#if defined(DOS)
	if (strcasecmp(devname,"COM1:") == 0) {
		port = 1;
	} else if (strcasecmp(devname,"COM2:") == 0) {
		port = 2;
	} else if (strcasecmp(devname,"COM3:") == 0) {
		port = 3;
	} else if (strcasecmp(devname,"COM4:") == 0) {
		port = 4;
	} else {
		eph_error(iob,ERRNO,"device name %s not COM1:, COM2:, COM3: or COM4:",
					devname);
		return -1;
	}
	ctrlbrk(c_break);
	atexit(exit_cleanup);
	usleep(1);
	if (iob->debug)
		printf("delay factor: %g loops/usec\n",(float)delay_factor);
	TTinit(port, DEFSPEED);
	if (ttopen()) {
		errno=2;
#elif defined(MSWINDOWS)
	if ((iob->fd=CreateFile(devname,
				GENERIC_READ | GENERIC_WRITE,
				0,
				0,
				OPEN_EXISTING,
				0,
				0)) == INVALID_HANDLE_VALUE) {
#elif defined(UNIX)
	if ((iob->fd=open(devname,O_RDWR | O_NDELAY)) < 0) {
#else
 # error platform not defined
#endif
		if (strlen(devname) < 400) /* we have 512 byte buffer there */
			eph_error(iob,ERRNO,"open %s error %s",
						devname,strerror(ERRNO));
		return -1;
	}

#if defined(MSWINDOWS)

	if (!GetCommState(iob->fd, &dcb)) {
		eph_error(iob,ERRNO,"GetCommState error %s",strerror(ERRNO));
		CLOSE(iob->fd);
		return -1;
	}

	memcpy(&iob->savedcb,&dcb,sizeof(dcb));
	memset((char*)&dcb,0,sizeof(dcb));
	dcb.DCBlength = sizeof(dcb);
	sprintf(commtext, "%d,n,8,1", DEFSPEED);
	if (!BuildCommDCB(commtext, &dcb)) {
		eph_error(iob,ERRNO,"BuildCommDCB error %s",strerror(ERRNO));
		CLOSE(iob->fd);
		return -1;
	}
	if (!SetCommState(iob->fd, &dcb)) {
		eph_error(iob,ERRNO,"SetCommState error %s",strerror(ERRNO));
		CLOSE(iob->fd);
		return -1;
	}

	if (!GetCommTimeouts(iob->fd, &iob->savetimeouts)) {
		eph_error(iob,ERRNO,"GetCommTimeouts error %s",strerror(ERRNO));
		CLOSE(iob->fd);
		return -1;
	}
	iob->worktimeouts.ReadIntervalTimeout=0;
	iob->worktimeouts.ReadTotalTimeoutMultiplier=1;
	iob->worktimeouts.ReadTotalTimeoutConstant=1000;
	iob->worktimeouts.WriteTotalTimeoutMultiplier=0;
	iob->worktimeouts.WriteTotalTimeoutConstant=0;
	if (!SetCommTimeouts(iob->fd, &iob->worktimeouts)) {
		eph_error(iob,ERRNO,"SetCommTimeouts initial attr error %s",
					strerror(ERRNO));
		CLOSE(iob->fd);
		return -1;
	}

#elif defined(UNIX)
#if defined(USE_TERMIOS)
	if (tcgetattr(iob->fd,&tios) < 0) {
		eph_error(iob,ERRNO,"tcgetattr error %s",strerror(ERRNO));
		close(iob->fd);
		return -1;
	}
	memcpy(&iob->savetios,&tios,sizeof(tios));
#ifdef HAVE_CFMAKERAW
	cfmakeraw(&tios);
#else
	tios.c_iflag=0;
	tios.c_oflag=0;
	tios.c_lflag=0;
#endif
	cfsetospeed(&tios,deftspeed);
	cfsetispeed(&tios,deftspeed);
#ifdef USE_VMIN_AND_VTIME
	tios.c_cc[VMIN]=127;
	tios.c_cc[VTIME]=1;
#else
	tios.c_cc[VMIN]=1;
	tios.c_cc[VTIME]=0;
#endif
	tios.c_cflag|=(CS8|CLOCAL|CREAD);
	tios.c_cflag&=~(PARENB|PARODD
#ifdef TRY_FLOW_CONTROL
# ifdef CRTSXOFF
					|CRTSXOFF
# endif
# ifdef CRTSCTS
						|CRTSCTS
# endif
# ifdef CRTSFL
							|CRTSFL
# endif
#endif
								);
	tios.c_iflag&=~INPCK;
	tios.c_iflag|=IGNBRK;
	if (tcsetattr(iob->fd,TCSANOW,&tios)) {
		eph_error(iob,ERRNO,"tcsetattr initial attr error %s",
					strerror(ERRNO));
		close(iob->fd);
		return -1;
	}
#elif defined(USE_SGTTY)
	if (ioctl(iob->fd, TIOCGETP, &sgtty) < 0) {
		eph_error(iob,ERRNO,"ioctl/TIOCGETP error %s",strerror(ERRNO));
		close(iob->fd);
		return -1;
	}
	memcpy(&iob->savesgtty,&sgtty,sizeof(sgtty));
	sgtty.sg_ispeed = deftspeed;
	sgtty.sg_ospeed = deftspeed;
	sgtty.sg_erase = 0;
	sgtty.sg_kill = 0;
	sgtty.sg_flags = RAW;
	if (ioctl(iob->fd, TIOCSETN, &sgtty) < 0) {
		eph_error(iob,ERRNO,"ioctl/TIOCSETN initial attr error %s",
					strerror(ERRNO));
		close(iob->fd);
		return -1;
	}
#elif defined(USE_TERMIO)
 # error "termio not supported"
#endif /* terminal control selection */

#ifdef USE_ALARMED_READ
	if (((iob->flag)=fcntl(iob->fd,F_GETFL,0L)) == -1) {
		eph_error(iob,ERRNO,"fcntl(GETFL) failed: %s",
			strerror(ERRNO));
		close(iob->fd);
		return -1;
	}
	iob->flag&=~O_NDELAY;
	if (fcntl(iob->fd,F_SETFL,iob->flag) == -1) {
		eph_error(iob,ERRNO,"fcntl(reset O_NDELAY) failed: %s",
			strerror(ERRNO));
		close(iob->fd);
		return -1;
	}
#endif

#endif /* MSWINDOWS/UNIX; do nothing for DOS */

	do {
		if (eph_flushinput(iob)) {
			eph_error(iob,ERRNO,"error flushing input: %s",
					strerror(ERRNO));
			CLOSE(iob->fd);
			return -1;
		}
		eph_writeinit(iob);
		rc=eph_waitsig(iob);
		if (rc) usleep(500000L);
	} while (rc && (count++ < RETRIES));
	if (rc) {
		CLOSE(iob->fd);
		return -1;
	}

	if (eph_setispeed(iob,ephspeed)) {
		eph_error(iob,ERRNO,"could not switch camera speed %d: %s",
				ephspeed,strerror(ERRNO));
		CLOSE(iob->fd);
		return -1;
	}

#if defined(MSWINDOWS)
	dcb.BaudRate = ttspeed;
	if (!SetCommState(iob->fd, &dcb)) {
		eph_error(iob,ERRNO,"SetCommState working attr error %s",
					strerror(ERRNO));
		CLOSE(iob->fd);
		return -1;
	}
#elif defined(UNIX)
#if defined(USE_TERMIOS)
	cfsetospeed(&tios,tspeed);
	cfsetispeed(&tios,tspeed);
	if (tcsetattr(iob->fd,TCSANOW,&tios)) {
		eph_error(iob,ERRNO,"tcsetattr working attr error %s",
					strerror(ERRNO));
		close(iob->fd);
		return -1;
	}
#elif defined(USE_SGTTY)
	sgtty.sg_ispeed = tspeed;
	sgtty.sg_ospeed = tspeed;
	if (ioctl(iob->fd, TIOCSETN, &sgtty)) {
		eph_error(iob,ERRNO,"ioctl/TIOCSETN cound not reset attr: %s",
					strerror(ERRNO));
		close(iob->fd);
		return -1;
	}
#elif defined(USE_TERMIO)
 # error "termio not supported"
#endif
#elif defined(DOS)
	ttclose();
	TTinit(port, ttspeed);
	if (ttopen()) {
		errno = 0;
		eph_error(iob,ERRNO,"dobaud set working attr error %s",
					strerror(ERRNO));
		CLOSE(iob->fd);
		return -1;
	}
#else
 # error platform not defined
#endif

	usleep(SPEEDCHGDELAY);
	return 0;
}

int
eph_close(eph_iob *iob,int switchoff)
{
	if (switchoff) {
		char zero=0;

		eph_action(iob,4,&zero,1);
		/* Oly 600 does not send EOT if switched off by command
		eph_waiteot(iob); */
	} else {
		eph_setispeed(iob,0L);
	}

#if defined(MSWINDOWS)
	if (!SetCommState(iob->fd, &iob->savedcb))
		eph_error(iob,ERRNO,"SetCommState reset attr error %s",
					strerror(ERRNO));
	if (!SetCommTimeouts(iob->fd, &iob->savetimeouts))
		eph_error(iob,ERRNO,"SetCommTimeouts reset attr error %s",
					strerror(ERRNO));
#elif defined(UNIX)
#if defined(USE_TERMIOS)
	if (tcsetattr(iob->fd,TCSANOW,&iob->savetios))
		eph_error(iob,ERRNO,"tcsetattr cound not reset attr: %s",
					strerror(ERRNO));
#elif defined(USE_SGTTY)
	if (ioctl(iob->fd, TIOCSETN, &iob->savesgtty))
		eph_error(iob,ERRNO,"tcsetattr cound not reset attr: %s",
					strerror(ERRNO));
#elif defined(USE_TERMIO)
 # error "termio not supported"
#endif
#endif /* MSWINDOWS/UNIX; do nothing for DOS */

	return CLOSE(iob->fd);
}