#include <string>
#include <sstream>
#include <vector>
#include <cctype>

#include <iostream>
#include <fstream>
#include <iconv.h>
#include <stdexcept>
#include <time.h>
#include <sys/time.h>
#include <stdlib.h>

#include <cstring>
#include "util.h"

using namespace std;

namespace Util
{
	void str_dump(const string& str)
	{
	    for (unsigned i=0; i<str.length(); ++i)
	    {
			cout.width(2);
			cout.fill('0');
			cout << hex << static_cast<int>(str.at(i)) << " ";
		}
		cout.width(1);
		cout << dec <<  endl;
	}



	string str_replace(string str, string search, string replace)
	{
		unsigned int pos = 0;
		
		while ( (pos = str.find(search,pos)) != string::npos)
		{
			str.replace(pos, search.size(), replace);
			pos += replace.size();
		}
		return str;
	}

    std::string str_replace_char(std::string str, char search, char replace)
	{
		unsigned int pos = 0;

		while ( (pos = str.find(search,pos)) != string::npos)
		{
			str.replace(pos, 1, 1, replace);
		}
		return str;
	}

	bool my_isspace(char ch)
	{
		return (isspace(ch) || ch == 0);
	}

	string str_trim(string str)
	{
		while (str.length() > 0 && my_isspace(str.at(0)))
			str.erase(0,1);
		while (str.length() > 0 && my_isspace(str.at(str.length()-1)))
			str.erase(str.length()-1,1);
		return str;
	}

	string str_striptags(string str)
	{
		unsigned int pos=0;

		while ( (pos=str.find("<",pos)) != string::npos)
		{
			unsigned int endpos = str.find(">",pos);
			if (endpos == string::npos)
				break;
			str.erase(pos, (endpos-pos)+1);
		}

		return str;
	}

	vector<string> str_split(string input, string delimiter)
	{
    	vector<string> retval;

		while ( 1 )
		{
			unsigned int endpos = input.find(delimiter);

			string entry = input.substr(0,endpos);
			retval.push_back( entry );


			if (endpos == string::npos)
				break;

			endpos += delimiter.length();
			input = input.substr(endpos, input.length() - endpos);
		}

		return retval;
	}

	char my_toupper(char ch)
	{
		if (ch == 'æ')
			return 'Æ';
		if (ch == 'ø')
			return 'Ø';
		if (ch == 'å')
			return 'Å';

		return ::toupper(ch);
	}

	char my_tolower(char ch)
	{
		if (ch == 'Æ')
			return 'æ';
		if (ch == 'Ø')
			return 'ø';
		if (ch == 'Å')
			return 'å';

		return ::tolower(ch);
	}
    string str_toupper(string str)
	{
		for (unsigned i=0; i<str.length(); ++i)
		{
			str.replace(i, 1 ,1, my_toupper(str.at(i)));
		}
		return str;
	}

	string str_tolower(string str)
	{
		for (unsigned i=0; i<str.length(); ++i)
		{
			str.replace(i, 1 ,1, my_tolower(str.at(i)));
		}
		return str;
	}


	string str_formatint(int i)
	{
		std::ostringstream os;
		os << i;
		return os.str();
	}


	string str_characters(string str)
	{
		string rep;
		rep.append(1,197);
		str = str_replace(str, "&#197;", rep);

		rep.at(0) = 198;
		str = str_replace(str, "&#198;", rep);

		rep.at(0) = 216;
		str = str_replace(str, "&#216;", rep);


		rep.at(0) = 229;
		str = str_replace(str, "&#229;", rep);

		rep.at(0) = 230;
		str = str_replace(str, "&#230;", rep);

		rep.at(0) = 248;
		str = str_replace(str, "&#248;", rep);

		return str;
	}


	string str_gsm2latin(string str)
	{
		str = str_replace_char(str, 0x1c, 198); //AE
		str = str_replace_char(str, 0x0b, 216); //OE
		str = str_replace_char(str, 0x0e, 197); //AA

		str = str_replace_char(str, 0x1d, 230); //ae
		str = str_replace_char(str, 0x0c, 248); //oe
		str = str_replace_char(str, 0x0f, 229); //aa
		return str;
	}

