// header file
// contains functions, we wanna keep out of the way
// jared bruni
// mail me: master@lostsidedead.com

#include <iostream.h>
#include <stdlib.h>
#include "masterstring.h"

bool isline(char* buff); // is this a valid line? 
bool isinc(char* buff); // is this a instruction ?
int  ginc(char* buff);// yeah its a instruction, translate the mnemoic
void disperror(int line,char* buff);// display error
bool checkopr(char* buff);// check operands
bool checknopr(char* buff);// check for a null operand instruction (theres only 1)
void getoprands(char* data,char* op1,char* op2);
bool ireg(char* data);// is this a register? 
int  greg(char* data); // get this register value from handle
void addiline(char* buff);// add the next line
void initfdata(); 
void getexename(char* source,char* output);
bool isfile(char* file);


MasterString fdata;// autosizing master string :)
bool fline = false;

int err_count = 0;

// display error, and increment error count
void disperror(int line,char* buff)
{
	line = line + 1;

	err_count++;
	cout << "error on line(" << line << "): " << buff << endl;
/*
	if(err_count > 4)
	{
		cout << " stoping to many errors " << endl;
		exit(0);
	}
*/
}


// body (is this a valid line? or was it comments)
bool isline(char* buff)
{
	char* nbuff;

	nbuff = new char[strlen(buff)+1];

	strcpy(nbuff,buff);

	trimspace(nbuff);

	int len;
	len = strlen(nbuff) - 1;
	delete [] nbuff;
	nbuff = 0;

	if(len != 0)
	{
		return true;
	}

	return false;
}
// make the instruction check, and the mnemoic check
// be very explicit, use full head on searchZ

bool isinc(char* buff)
{

	// talk about overhead
	// cant use a jump table here sorry
	if(findstr(buff,"loadm") != -1) // 0
	{
		return true;
	}

	if(findstr(buff,"load") != -1) // 1
	{
		return true;
	}

	if(findstr(buff,"store") != -1) // 2
	{
		return true;
	}

	if(findstr(buff,"mov") != -1) // 3
	{
		return true;
	}

	if(findstr(buff,"add") != -1) // 4
	{
		return true;
	}

	if(findstr(buff,"sub") != -1) // 5
	{
		return true;
	}
	
	if(findstr(buff,"mul") != -1) // 6
	{
		return true;
	}

	if(findstr(buff,"div") != -1) // 7
	{
		return true;
	}

	if(findstr(buff,"inc") != -1) // 8
	{
		return true;
	}

	if(findstr(buff,"dec") != -1) // 9
	{
		return true;
	}

	if(findstr(buff,"or") != -1) // A
	{
		return true;
	}

	if(findstr(buff,"xor") != -1) // B
	{
		return true;
	}
	
	if(findstr(buff,"and") != -1) // C
	{
		return true;
	}

	if(findstr(buff,"rotate") != -1) // D
	{
		return true;
	}

	if(findstr(buff,"halt") != -1) // E
	{
		return true;
	}

	return false;
}
// int get current opcode from mnemoic
int ginc(char* buff)
{
	if(findstr(buff,"loadm") != -1) // 1
	{
		return 1;
	}

	if(findstr(buff,"load") != -1) // 2
	{
		return 2;
	}

	if(findstr(buff,"store") != -1) // 3
	{
		return 3;
	}

	if(findstr(buff,"mov") != -1) // 4
	{
		return 4;
	}

	if(findstr(buff,"add") != -1) // 5
	{
		return 5;
	}

	if(findstr(buff,"sub") != -1) // 6
	{
		return 6;
	}
	
	if(findstr(buff,"mul") != -1) // 7
	{
		return 7;
	}

	if(findstr(buff,"div") != -1) // 8
	{
		return 8;
	}

	if(findstr(buff,"inc") != -1) // 9
	{
		return 9;
	}

	if(findstr(buff,"dec") != -1) // A
	{
		return 10;
	}

	if(findstr(buff,"or") != -1) // B
	{
		return 11;
	}

	if(findstr(buff,"xor") != -1) // C
	{
		return 12;
	}
	
	if(findstr(buff,"and") != -1) // D
	{
		return 13;
	}

	if(findstr(buff,"rotate") != -1) // E
	{
		return 14;
	}

	if(findstr(buff,"halt") != -1) // F
	{
		return 15;
	}

	return 0;// never should happen
}


