/*
 * I2CSPI.c - algorithms to interface generic I2C/SPI devices
 * Copyright (C) 2010-2022 Alberto Maccioni
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111 USA
 * or see <http://www.gnu.org/licenses/>
 */


//configure for GUI or command-line
#include "common.h"
#ifdef __GTK_H__
#define _GTKGUI
#endif


#ifdef _GTKGUI
	#define printM(id) PrintMessageI2C(id);
#else
	#define printM(id) printf(id);
#endif

#define CS 8
#define HLD 16

void I2CReceive(int mode,int speed,int N,BYTE *buffer)
// I2C/SPI receive
// mode:
// 0 = I2C 8bit
// 1 = I2C 16bit
// 2 = SPI 00
// 3 = SPI 01
// 4 = SPI 10
// 5 = SPI 11
// speed:
// 0 = 100 kbps
// 1 = 200 kbps
// 2 = 300/400 kbps (SPI/I2C)
// 3 = 500/800 kbps (SPI/I2C)
{
	int j=0;
	if(N<0) N=0;
	if(N>60) N=60;
	if(mode<0) mode=0;
	if(mode>5) mode=5;
	if(speed<0) speed=0;
	if(speed>3) speed=3;
	if(saveLog){
		OpenLogFile();	//"Log.txt"
		fprintf(logfile,"I2C-SPI receive\tmode=%d\tspeed=%d\n",mode,speed);
	}
	bufferU[j++]=VREG_DIS;		//Disable HV reg
	bufferU[j++]=EN_VPP_VCC;	//VDD
	bufferU[j++]=0x1;
	if(mode<2){					//I2C mode
		bufferU[j++]=I2C_INIT;
		bufferU[j++]=(speed<<3)+(speed>0?0x40:0);	//enable slew control if >100k
	}
	else{						//SPI mode
		bufferU[j++]=EXT_PORT;	//CS=1
		bufferU[j++]=CS;
		bufferU[j++]=0;
		bufferU[j++]=EXT_PORT;	//CS=0
		bufferU[j++]=0;
		bufferU[j++]=0;
		bufferU[j++]=SPI_INIT;
		bufferU[j++]=speed+((mode-2)<<2);
	}
	bufferU[j++]=FLUSH;
	for(;j<DIMBUF;j++) bufferU[j]=0x0;
	PacketIO(2);
	j=0;
	if(mode==0){					//I2C read
		bufferU[j++]=I2C_READ;
		bufferU[j++]=N>(DIMBUF-4)?DIMBUF-4:N;
		bufferU[j++]=buffer[0];		//Control byte
		bufferU[j++]=buffer[1];		//Address;
	}
	else if(mode==1){				//I2C read 16bit
		bufferU[j++]=I2C_READ2;
		bufferU[j++]=N>(DIMBUF-4)?DIMBUF-4:N;
		bufferU[j++]=buffer[0];		//Control byte
		bufferU[j++]=buffer[1];		//Address H;
		bufferU[j++]=buffer[2];		//Address L;
	}
	else if(mode>=2){					//SPI read
		bufferU[j++]=SPI_READ;
		bufferU[j++]=N>(DIMBUF-5)?DIMBUF-5:N;
		bufferU[j++]=EXT_PORT;		//CS=1
		bufferU[j++]=CS;
		bufferU[j++]=0;
	}
	bufferU[j++]=FLUSH;
	for(;j<DIMBUF;j++) bufferU[j]=0x0;
	PacketIO(10);
	if(saveLog){
		CloseLogFile();
	}
	if(bufferI[0]==I2C_READ||bufferI[0]==I2C_READ2||bufferI[0]==SPI_READ){
		if(bufferI[1]==0xFD){
			printM(strings[S_I2CAckErr]); //"acknowledge error"
		}
		else if(bufferI[1]>0xFA){
			printM(strings[S_InsErr]); //"unknown instruction"
		}
		else{
			char str[1024]="";
			char t[16]="";
			int i;
			if(mode==0)	sprintf(str,"> %02X %02X\r\n",bufferU[2],bufferU[3]);
			else if(mode==1)	sprintf(str,"> %02X %02X\r\n",bufferU[2],bufferU[3]);
			strcat(str,"< ");
			for(i=0;i<bufferI[1];i++){
				sprintf(t,"%02X ",bufferI[i+2]);
				strcat(str,t);
				if(i&&i%16==15){
					strcat(str,"\r\n");
				}
			}
			strcat(str,"\r\n");
			printM(str);
			fflush(stdout);
		}
	}
	else printM(strings[S_ComErr]);
}

