#include "ofSerial.h"



//---------------------------------------------
#ifdef TARGET_WIN32
//---------------------------------------------

//------------------------------------
   // needed for serial bus enumeration:
   //4d36e978-e325-11ce-bfc1-08002be10318}
   DEFINE_GUID (GUID_SERENUM_BUS_ENUMERATOR, 0x4D36E978, 0xE325, 
   0x11CE, 0xBF, 0xC1, 0x08, 0x00, 0x2B, 0xE1, 0x03, 0x18);
//------------------------------------	       


void ofSerial::enumerateWin32Ports(){
	
	if (bPortsEnumerated == true) return;
	
	HDEVINFO hDevInfo = NULL;
	SP_DEVINFO_DATA DeviceInterfaceData;
	int i = 0;
	DWORD dataType, actualSize = 0;
	unsigned char dataBuf[MAX_PATH];

	// Reset Port List
	nPorts = 0;
	// Search device set
 	hDevInfo = SetupDiGetClassDevs((struct _GUID *)&GUID_SERENUM_BUS_ENUMERATOR,0,0,DIGCF_PRESENT);
  	if ( hDevInfo ){
		while (TRUE){
			ZeroMemory(&DeviceInterfaceData, sizeof(DeviceInterfaceData));
			DeviceInterfaceData.cbSize = sizeof(DeviceInterfaceData);
			if (!SetupDiEnumDeviceInfo(hDevInfo, i, &DeviceInterfaceData)){
		    	// SetupDiEnumDeviceInfo failed
		    	break;
			}

			if (SetupDiGetDeviceRegistryProperty(hDevInfo,
		   		&DeviceInterfaceData,
		    	SPDRP_FRIENDLYNAME,
		    	&dataType,
		    	dataBuf,
		    	sizeof(dataBuf),
		    	&actualSize)){                           
		    
		    	sprintf(portNamesFriendly[nPorts], "%s", dataBuf);
				portNamesShort[nPorts][0] = 0;
				
				// turn blahblahblah(COM4) into COM4
				
				char *	begin 	= NULL;
				char *	end 	= NULL;
				begin 			= strstr((char *)dataBuf, "COM");
				end 			= strstr(begin, ")");
				
				if (begin){
				if (end){
			       	*end = 0;	// get rid of the )...
			      	strcpy(portNamesShort[nPorts], begin);
				}        
				}
			
				if (nPorts++ > MAX_SERIAL_PORTS) break;
			}
            i++;
		}
	}
	SetupDiDestroyDeviceInfoList(hDevInfo);
	
	bPortsEnumerated = false;
}

//---------------------------------------------
#endif
//---------------------------------------------



//----------------------------------------------------------------
ofSerial::ofSerial(){
	
	//---------------------------------------------
	#ifdef TARGET_WIN32
	//---------------------------------------------
		nPorts 				= 0;
		bPortsEnumerated 	= false;
		
		portNamesShort = new char * [MAX_SERIAL_PORTS];
		portNamesFriendly = new char * [MAX_SERIAL_PORTS];
		for (int i = 0; i < MAX_SERIAL_PORTS; i++){
			portNamesShort[i] = new char[10];
			portNamesFriendly[i] = new char[MAX_PATH];
		}	
	//---------------------------------------------
	#endif
	//---------------------------------------------
	bVerbose = false;
}

//----------------------------------------------------------------
ofSerial::~ofSerial(){
	
	close();

	

	//---------------------------------------------
	#ifdef TARGET_WIN32
	//---------------------------------------------
		nPorts 				= 0;
		bPortsEnumerated 	= false;
	
		for (int i = 0; i < MAX_SERIAL_PORTS; i++) {
			delete [] portNamesShort[i];
			delete [] portNamesShort[i];
		}
		delete [] portNamesShort;
		delete [] portNamesShort;

	//---------------------------------------------
	#endif
	//---------------------------------------------
	
	bVerbose = false;
	bInited = false;
}


