source: Sophya/trunk/AddOn/TAcq/brparam.cc@ 3915

#include <stdlib.h>

#include "brparam.h"
#include "strutilxx.h"
#include "bracqvers.h"

#ifndef BRSPORTID
#define BRSPORTID 6912
#endif

/* --Methode-- */
ADCBoardDesc::ADCBoardDesc(int id, string sbid, string cyc_firmw, string str1_firmw, string str2_firmw)
  : id_(id), sbid_(sbid), cyclone_firmware_(cyc_firmw), stratix1_firmware_(str1_firmw), stratix2_firmware_(str2_firmw)
{
  
}

/* --Methode-- */
ADCBoardDesc::ADCBoardDesc(ADCBoardDesc const& bdes)
  : id_(bdes.id_), sbid_(bdes.sbid_), cyclone_firmware_(bdes.cyclone_firmware_), 
    stratix1_firmware_(bdes.stratix1_firmware_), stratix2_firmware_(bdes.stratix2_firmware_)
{
}

/* --Methode-- */
ADCBoardDesc& ADCBoardDesc::Set(ADCBoardDesc const & bdes)
{
  id_ = bdes.id_;
  sbid_ = bdes.sbid_;
  cyclone_firmware_ = bdes.cyclone_firmware_;
  stratix1_firmware_ = bdes.stratix1_firmware_;
  stratix2_firmware_ = bdes.stratix2_firmware_;
  return(*this);
}

/* --Methode-- */
ostream& ADCBoardDesc::Print(ostream& os)
{
  os << "ADCBoard#" << id_ << "(" << sbid_ << ") Cyclone:" << cyclone_firmware_ 
     << " Stratix1: " << stratix1_firmware_ << " Stratix2: " << stratix2_firmware_ << endl;
  return os;
}

#define PMAXNBFIBRES 64
/* --Methode-- */
BRConfList::BRConfList()
  : basedir_("./"), fiberIds_(PMAXNBFIBRES), tmpdir_("/tmp")
{
  InitFromEnv();
}

/* --Methode-- */
BRConfList::BRConfList(string basedir)
  : basedir_("./"), fiberIds_(PMAXNBFIBRES), tmpdir_("/tmp")
{
  InitFromEnv();
  SetBaseDirectory(basedir);
}

/* --Methode-- */
BRConfList::BRConfList(string basedir, vector<ADCBoardDesc> boards)
  : basedir_("./"), fiberIds_(PMAXNBFIBRES), tmpdir_("/tmp")
{
  InitFromEnv();
  SetBaseDirectory(basedir);
  boards_=boards;
}

/* --Methode-- */
BRConfList::BRConfList(BRConfList const & cf)
  : basedir_(cf.basedir_), boards_(cf.boards_), fiberIdsS_(cf.fiberIdsS_), fiberIds_(cf.fiberIds_), tmpdir_(cf.tmpdir_)
{
}

/* --Methode-- */
void BRConfList::InitFromEnv()
{
  const char* venvp = NULL; 
  venvp=getenv("BRACQ_TMPDIR");
  if (venvp!=NULL) tmpdir_=venvp;
  else {
    if (venvp!=NULL) tmpdir_=venvp;
    venvp = getenv("TMPDIR");
  }
  venvp=getenv("BRACQ_BASEDIR");
  if (venvp!=NULL) { 
    string ebd=venvp;
    SetBaseDirectory(ebd);
  }
  string fibids="1,2,3,4,5,6,7,8";
  venvp=getenv("BRACQ_FIBERIDS");
  if (venvp!=NULL)  fibids=venvp;
  SetFiberIds(fibids);
}

/* --Methode-- */
int BRConfList::SetFiberIds(string& sfids)
{
  fiberIdsS_=sfids;
  vector<string> fibids;
  FillVStringFrString(sfids, fibids, ',');
  int rc=0;
  for (size_t fib=0; fib<fibids.size(); fib++) {
    if (fib>fiberIds_.size())  break;
    fiberIds_[fib]=atoi(fibids[fib].c_str()); 
    rc++;
  }
  return rc;
}