void I2CSend(int mode,int speed,int N,BYTE *buffer)
{
// I2C/SPI send
// mode:
// 0 = I2C 8bit
// 1 = I2C 16bit
// 2 = SPI 00
// 3 = SPI 01
// 4 = SPI 10
// 5 = SPI 11
// speed:
// 0 = 100 kbps
// 1 = 200 kbps
// 2 = 300/400 kbps (SPI/I2C)
// 3 = 500/800 kbps (SPI/I2C)
	int i,j=0;
	if(N<0) N=0;
	if(N>57) N=57;
	if(mode<0) mode=0;
	if(mode>5) mode=5;
	if(speed<0) speed=0;
	if(speed>3) speed=3;
	if(saveLog){
		OpenLogFile();	//"Log.txt"
		fprintf(logfile,"I2C-SPI send\tmode=%d\tspeed=%d\n",mode,speed);
	}
	bufferU[j++]=VREG_DIS;		//Disable HV reg
	bufferU[j++]=EN_VPP_VCC;	//VDD
	bufferU[j++]=0x1;
	if(mode<2){					//I2C mode
		bufferU[j++]=I2C_INIT;
		bufferU[j++]=(speed<<3)+(speed>0?0x40:0);	//enable slew control if >100k
	}
	else{						//SPI mode
		bufferU[j++]=EXT_PORT;	//CS=1
		bufferU[j++]=CS;
		bufferU[j++]=0;
		bufferU[j++]=EXT_PORT;	//CS=0
		bufferU[j++]=0;
		bufferU[j++]=0;
		bufferU[j++]=SPI_INIT;
		bufferU[j++]=speed+((mode-2)<<2);
	}
	bufferU[j++]=FLUSH;
	for(;j<DIMBUF;j++) bufferU[j]=0x0;
	PacketIO(2);
	j=0;
	if(mode==0){					//I2C write
		bufferU[j++]=I2C_WRITE;
		bufferU[j++]=N>(DIMBUF-5)?DIMBUF-5:N;
		bufferU[j++]=buffer[0];		//Control byte
		bufferU[j++]=buffer[1];		//Address
		for(i=0;i<bufferU[1];i++) bufferU[j++]=buffer[i+2];
	}
	else if(mode==1){				//I2C write 16bit
		bufferU[j++]=I2C_WRITE;
		bufferU[j++]=N+1>(DIMBUF-5)?DIMBUF-5:N+1;
		bufferU[j++]=buffer[0];		//Control byte
		bufferU[j++]=buffer[1];		//Address
		bufferU[j++]=buffer[2];		//Address L
		for(i=0;i<bufferU[1]-1;i++) bufferU[j++]=buffer[i+3];
	}
	if(mode>=2){					//SPI write
		bufferU[j++]=SPI_WRITE;
		bufferU[j++]=N>(DIMBUF-5)?DIMBUF-5:N;
		for(i=0;i<bufferU[1];i++) bufferU[j++]=buffer[i];
		bufferU[j++]=EXT_PORT;	//CS=1
		bufferU[j++]=CS;
		bufferU[j++]=0;
	}
	bufferU[j++]=FLUSH;
	for(;j<DIMBUF;j++) bufferU[j]=0x0;
	PacketIO(20);
	if(saveLog){
		CloseLogFile();
	}
	if(bufferI[0]==I2C_WRITE||bufferI[0]==SPI_WRITE){
		if(bufferI[1]==0xFD){
			printM(strings[S_I2CAckErr]); //"acknowledge error"
		}
		else if(bufferI[1]>0xFA){
			printM(strings[S_InsErr]); //"unknown instruction"
		}
		else{
			char str[1024];
			char t[16];
			int n=2;
			int i;
			sprintf(str,"> ");
			if(mode<2) n=4;
			for(i=0;i<bufferU[1];i++){
				sprintf(t,"%02X ",(BYTE)bufferU[i+n]);
				strcat(str,t);
				if(i&&i%16==15){
					strcat(str,"\r\n");
				}
			}
			strcat(str,"\r\n");
			printM(str);
		}
	}
	else printM(strings[S_ComErr]);	//"communication error \r\n"
}