#include <iostream.h>
#include <windows.h>
#include <fstream.h>
#include <string.h>
#include "utile.h"
#define PAY_SIZE 10

struct payroll
{
	char name[50];
	int  rate;
	int  hours;
	int  overtime;
	int  rpay;
	int  opay;
	int  gpay;
	int paycode;	
};

void DisplayHead();
void LoadPay(char* pay);
void ConvertThePay(char* pay,payroll* payx);
void AddPay(int index, char* line,payroll* payx);
void DisplayPay(payroll* payx);



// string manipulation
void leftstr(char* buff, char* buff2, int index);
void rightstr(char*, char* , int);
void midstr(char*, char*, int, int);
int  instr(char*, char*);
int instrback(char* buff, char* search);




int main()
{
	char payrollx[500];
	payroll pay_roll[PAY_SIZE];
	PrintTitle();
    PrintDate();
	DisplayHead();
	LoadPay(payrollx);
	ConvertThePay(payrollx,(payroll*)&pay_roll);
	DisplayPay((payroll*)&pay_roll);
	
	return 0;
}

void DisplayHead()
{
	cout <<endl;
	cout <<endl;
	cout <<"\tName";
	cout <<"\tRate";
	cout <<"   Hours";
	cout <<"   Regular";
	cout <<"   Overtime";
	cout <<"   Gross";
	cout <<endl;
	cout <<"\t\t\t       Pay";
	cout <<"\t Pay";
	cout <<"\t    Pay";
}

void LoadPay(char* pay)
{
	ifstream fin("payroll.txt");
	char ch;
	int index = 0;
	while(fin.get(ch))
	{
		pay[index] = ch;
		index++;
	}
	fin.close();
	pay[index] = 0;
}

void ConvertThePay(char* pay, payroll* payx)
{
	
	int fhours;
	fhours = instr(pay, "s");
	
	if(fhours ==-1)
	{
		cout << "Error: Payroll data has been damaged!";
		return;
	}
	
	
	char pay2[500];
	strcpy(pay2,pay);
	
	int index = 0;
	
	
	while(instr(pay2,"\n") != -1)
	{
		
		char lefts[100];
		int k;
		k = instr(pay2,"\n");
		char temp[500];
		rightstr(pay2,temp,k+1);
		leftstr(pay2,lefts,k-1);
		
		
		if(index == 4)
		{
			//	MessageBox(0,temp,0,0);
			AddPay(4,temp,payx);
		}
		
		
		strcpy(pay2,temp);
		
		
		if(strlen(pay2) < 3)
		{
			break;
		}
		
		
		if(index)
		{
			
			AddPay(index-1,lefts,payx);
			
		}
		
		
		
		index++;
		
		
	}
	
}

void AddPay(int index, char* line, payroll* payx)
{
	
	// first get the name by finding the first tab
	int ft;
	ft = instr(line, "\t");
	char name[50];
	leftstr(line,name,ft-1);
	strcpy(payx[index].name,name);
	char pcode[50];
	rightstr(line,pcode,ft);
	
	
	int lt;
	lt = instrback(line,"\t");
	
	char hrs[10];
	rightstr(line,hrs,lt+1);
	char pc[25];
	
	payx[index].hours = atoi(hrs);
	
	int ltx;
	ltx = instrback(pcode, "\t");
	leftstr(pcode,pc,ltx-1);
	
	if(strstr(pc,"A"))
	{
		payx[index].paycode = 20;
	}
	else if(strstr(pc,"B"))
	{
		payx[index].paycode = 15;
	}
	else if(strstr(pc,"C"))
	{
		payx[index].paycode = 10;
	}
	
	payx[index].rpay = payx[index].paycode * payx[index].hours;
	
	if(payx[index].hours >= 40)
	{
		int diff;
		
		diff = payx[index].hours - 40;
		payx[index].opay = diff * payx[index].paycode * (payx[index].paycode / 2);
	} 
	else
	{
		payx[index].opay = 0; 
	}
	
	payx[index].gpay = payx[index].opay + payx[index].rpay;
	
	
}


void DisplayPay(payroll* payx)
{
	cout << "\n";
	
	for(int i = 0; i < 5 ; i++)
	{
		
		cout << "\t" << payx[i].name << "\t" << payx[i].paycode << "\t" << payx[i].hours << "\t" << payx[i].rpay << "\t" << payx[i].opay << "\t" << payx[i].gpay << "\n";
	}
	
	
	int thours = 0;
	int trpay = 0;
	int topay = 0;
	int tgpay = 0;
    int eo = 0;
	int emax = 0;

	
	for(i = 0; i < 5; i++)
	{
		thours = thours + payx[i].hours;
		trpay = trpay + payx[i].rpay;
		topay = topay + payx[i].opay;
		tgpay = tgpay + payx[i].gpay;
		
		if(payx[i].hours >= 40)
		{
			eo++;
		}
		
	}
	emax = i;

	cout <<"\n";
	cout << "total hours: " << thours << "\n";
	cout << "total regular pay: " << trpay << "\n";
	cout << "total overtime pay: " << topay << "\n";
	cout << "total gross pay: " << tgpay << "\n";
	cout << "number of employes: " << emax << "\n";
	cout << "number of employes with over time: " << eo << "\n";
}

/* string manipulation algorithims to convert text data into its structure */


void leftstr(char* buff, char* buff2, int index)
{
	
	strcpy(buff2, buff);
    buff2[index + 1] = 0;
	
}


void rightstr(char* buff, char* buff2, int index)
{
	
	int i = 0;
	int len = strlen(buff);
	for(int x = index; x < len; x++)
	{
		buff2[i] = buff[x];
		i++;
		
	}
	buff2[i] = 0;
}

void midstr(char* buff, char* buff2, int start, int stop)
{
	
	int i = 0;
	for(int x = start; x < stop; x++)
	{
		buff2[i] = buff[x];
		i++;
		
	}
    buff2[i] = 0;
	buff2[i+1] = '\0';
	
}

int instr(char* buff, char* search)
{
	
	int slen = strlen(search);
	int blen = strlen(buff);
	
	for(int x = 0; x < blen; x++)
	{
		
		if(buff[x] == search[0])
		{
            int ss = x;
			bool start = true;
			
			for(int i = 0; i < slen; i++)
			{
				
				if(buff[x+i] == search[i])
				{
					
					
				} else
				{
					
					start = false;
					
				}
				
			}
			if(start == true)
			{
				
				return ss;
			}
			
		}
	}
	
	return 0;
}

int instrback(char* buff, char* search)
{
	int len;
	len = strlen(buff);
	for(int i = len; i > 0; i--)
	{
		
		if(buff[i] == search[0])
		{
			int slen;
			slen = strlen(search);
			bool stest = false;
			
			
			for(int y = 0; y < slen; y++)
			{
				if(buff[i+y] == search[y]) 
				{
					stest = true;
				} else { stest = false; }
			}
			
			if(stest == true) { return i; }
		}
		
	}
	
	return 0;
}