/* --Methode-- */
void BRConfList::SetBaseDirectory(string& basedir)
{
  if (basedir.length()<1)  return;
  basedir_=basedir;
  size_t len = basedir_.length();
  if ((len>1)&&(basedir_[len-1]!='/')) basedir_ += '/';
}

/* --Methode-- */
BRConfList& BRConfList::Set(BRConfList const & cf)
{
  basedir_=cf.basedir_;
  boards_=cf.boards_;
  fiberIdsS_=cf.fiberIdsS_;
  fiberIds_=cf.fiberIds_;
  tmpdir_=cf.tmpdir_;
  return (*this);
}

/* --Methode-- */
ostream& BRConfList::Print(ostream& os)
{
  os << " ----- BRConfList:: BaseDir=" << basedir_ << " TmpDir=" << tmpdir_ 
     << " NBoards= " << boards_.size() << endl;
  for(size_t k=0; k<boards_.size(); k++)  boards_[k].Print(os);
  os << " FiberIdString=" << fiberIdsS_ << endl;
  return os;
}

/* --Methode-- */
void BRConfList::ReadDCFile(string file)
{
  //  A FAIRE 
}

// Classe qui memorise tous les parametres importants de l'acquisition

/* --Methode-- */
BRParList::BRParList(string acqmod, string fibres,unsigned int paqsz, 
                     unsigned int dmaszkb, int nfiles, int nblocfile,
                     string outpath, uint_4 nzon , uint_4 npaqzon)
{
  AcqMode=acqmod;
  fgdatafft=false;
  fgsinglechannel=false;

  FiberListS=fibres;

  PaqSize=paqsz;

  dmasizekb=dmaszkb;
  maxkwedma_=1000;
  nretrydma_=3;
  first_maxkwedma_=20000;
  first_nretrydma_=9;

  NbFiles=nfiles;
  NBlocPerFile=nblocfile;
  OutPathName=outpath;

  nZones=nzon;
  nPaqZone=npaqzon;

  swapall=BR_Copy;
  savesigfits=true;
  fgnulldev4fits=false;

  fg_hard_ctrlc=false;

  fgreducpsize=false;
  reducneedcopy=false;
  pqreducmode=BR_CopyRA;
  redpqsize=PaqSize;
  reducoffset=0;

  tcpportid=BRSPORTID;
  pci2eth_fgdirect=false;
  ethr_nlink=0;
  ethr_forcesamefc_=false;
  ethr_sfc_maxdpc_=0;
  ethr_sfc_maxresync_=0;
  ethr_waitendmsg_=false;

  skysource="";

//  --- variables de controle pour le monitoring 
  fgdoProc=false;
  nmeanProc=512;
  stepProc=5;
  nmaxProc=0;
//  --- variables de controle pour le calcul des visibilites  
  fgdoVisiC = false;
  nmeanVisiC=1024;
  nbcalgrpVisiC=1;
  nthrVisiC=1;
  firstpairVisiC=0;  
  nbpairsVisiC=999999999;
  fgpimpVisiC=false;
  freqminVisiC=freqmaxVisiC=0;
  nbinfreqVisiC=1;  

// Autres variables / variables speciales 
  monothr=false;
  activate_pattern=false;
  nopciLossRate=0.;

// niveau d'impression,debug ...
  prtlevel_=0;
  prtmodulo_=50000;
  Decode();    // On decode et on complete les parametres 
}

/* --Methode-- */
BRParList::BRParList(BRParList const & p)
{
  Set(p);
}