//----------------------------------------------------------------
void ofSerial::enumerateDevices(){

	//---------------------------------------------
	#if defined( TARGET_OSX ) || defined( TARGET_LINUX )
	//---------------------------------------------

		//----------------------------------------------------
		//We will find serial devices by listing the directory
		
		DIR *dir;
		struct dirent *entry;
		dir = opendir("/dev");
		string str			= "";
		string device		= "";
			

		if (dir == NULL){
			printf("ofSerial: error listing devices in /dev\n");
		} else {
			printf("ofSerial: listing devices\n");
			while ((entry = readdir(dir)) != NULL){	
				str = (char *)entry->d_name;
				if( str.substr(0,3) == "cu." ){
					printf("device %i - %s  \n", count, str.c_str());
					count++;
				}
			}
		}
		
	//---------------------------------------------
    #endif
    //---------------------------------------------

	//---------------------------------------------
	#ifdef TARGET_WIN32
	//---------------------------------------------
		
		enumerateWin32Ports();
		printf("ofSerial: listing devices (%i total)\n", nPorts);
		for (int i = 0; i < nPorts; i++){
			printf("device %i -- %s\n", i, portNamesFriendly[i]);
		}
		
	//---------------------------------------------
    #endif
    //---------------------------------------------

}
		
		
		
		
//----------------------------------------------------------------				
void ofSerial::close(){
	
	//---------------------------------------------
	#ifdef TARGET_WIN32
	//---------------------------------------------
		if (bInited){
			SetCommTimeouts(hComm,&oldTimeout);
			CloseHandle(hComm);
			hComm 		= INVALID_HANDLE_VALUE;
			bInited 	= false;
		}
	//---------------------------------------------
    #else 
    //---------------------------------------------
    	if (bInited){
    		tcsetattr(fd,TCSANOW,&options);
    		close(fd);
    	}
    	// [CHECK] -- anything else need to be reset?
    //---------------------------------------------
    #endif
    //---------------------------------------------
    
}	
	
//----------------------------------------------------------------		
bool ofSerial::setup(){
	return setup(0,9600);		// the first one, at 9600 is a good choice...
}

//----------------------------------------------------------------
bool ofSerial::setup(int deviceNumber, int baud){
	
	
	int count = 0;
	
	string str			= "";
	string device		= "";
	bool deviceFound	= false;
		
	//---------------------------------------------
	#if defined( TARGET_OSX ) || defined( TARGET_LINUX )
	//---------------------------------------------

		//----------------------------------------------------
		//We will find serial devices by listing the directory
		
		DIR *dir;
		struct dirent *entry;
		dir = opendir("/dev");

		if (dir == NULL){
			printf("ofSerial: error listing devices in /dev\n");
		}
		
		while ((entry = readdir(dir)) != NULL){	
			str = (char *)entry->d_name;
			if( str.substr(0,3) == "cu." ){
				if(count == deviceNumber){
					device = "/dev/"+str;
					deviceFound = true;
					printf("ofSerial device %i - /dev/%s  <--selected\n", count, str.c_str());
				}else printf("ofSerial device %i - /dev/%s\n", count, str.c_str());
				count++;
			}
		}
		
		
	//---------------------------------------------
    #endif
    //---------------------------------------------

	//---------------------------------------------
	#ifdef TARGET_WIN32
	//---------------------------------------------

		enumerateWin32Ports();
		if (deviceNumber < nPorts){
			device = portNamesShort[deviceNumber];
			deviceFound = true;
		}
		
	
	//---------------------------------------------
    #endif
    //---------------------------------------------

	if(deviceFound){
		return setup(device, baud);
	}else{
		printf("ofSerial: could not find device %i - only %i devices found\n", deviceNumber, count);
		return false;
	}

}

