PmuppScript.cpp

Go to the documentation of this file.

/***************************************************************************
 
  PmuppScript.cpp
 
  Author: Andreas Suter
  e-mail: andreas.suter@psi.ch
 
***************************************************************************/
 
/***************************************************************************
 *   Copyright (C) 2007-2026 by Andreas Suter                              *
 *   andreas.suter@psi.ch                                                  *
 *                                                                         *
 *   This program 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 2 of the License, or     *
 *   (at your option) any later version.                                   *
 *                                                                         *
 *   This program 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 this program; if not, write to the                         *
 *   Free Software Foundation, Inc.,                                       *
 *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
 ***************************************************************************/

 
#include <cmath>
#include <iostream>
 
#include <QProcessEnvironment>
#include <QString>
#include <QFile>
#include <QTextStream>
#include <QDateTime>
#include <QProcess>
 
#include <QtGlobal> // Q_ASSERT
 
#include "PmuppScript.h"
 
//--------------------------------------------------------------------------
PmuppScript::PmuppScript(QStringList script) :
  fScript(script)
{
  fLoadPath = QString("./");
  fSavePath = QString("./");
  fSelected = -2; // nothing selected
  fNorm = false;
 
  fAdmin = std::make_unique<PmuppAdmin>();
}
 
//--------------------------------------------------------------------------
int PmuppScript::executeScript()
{
  fParamDataHandler = std::make_unique<PParamDataHandler>();
  if (fParamDataHandler == nullptr) {
    std::cerr << std::endl << "**ERROR** couldn't invoke data handler ..." << std::endl << std::endl;
    return -1;
  }
 
  QString cmd;
  int status;
  for (int i=0; i<fScript.size(); i++) {
    status = 0;
    cmd = fScript.at(i);
    if (cmd.startsWith("loadPath")) {
      setLoadPath(cmd);
    } else if (cmd.startsWith("savePath")) {
      setSavePath(cmd);
    } else if (cmd.startsWith("load ")) {
      status = loadCollection(cmd);
    } else if (cmd.startsWith("selectAll")) {
      status = selectAll();
    } else if (cmd.startsWith("select ")) {
      status = select(cmd);
    } else if (cmd.startsWith("x")) {
      status = addX(cmd);
    } else if (cmd.startsWith("y")) {
      status = addY(cmd);
    } else if (cmd.startsWith("norm")) {
      fNorm = true;
    } else if (cmd.startsWith("plot")) {
      status = plot(cmd);
    } else if (cmd.startsWith("macro")) {
      status = macro(cmd);
    } else if (cmd.startsWith("var")) {
      status = var_cmd(cmd, i);
    } else if (cmd.startsWith("col")) {
      // nothing to be done here, since var handles it internally
    } else if (cmd.startsWith("<python>")) {
      // the python block is consumed by var_cmd of the linked variable
    } else {
      std::cerr << "**ERROR** found unkown script command '" << cmd.toLatin1().constData() << "'." << std::endl << std::endl;
      status = -2;
    }
    // check for errors
    if (status != 0) {
      emit finished();
      return status;
    }
  }
 
  emit finished();
 
  return 0;
}
 
//--------------------------------------------------------------------------
void PmuppScript::setLoadPath(const QString cmd)
{
  QString str = cmd;
  QStringList tok;
 
  // remove command from string
  str = str.remove("loadPath ");
 
  // tokenize path string
  tok = str.split("/", Qt::SkipEmptyParts);
 
  // check if there is a bash variable which needs to be resolved
  QProcessEnvironment procEnv = QProcessEnvironment::systemEnvironment();
  QString path = QString("");
  for (int i=0; i<tok.size(); i++) {
    str = tok.at(i);
    if (str.startsWith("$")) {
      str = str.remove("$");
      QString var = procEnv.value(str, "");
      path += var + "/";
    } else {
      path += str + "/";
    }
  }
 
  fLoadPath = path;
}
 
//--------------------------------------------------------------------------
void PmuppScript::setSavePath(const QString cmd)
{
  QString str = cmd;
  QStringList tok;
 
  // remove command from string
  str = str.remove("savePath ");
 
  // tokenize path string
  tok = str.split("/", Qt::SkipEmptyParts);
 
  // check if there is a bash variable which needs to be resolved
  QProcessEnvironment procEnv = QProcessEnvironment::systemEnvironment();
  QString path = QString("");
  for (int i=0; i<tok.size(); i++) {
    str = tok.at(i);
    if (str.startsWith("$")) {
      str = str.remove("$");
      QString var = procEnv.value(str, "");
      path += var + "/";
    } else {
      path += str + "/";
    }
  }
 
  fSavePath = path;
}
 