	string str_latin2gsm(string str)
	{
		str = str_replace_char(str, 198, 0x1c); //AE
		str = str_replace_char(str, 216, 0x0b); //OE
		str = str_replace_char(str, 197, 0x0e); //AA

		str = str_replace_char(str, 230, 0x1d); //ae
		str = str_replace_char(str, 248, 0x0c); //oe
		str = str_replace_char(str, 229, 0x0f); //aa
		return str;
	}

	string readUrl(string url, string tempfile)
	{
		char buf[128000];
		string document;
		
		ostringstream command;
		command << "wget -O " << tempfile << " --tries=1 --timeout=15 -o /dev/null  \"" << url << "\"";
		int res = my_system( command.str().c_str() );

		if (res<0)
		{
			throw( std::runtime_error("Error retrieving document"));
		}

		if (res>0) 
		{
			throw std::runtime_error("Command time out or document not found");
		}

		ifstream in( tempfile.c_str() );

		if (!in)
			return "";

		while (!in.eof() )
		{
			in.getline(buf,128000-1);
			document += buf;
			document += "\n";
		}
		in.close();
		unlink(tempfile.c_str());
		
		return document;
	}

	

	string iconv_wrapper(string _input, string to_format, string from_format)
	{
		char* input,*output,*input_ptr, *output_ptr;
		input = input_ptr = (char*) malloc(_input.size()+1);
		strcpy(input, _input.c_str());
		
		output = output_ptr = (char*) malloc(_input.size()*2);


		
		unsigned int realinsize,insize,outsize,realsize;
		
		iconv_t icv = iconv_open(to_format.c_str(), from_format.c_str());
		if (icv == (iconv_t)-1)
		{
			perror(0);
			return "";
		}

		
		realsize = outsize = _input.size()*2;
		realinsize = insize = _input.size();
		
		iconv(icv,
				&input_ptr,
				&insize,
				&output_ptr,
				&outsize);


		perror(0);
/*		cout << "len=" << len << endl;
		cout << "outsize=" <<  outsize << endl;
		cout << "realsize=" << realsize << endl;
		cout << "insize=" << insize << endl;
		cout << "realinsize=" << realinsize << endl;*/
		iconv_close(icv);

		string returnstr;
		for (unsigned int i=0; i<realsize - outsize; i++)
		{
			//cout << i << ":" << (unsigned short) output[i] << "|" << (unsigned short) input[i];
			//cout << " (" << output[i] << ")" << endl;
			returnstr += output[i];
		}
	    return returnstr;
	}

	std::string convertToUnicode(std::string str)
	{
		return iconv_wrapper(str, "UTF-8", "ISO8859-1");
	}

	std::string convertFromUnicode(std::string str)
	{
		return iconv_wrapper(str, "ISO8859-1", "UTF-8");
	}

	int uTimeDiff(const timeval& then, const timeval& now)
	{
		return ( (now.tv_sec - then.tv_sec)*1000000) + (now.tv_usec-then.tv_usec);
	}

	int mTimeDiff(const timeval& then, const timeval& now)
	{
		return ( (now.tv_sec - then.tv_sec)*1000) +
				((now.tv_usec-then.tv_usec)/1000);
	}


	timeval GetTimeOfDay()
	{
		timeval now;
		gettimeofday(&now,0);
		return now;
	}

	int my_system(const char* cmd, std::string* response)
	{
		FILE* p;
		if ((p = popen(cmd,"r")) == NULL)
			return (-1);

		if (response)
		{
			std::string output;
			char buf[256];
			while(!feof(p))
			{
				int len = fread(buf,1,255, p);
				buf[len] = 0;
				output += buf;
			}
			*response = output;
		}

		return (pclose(p));
	}

	string readfile(string filename)
	{
		string str;
	    ifstream in(filename.c_str());
    	if (in)
	    {
    	    char buffer[2048];
        	in.read(buffer, 2047);
			buffer[ in.gcount() ] = 0;
	        str = string(buffer);
    	    in.close();
	    }
    	else
	    {
    	    string message =  "Could no open ";
        	message +=  filename;
	        throw std::runtime_error(message);
    	}
	    return str;
	}



}