//----------------------------------------------------------------
bool ofSerial::setup(string portName, int baud){

	bInited = false;

	//---------------------------------------------
	#if defined( TARGET_OSX ) || defined( TARGET_LINUX )
	//---------------------------------------------
	
	    printf("ofSerialInit: opening port %s @ %d bps\n", portName.c_str(), baud);
		fd = open(portName.c_str(), O_RDWR | O_NOCTTY | O_NDELAY);
		if(fd == -1){
			printf("ofSerial: unable to open port\n");
			return false;
		}

		struct termios options;
		tcgetattr(fd,&oldoptions);
		options = oldoptions;
		switch(baud){
		   case 300: 	cfsetispeed(&options,B300);
						cfsetospeed(&options,B300);
						break;
		   case 1200: 	cfsetispeed(&options,B1200);
						cfsetospeed(&options,B1200);
						break;		   
		   case 2400: 	cfsetispeed(&options,B2400);
						cfsetospeed(&options,B2400);
						break;		
		   case 4800: 	cfsetispeed(&options,B4800);
						cfsetospeed(&options,B4800);
						break;	
		   case 9600: 	cfsetispeed(&options,B9600);
						cfsetospeed(&options,B9600);
						break;
		   case 14400: 	cfsetispeed(&options,B14400);
						cfsetospeed(&options,B14400);
						break;						
		   case 19200: 	cfsetispeed(&options,B19200);
						cfsetospeed(&options,B19200);
						break;
		   case 28800: 	cfsetispeed(&options,B28800);
						cfsetospeed(&options,B28800);
						break;
		   case 38400: 	cfsetispeed(&options,B38400);
						cfsetospeed(&options,B38400);
						break;
		   case 57600:  cfsetispeed(&options,B57600);
						cfsetospeed(&options,B57600);
						break;		
		   case 115200: cfsetispeed(&options,B115200);
						cfsetospeed(&options,B115200);
						break;								
									
			default:	cfsetispeed(&options,B9600);
						cfsetospeed(&options,B9600);
						printf("ofSerialInit: cannot set %i baud setting baud to 9600\n", baud); 
						break;
		}

		options.c_cflag |= (CLOCAL | CREAD);
		options.c_cflag &= ~PARENB;
		options.c_cflag &= ~CSTOPB;
		options.c_cflag &= ~CSIZE;
		options.c_cflag |= CS8;
		tcsetattr(fd,TCSANOW,&options);

		bInited = true;
		printf("sucess in opening serial connection\n");

	    return true;
	//---------------------------------------------
    #endif
    //---------------------------------------------


    //---------------------------------------------
	#ifdef TARGET_WIN32
	//---------------------------------------------

	// open the serial port:
	// "COM4", etc...

	hComm=CreateFileA(portName.c_str(),GENERIC_READ|GENERIC_WRITE,0,0,
					OPEN_EXISTING,0,0);

	if(hComm==INVALID_HANDLE_VALUE){
		printf("ofSerial: unable to open port\n");
		return false;
	}


	// now try the settings:
	COMMCONFIG cfg;
	DWORD cfgSize;
	char  buf[80];
	
	cfgSize=sizeof(cfg);
	GetCommConfig(hComm,&cfg,&cfgSize);
	int bps = baud;
	sprintf(buf,"baud=%d parity=N data=8 stop=1",bps);
	
	#if (_MSC_VER)       // microsoft visual studio
		// msvc doesn't like BuildCommDCB, 
		//so we need to use this version: BuildCommDCBA
		if(!BuildCommDCBA(buf,&cfg.dcb)){				
			printf("ofSerial: unable to build comm dcb; (%s) \n",buf);
		}
	#else
		if(!BuildCommDCB(buf,&cfg.dcb)){
			printf("ofSerial: Can't build comm dcb; %s\n",buf);
		}
	#endif

	
	// Set baudrate and bits etc.
	// Note that BuildCommDCB() clears XON/XOFF and hardware control by default
	
	if(!SetCommState(hComm,&cfg.dcb)){
		printf("ofSerial: Can't set comm state\n");
	}
	//printf(buf,"bps=%d, xio=%d/%d\n",cfg.dcb.BaudRate,cfg.dcb.fOutX,cfg.dcb.fInX);

	// Set communication timeouts (NT)
	COMMTIMEOUTS tOut;
	GetCommTimeouts(hComm,&oldTimeout);
	tOut = oldTimeout;
	// Make timeout so that:
	// - return immediately with buffered characters
	tOut.ReadIntervalTimeout=MAXDWORD;
	tOut.ReadTotalTimeoutMultiplier=0;
	tOut.ReadTotalTimeoutConstant=0;
	SetCommTimeouts(hComm,&tOut);

	bInited = true;
	return true;
	//---------------------------------------------
	#endif
	//---------------------------------------------
}