//--------------------------------------------------------------------------
int PmuppScript::loadCollection(const QString str)
{
  QString fln = str;
  fln = fln.remove("load ");
  fln = fln.trimmed();
  fln = fln.prepend(fLoadPath);
 
  QStringList flnList;
  flnList << fln;
 
  QString errorMsg("");
  if (!fParamDataHandler->ReadParamFile(flnList, errorMsg))
    return 1;
 
  return 0;
}
 
//--------------------------------------------------------------------------
int PmuppScript::select(const QString str)
{
  QString cmd = str;
  QStringList tok = cmd.split(' ', Qt::SkipEmptyParts);
  if (tok.size() != 2) {
    std::cerr << std::endl << "**ERROR** wrong 'select' command syntax." << std::endl << std::endl;
    return -1;
  }
 
  bool ok;
  int ival = tok[1].toInt(&ok);
  if (ok) { // collection index given
    if (ival >= fParamDataHandler->GetNoOfCollections()) {
      std::cerr << std::endl << "**ERROR** try to select a collection with index " << ival << ", which is >= # collections (" << fParamDataHandler->GetNoOfCollections() << ")." << std::endl << std::endl;
      return -2;
    }
    fSelected = ival;
  } else { // assume that a collection name is given
    ival = fParamDataHandler->GetCollectionIndex(tok[1]);
    if (ival == -1) {
      std::cerr << std::endl << "**ERROR** couldn't find collection '" << tok[1].toLatin1().constData() << "'." << std::endl << std::endl;
      return -3;
    }
    if (ival >= fParamDataHandler->GetNoOfCollections()) {
      std::cerr << std::endl << "**ERROR** try to select a collection with index " << ival << ", which is >= # collections (" << fParamDataHandler->GetNoOfCollections() << ")." << std::endl << std::endl;
      return -2;
    }
    fSelected = ival;
  }
 
  return 0;
}
 
//--------------------------------------------------------------------------
int PmuppScript::selectAll()
{
  int noColl = fParamDataHandler->GetNoOfCollections();
  if ( noColl > 0) {
    fSelected = -1; // all collections are selected
  } else {
    std::cerr << std::endl << "**ERROR** no collections present, hence it is not possible to select them." << std::endl << std::endl;
    return -1;
  }
 
  return 0;
}
 
//--------------------------------------------------------------------------
int PmuppScript::addX(const QString str)
{
  QString cmd = str, label;
  QStringList tok = cmd.split(' ', Qt::SkipEmptyParts);
 
  if (tok.size() != 2) {
    std::cerr << std::endl << "**ERROR** in addX: number of tokens missmatch." << std::endl << std::endl;
    return -1;
  }
  label = tok[1].trimmed();
 
  PmuppCollection *coll=0;
  if (fSelected == -2) { // no selection -> error
    std::cerr << std::endl << "**ERROR** in addX. addX called without previous 'select' command." << std::endl << std::endl;
    return -2;
  } else if (fSelected == -1) { // i.e. select ALL
    // clean up plot info first
    fPlotInfo.clear();
 
    // make sure that label is found in ALL collections, or in variables
    // first check collections
    bool foundInColl(true), foundInVar(true);
    QString collName("");
    for (int i=0; i<fParamDataHandler->GetNoOfCollections(); i++) {
      coll = fParamDataHandler->GetCollection(i);
      if (!foundLabel(coll, label)) { // label not found
        foundInColl = false;
        collName = coll->GetName();
        break;
      }
    }
    // second check variables
    if (!foundVariable(label)) { // label not found
      foundInVar = false;
    }
    // make sure label(s) have been found
    if (!foundInColl && !foundInVar) { // not all labels found, neither in collection nor variables.
      std::cerr << std::endl << "**ERROR** couldn't find '" << label.toLatin1().constData() << "' in collection '" << collName.toLatin1().constData() << "'," << std::endl;
      std::cerr << "          nor is it a defined variable" << std::endl << std::endl;
      return -4;
    }
 
    // resize fPlotInfo to the number of selections
    fPlotInfo.resize(fParamDataHandler->GetNoOfCollections());
 
    // feed plot info
    for (int i=0; i<fPlotInfo.size(); i++) {
      fPlotInfo[i].collIdx = i;
      fPlotInfo[i].xLabel = label;
    }
  } else { // a specific selection
    // check that label is found in the selected collection, or in variables
    coll = fParamDataHandler->GetCollection(fSelected);
    if (coll == 0) {
      std::cerr << std::endl << "**ERROR** in addX: selected collection couldn't be found ..." << std::endl << std::endl;
      return -3;
    }
    // first check collection
    bool foundInColl(true), foundInVar(true);
    QString collName("");
    if (!foundLabel(coll, label)) { // label not found
      foundInColl = false;
      collName = coll->GetName();
    }
    // second check variables
    if (!foundVariable(label)) { // label not found
      foundInVar = false;
    }
    // make sure label(s) have been found
    if (!foundInColl && !foundInVar) { // not all labels found, neither in collection nor variables.
      std::cerr << std::endl << "**ERROR** couldn't find '" << label.toLatin1().constData() << "' in collection '" << collName.toLatin1().constData() << "'," << std::endl;
      std::cerr << "          nor is it a defined variable" << std::endl << std::endl;
      return -4;
    }
 
    // feed plot entry
    fPlotEntry.collIdx = fSelected;
    fPlotEntry.xLabel = label;
  }
 
  return 0;
}
 