/* --Methode-- */
void BRParList::Set(BRParList const & p)
{
  AcqMode=p.AcqMode;
  fgdatafft=p.fgdatafft;
  fgsinglechannel=p.fgsinglechannel;

  FiberListS=p.FiberListS;
  fiberNum_=p.fiberNum_;

  PaqSize=p.PaqSize;

  dmasizekb=p.dmasizekb;
  maxkwedma_=p.maxkwedma_;
  nretrydma_=p.nretrydma_;
  first_maxkwedma_=p.first_maxkwedma_;
  first_nretrydma_=p.first_nretrydma_;

  NbFiles=p.NbFiles;
  NBlocPerFile=p.NBlocPerFile;
  OutPathName=p.OutPathName;

  nZones=p.nZones;
  nPaqZone=p.nPaqZone;

  swapall=p.swapall;
  savesigfits=p.savesigfits;
  fgnulldev4fits=p.fgnulldev4fits;
  fg_hard_ctrlc=p.fg_hard_ctrlc;
  fgnulldev4fits=p.fgnulldev4fits;

  fgreducpsize=p.fgreducpsize;
  reducneedcopy=p.reducneedcopy;
  pqreducmode=p.pqreducmode;
  redpqsize=p.redpqsize;
  reducoffset=p.reducoffset;

  tcpportid=p.tcpportid;
  pci2eth_fgdirect=p.pci2eth_fgdirect;
  eths_targets=p.eths_targets;
  eths_stargs=p.eths_stargs;
  eths_fibtargs=p.eths_fibtargs;

  ethr_nlink=p.ethr_nlink;
  ethr_forcesamefc_=p.ethr_forcesamefc_;
  ethr_sfc_maxdpc_=p.ethr_sfc_maxdpc_;
  ethr_sfc_maxresync_=p.ethr_sfc_maxresync_;
  ethr_waitendmsg_=p.ethr_waitendmsg_;

  skysource=p.skysource;
  
  fgdoProc=p.fgdoProc;
  nmeanProc=p.nmeanProc;
  stepProc=p.stepProc;
  nmaxProc=p.nmaxProc;

  fgdoVisiC=p.fgdoVisiC;           
  nmeanVisiC=p.nmeanVisiC;         
  nbcalgrpVisiC=p.nbcalgrpVisiC;     
  nthrVisiC=p.nthrVisiC;         
  firstpairVisiC=p.firstpairVisiC;
  nbpairsVisiC=p.nbpairsVisiC;  
  fgpimpVisiC=p.fgpimpVisiC;
  freqminVisiC=p.freqminVisiC;
  freqmaxVisiC=p.freqmaxVisiC;
  nbinfreqVisiC=p.nbinfreqVisiC; 

  monothr=p.monothr;
  activate_pattern=p.activate_pattern;

  nopciLossRate=p.nopciLossRate;

  prtlevel_=p.prtlevel_;
  prtmodulo_=p.prtlevel_;

  return;
}