//----------------------------------------------------------------
int ofSerial::writeBytes(string str){

	if (!bInited){
		printf("ofSerial: serial not inited\n");
		return 0;
	}

	//---------------------------------------------
	#if defined( TARGET_OSX ) || defined( TARGET_LINUX )
	    int len = str.length();
	    int numWritten = write(fd, str.c_str(), len);
		if(numWritten == 0 && len > 0) printf("ofSerial: Can't write to com port");
		else{
			if (bVerbose){
			 	printf("ofSerial: numWritten %i \n", numWritten);
	    	}
	    }
	    
	    return numWritten;
    #endif
    //---------------------------------------------

    //---------------------------------------------
	#ifdef TARGET_WIN32
		DWORD written;
		int len = (int)str.length();
		if(!WriteFile(hComm, str.c_str(), len, &written,0)){
			 printf("ofSerial: Can't write to com port");
			 return 0;
		}else{
			if (bVerbose){
			 	printf("ofSerial: numWritten %i \n", (int)written);
	    	}
	    }
		return (int)written;
	#endif
	//---------------------------------------------

}

//----------------------------------------------------------------
string ofSerial::readBytes(int length){

	if (!bInited){
		printf("ofSerial: serial not inited\n");
		return "";
	}

	char * tmpBuff = new char[length];
	memset(tmpBuff, 0, length);
	string str = ""; 
	
	//---------------------------------------------
	#if defined( TARGET_OSX ) || defined( TARGET_LINUX )
		int nRead = read(fd, tmpBuff,length);	
		if(nRead == 0)printf("ofSerial: trouble reading from port\n");

    #endif
    //---------------------------------------------

    //---------------------------------------------
	#ifdef TARGET_WIN32
		DWORD nRead;
		if (!ReadFile(hComm,tmpBuff,length,&nRead,0)){
		printf("ofSerial: trouble reading from port\n");
		}
	#endif
	//---------------------------------------------
	
	str = tmpBuff;
	delete tmpBuff;
	return str;
}

//----------------------------------------------------------------
bool ofSerial::writeByte(unsigned char singleByte){

	if (!bInited){
		printf("ofSerial: serial not inited\n");
		return 0;
	}

	unsigned char tmpByte[10];
	tmpByte[0] = singleByte;

	//---------------------------------------------
	#if defined( TARGET_OSX ) || defined( TARGET_LINUX )
	    int len = 1;
	    int numWritten = 0;
	    numWritten = write(fd, tmpByte, len);
		if(numWritten == 0 && len > 0){
			 printf("ofSerial: Can't write to com port");
		} else{
			if (bVerbose){
			 	printf("ofSerial: written byte \n");
	    	}
	    }
		return (numWritten > 0 ? true : false);
    #endif
    //---------------------------------------------

    //---------------------------------------------
	#ifdef TARGET_WIN32
		DWORD written = 0;
		int len = 1;
		if(!WriteFile(hComm, tmpByte, len, &written,0)){
			 printf("ofSerial: Can't write to com port");
			 return 0;
		} else{
			if (bVerbose){
			 	printf("ofSerial: written byte \n");
	    	}
	    }
		return ((int)written > 0 ? true : false);
	#endif
	//---------------------------------------------

}

//----------------------------------------------------------------
unsigned char ofSerial::readByte(){

	if (!bInited){
		printf("ofSerial: serial not inited\n");
		return 0;
	}

	unsigned char tmpByte[10];
	
	//---------------------------------------------
	#if defined( TARGET_OSX ) || defined( TARGET_LINUX )
		int nRead = read(fd, tmpByte, 1);	
		if(nRead == 0)printf("ofSerial: trouble reading from port\n");

    #endif
    //---------------------------------------------

    //---------------------------------------------
	#ifdef TARGET_WIN32
		DWORD nRead;
		if (!ReadFile(hComm, tmpByte, 1, &nRead, 0)){
		printf("ofSerial: trouble reading from port\n");
		}
	#endif
	//---------------------------------------------
	
	return tmpByte[0];
}



