#include "honlinemonclientxml.h"

#include "honlinemonclientmain.h"
#include "honlinemonclientmainwin.h"
#include "honlinemonclientdet.h"
#include "honlinemonclienttabwin.h"
#include "honlinemonclientsimplewin.h"
#include "honlinemonclienttab.h"
#include "honlinemonclientcanvas.h"
#include "honlinemonclienthist.h"

#include <cstdlib>

ClassImp(HOnlineMonClientXML);

/* -------------------------------------------------------------------------- */
HOnlineMonClientXML::HOnlineMonClientXML() {
}
/* -------------------------------------------------------------------------- */
HOnlineMonClientXML::~HOnlineMonClientXML() {
}
/* -------------------------------------------------------------------------- */
Bool_t HOnlineMonClientXML::ParseXMLFile(TString filename, HOnlineMonClientMain* pclientmain) {
    // parse the xml config file given by filename
    // get the root node 'client' and search
    // three child nodes 'config', 'MainWindow' and 'detector'
    // and call parse functions
    clientmain = pclientmain;
    TDOMParser *parser = 0;
    TXMLDocument *xmldoc = 0;
    TXMLNode *rootnode = 0;
    TXMLNode *node = 0;
    Int_t parsecode = -1;
    currentDetector = 0;

    parser = new TDOMParser();
    parsecode = parser->ParseFile(filename);

    if (parsecode != 0) { // parsing of document failed
	Printf("XML ERROR: Parsing of XML file '%s' failed. Parse code error %d .", filename.Data(), parsecode);
	exit(1);
    }

    xmldoc = parser->GetXMLDocument();

    if (xmldoc == 0) { // parsing of document failed
	Printf("XML ERROR: parsing of xml file '%s' failed.", filename.Data());
	exit(1);
    }

    rootnode = xmldoc->GetRootNode(); // root node should be 'client' node

    if ( TString(rootnode->GetNodeName()) != "client") { // root node is NOT 'client', error&exit
	Printf("XML ERROR: xml root node is not 'client'.");
	exit(1);
    }

    node = rootnode->GetChildren();

    while (node->HasNextNode()) { // get the child nodes ('config','MainWindow','detector') under root node
	node = node->GetNextNode();
	if (node->GetNodeType() == TXMLNode::kXMLElementNode) {
	    if( TString(node->GetNodeName()) == "config") {
		ParseConfigNode(node);
	    }
	    if( TString(node->GetNodeName()) == "MainWindow") {
		ParseMainWindowNode(node, clientmain->clientmainwin);
	    }
	    if( TString(node->GetNodeName()) == "detector") {
		HOnlineMonClientDet *detector = new HOnlineMonClientDet();
		ParseDetectorNode(node, detector);
		clientmain->listDetectors.Add(detector);
	    }
	}
    }

    delete parser; // deletes the xmldocument, too
    parser = 0;

    return kTRUE;
}
/* -------------------------------------------------------------------------- */
void HOnlineMonClientXML::ParseHistogramNode(TXMLNode *node, HOnlineMonClientCanvas *canvas) {
    HOnlineMonClientHist *histo = new HOnlineMonClientHist();
    histo->SetGuiName(currentDetector->GetName());

    TXMLNode *child = 0;
    histo->SetActive(kFALSE);

    if (!node->HasChildren()) {
	Printf("XML ERROR: parsing histogram node of canvas '%s' failed.", canvas->GetName() );
	exit(1);
    }

    child = node->GetChildren();

    while (child->HasNextNode()) {
	child = child->GetNextNode();
	if (child->GetNodeType() == TXMLNode::kXMLElementNode) {

	    if( TString(child->GetNodeName()) == "name") {
		// name node is last layer, get text inside tag
		TString histoname = child->GetText();
		// histoname can contain underscores, then isAlnum() returns false
		// if(!histoname.IsAlnum()) {
		if(histoname.Contains(' ') || histoname.Contains('-')) { // histogram name can contain underscores
		    Printf("XML ERROR: parsing histogram node of canvas '%s' failed. Invalid histogram name '%s'.", canvas->GetName(), histoname.Data() );
		    exit(1);
		}
		histo->SetRealName(histoname);
	    }

	    if( TString(child->GetNodeName()) == "type") {
		// title node is last layer, get text inside tag
		TString value = child->GetText();
		if (value == "single") {
		    histo->SetType("single");
		} else {
		    // parse text, delimeter is a ':'
		    // example: <type>array:1:2</type>
		    // indices = -1: draw alle histograms in array
		    TObjArray* ar = value.Tokenize(":");
		    TString p1 = ((TObjString*) ar->At(0))->GetString();
		    TString p2 = ((TObjString*) ar->At(1))->GetString();
		    TString p3 = ((TObjString*) ar->At(2))->GetString();
		    if ( (p1 == "array") && (p2.IsDigit() || (p2.CompareTo("-1")==0)) && (p3.IsDigit() || (p3.CompareTo("-1")==0)) ) {
			// check ok, values valid
			histo->SetArrayIndexS(p2.Atoi());
			histo->SetArrayIndexM(p3.Atoi());
			delete ar;
		    } else {
			Printf("XML ERROR: type of histogram '%s' in canvas '%s' is not valid. Must be 'single', or 'array:s:m' with s,m integer values.", histo->GetName(), canvas->GetName() );
			Printf("found: type: '%s', index1: '%s', index2: '%s'", p1.Data(), p2.Data(), p3.Data());
			delete ar;
			exit(1);
		    }
		}

	    }

	    if( TString(child->GetNodeName()) == "subpad") {
		// subpad node is last layer, get text inside tag
		// if canvas not splitted, ignore subpadnumber given
		// by xml data and set subpadnumber to 0

		// type checking
		TString val = child->GetText();
		if (!val.IsDigit()) {
		    Printf("XML ERROR: subpad number '%s' of histogram '%s' in canvas '%s' is not a valid number", val.Data(), histo->GetName(), canvas->GetName() );
		    exit(1);
		}

		if (canvas->IsSplitted()) {
		    histo->SetSubpadnumber(val.Atoi());
		} else {
		    histo->SetSubpadnumber(0);
		}
                
		TString hname = currentDetector->GetName();
		hname += "_";
		hname += canvas->GetName();
		hname += "_";
		hname += histo->GetSubpadnumber();
		hname += "_";
		hname += histo->GetRealName();
		histo->SetName(hname);
		canvas->listHists.Add(histo);
	    }
	}
    }

}
/* -------------------------------------------------------------------------- */
void HOnlineMonClientXML::ParseCanvasNode(TXMLNode *node, HOnlineMonClientTabWin *window, HOnlineMonClientTab *montab) {
    // parse Canvases in TabWindows

    TXMLNode *child = 0;
    HOnlineMonClientCanvas *canvas = new HOnlineMonClientCanvas();



    if (!node->HasChildren()) {
	Printf("XML ERROR: parsing canvas node of window '%s' failed.", window->GetName() );
	exit(1);
    }

    child = node->GetChildren();

    while (child->HasNextNode()) {

	child = child->GetNextNode();
	if (child->GetNodeType() == TXMLNode::kXMLElementNode) {
	    if( TString(child->GetNodeName()) == "name") {
		// name node is last layer, get text inside tag
		TString canvasname = child->GetText();
		if(!canvasname.IsAlnum()) {
		    Printf("XML ERROR: parsing canvas node of window '%s' failed. Invalid canvas name '%s'", window->GetName(), canvasname.Data() );
		    exit(1);
		}
		canvas->SetName(canvasname);
		montab->listCanvases.Add(canvas);
	    }
	    if( TString(child->GetNodeName()) == "width") {
		// width node is last layer, get text inside tag

		// type checking
		TString val = child->GetText();
		if (!val.IsDigit()) {
		    Printf("XML ERROR: width '%s' of canvas '%s' in tab '%s' in window '%s' is not a valid number.", val.Data(), canvas->GetName(), montab->GetName(), window->GetName() );
		    exit(1);
		}

		canvas->SetWidth(val.Atoi());
	    }
	    if( TString(child->GetNodeName()) == "height") {
		// height node is last layer, get text inside tag

		// type checking
		TString val = child->GetText();
		if (!val.IsDigit()) {
		    Printf("XML ERROR: width '%s' of canvas '%s' in tab '%s' in window '%s' is not a valid number.", val.Data(), canvas->GetName(), montab->GetName(), window->GetName() );
		    exit(1);
		}

		canvas->SetHeight(val.Atoi());
	    }
	    if( TString(child->GetNodeName()) == "splitted") {
		// splitted node is last layer, get text inside tag

		// type checking
		TString val = child->GetText();
		val.ToLower();

		if ( (val != "true") && (val != "false") ) {
		    Printf("XML ERROR: The value '%s' of canvas '%s' in tab '%s' in window '%s' is not valid.", val.Data(), canvas->GetName(), montab->GetName(), window->GetName() );
		    Printf("Must be 'true' or 'false'.");
		    exit(1);
		}

		canvas->SetSplitted((val == "true") ? kTRUE : kFALSE);
	    }

	    if( TString(child->GetNodeName()) == "nx") {
		// nx node is last layer, get text inside tag
		// ignore value of nx from xml if splitted=false
		// set nx=0 if splitted=false

		// type checking
		TString val = child->GetText();
		if (!val.IsDigit()) {
		    Printf("XML ERROR: The nx split value '%s' of canvas '%s' in tab '%s' in window '%s' is not a valid number.", val.Data(), canvas->GetName(), montab->GetName(), window->GetName() );
		    exit(1);
		}

		canvas->SetNx( (canvas->IsSplitted()) ? val.Atoi() : 0 );
	    }

	    if( TString(child->GetNodeName()) == "ny") {
		// ny node is last layer, get text inside tag
		// ignore value of ny from xml if splitted=false
		// set ny=0 if splitted=false

		// type checking
		TString val = child->GetText();
		if (!val.IsDigit()) {
		    Printf("XML ERROR: The ny split value '%s' of canvas '%s' in tab '%s' in window '%s' is not a valid number.", val.Data(), canvas->GetName(), montab->GetName(), window->GetName() );
		    exit(1);
		}

		canvas->SetNy( (canvas->IsSplitted()) ? val.Atoi() : 0 );
	    }

	    if( TString(child->GetNodeName()) == "histogram") {
		// if node is histogram, go one layer down
		ParseHistogramNode(child, canvas);
	    }
	}
    }
}