/* --Methode-- */
void BRParList::ReadDCFile(string file)
{
  DataCards conf(file);
  if(conf.HasKey("fibres")) 
    FiberListS= conf.SParam("fibres",0,"1");
  else if(conf.HasKey("fibers")) 
    FiberListS= conf.SParam("fibers",0,"1");

  OutPathName= conf.SParam("outpathname",0,"TstAcq");
  skysource= conf.SParam("skysource",0,"");
  PaqSize=(uint_4)conf.IParam("paqsize",0,16424);

  dmasizekb =(uint_4) conf.IParam("dmasizekb",0,32);
  maxkwedma_=(unsigned int)conf.IParam("waitenddma",0,1000);
  nretrydma_=(unsigned int)conf.IParam("waitenddma",1,3);
  first_maxkwedma_=(unsigned int)conf.IParam("waitenddma",2,20*maxkwedma_);
  first_nretrydma_=(unsigned int)conf.IParam("waitenddma",3,3*nretrydma_);

  NbFiles=conf.IParam("nbfiles",0,1);
  NBlocPerFile=conf.IParam("nblocperfile",0,10);
  AcqMode =conf.SParam("acqmode",0,"std");
  nZones=(uint_4)conf.IParam("memmgr",0,4);
  nPaqZone=(uint_4)conf.IParam("memmgr",1,128);
  if (conf.HasKey("reducpaqsz")) {  // reduction des tailles de paquets
    fgreducpsize=true;
    redpqsize=(uint_4)conf.IParam("reducpaqsz",0,PaqSize/4);
    reducoffset=(uint_4)conf.IParam("reducpaqsz",1,0);
  }
  // Mot cle pour le mode envoi-reception sur ethernet 
  tcpportid=conf.IParam("tcpportid",0,BRSPORTID);
  if (conf.HasKey("pci2ethdirect"))  pci2eth_fgdirect = true;   // Transfer direct DMA -> Ethernet
  if (conf.HasKey("ethrtargets")) {    // Machines destinations des paquets - memes destinations pour toutes les fibres
    for(int it=0; it<conf.NbParam("ethrtargets"); it++) 
      eths_stargs.push_back(conf.SParam("ethrtargets",it));
  }

  const char* ethtf[9]={"ethrtargetsf1","ethrtargetsf2","ethrtargetsf3","ethrtargetsf4",
                        "ethrtargetsf5","ethrtargetsf6","ethrtargetsf7","ethrtargetsf8"};
  for(int jj=0;jj<8;jj++) {
    if (conf.HasKey( ethtf[jj] )) {
      vector<string> ftargs;
      int fid=jj+1;
      for(int it=0; it<conf.NbParam( ethtf[jj] ); it++)
        ftargs.push_back(conf.SParam( ethtf[jj] ,it));
      eths_fibtargs[fid]=ftargs;      
    }
  }

  ethr_nlink=conf.IParam("ethrnlink",0,0);   // Nombre de sources de paquets en reception ethernet 
  if (conf.HasKey("ethrforcesamefc"))  {
    ethr_forcesamefc_=true;   // force SAME FrameCounter   on all links
    ethr_sfc_maxdpc_=conf.IParam("ethrforcesamefc",0,0);
    ethr_sfc_maxresync_=conf.IParam("ethrforcesamefc",1,0);
  }
  if (conf.HasKey("ethrwaitendmsg"))  ethr_waitendmsg_=true;

  //  Parametre de controle du monitoring 
  if (conf.HasKey("monitor")) {
    fgdoProc=true;
    nmeanProc=conf.IParam("monitor",0,512);
    stepProc=conf.IParam("monitor",1,10);
    nmaxProc=conf.IParam("monitor",2,0);
  }
  // Parametres pour le calcul des visibilites - le flag fgdoVisiC ne peut etre active 
  // qu'avec l'option de ligne de commande de mfacq 
  if (conf.HasKey("visicalc")) {
    nmeanVisiC=conf.IParam("visicalc",0,1024);
    nbcalgrpVisiC=conf.IParam("visicalc",1,1);
    nthrVisiC=conf.IParam("visicalc",2,1);
  }
  if (conf.HasKey("visipairs")) {
    firstpairVisiC=conf.IParam("visipairs",0,0);
    nbpairsVisiC=conf.IParam("visipairs",1,999999999);
    fgpimpVisiC=(conf.IParam("visipairs",2,0)>0)?true:false;
  }
  if (conf.HasKey("visifreq")) {
    freqminVisiC=conf.IParam("visifreq",0,0);
    freqmaxVisiC=conf.IParam("visifreq",1,0);
    nbinfreqVisiC=conf.IParam("visifreq",2,1);
  }

  nopciLossRate=conf.DParam("nopcilossrate",0,0.);
  fg_hard_ctrlc=conf.HasKey("hard_ctrlc");
  if (conf.HasKey("nosavesigfits"))  savesigfits=false;
  if (conf.HasKey("prtlev"))  {
    prtlevel_=conf.IParam("prtlev",0,0);
    prtmodulo_=conf.IParam("prtlev",1,50000);
  }
  
  Decode();
}

