src/PBS/Batch_JobInfo_ePBS.cxx

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