//--------------------------------------------------------------------------
int PmuppScript::addY(const QString str)
{
  QString cmd = str;
  QVector<QString> label;
  QStringList tok = cmd.split(' ', Qt::SkipEmptyParts);
 
  if (tok.size() < 2) {
    std::cerr << std::endl << "**ERROR** in addY: number of tokens < 2." << std::endl << std::endl;
    return -1;
  }
  // collect all potential labels
  for (int i=1; i<tok.size(); i++)
    label.push_back(tok[i].trimmed());
 
  PmuppCollection *coll=0;
  if (fSelected == -2) { // no selection -> error
    std::cerr << std::endl << "**ERROR** in addY. addY called without previous 'select' command." << std::endl << std::endl;
    return -2;
  } else if (fSelected == -1) { // i.e. select ALL
    // make sure that label(s) is/are found in ALL collections, or in variables
    // first check collections
    bool foundInColl(true), foundInVar(true);
    int idx = -1;
    QString collName("");
    for (int i=0; i<fParamDataHandler->GetNoOfCollections(); i++) {
      coll = fParamDataHandler->GetCollection(i);
      for (int j=0; j<label.size(); j++) {
        if (!foundLabel(coll, label[j])) { // label not found
          foundInColl = false;
          collName = coll->GetName();
          idx = j;
          break;
        }
      }
    }
    // second check variables
    for (int i=0; i<label.size(); i++) {
      if (!foundVariable(label[i])) { // label not found
        foundInVar = false;
        idx = i;
        break;
      }
    }
    // make sure label(s) have been found
    if (!foundInColl && !foundInVar) { // not all labels found, neither in collection nor variables.
      std::cerr << std::endl << "**ERROR** couldn't find '" << label[idx].toLatin1().constData() << "' in collection '" << collName.toLatin1().constData() << "'," << std::endl;
      std::cerr << "          nor is it a defined variable" << std::endl << std::endl;
      return -4;
    }
 
    // feed plot info with y-label(s)
    for (int i=0; i<fPlotInfo.size(); i++) {
      fPlotInfo[i].yLabel = label;
    }
  } else { // a specific selection
    // clear yLabel
    fPlotEntry.yLabel.clear();
 
    // check that label is found in the selected collection, or in the variables
    coll = fParamDataHandler->GetCollection(fSelected);
    if (coll == 0) {
      std::cerr << std::endl << "**ERROR** in addY: selected collection couldn't be found ..." << std::endl << std::endl;
      return -3;
    }
 
    // first check specific collection
    bool foundInColl(true), foundInVar(true);
    int idx = -1;
    QString collName("");
    for (int i=0; i<label.size(); i++) {
      if (!foundLabel(coll, label[i])) { // label not found
        foundInColl = false;
        collName = coll->GetName();
        idx = i;
        break;
      }
    }
    // second check variables
    for (int i=0; i<label.size(); i++) {
      if (!foundVariable(label[i])) { // label not found
        foundInVar = false;
        idx = i;
        break;
      }
    }
    // make sure label(s) have been found
    if (!foundInColl && !foundInVar) { // not all labels found, neither in collection nor variables.
      std::cerr << std::endl << "**ERROR** couldn't find '" << label[idx].toLatin1().constData() << "' in collection '" << collName.toLatin1().constData() << "'," << std::endl;
      std::cerr << "          nor is it a defined variable" << std::endl << std::endl;
      return -4;
    }
 
    fPlotEntry.yLabel = label;
 
    // add plot entry
    fPlotInfo.push_back(fPlotEntry);
  }
 
 
  return 0;
}
 