/* --Methode-- */
void BRParList::Decode() 
{
  vector<string> fiblist;
  FillVStringFrString(FiberListS, fiblist, ',');
  fiberNum_.resize(fiblist.size());
  for (int fib=0; fib<fiblist.size(); fib++) {
    fiberNum_[fib]=atoi(fiblist[fib].c_str()); 
  }

  eths_targets.resize(fiberNum_.size());
  for (int fib=0; fib<fiberNum_.size(); fib++) {
    map< int, vector<string> >::const_iterator itm=eths_fibtargs.find(fiberNum_[fib]);
    if (itm != eths_fibtargs.end())   eths_targets[fib]=itm->second;
    else eths_targets[fib]=eths_stargs;
  }

  if (OutPathName == "/dev/null") { 
    fgnulldev4fits=true;
  }
  else { 
    size_t len = OutPathName.length();
    if ((len>1)&&(OutPathName[len-1]!='/')) OutPathName+='/';
    fgnulldev4fits=false;
  }
  string acqmode = AcqMode;
  fgdatafft=false;  fgsinglechannel=false;
  reducneedcopy=false;  pqreducmode=BR_TwoChanReduc;
  if ((acqmode == "std")||(acqmode=="raw2c"))   swapall = BR_Copy ; 
  if (acqmode=="raw1c") { swapall = BR_Copy ;  fgsinglechannel=true;  pqreducmode=BR_OneChanReduc; }

  if ((acqmode == "fft2c")||(acqmode == "fft1c"))   swapall = BR_Copy ;  
  if (acqmode == "nosw")   swapall = BR_Copy ;
  if (acqmode == "nof")  { swapall = BR_Copy ; savesigfits = false; }
  if (acqmode == "ordfft1c")  { swapall = BR_FFTOneChan; reducneedcopy=true;  pqreducmode=BR_OneChanReducK0; }
  if (acqmode == "ordfft2c")  { swapall = BR_FFTTwoChan;  reducneedcopy=true;  pqreducmode=BR_TwoChanReducK0; }

  if (acqmode == "fft1cnof")  
    { swapall = BR_FFTOneChan;  savesigfits = false; reducneedcopy=true;  pqreducmode=BR_OneChanReducK0;  }
  if (acqmode == "fft2cnof")  
    { swapall = BR_FFTTwoChan;  savesigfits = false; reducneedcopy=true;  pqreducmode=BR_TwoChanReducK0; }
  if (acqmode == "mono")  { monothr = true;   swapall = BR_Copy; }
  if (acqmode == "monodirect")  { monothr = true;  swapall =  BR_CopyHDR;}
  if (acqmode == "patmonodirect")  { monothr = true;  swapall =  BR_CopyHDR; activate_pattern=true; }
  if (acqmode == "patmono")  { monothr = true;   swapall = BR_Copy; activate_pattern=true; }
  if (acqmode == "patnof")  { savesigfits = false; swapall = BR_Copy; activate_pattern=true; }
  if (acqmode == "pattern")  { savesigfits = true; swapall = BR_Copy; activate_pattern=true; }

  if (acqmode == "swapall")  swapall = BR_SwapAll;
  if (acqmode == "fft1csw") 
    { swapall = BR_FFTOneChanSwapAll;  reducneedcopy=true;  pqreducmode=BR_OneChanReducK0; }
  if (acqmode == "fft2csw") 
    { swapall = BR_FFTTwoChanSwapAll;  reducneedcopy=true;  pqreducmode=BR_TwoChanReducK0; }
  if (acqmode == "fft1cswnof")  
    { swapall = BR_FFTOneChanSwapAll;  savesigfits = false; reducneedcopy=true;  pqreducmode=BR_OneChanReducK0; } 
  if (acqmode == "fft2cswnof")  
    { swapall = BR_FFTTwoChanSwapAll;  savesigfits = false; reducneedcopy=true;  pqreducmode=BR_TwoChanReducK0; }
  if ((acqmode == "swh") || (acqmode == "mxs") || (acqmode == "monoswh") )  swapall = BR_SwapHDR;
  if ((acqmode == "swapallnof") || (acqmode == "mxs") )  savesigfits = false;
  if (acqmode == "monoswh")  { monothr = true;   swapall = BR_SwapHDR;; }
  if (acqmode == "monosw")  { monothr = true;   swapall = BR_SwapAll; }

  if (acqmode == "swap32")   swapall = BR_Swap32 ;
  if (acqmode == "nof32")   { swapall = BR_Swap32 ; savesigfits = false; }
  if (acqmode == "fft1c32")  
    { swapall = BR_FFTOneChanSwap32; reducneedcopy=true;  pqreducmode=BR_OneChanReducK0; }
  if (acqmode == "fft2c32")  
    { swapall = BR_FFTTwoChanSwap32; reducneedcopy=true;  pqreducmode=BR_TwoChanReducK0; }
  if (acqmode == "fft1cnof32")  
    { swapall = BR_FFTOneChanSwap32;  savesigfits = false; reducneedcopy=true;  pqreducmode=BR_OneChanReducK0; }
  if (acqmode == "fft2cnof32")  
    { swapall = BR_FFTTwoChanSwap32;  savesigfits = false; reducneedcopy=true;  pqreducmode=BR_TwoChanReducK0; }

  if ((swapall==BR_FFTTwoChan)||(swapall==BR_FFTTwoChanSwapAll)||(swapall==BR_FFTTwoChanSwap32)) {
    fgdatafft=true;  
  }
  if ((swapall==BR_FFTOneChan)||(swapall==BR_FFTOneChanSwapAll)||(swapall==BR_FFTOneChanSwap32)) {
    fgdatafft=true;  fgsinglechannel=true; 
  }
  
  if (fgreducpsize) {
    if (redpqsize>=PaqSize) fgreducpsize=false;
    else {
      if(reducoffset>(PaqSize-redpqsize)/2) reducoffset=(PaqSize-redpqsize)/2;
    }
  }
}

