/*
 * Copyright (C) John Baier 2014-2015 <ebusd@johnm.de>
 *
 * This file is part of ebusd.
 *
 * libebus 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 3 of the License, or
 * (at your option) any later version.
 *
 * libebus 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 libebus. If not, see http://www.gnu.org/licenses/.
 */

#include "data.h"
#include <iostream>
#include <iomanip>

using namespace std;

void verify(bool expectFailMatch, string type, string input,
		bool match, string expectStr, string gotStr)
{
	match = match && expectStr == gotStr;
	if (expectFailMatch) {
		if (match)
			cout << "  failed " << type << " match >" << input
			        << "< error: unexpectedly succeeded" << endl;
		else
			cout << "  failed " << type << " match >" << input << "< OK" << endl;
	}
	else if (match)
		cout << "  " << type << " match >" << input << "< OK" << endl;
	else
		cout << "  " << type << " match >" << input << "< error: got >"
		        << gotStr << "<, expected >" << expectStr << "<" << endl;
}

int main()
{
	string checks[][5] = {
		//name;[len];type[;[divisor|values][;[unit][;[comment]]]], decoded value, master, slave, flags
		{"x,,ign:10",  "",                              "10fe07000a00000000000000000000", "00", ""},
		{"x,,str:10",  "Hallo, Du!",                    "10fe07000a48616c6c6f2c20447521", "00", ""},
		{"x,,str:10",  "Hallo, Du!",                    "10fe07000a48616c6c6f2c20447521", "00", ""},
		{"x,,str:10",  "Hallo, Du ",                    "10fe07000a48616c6c6f2c20447520", "00", ""},
		{"x,,str:10",  "          ",                    "10fe07000a20202020202020202020", "00", ""},
		{"x,,str:11",  "",                              "10fe07000a20202020202020202020", "00", "rW"},
		{"x,,hex",      "20",                            "10fe07000120",                   "00", ""},
		{"x,,hex:10",  "48 61 6c 6c 6f 2c 20 44 75 21", "10fe07000a48616c6c6f2c20447521", "00", ""},
		{"x,,hex:11",  "",                              "10fe07000a48616c6c6f2c20447521", "00", "rW"},
		{"x,,bda",   "26.10.2014","10fe07000426100614", "00", ""}, // Sunday
		{"x,,bda",   "01.01.2000","10fe07000401010500", "00", ""}, // Saturday
		{"x,,bda",   "31.12.2099","10fe07000431120399", "00", ""}, // Thursday
		{"x,,bda",   "-.-.-",     "10fe07000400000000", "00", ""},
		{"x,,bda",   "",          "10fe07000432100014", "00", "rw"},
		{"x,,bda:3", "26.10.2014","10fe070003261014",   "00", ""},
		{"x,,bda:3", "01.01.2000","10fe070003010100",   "00", ""},
		{"x,,bda:3", "31.12.2099","10fe070003311299",   "00", ""},
		{"x,,bda:3", "-.-.-",     "10fe070003000000",   "00", ""},
		{"x,,bda:3", "",          "10fe070003321299",   "00", "rw"},
		{"x,,hda",   "26.10.2014","10fe0700041a0a070e", "00", ""}, // Sunday
		{"x,,hda",   "01.01.2000","10fe07000401010600", "00", ""}, // Saturday
		{"x,,hda",   "31.12.2099","10fe0700041f0c0463", "00", ""}, // Thursday
		{"x,,hda",   "-.-.-",     "10fe07000400000000", "00", ""},
		{"x,,hda",   "",          "10fe070004200c0463", "00", "rw"},
		{"x,,hda:3", "26.10.2014","10fe0700031a0a0e",   "00", ""},
		{"x,,hda:3", "01.01.2000","10fe070003010100",   "00", ""},
		{"x,,hda:3", "31.12.2099","10fe0700031f0c63",   "00", ""},
		{"x,,hda:3", "-.-.-",     "10fe070003000000",   "00", ""},
		{"x,,hda:3", "",          "10fe070003200c63",   "00", "rw"},
		{"x,,bti",   "21:04:58",  "10fe070003580421",   "00", ""},
		{"x,,bti",   "00:00:00",  "10fe070003000000",   "00", ""},
		{"x,,bti",   "23:59:59",  "10fe070003595923",   "00", ""},
		{"x,,bti",   "",          "10fe070003605923",   "00", "rw"},
		{"x,,hti",   "21:04:58",  "10fe07000315043a",   "00", ""},
		{"x,,vti",   "21:04:58",  "10fe0700033a0415",   "00", ""},
		{"x,,vti",   "-:-:-",     "10fe070003636363",   "00", ""},
		{"x,,htm", "21:04", "10fe0700021504", "00", ""},
		{"x,,htm", "00:00", "10fe0700020000", "00", ""},
		{"x,,htm", "23:59", "10fe070002173b", "00", ""},
		{"x,,htm", "24:00", "10fe0700021800", "00", ""},
		{"x,,htm", "",      "10fe070002183b", "00", "rw"},
		{"x,,htm", "24:01", "10fe0700021801", "00", "rw"},
		{"x,,ttm", "22:40", "10fe07000188",   "00", ""},
		{"x,,ttm", "00:00", "10fe07000100",   "00", ""},
		{"x,,ttm", "23:50", "10fe0700018f",   "00", ""},
		{"x,,ttm", "-:-",   "10fe07000190",   "00", ""},
		{"x,,ttm", "",      "10fe07000191",   "00", "rw"},
		{"x,,bdy", "Mon",   "10fe07000300",   "00", ""},
		{"x,,bdy", "Sun",   "10fe07000306",   "00", ""},
		{"x,,bdy", "",      "10fe07000308",   "00", "rw"},
		{"x,,hdy", "Mon",   "10fe07000301",   "00", ""},
		{"x,,hdy", "Sun",   "10fe07000307",   "00", ""},
		{"x,,hdy", "",      "10fe07000308",   "00", "rw"},
		{"x,,bcd", "26",    "10feffff0126", "00", ""},
		{"x,,bcd", "0",     "10feffff0100", "00", ""},
		{"x,,bcd", "99",    "10feffff0199", "00", ""},
		{"x,,bcd", "-",     "10feffff01ff", "00", ""},
		{"x,,bcd", "",      "10feffff019a", "00", "rw"},
		{"x,,bcd:2","126",  "10feffff012601", "00", ""},
		{"x,,bcd:2","0",    "10feffff010000", "00", ""},
		{"x,,bcd:2","9999", "10feffff019999", "00", ""},
		{"x,,bcd:2","-",    "10feffff01ffff", "00", ""},
		{"x,,bcd:2","",     "10feffff019a00", "00", "rw"},
		{"x,,bcd:3","12346",  "10feffff01462301", "00", ""},
		{"x,,bcd:3","0",      "10feffff01000000", "00", ""},
		{"x,,bcd:3","999999", "10feffff01999999", "00", ""},
		{"x,,bcd:3","-",      "10feffff01ffffff", "00", ""},
		{"x,,bcd:3","",       "10feffff01009a00", "00", "rw"},
		{"x,,bcd:4","1234567",  "10feffff0167452301", "00", ""},
		{"x,,bcd:4","0",        "10feffff0100000000", "00", ""},
		{"x,,bcd:4","99999999", "10feffff0199999999", "00", ""},
		{"x,,bcd:4","-",        "10feffff01ffffffff", "00", ""},
		{"x,,bcd:4","",         "10feffff0100009a00", "00", "rw"},
		{"x,,str:16", "0123456789ABCDEF",  "10feffff1130313233343536373839414243444546", "00", ""},
		{"x,,uch:17", "",    "10feffff00", "00", "c"},
		{"x,s,uch", "0",     "1025ffff0310111213", "0300010203", "W"},
		{"x,s,uch", "0",     "1025ffff00", "0100", ""},
		{"x,s,uch,,,,y,m,uch", "3;2","1025ffff0103", "0102", ""},
		{"x,,uch", "38",     "10feffff0126", "00", ""},
		{"x,,uch", "0",      "10feffff0100", "00", ""},
		{"x,,uch", "254",    "10feffff01fe", "00", ""},
		{"x,,uch", "-",      "10feffff01ff", "00", ""},
		{"x,,uch,10", "3.8", "10feffff0126", "00", ""},
		{"x,,uch,-10", "380","10feffff0126", "00", ""},
		{"x,,sch", "-90",    "10feffff01a6", "00", ""},
		{"x,,sch", "0",      "10feffff0100", "00", ""},
		{"x,,sch", "-1",     "10feffff01ff", "00", ""},
		{"x,,sch", "-",      "10feffff0180", "00", ""},
		{"x,,sch", "-127",   "10feffff0181", "00", ""},
		{"x,,sch", "127",    "10feffff017f", "00", ""},
		{"x,,sch,10", "-9.0","10feffff01a6", "00", ""},
		{"x,,sch,-10","-900","10feffff01a6", "00", ""},
		{"x,,d1b", "-90",    "10feffff01a6", "00", ""},
		{"x,,d1b", "0",      "10feffff0100", "00", ""},
		{"x,,d1b", "-1",     "10feffff01ff", "00", ""},
		{"x,,d1b", "-",      "10feffff0180", "00", ""},
		{"x,,d1b", "-127",   "10feffff0181", "00", ""},
		{"x,,d1b", "127",    "10feffff017f", "00", ""},
		{"x,,d1b,-10","-900","10feffff01a6", "00", ""},
		{"x,,d1c", "19.5",   "10feffff0127", "00", ""},
		{"x,,d1c", "0.0",    "10feffff0100", "00", ""},
		{"x,,d1c", "100.0",  "10feffff01c8", "00", ""},
		{"x,,d1c", "-",      "10feffff01ff", "00", ""},
		{"x,,uin", "38",     "10feffff022600", "00", ""},
		{"x,,uin", "0",      "10feffff020000", "00", ""},
		{"x,,uin", "65534",  "10feffff02feff", "00", ""},
		{"x,,uin", "-",      "10feffff02ffff", "00", ""},
		{"x,,uin,10", "3.8", "10feffff022600", "00", ""},
		{"x,,uin,-10","380", "10feffff022600", "00", ""},
		{"uin10,uin,-10","", "", "", "t"},                  // template
		{"x,,uin10","380",   "10feffff022600", "00", ""},   // template reference
		{"x,,uin10,-10","3800","10feffff022600", "00", ""}, // template reference, valid divider product
		{"x,,uin10,10","","", "", "c"},                     // template reference, invalid divider product
		{"x,,sin", "-90",    "10feffff02a6ff", "00", ""},
		{"x,,sin", "0",      "10feffff020000", "00", ""},
		{"x,,sin", "-1",     "10feffff02ffff", "00", ""},
		{"x,,sin", "-",      "10feffff020080", "00", ""},
		{"x,,sin", "-32767", "10feffff020180", "00", ""},
		{"x,,sin", "32767",  "10feffff02ff7f", "00", ""},
		{"x,,sin,10","-9.0", "10feffff02a6ff", "00", ""},
		{"x,,sin,-10","-900","10feffff02a6ff", "00", ""},
		{"x,,flt", "-0.090", "10feffff02a6ff", "00", ""},
		{"x,,flt", "0.000",  "10feffff020000", "00", ""},
		{"x,,flt", "-0.001", "10feffff02ffff", "00", ""},
		{"x,,flt", "-",      "10feffff020080", "00", ""},
		{"x,,flt","-32.767", "10feffff020180", "00", ""},
		{"x,,flt", "32.767", "10feffff02ff7f", "00", ""},
		{"x,,d2b", "18.004", "10fe0700090112", "00", ""},
		{"x,,d2b", "0.000",  "10feffff020000", "00", ""},
		{"x,,d2b", "-0.004", "10feffff02ffff", "00", ""},
		{"x,,d2b", "-",      "10feffff020080", "00", ""},
		{"x,,d2b","-127.996","10feffff020180", "00", ""},
		{"x,,d2b", "127.996","10feffff02ff7f", "00", ""},
		{"x,,d2c", "288.06", "10fe0700090112", "00", ""},
		{"x,,d2c", "0.00",   "10feffff020000", "00", ""},
		{"x,,d2c", "-0.06",  "10feffff02ffff", "00", ""},
		{"x,,d2c", "-",      "10feffff020080", "00", ""},
		{"x,,d2c","-2047.94","10feffff020180", "00", ""},
		{"x,,d2c", "2047.94","10feffff02ff7f", "00", ""},
		{"x,,ulg", "38",         "10feffff0426000000", "00", ""},
		{"x,,ulg", "0",          "10feffff0400000000", "00", ""},
		{"x,,ulg", "4294967294", "10feffff04feffffff", "00", ""},
		{"x,,ulg", "-",          "10feffff04ffffffff", "00", ""},
		{"x,,ulg,10","3.8",      "10feffff0426000000", "00", ""},
		{"x,,ulg,-10","380",     "10feffff0426000000", "00", ""},
		{"x,,slg", "-90",        "10feffff04a6ffffff", "00", ""},
		{"x,,slg", "0",          "10feffff0400000000", "00", ""},
		{"x,,slg", "-1",         "10feffff04ffffffff", "00", ""},
		{"x,,slg,10", "-9.0",    "10feffff04a6ffffff", "00", ""},
		{"x,,slg,-10", "-900",   "10feffff04a6ffffff", "00", ""},
		{"x,,bi3", "1",            "10feffff0108", "00", ""},
		{"x,,bi3", "0",            "10feffff0100", "00", ""},
		{"x,,bi3,0=off;1=on","on", "10feffff0108", "00", ""},
		{"x,,bi3,0=off;1=on","off","10feffff0100", "00", ""},
		{"x,,bi3:2", "1",            "10feffff0108", "00", ""},
		{"x,,bi3:2", "1",            "10feffff01ef", "00", "W"},
		{"x,,bi3:2", "0",            "10feffff0100", "00", ""},
		{"x,,bi3:2", "3",            "10feffff0118", "00", ""},
		{"x,,bi3:2,1=on","on",       "10feffff0108", "00", ""},
		{"x,,bi3:2,1=on","-",        "10feffff0100", "00", ""},
		{"x,,bi3:2,0=off;1=on;2=auto;3=eco","auto", "10feffff0110", "00", ""},
		{"x,,bi3:2,0=off;1=on","on", "10feffff0108", "00", ""},
		{"x,,bi3:2,0=off;1=on","off","10feffff0100", "00", ""},
		{"x,,uch,1=test;2=high;3=off;0x10=on","on","10feffff0110", "00", ""},
		{"x,s,uch","3","1050ffff00", "0103", ""},
		{"x,,d2b,,°C,Aussentemperatur","x=18.004 °C [Aussentemperatur]","10fe0700090112", "00", "v"},
		{"x,,bti,,,,y,,bda,,,,z,,bdy", "21:04:58;26.10.2014;Sun","10fe0700085804212610061406", "00", ""}, // combination
		{"x,,bi3,,,,y,,bi5", "1;0",            "10feffff0108", "00", ""}, // bit combination
		{"x,,bi3,,,,y,,bi5", "1;1",            "10feffff0128", "00", ""}, // bit combination
		{"x,,bi3,,,,y,,bi5", "0;1",            "10feffff0120", "00", ""}, // bit combination
		{"x,,bi3,,,,y,,bi5", "0;0",            "10feffff0100", "00", ""}, // bit combination
		{"x,,bi3,,,,y,,bi7,,,,t,,uch", "0;0;9","10feffff020009", "00", ""}, // bit combination
		{"x,,bi6:2,,,,y,,bi0:2,,,,t,,uch", "2;1;9","10feffff03800109", "00", ""}, // bit combination
		{"temp,d2b,,°C,Aussentemperatur","","", "", "t"}, // template with relative pos
		{"x,,temp","18.004","10fe0700020112", "00", ""}, // reference to template
		{"x,,temp,10","1.8004","10fe0700020112", "00", ""}, // reference to template, valid divider product
		{"x,,temp,-10","","", "", "c"}, // reference to template, invalid divider product
		{"relrel,d2b,,,,y,d1c","","", "", "t"},   // template struct with relative pos
		{"x,,relrel","18.004;9.5","10fe070003011213", "00", ""}, // reference to template struct
		{"trelrel,temp;temp","","", "", "t"},   // template struct with relative pos and ref to templates
		{"x,,trelrel","18.004;19.008","10fe07000401120213", "00", ""}, // reference to template struct
		{"x,,temp,,,,y,,d1c","18.004;9.5","10fe070003011213", "00", ""}, // reference to template, normal def
	};
	DataFieldTemplates* templates = new DataFieldTemplates();
	DataField* fields = NULL;
	for (size_t i = 0; i < sizeof(checks) / sizeof(checks[0]); i++) {
		string check[5] = checks[i];
		istringstream isstr(check[0]);
		string expectStr = check[1];
		SymbolString mstr(false);
		result_t result = mstr.parseHex(check[2]);
		if (result != RESULT_OK) {
			cout << "\"" << check[0] << "\": parse \"" << check[2] << "\" error: " << getResultCode(result) << endl;
			continue;
		}
		SymbolString sstr(false);
		result = sstr.parseHex(check[3]);
		if (result != RESULT_OK) {
			cout << "\"" << check[0] << "\": parse \"" << check[3] << "\" error: " << getResultCode(result) << endl;
			continue;
		}
		string flags = check[4];
		bool isSet = flags.find('s') != string::npos;
		bool failedCreate = flags.find('c') != string::npos;
		bool failedRead = flags.find('r') != string::npos;
		bool failedReadMatch = flags.find('R') != string::npos;
		bool failedWrite = flags.find('w') != string::npos;
		bool failedWriteMatch = flags.find('W') != string::npos;
		bool verbose = flags.find('v') != string::npos;
		bool isTemplate = flags.find('t') != string::npos;
		string item;
		vector<string> entries;

		while (getline(isstr, item, FIELD_SEPARATOR) != 0)
			entries.push_back(item);

		if (fields != NULL) {
			delete fields;
			fields = NULL;
		}
		vector<string>::iterator it = entries.begin();
		result = DataField::create(it, entries.end(), templates, fields, isSet, isTemplate, !isTemplate && (mstr[1]==BROADCAST || isMaster(mstr[1])));
		if (failedCreate) {
			if (result == RESULT_OK)
				cout << "\"" << check[0] << "\": failed create error: unexpectedly succeeded" << endl;
			else
				cout << "\"" << check[0] << "\": failed create OK" << endl;
			continue;
		}
		if (result != RESULT_OK) {
			cout << "\"" << check[0] << "\": create error: " << getResultCode(result) << endl;
			continue;
		}
		if (fields == NULL) {
			cout << "\"" << check[0] << "\": create error: NULL" << endl;
			continue;
		}
		if (it != entries.end()) {
			cout << "\"" << check[0] << "\": create error: trailing input" << endl;
			continue;
		}
		cout << "\"" << check[0] << "\": create OK" << endl;
		if (isTemplate) {
			// store new template
			string name = fields->getName();
			result = templates->add(fields, true);
			if (result == RESULT_OK) {
				fields = NULL;
				cout << "  store template OK" << endl;
			}
			else
				cout << "  store template error: " << getResultCode(result) << endl;
			continue;
		}

		ostringstream output;
		SymbolString writeMstr(false);
		result = writeMstr.parseHex(mstr.getDataStr(true, false).substr(0, 10));
		if (result != RESULT_OK) {
			cout << "  parse \"" << mstr.getDataStr(true, false).substr(0, 10) << "\" error: " << getResultCode(result) << endl;
		}
		SymbolString writeSstr(false);
		result = writeSstr.parseHex(sstr.getDataStr(true, false).substr(0, 2));
		if (result != RESULT_OK) {
			cout << "  parse \"" << sstr.getDataStr(true, false).substr(0, 2) << "\" error: " << getResultCode(result) << endl;
		}
		result = fields->read(pt_masterData, mstr, 0, output, false, verbose);
		if (result >= RESULT_OK) {
			result = fields->read(pt_slaveData, sstr, 0, output, !output.str().empty(), verbose);
		}
		if (failedRead)
			if (result >= RESULT_OK)
				cout << "  failed read " << fields->getName() << " >"
				        << check[2] << "< error: unexpectedly succeeded" << endl;
			else
				cout << "  failed read " << fields->getName() << " >"
				        << check[2] << "< OK" << endl;
		else if (result < RESULT_OK) {
			cout << "  read " << fields->getName() << " >" << check[2]
			        << "< error: " << getResultCode(result) << endl;
		}
		else {
			bool match = strcasecmp(output.str().c_str(), expectStr.c_str()) == 0;
			verify(failedReadMatch, "read", check[2], match, expectStr, output.str());
		}

		if (!verbose) {
			istringstream input(expectStr);
			result = fields->write(input, pt_masterData, writeMstr, 0);
			if (result >= RESULT_OK)
				result = fields->write(input, pt_slaveData, writeSstr, 0);
			if (failedWrite) {
				if (result >= RESULT_OK)
					cout << "  failed write " << fields->getName() << " >"
					        << expectStr << "< error: unexpectedly succeeded" << endl;
				else
					cout << "  failed write " << fields->getName() << " >"
					        << expectStr << "< OK" << endl;
			}
			else if (result < RESULT_OK) {
				cout << "  write " << fields->getName() << " >" << expectStr
				        << "< error: " << getResultCode(result) << endl;
			}
			else {
				bool match = mstr == writeMstr && sstr == writeSstr;
				verify(failedWriteMatch, "write", expectStr, match, mstr.getDataStr() + " " + sstr.getDataStr(), writeMstr.getDataStr() + " " + writeSstr.getDataStr());
			}
		}
		delete fields;
		fields = NULL;
	}

	delete templates;

	return 0;

}