//--------------------------------------------------------------------------
int PmuppScript::plot(const QString str)
{
  QString cmd = str;
  QStringList tok = cmd.split(' ', Qt::SkipEmptyParts);
  if (tok.size() != 2) {
    std::cerr << std::endl << "**ERROR** in plot: number of tokens != 2." << std::endl << std::endl;
    return -1;
  }
  QString flnOut = fSavePath + tok[1];
  QString macroOut = fSavePath + "__out.C";
 
  if (macro(QString("macro " + macroOut), flnOut) != 0) {
    std::cerr << std::endl << "**ERROR** temporary macro generation failed." << std::endl << std::endl;
    return -1;
  }
 
  // call root via batch
  QProcess *proc = new QProcess(this);
  if (proc == nullptr) {
    std::cerr << std::endl << "**ERROR** couldn't invoke root.exe in batch mode." << std::endl << std::endl;
    return -2;
  }
 
  // make sure that the system environment variables are properly set
  QString exec_cmd = "root.exe";
  QStringList arg;
  arg << "-b";
  arg << macroOut;
  arg << "-q";
 
  QProcessEnvironment env = QProcessEnvironment::systemEnvironment();
#if defined(Q_OS_DARWIN)
  env.insert("DYLD_LIBRARY_PATH", env.value("ROOTSYS") + "/lib:/usr/local/lib:" + env.value("DYLD_LIBRARY_PATH"));
#else
  env.insert("LD_LIBRARY_PATH", env.value("ROOTSYS") + "/lib:" + env.value("LD_LIBRARY_PATH"));
#endif
  proc->setProcessEnvironment(env);
  proc->setWorkingDirectory(fSavePath);
  proc->start(exec_cmd, arg);
  if (!proc->waitForStarted()) {
    std::cerr << std::endl << "**ERROR** Could not execute the output command: " << exec_cmd.toLatin1().constData() << std::endl << std::endl;
    QFile::remove(macroOut);
    return -3;
  }
  proc->waitForFinished();
 
  QFile::remove(macroOut);
 
  return 0;
}
 
