src/Batch/Batch_JobInfo_ePBS.cxx

   1 // Copyright (C) 2005  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
   2 // CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
   3 //
   4 // This library is free software; you can redistribute it and/or
   5 // modify it under the terms of the GNU Lesser General Public
   6 // License as published by the Free Software Foundation; either
   7 // version 2.1 of the License.
   8 //
   9 // This library is distributed in the hope that it will be useful
  10 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12 // Lesser General Public License for more details.
  13 //
  14 // You should have received a copy of the GNU Lesser General Public
  15 // License along with this library; if not, write to the Free Software
  16 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  17 //
  18 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
  19 //
  20 /*
  21  * JobInfo_ePBS.cxx :  emulation of PBS client
  22  *
  23  * Auteur : Bernard SECHER - CEA DEN
  24  * Mail   : mailto:bernard.secher@cea.fr
  25  * Date   : Thu Apr 24 10:17:22 2008
  26  * Projet : PAL Salome
  27  *
  28  */
  29
  30 #include <cstdio>
  31 #include <iostream>
  32 #include <fstream>
  33 #include <sstream>
  34 #include "Batch_Parametre.hxx"
  35 #include "Batch_Environnement.hxx"
  36 #include "Batch_RunTimeException.hxx"
  37 #include "Batch_APIInternalFailureException.hxx"
  38 #include "Batch_JobInfo_ePBS.hxx"
  39
  40 namespace Batch {
  41
  42
  43
  44   // Constructeurs
  45   JobInfo_ePBS::JobInfo_ePBS(int id, string logFile) : JobInfo()
  46   {
  47     // On remplit les membres _param et _env
  48     ostringstream oss;
  49     oss << id;
  50     _param[ID] = oss.str();
  51
  52     // read of log file
  53     char line[128];
  54     ifstream fp(logFile.c_str(),ios::in);
  55
  56     string status;
  57     string sline;
  58     int pos = string::npos;
  59     while( (pos == string::npos) && fp.getline(line,80,'\n') ){
  60       sline = string(line);
  61       pos = sline.find("job_state");
  62     };
  63
  64     if(pos!=string::npos){
  65       istringstream iss(sline);
  66       iss >> status;
  67       iss >> status;
  68       iss >> status;
  69     }
  70     else
  71       status = "U";
  72
  73     _param[STATE] = status;
  74
  75     if( status.find("R") != string::npos)
  76       _running = true;
  77
  78   }
  79
  80   // Teste si un job est present en machine
  81   bool JobInfo_ePBS::isRunning() const
  82   {
  83     return _running;
  84   }
  85
  86
  87   // Destructeur
  88   JobInfo_ePBS::~JobInfo_ePBS()
  89   {
  90     // Nothing to do
  91   }
  92
  93   // Convertit une date HH:MM:SS en secondes
  94   long JobInfo_ePBS::HMStoLong(const string & s)
  95   {
  96     long hour, min, sec;
  97
  98     sscanf( s.c_str(), "%ld:%ld:%ld", &hour, &min, &sec);
  99     return ( ( ( hour * 60L ) + min ) * 60L ) + sec;
 100   }
 101
 102   // Methode pour l'interfacage avec Python (SWIG) : affichage en Python
 103   string JobInfo_ePBS::__str__() const
 104   {
 105     ostringstream sst;
 106     sst << "<JobInfo_ePBS (" << this << ") :" << endl;
 107     sst << " ID = " <<_param[ID] << endl;
 108     sst << " STATE = " <<_param[STATE] << endl;
 109
 110     return sst.str();
 111   }
 112
 113
 114 }