/* --Methode-- */
ostream& BRParList::Print(ostream& os) 
{  
  os << " ------ BRParList::Print() ----- " << endl;
  os << " FiberListS=" << FiberListS ;
  os << " PaqSize=" <<PaqSize;
  os << " DMA_Size_kb=" <<dmasizekb << " (EndDMA: Maxkw=" << maxkwedma_ << " NRetry=" << nretrydma_ 
     << " FirstDMA: Maxkw=" << first_maxkwedma_ << " NRetry=" << first_nretrydma_ << ")" << endl;
  os << " AcqMode="<<AcqMode;
  os << " Type of acquisition :" << BRPaquet::FmtConvToString( swapall) << endl;
  os << " SkySource=" << skysource;
  os << " NbFiles="<<NbFiles;
  os << " NBlocPerFile="<<NBlocPerFile;
  os << " OutPathName="<<OutPathName << endl;
  os << " MemMgr: nZones="<<nZones;
  os << " nPaqZone="<<nPaqZone<<endl;
  if (fgreducpsize) {
    os << " PaquetSize Reduction, ReducedSize=" << redpqsize << " Offset=" << reducoffset << endl;
  }
  if ((eths_stargs.size()>0)||(eths_fibtargs.size()>0))   {
    os << " DMA->Ethernet Targets=" << eths_targets.size() 
         << ((pci2eth_fgdirect)?" (DirectTransferMode) " : " " ) << endl;
    
    for(size_t fib=0; fib<eths_targets.size(); fib++) {
      os << " Fiber Num=" << fiberNum_[fib] << " --> eth_targets: ";
      for(size_t it=0; it<eths_targets[fib].size(); it++)
        os << eths_targets[fib][it] << " ; ";
    os << endl;
    }
  }
  os << " TCP-PortId=" << tcpportid << " EthernetRead NbSources (=NbLinks)= " << ethr_nlink << endl;
  if (ethr_forcesamefc_)
    os << "EthernetReader mode: ForceSameFrameCounter read mode with Max_PaquetCounterDiff= " 
         << ethr_sfc_maxdpc_ << " MaxNbResync=" << ethr_sfc_maxresync_ 
         << ((ethr_waitendmsg_)?" Wait_For_END_Message_Before_Terminate ":" ") << endl;
  else
    os << "EthernetReader mode: AllOKPaquets read mode " 
         << ((ethr_waitendmsg_)?" Wait_For_END_Message_Before_Terminate ":" ") << endl;

  if (fgdoProc>0) 
    os << " Monitoring  NMeanProc=" << nmeanProc << " StepProc=" << stepProc << " NMaxProc=" << nmaxProc << endl;
  else os << " No monotoring thread " << endl;
  if (fgdoVisiC) {
    os << " Visibility calculation, nbCalGrp=" << nbcalgrpVisiC << " NThr/VisCal=" << nthrVisiC << endl;
    os << " ... VisiCalc FirstPair= " << firstpairVisiC << " NbPairs= " << nbpairsVisiC 
       << ((fgpimpVisiC)?" (Odd-Even visibilities+AutoCorrel only) ":"") << endl;
    os << " ... VisiCalc FrequencyBinning FreqMin= " << freqminVisiC << " FreqMax= " << freqmaxVisiC 
       << " NBinFreq= " << nbinfreqVisiC<< endl;
  }
  os << " fg_hard_ctrlc=" << ((fg_hard_ctrlc)?"true":"false");
  os << " Save to fits " << ((savesigfits)?"true":"false") << endl;
  os << " monothr y(1)/n(0) " << ((monothr)?"true":"false"); 
  os << " ActivatePattern " << ((activate_pattern)?"true":"false") <<  endl;
  os << " PrtLevel=" << prtlevel_ << " PrtCntModulo=" <<  prtmodulo_ << endl;

  return os;
}