//--------------------------------------------------------------------------
int PmuppScript::macro(const QString str, const QString plotFln)
{
  QVector<PmuppMarker> marker = fAdmin->getMarkers();
  QVector<PmuppColor> color = fAdmin->getColors();
 
  QString cmd = str;
  QStringList tok = cmd.split(' ', Qt::SkipEmptyParts);
  if (tok.size() != 2) {
    std::cerr << std::endl << "**ERROR** macro command with wrong number of arguments (" << tok.size() << ")." << std::endl << std::endl;
    return -1;
  }
  QString macroName = tok[1].trimmed();
 
  QString fln = fSavePath + macroName;
  QFile file(fln);
  if (!file.open(QIODevice::WriteOnly | QIODevice::Text)) {
    std::cerr << std::endl << "**ERROR** Couldn't open macro file for writting." << std::endl << std::endl;
    return -2;
  }
 
  QTextStream fout(&file);
 
  // write header
  fout << "// --------------------------" << Qt::endl;
  fout << "// " << fln.toLatin1().constData() << Qt::endl;
  fout << "// " << QDateTime::currentDateTime().toString("yy/MM/dd - HH:mm:ss") << Qt::endl;
  fout << "// --------------------------" << Qt::endl;
  fout << "{" << Qt::endl;
  fout << "  gROOT->Reset();" << Qt::endl;
  fout << Qt::endl;
  fout << "  gStyle->SetOptTitle(0);" << Qt::endl;
  fout << "  gStyle->SetOptDate(0);" << Qt::endl;
  fout << "  gStyle->SetPadColor(TColor::GetColor(255,255,255));    // pad bkg to white" << Qt::endl;
  fout << "  gStyle->SetCanvasColor(TColor::GetColor(255,255,255)); // canvas bkg to white" << Qt::endl;
  fout << Qt::endl;
  fout << "  Int_t nn=0, i=0;" << Qt::endl;
  fout << "  Double_t xx[512];" << Qt::endl;
  fout << "  Double_t xxPosErr[512];" << Qt::endl;
  fout << "  Double_t xxNegErr[512];" << Qt::endl;
  fout << "  Double_t yy[512];" << Qt::endl;
  fout << "  Double_t yyPosErr[512];" << Qt::endl;
  fout << "  Double_t yyNegErr[512];" << Qt::endl;
  fout << Qt::endl;
 
  // write data
  QVector<double> xx, xxPosErr, xxNegErr, yy, yyPosErr, yyNegErr;
  QString collName;
  int count=0;
  double x_min=0.0, x_max=0.0, x_min_new=0.0, x_max_new=0.0, y_min=0.0, y_max=0.0, y_min_new=0.0, y_max_new=0.0;
  double dval, y_min_norm=1.0e10;
  for (int i=0; i<fPlotInfo.size(); i++) {
    // get collection name
    collName = fParamDataHandler->GetCollectionName(i);
    xx = fParamDataHandler->GetValues(collName, fPlotInfo[i].xLabel);
    if (xx.size() == 0) { // it is a variable
      int idx = getVarIndex(fPlotInfo[i].xLabel);
      if (idx == -1) {
        std::cerr << std::endl;
        std::cerr << "**ERROR** Couldn't get x-label '" << fPlotInfo[i].xLabel.toLatin1().data() << "'." << std::endl;
        std::cerr << "          This should never happens." << std::endl;
        return -3;
      }
      std::vector<double> xVal = fVarHandler[idx].getValues();
      QVector<double> qvec(xVal.begin(), xVal.end());
      xx = qvec;
      // use variable errors for x
      std::vector<double> xErr = fVarHandler[idx].getErrors();
      QVector<double> qvecE(xErr.begin(), xErr.end());
      xxPosErr = qvecE;
      xxNegErr = qvecE;
    } else {
      // x-errors from parameter data handler (0.0 if not available)
      xxPosErr = fParamDataHandler->GetPosErr(collName, fPlotInfo[i].xLabel);
      if (xxPosErr.size() == 0)
        xxPosErr = QVector<double>(xx.size(), 0.0);
      xxNegErr = fParamDataHandler->GetNegErr(collName, fPlotInfo[i].xLabel);
      if (xxNegErr.size() == 0)
        xxNegErr = QVector<double>(xx.size(), 0.0);
    }
    // get x-axis min/max
    minMax(xx, x_min, x_max);
    if (count==0) {
      x_min_new = x_min;
      x_max_new = x_max;
    } else {
      if (x_min < x_min_new)
        x_min_new = x_min;
      if (y_max > x_max_new)
        x_max_new = x_max;
    }
 
    for (int j=0; j<fPlotInfo[i].yLabel.size(); j++) {
      yy = fParamDataHandler->GetValues(collName, fPlotInfo[i].yLabel[j]);
      yyPosErr = fParamDataHandler->GetPosErr(collName, fPlotInfo[i].yLabel[j]);
      yyNegErr = fParamDataHandler->GetNegErr(collName, fPlotInfo[i].yLabel[j]);
      if (yy.size() == 0) { // it's a variable
        int idx = getVarIndex(fPlotInfo[i].yLabel[j]);
        if (idx == -1) {
          std::cerr << std::endl;
          std::cerr << "**ERROR** Couldn't get y-label '" << fPlotInfo[i].yLabel[j].toLatin1().data() << "'." << std::endl;
          std::cerr << "          This should never happens." << std::endl;
          return -3;
        }
        std::vector<double> yVal = fVarHandler[idx].getValues();
        QVector<double> qvecV(yVal.begin(), yVal.end());
        yy = qvecV;
        std::vector<double> yErr = fVarHandler[idx].getErrors();
        QVector<double> qvecE(yErr.begin(), yErr.end());
        yyPosErr = qvecE;
        yyNegErr = qvecE;
      }
      // get y-axis min/max
      minMax(yy, y_min, y_max);
      if (count==0) {
        y_min_new = y_min;
        y_max_new = y_max;
      } else {
        if (y_min < y_min_new)
          y_min_new = y_min;
        if (y_max > y_max_new)
          y_max_new = y_max;
      }
      fout << "  // " << ++count << ". data set" << Qt::endl;
      fout << "  nn = " << xx.size() << ";" << Qt::endl;
      fout << "  // x-values" << Qt::endl;
      for (int k=0; k<xx.size(); k++) {
        fout << "  xx[" << k << "]=" << xx[k] << ";" << Qt::endl;
      }
      fout << "  // xxPosErr-values" << Qt::endl;
      for (int k=0; k<xxPosErr.size(); k++) {
        fout << "  xxPosErr[" << k << "]=" << fabs(xxPosErr[k]) << ";" << Qt::endl;
      }
      fout << "  // xxNegErr-values" << Qt::endl;
      for (int k=0; k<xxNegErr.size(); k++) {
        fout << "  xxNegErr[" << k << "]=" << fabs(xxNegErr[k]) << ";" << Qt::endl;
      }
      fout << "  // y-values" << Qt::endl;
      for (int k=0; k<yy.size(); k++) {
        dval = yy[k];
        if (fNorm) {
          dval /= y_max;
          if (dval < y_min_norm)
            y_min_norm = dval;
        }
        fout << "  yy[" << k << "]=" << dval << ";" << Qt::endl;
      }
      fout << "  // yyNegErr-values" << Qt::endl;
      for (int k=0; k<yyNegErr.size(); k++) {
        dval = fabs(yyNegErr[k]);
        if (fNorm)
          dval /= fabs(y_max);
        fout << "  yyNegErr[" << k << "]=" << dval << ";" << Qt::endl;
      }
      fout << "  // yyPosErr-values" << Qt::endl;
      for (int k=0; k<yyPosErr.size(); k++) {
        dval = fabs(yyPosErr[k]);
        if (fNorm)
          dval /= fabs(y_max);
        fout << "  yyPosErr[" << k << "]=" << dval << ";" << Qt::endl;
      }
      fout << Qt::endl;
      fout << "  TGraphAsymmErrors *g_" << i << "_" << j << " = new TGraphAsymmErrors(nn, xx, yy, xxNegErr, xxPosErr, yyNegErr, yyPosErr);" << Qt::endl;
      fout << Qt::endl;
    }
  }
 
  // x,y-min/max range
  double diff;
  if (x_min_new > 0.0)
    x_min = 0.0;
  else
    x_min = x_min_new;
  diff = x_max-x_min;
  x_max = x_max_new + 0.05*diff;  
  diff = y_max_new - y_min_new;
  y_min = y_min_new - 0.05 * diff;
  y_max = y_max_new + 0.05 * diff;
  if (fNorm) {
    diff = 1.0 - y_min_norm;
    y_min = y_min_norm - 0.05 * diff;
    y_max = 1.0 + 0.05 * diff;
  }
 
  // plotting
  fout << "  //**********" << Qt::endl;
  fout << "  // plotting " << Qt::endl;
  fout << "  //**********" << Qt::endl;
  fout << "  TCanvas *c1 = new TCanvas(\"c1\", \"" << macroName.toLatin1().constData() << "\", 10, 10, 600, 700);" << Qt::endl;
  fout << Qt::endl;
 
  count = 0;
  int rr, gg, bb;
  for (int i=0; i<fPlotInfo.size(); i++) {
    for (int j=0; j<fPlotInfo[i].yLabel.size(); j++) {
      if (count == 0) {
        if (count < marker.size()) {
          fout << "  g_" << i << "_" << j << "->SetMarkerStyle(" << marker[count].getMarker() << ");" << Qt::endl;
          fout << "  g_" << i << "_" << j << "->SetMarkerSize(" << marker[count].getMarkerSize() << ");" << Qt::endl;
          color[count].getRGB(rr, gg, bb);
          fout << "  g_" << i << "_" << j << "->SetMarkerColor(TColor::GetColor(" << rr << "," << gg << "," << bb << "));" << Qt::endl;
          fout << "  g_" << i << "_" << j << "->SetLineColor(TColor::GetColor(" << rr << "," << gg << "," << bb << "));" << Qt::endl;
        } else {
          fout << "  g_" << i << "_" << j << "->SetMarkerStyle(20);" << Qt::endl;
          fout << "  g_" << i << "_" << j << "->SetMarkerSize(1.3);" << Qt::endl;
          fout << "  g_" << i << "_" << j << "->SetMarkerColor(TColor::GetColor(0,0,0));" << Qt::endl;
          fout << "  g_" << i << "_" << j << "->SetLineColor(TColor::GetColor(0,0,0));" << Qt::endl;
        }
        fout << "  g_" << i << "_" << j << "->SetFillColor(kWhite);" << Qt::endl;
        fout << "  g_" << i << "_" << j << "->GetXaxis()->SetTitle(\"" << getNicerLabel(fPlotInfo[0].xLabel).toLatin1().data() << "\");" << Qt::endl;
        fout << "  g_" << i << "_" << j << "->GetXaxis()->SetTitleSize(0.05);" << Qt::endl;
        fout << "  g_" << i << "_" << j << "->GetXaxis()->SetDecimals(kTRUE);" << Qt::endl;
        fout << "  g_" << i << "_" << j << "->GetXaxis()->SetLimits(" << x_min << "," << x_max << ");" << Qt::endl;
        fout << "  g_" << i << "_" << j << "->GetYaxis()->SetTitle(\"" << getNicerLabel(fPlotInfo[0].yLabel[0]).toLatin1().data() << "\");" << Qt::endl;
        fout << "  g_" << i << "_" << j << "->GetYaxis()->SetTitleSize(0.05);" << Qt::endl;
        fout << "  g_" << i << "_" << j << "->GetYaxis()->SetTitleOffset(1.30);" << Qt::endl;
        fout << "  g_" << i << "_" << j << "->GetYaxis()->SetRangeUser(" << y_min << "," << y_max << ");" << Qt::endl;
        fout << "  g_" << i << "_" << j << "->Draw(\"AP\");" << Qt::endl;
      } else {
        if (count < marker.size()) {
          fout << "  g_" << i << "_" << j << "->SetMarkerStyle(" << marker[count].getMarker() << ");" << Qt::endl;
          fout << "  g_" << i << "_" << j << "->SetMarkerSize(" << marker[count].getMarkerSize() << ");" << Qt::endl;
          color[count].getRGB(rr, gg, bb);
          fout << "  g_" << i << "_" << j << "->SetMarkerColor(TColor::GetColor(" << rr << "," << gg << "," << bb << "));" << Qt::endl;
          fout << "  g_" << i << "_" << j << "->SetLineColor(TColor::GetColor(" << rr << "," << gg << "," << bb << "));" << Qt::endl;
        } else {
          fout << "  g_" << i << "_" << j << "->SetMarkerStyle(20);" << Qt::endl;
          fout << "  g_" << i << "_" << j << "->SetMarkerSize(1.3);" << Qt::endl;
          fout << "  g_" << i << "_" << j << "->SetMarkerColor(TColor::GetColor(0,0,0));" << Qt::endl;
          fout << "  g_" << i << "_" << j << "->SetLineColor(TColor::GetColor(0,0,0));" << Qt::endl;
        }
        fout << "  g_" << i << "_" << j << "->SetFillColor(kWhite);" << Qt::endl;
        fout << "  g_" << i << "_" << j << "->Draw(\"Psame\");" << Qt::endl;
      }
      count++;
    }
  }
  fout << "  c1->SetMargin(0.15, 0.05, 0.12, 0.05);" << Qt::endl;
  fout << "  c1->Update();" << Qt::endl;
  if (!plotFln.isEmpty()) {
    fout << Qt::endl;
    fout << "  c1->SaveAs(\"" << plotFln.toLatin1().constData() << "\");" << Qt::endl;
  }
  fout << "}" << Qt::endl;
 
  return 0;
}
 