// check operands
bool checkopr(char* buff)
{
	int find_oc;

	find_oc = findoccourance(buff,",");

	if(find_oc == 1)
	{
		return true; // operand seperating the mnemoics
	}
	else
	{
		return false;
	}
}
// check for no operands
bool checknopr(char* buff)
{
	int find_oc;

	find_oc = findoccourance(buff,",");

	if(find_oc == -1)
	{
		return true;// yay no operands
	}
	else
	{
		return false;// return false
	}
}

// get oprands
void getoprands(char* data,char* op1,char* op2)
{
	int fspace;
	fspace = findstr(data," ");
	int fcomma;
	int lend = strlen(data);
	fcomma = ifindstr(fspace,data,",");
	midcopy(data,op1,fspace+1,fcomma);
	midcopy(data,op2,fcomma+1,lend);
	trimspace(op1);
	trimspace(op2);
}

// is this a register?
bool ireg(char* data)
{

	if(mstrcmp(data,"ax") != false) // 0
	{
		return true;
	}
	if(mstrcmp(data,"bx") != false) // 1
	{
		return true;
	}
	if(mstrcmp(data,"cx") != false)// 2
	{
		return true;
	}
	if(mstrcmp(data,"dx") != false) // 3
	{
		return true;
	}
	if(mstrcmp(data,"ex") != false)// 4
	{
		return true;
	}
	if(mstrcmp(data,"fx") != false)// 5
	{
		return true;
	}
	if(mstrcmp(data,"gx") != false)// 6
	{
		return true;
	}
	if(mstrcmp(data,"hx") != false)// 7
	{
		return true;
	}
	if(mstrcmp(data,"ix") != false)// 8
	{
		return true;
	}
	if(mstrcmp(data,"jx") != false)// 9
	{
		return true;
	}
	if(mstrcmp(data,"kx") != false)// A
	{
		return true;
	}
	if(mstrcmp(data,"lx") != false)// B
	{
		return true;
	}
	if(mstrcmp(data,"mx") != false)// C
	{
		return true;
	}
	if(mstrcmp(data,"nx") != false)// D
	{
		return true;
	}
	if(mstrcmp(data,"ox") != false)// E
	{
		return true;
	}
	if(mstrcmp(data,"px") != false)// F
	{
		return true;
	}

	return false;
}

int greg(char* data)
{
	if(findstr(data,"ax") != -1) // 0
	{
		return 0;
	}
	if(findstr(data,"bx") != -1) // 1
	{
		return 1;
	}
	if(findstr(data,"cx") != -1)// 2
	{
		return 2;
	}
	if(findstr(data,"dx") != -1) // 3
	{
		return 3;
	}
	if(findstr(data,"ex") != -1)// 4
	{
		return 4;
	}
	if(findstr(data,"fx") != -1)// 5
	{
		return 5;
	}
	if(findstr(data,"gx") != -1)// 6
	{
		return 6;
	}
	if(findstr(data,"hx") != -1)// 7
	{
		return 7;
	}
	if(findstr(data,"ix") != -1)// 8
	{
		return 8;
	}
	if(findstr(data,"jx") != -1)// 9
	{
		return 9;
	}
	if(findstr(data,"kx") != -1)// A
	{
		return 10;
	}
	if(findstr(data,"lx") != -1)// B
	{
		return 11;
	}
	if(findstr(data,"mx") != -1)// C
	{
		return 12;
	}
	if(findstr(data,"nx") != -1)// D
	{
		return 13;
	}
	if(findstr(data,"ox") != -1)// E
	{
		return 14;
	}
	if(findstr(data,"px") != -1)// F
	{
		return 15;
	}

	return -1; // failure (should never get here, use ireg to check if its a register value
}



// add instruction line
void addiline(char* buff)
{
	if(fline == false)
	{
		fline = true;
		fdata = buff;
		return;
	}

	fdata += buff;
}

// get the output exe name
void getexename(char* input,char* output)
{
	int fp;
	fp = findstr(input,".");

	char thename[200];

	leftcopy(input,thename,fp);
	strcpy(output,thename);
	strcat(output,".8xe");
}


// is this a file ? 

// micheal w essary gave me this function
bool isfile(char* filename)
{
 HANDLE hSearch;
 WIN32_FIND_DATA p;
 hSearch = FindFirstFile(filename,&p);
  if(hSearch!=INVALID_HANDLE_VALUE)
  return true;
 else
  return false;
}