//-------------------- Classe BRAcqConfig -----------------------

BRParList* BRAcqConfig::param_=NULL;
BRConfList* BRAcqConfig::config_=NULL;

/* --Methode-- */
BRAcqConfig::BRAcqConfig()
{
  if (param_==NULL)  param_ = new BRParList;  
  if (config_==NULL) config_ = new BRConfList;
}

/* --Methode-- */
ostream& BRAcqConfig::Print(ostream& os)
{ 
  os << " ------------  BAORadio Acq Run/Configuration -------- " << endl;
  config_->Print(os);
  param_->Print(os); 
  os << " Fibers f: Num->Id  ";
  for(size_t f=0; f<NbFibers(); f++)   
    os << f << ": " << FiberNum(f) << " -> " << FiberId(f) << " ; " ;
  os << endl;
  os << " ----------------------------------------------------- " << endl;
}

/* --Methode-- */
int BRAcqConfig::CreateOutputDirectories()
{
  char cmd[1024];
  if (param_->fgnulldev4fits!=true) {
    sprintf(cmd,"mkdir %s%s",config_->BaseDirectory().c_str(), param_->OutPathName.c_str());
    if (system(cmd) < 0) {
      cout << "CreateOutputDirectories()/Error: Can not create subdirectory " 
           << cmd << " -> stop" << endl;
      return 2;
    }
    cout << "CreateOutputDirectories() - Executed command " << cmd << endl;
    
    memset(cmd,0,1024); 
    for (int  i= 0; i< NFibers() ; i++)  {
      sprintf(cmd,"mkdir %s%s/Fiber%d",config_->BaseDirectory().c_str(), param_->OutPathName.c_str(),param_->fiberNum_[i]);
      if (system(cmd) < 0) {
        cout << "CreateOutputDirectories()/Error: Can not create subdirectory " 
             << cmd << " -> stop" << endl;
        return 3;
      }
      else cout << "CreateOutputDirectories() - Executed command " << cmd << endl;
    }
  }
  else {
    string ProcPathName = "./XZXZXZX/";
    cout << " Using " << ProcPathName << " for other processed files ... " << endl;
    char cmd[512];
    sprintf(cmd,"mkdir %s",ProcPathName.c_str());
    if (system(cmd) < 0) {
      cout << "CreateOutputDirectories()/Error: Can not create subdirectory ./XZXZXZX/" 
           << "-> stop" << endl;
      return 3;
    }
    else cout << "CreateOutputDirectories() - Executed command " << cmd << endl;
  }
  return 0;
}

/* --Methode-- */
string BRAcqConfig::OutputDirectoryFib(int ifib)
{
  char buff[24];
  sprintf(buff,"Fiber%d/",param_->fiberNum_[ifib]);
  return ( config_->BaseDirectory() + param_->OutPathName + buff );
}