//--------------------------------------------------------------------------
int PmuppScript::var_cmd(const QString str, int script_idx)
{
  QStringList tok;
  int idx=0;
 
  // get linked collection index for further use
  tok = str.split(' ', Qt::SkipEmptyParts);
  if (tok[1].endsWith("Err")) // error variable no need to do something
    return 0;
  idx = getCollectionIndex(tok[1]);
  if (idx == -1) // var not linked to collection, ignore it
    return 0;
 
  // python-mode variable: 'var <name> = python' means the value/error are
  // computed in a <python> ... </python> block elsewhere in the script.
  if (tok.last() == "python") {
    // pair this declaration with the next <python> block in the script, so
    // multiple python-defined variables can coexist.
    QString pyBlock = getPythonBlock(script_idx);
    if (pyBlock.isEmpty()) {
      std::cerr << "**ERROR** variable '" << tok[1].toLatin1().data()
                << "' declared as python, but no <python> ... </python> block was found." << std::endl;
      return 1;
    }
    // expose every loaded collection inside the <python> block (coll[]/collErr[]),
    // addressable by index and by name, so one block can serve several collections.
    std::vector<PmuppCollection*> allColl;
    for (int i=0; i<fParamDataHandler->GetNoOfCollections(); i++)
      allColl.push_back(fParamDataHandler->GetCollection(i));
    PVarHandler varHandler(fParamDataHandler->GetCollection(idx),
                           pyBlock.toLatin1().data(), tok[1].toLatin1().data(), allColl);
    if (!varHandler.isValid()) {
      // dump error messages if present
      QString mupp_err = QString("%1/.musrfit/mupp/mupp_err.log").arg(QString(qgetenv("HOME")));
      QFile fout(mupp_err);
      if (fout.open(QIODevice::ReadOnly | QIODevice::Text)) {
        QString msg;
        while (!fout.atEnd()) {
          msg = fout.readLine();
          std::cerr << msg.toLatin1().data();
        }
        QFile::remove(mupp_err);
      }
      return 1;
    }
    fVarHandler.push_back(varHandler);
    return 0;
  }
 
  // check if the related error variable is present
  QString varErr = QString("%1%2").arg(tok[1]).arg("Err");
  QString varErrCmd("");
  for (int i=0; i<fScript.size(); i++) {
    if (fScript.at(i).contains(varErr, Qt::CaseSensitive)) {
      varErrCmd = fScript.at(i);
      break;
    }
  }
 
  std::string parse_str = str.toLatin1().data();
  if (!varErrCmd.isEmpty()) {
    parse_str += "\n";
    parse_str += varErrCmd.toLatin1().data();
  }
 
  PVarHandler varHandler(fParamDataHandler->GetCollection(idx), parse_str, tok[1].toLatin1().data());
  if (!varHandler.isValid()) {
    // deal with errors
    QString mupp_err = QString("%1/.musrfit/mupp/mupp_err.log").arg(QString(qgetenv("HOME")));
 
    // dump error messages if present
    QFile fout(mupp_err);
    if (fout.open(QIODevice::ReadOnly | QIODevice::Text)) {
      QString msg;
      while (!fout.atEnd()) {
        msg = fout.readLine();
        std::cerr << msg.toLatin1().data();
      }
      // delete potentially present mupp_err.log file
      QFile::remove(mupp_err);
    }
    return 1;
  }
  fVarHandler.push_back(varHandler);
 
  return 0;
}
 