/* -------------------------------------------------------------------------- */
void HOnlineMonClientXML::ParseCanvasNode(TXMLNode *node, HOnlineMonClientSimpleWin *window) {
    // parse Canvases in SimpleWindows

    TXMLNode *child = 0;
    HOnlineMonClientCanvas *canvas = new HOnlineMonClientCanvas();


    if (!node->HasChildren()) {
	Printf("XML ERROR: parsing canvas node of window '%s' failed.", window->GetName() );
	exit(1);
    }

    child = node->GetChildren();

    while (child->HasNextNode()) {

	child = child->GetNextNode();
	if (child->GetNodeType() == TXMLNode::kXMLElementNode) {

	    if( TString(child->GetNodeName()) == "name") {
		// name node is last layer, get text inside tag
		TString canvasname = child->GetText();
		if(!canvasname.IsAlnum()) {
		    Printf("XML ERROR: parsing canvas node of window '%s' failed. Invalid canvas name '%s'", window->GetName(), canvasname.Data() );
		    exit(1);
		}
		canvas->SetName(canvasname);
		window->listCanvases.Add(canvas);
	    }

	    if( TString(child->GetNodeName()) == "title") {
		// title node is last layer, get text inside tag
		canvas->SetTitle(child->GetText());
	    }

	    if( TString(child->GetNodeName()) == "width") {
		// width node is last layer, get text inside tag

		// type checking
		TString val = child->GetText();
		if (!val.IsDigit()) {
		    Printf("XML ERROR: width of canvas '%s' in window '%s' is not a valid number.", canvas->GetName(), window->GetName() );
		    exit(1);
		}

		canvas->SetWidth(val.Atoi());
	    }

	    if( TString(child->GetNodeName()) == "height") {
		// height node is last layer, get text inside tag

		// type checking
		TString val = child->GetText();
		if (!val.IsDigit()) {
		    Printf("XML ERROR: height of canvas '%s' in window '%s' is not a valid number.", canvas->GetName(), window->GetName() );
		    exit(1);
		}

		canvas->SetHeight(val.Atoi());
	    }

	    if( TString(child->GetNodeName()) == "splitted") {
		// splitted node is last layer, get text inside tag

		// type checking
		TString val = child->GetText();
		val.ToLower();

		if ( (val != "true") && (val != "false") ) {
		    Printf("XML ERROR: The value '%s' of 'splitted' of canvas '%s' in window '%s' is not valid.", val.Data(), canvas->GetName(), window->GetName() );
		    Printf("Must be 'true' or 'false'.");
		    exit(1);
		}

		canvas->SetSplitted( (val == "true") ? kTRUE : kFALSE );
	    }

	    if( TString(child->GetNodeName()) == "nx") {
		// nx node is last layer, get text inside tag
		// ignore value of nx from xml if splitted=false
		// set nx=0 if splitted=false

		// type checking
		TString val = child->GetText();
		if (!val.IsDigit()) {
		    Printf("XML ERROR: The nx split value '%s' of canvas '%s' in window '%s' is not a valid number.", val.Data(), canvas->GetName(), window->GetName() );
		    exit(1);
		}

		canvas->SetNx( (canvas->IsSplitted()) ? val.Atoi() : 0 );
	    }

	    if( TString(child->GetNodeName()) == "ny") {
		// ny node is last layer, get text inside tag
		// ignore value of ny from xml if splitted=false
		// set ny=0 if splitted=false

		// type checking
		TString val = child->GetText();
		if (!val.IsDigit()) {
		    Printf("XML ERROR: The ny split value '%s' of canvas '%s' in window '%s' is not a valid number.", val.Data(), canvas->GetName(), window->GetName() );
		    exit(1);
		}

		canvas->SetNy( (canvas->IsSplitted()) ? val.Atoi() : 0 );
	    }

	    if( TString(child->GetNodeName()) == "histogram") {
		// if node is window, go one layer down
		ParseHistogramNode(child, canvas);
	    }
	}
    }

}
/* -------------------------------------------------------------------------- */
void HOnlineMonClientXML::ParseTabNode(TXMLNode *node, HOnlineMonClientTabWin *window) {

    HOnlineMonClientTab *montab = new HOnlineMonClientTab();
    TXMLNode *child = 0;



    if (!node->HasChildren()) {
	Printf("XML ERROR: parsing tab node of window '%s' failed.", window->GetName() );
	exit(1);
    }

    child = node->GetChildren();

    while (child->HasNextNode()) {
	child = child->GetNextNode();
	if (child->GetNodeType() == TXMLNode::kXMLElementNode) {
	    if( TString(child->GetNodeName()) == "name") {
		// name node is last layer, get text inside tag
		TString tabname = child->GetText();
		if(!tabname.IsAlnum()) {
		    Printf("XML ERROR: parsing tab node of window '%s' failed. Invalid tab name '%s'", window->GetName(), tabname.Data() );
		    exit(1);
		}
		montab->SetName(tabname);
		window->listTabs.Add(montab);
	    }
	    if( TString(child->GetNodeName()) == "title") {
		// title node is last layer, get text inside tag
		montab->SetTitle(child->GetText());
	    }
	    if( TString(child->GetNodeName()) == "canvas") {
		// if node is window, go one layer down
		ParseCanvasNode(child, window, montab);
	    }

	}
    }
}
/* -------------------------------------------------------------------------- */
void HOnlineMonClientXML::ParseWindowNode(TXMLNode *node, HOnlineMonClientDet *detector) {
    Bool_t tabbed = kFALSE;
    TString name = "";
    TString title = "";
    TXMLNode *child = 0;

    if (!node->HasChildren()) {
	Printf("XML ERROR: parsing window node of detector '%s' failed.", detector->GetName() );
	exit(1);
    }

    child = node->GetChildren();

    while (child->HasNextNode()) {
	child = child->GetNextNode();

	if (child->GetNodeType() == TXMLNode::kXMLElementNode) {
	    if( TString(child->GetNodeName()) == "name") {
		// name node is last layer, get text inside tag
		TString windowname = child->GetText();
		if (!windowname.IsAlnum()) {
		    Printf("XML ERROR: parsing window node of detector '%s' failed. Invalid window name '%s'", detector->GetName(), windowname.Data() );
		    exit(1);
		}
		name = windowname;
	    }
	    if( TString(child->GetNodeName()) == "title") {
		// title node is last layer, get text inside tag
		title = child->GetText();
	    }
	    if( TString(child->GetNodeName()) == "tabbed") {
		// tabbed node is last layer, get text inside tag
		if (TString(child->GetText()) == "true") {
		    // tabbed window
		    tabbed = kTRUE;
		    HOnlineMonClientTabWin *window = new HOnlineMonClientTabWin();
		    window->SetName(name);
		    window->SetTitle(title);
		    detector->listWindows.Add(window);
		} else {
		    // simple window
		    tabbed = kFALSE;
		    HOnlineMonClientSimpleWin *window = new HOnlineMonClientSimpleWin();
		    window->SetName(name);
		    window->SetTitle(title);
		    detector->listWindows.Add(window);
		}
	    }
	    if( TString(child->GetNodeName()) == "canvas") {
		// if node is canvas, go one layer down
		// is possible in nontabbed window ONLY
		// so tabbed must be false, otherwise the xml configuration file is incorrect
		if (tabbed) {
		    Printf("XML ERROR: xml file wrong, found tabbed=true and canvas directly under window.");
		    Printf("Add a tab tag or set tabbed to false.");
		    Printf("Window name: %s", name.Data() );
		    Printf("Detector name: %s", detector->GetName() );
		    exit(1);
		}

		ParseCanvasNode(child, (HOnlineMonClientSimpleWin*)detector->listWindows.FindObject(name)); // window is always HOnlineMonClientSimpleWin
	    }
	    if( TString(child->GetNodeName()) == "tab") {
		// if node is tab, go one layer down
		ParseTabNode(child,  (HOnlineMonClientTabWin*)detector->listWindows.FindObject(name)); // window is always HOnlineMonClientTabWin
	    }
	}
    }
}
/* -------------------------------------------------------------------------- */
void HOnlineMonClientXML::ParseDetectorNode(TXMLNode *node, HOnlineMonClientDet *detector) {
    TXMLNode *child = 0;

    currentDetector = detector;

    if (!node->HasChildren()) {
	Printf("XML ERROR: parsing detector node failed.");
	exit(1);
    }

    child = node->GetChildren();

    while (child->HasNextNode()) {
	child = child->GetNextNode();

	if (child->GetNodeType() == TXMLNode::kXMLElementNode) {
	    if( TString(child->GetNodeName()) == "name") {
		// name node is last layer, get text inside tag
		TString detname = child->GetText();
		if (!detname.IsAlnum()) {
		    Printf("XML ERROR: parsing detector node failed. Invalid detector name '%s'", detname.Data());
		    exit(1);
		}

		detector->SetName(detname);
	    }
	    if( TString(child->GetNodeName()) == "title") {
		// title node is last layer, get text inside tag
		detector->SetTitle(child->GetText());
	    }
	    if( TString(child->GetNodeName()) == "window") {
		// if node is window, go one layer down
		ParseWindowNode(child, detector);
	    }

	}
    }
}
/* -------------------------------------------------------------------------- */
void HOnlineMonClientXML::ParseServerNode(TXMLNode *node) {
    TXMLNode *child = 0;

    if (!node->HasChildren()) {
	Printf("XML ERROR: parsing server node failed.");
	exit(1);
    }

    child = node->GetChildren();

    while (child->HasNextNode()) {
	child = child->GetNextNode();

	if (child->GetNodeType() == TXMLNode::kXMLElementNode) {
	    if( TString(child->GetNodeName()) == "host") {
		// host node is last layer, get text inside tag
		clientmain->SetServerhost(child->GetText());
	    }
	    if( TString(child->GetNodeName()) == "port") {
		// port node is last layer, get text inside tag

		// type checking
		TString val = child->GetText();
		if (!val.IsDigit()) {
		    Printf("XML ERROR: The server port is not a valid number.");
		    exit(1);
		}

		clientmain->SetServerport(val.Atoi());
	    }

	}

    }
}
/* -------------------------------------------------------------------------- */
void HOnlineMonClientXML::ParseConfigNode(TXMLNode *node) {
    TXMLNode *child = 0;

    if (!node->HasChildren()) {
	Printf("XML ERROR: parsing config node failed.");
	exit(1);
    }

    child = node->GetChildren();

    while (child->HasNextNode()) {
	child = child->GetNextNode();

	if (child->GetNodeType() == TXMLNode::kXMLElementNode) {
	    if( TString(child->GetNodeName()) == "server") {
		// if node is server, go one layer down
		ParseServerNode(child);
	    }
	}

    }
}
/* -------------------------------------------------------------------------- */
void HOnlineMonClientXML::ParseMainWindowNode(TXMLNode *node, HOnlineMonClientMainWin *clientmainwin) {
    TXMLNode *child = 0;

    if (!node->HasChildren()) {
	Printf("XML ERROR: parsing MainWindow node failed.");
	exit(1);
    }

    child = node->GetChildren();

    while (child->HasNextNode()) {
	child = child->GetNextNode();

	if (child->GetNodeType() == TXMLNode::kXMLElementNode) {
	    if( TString(child->GetNodeName()) == "name") {
		// name node is last layer, get text inside tag
		TString windowname = child->GetText();
		if (!windowname.IsAlnum()) {
		    Printf("XML ERROR: parsing MainWindow node failed. Invalid MainWindow name '%s'", windowname.Data());
		    exit(1);
		}
		clientmainwin->SetName(windowname);
	    }

	    if( TString(child->GetNodeName()) == "title") {
		// title node is last layer, get text inside tag
		clientmainwin->SetTitle(child->GetText());
	    }

	    if( TString(child->GetNodeName()) == "width") {
		// width node is last layer, get text inside tag

		// type checking
		TString val = child->GetText();
		if (!val.IsDigit()) {
		    Printf("XML ERROR: width of MainWindow is not a valid number.");
		    exit(1);
		}

		clientmainwin->SetWidth(val.Atoi());
	    }

	    if( TString(child->GetNodeName()) == "height") {
		// height node is last layer, get text inside tag

		// type checking
		TString val = child->GetText();
		if (!val.IsDigit()) {
		    Printf("XML ERROR: height of MainWindow is not a valid number.");
		    exit(1);
		}

		clientmainwin->SetHeight(val.Atoi());
	    }

            if( TString(child->GetNodeName()) == "snapshotpath") {
		clientmainwin->SetSnapShotPath(child->GetText());
	    }
            if( TString(child->GetNodeName()) == "snapshotpathonline") {
		clientmainwin->fTextSnapshotPathOnline=child->GetText();
	    }

	    if( TString(child->GetNodeName()) == "autosaverate") {
		TString val = child->GetText();
		if (!val.IsDigit()) {
		    Printf("XML ERROR: autosaverate of MainWindow is not a valid number.");
		    exit(1);
		}
		clientmainwin->SetAutoSaveRate(val.Atoi());
		HOnlineMonClientMain::SetAutoSaveInterval(val.Atoi());
	    }
	    if( TString(child->GetNodeName()) == "autosaverateonline") {
		TString val = child->GetText();
		if (!val.IsDigit()) {
		    Printf("XML ERROR: autosaverateonline of MainWindow is not a valid number.");
		    exit(1);
		}
		HOnlineMonClientMain::SetAutoSaveIntervalOnline(val.Atoi());
	    }

	    if( TString(child->GetNodeName()) == "openlist") {
		TString val = child->GetText();

		TObjArray* myarguments = val.Tokenize(",");
		TIterator* myiter = myarguments->MakeIterator();
                TObjString* stemp = 0;
		// iterate over the list of arguments
		while ((stemp = (TObjString*)myiter->Next()) != 0)
		{
		    TString argument = stemp->GetString();
		    clientmainwin->listOpenDetectors.Add(new TObjString(argument.Data()));
		}
		myarguments->Delete();
		delete myarguments;
                delete myiter;

	    }

	    if( TString(child->GetNodeName()) == "reconnect") {
		TString val = child->GetText();
		if (!val.IsDigit()) {
		    Printf("XML ERROR: reconnect of MainWindow is not a valid number.");
		    exit(1);
		}

                clientmainwin->GetMainClient()->SetReconnect(val.Atoi());
	    }

	}

    }
}