//--------------------------------------------------------------------------
bool PmuppScript::foundLabel(PmuppCollection *coll, const QString label)
{
  bool result = false;
  for (int i=0; i<coll->GetRun(0).GetNoOfParam(); i++) {
    if (!coll->GetRun(0).GetParam(i).GetName().compare(label)) {
      result = true;
      break;
    }
  }
 
  return result;
}
 
//--------------------------------------------------------------------------
bool PmuppScript::foundVariable(const QString var)
{
  bool result = false;
  for (int i=0; i<fVarHandler.size(); i++) {
    if (!fVarHandler[i].getVarName().compare(var)) {
      result = true;
      break;
    }
  }
 
  return result;
}
 
//--------------------------------------------------------------------------
int PmuppScript::getVarIndex(const QString var)
{
  int idx = -1;
  for (int i=0; i<fVarHandler.size(); i++) {
    if (!fVarHandler[i].getVarName().compare(var)) {
      idx = i;
      break;
    }
  }
 
  return idx;
}
 
//--------------------------------------------------------------------------
void PmuppScript::minMax(QVector<double> dvec, double &min, double &max)
{
  min = 99.0e6;
  max = -99.0e6;
  for (int i=0; i<dvec.size(); i++) {
    if (dvec[i] < min)
      min = dvec[i];
    if (dvec[i] > max)
      max = dvec[i];
  }
}
 
//--------------------------------------------------------------------------
QString PmuppScript::getNicerLabel(const QString label)
{
  QString nice = label;
 
  if (label == "dataE") {
    nice = "E (keV)";
  } else if (label == "dataT") {
    nice = "T (K)";
  } else if (label == "dataB") {
    nice = "B (G)";
  } else if (!label.compare("sigma", Qt::CaseInsensitive)) {
    if (fNorm)
      nice = "#sigma/max(#sigma)";
    else
      nice = "#sigma (1/#mus)";
  } else if (!label.compare("lambda", Qt::CaseInsensitive)) {
    if (fNorm)
      nice = "#lambda/max(#lambda)";
    else
      nice = "#lambda (1/#mus)";
  } else if (!label.compare("rate", Qt::CaseInsensitive)) {
    if (fNorm)
      nice = "Rate/max(Rate)";
    else
      nice = "Rate (1/#mus)";
  } else if (!label.compare("alpha_LR", Qt::CaseInsensitive)) {
    if (fNorm)
      nice = "#alpha_{LR}/max(#alpha_{LR})";
    else
      nice = "#alpha_{LR}";
  } else if (!label.compare("alpha_TB", Qt::CaseInsensitive)) {
    if (fNorm)
      nice = "#alpha_{TB}/max(#alpha_{TB})";
    else
      nice = "#alpha_{TB}";
  } else {
    if (fNorm) {
      nice = label + "/ max(" + label + ")";
    }
  }
 
  return nice;
}
 
//--------------------------------------------------------------------------
QString PmuppScript::getPythonBlock(int start_idx)
{
  for (int i=start_idx+1; i<fScript.size(); i++) {
    if (fScript.at(i).startsWith("<python>"))
      return fScript.at(i);
  }
  return QString();
}
 
//--------------------------------------------------------------------------
int PmuppScript::getCollectionIndex(const QString var_name)
{
  int idx = -1;
  QString cmd;
  QStringList tok;
  bool ok;
 
  for (int i=0; i<fScript.size(); i++) {
    cmd = fScript.at(i);
    if (cmd.startsWith("col")) {
      tok.clear();
      tok = cmd.split(' ', Qt::SkipEmptyParts);
      if (tok[3] == var_name) {
        idx = tok[1].toInt(&ok);
        if (!ok) {
          Q_ASSERT(0);
        }
        break;
      }
    }
  }
 
  return idx;
}