src/LSF/Batch_JobInfo_eLSF.cxx

   1 //  Copyright (C) 2007-2011  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_eLSF.cxx :  emulation of LSF 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
  37 #include "Batch_Constants.hxx"
  38 #include "Batch_Parametre.hxx"
  39 #include "Batch_Environnement.hxx"
  40 #include "Batch_RunTimeException.hxx"
  41 #include "Batch_APIInternalFailureException.hxx"
  42 #include "Batch_JobInfo_eLSF.hxx"
  43
  44 using namespace std;
  45
  46 namespace Batch {
  47
  48
  49
  50   // Constructeurs
  51   JobInfo_eLSF::JobInfo_eLSF(int id, string logFile) : JobInfo()
  52   {
  53     // On remplit les membres _param et _env
  54     ostringstream oss;
  55     oss << id;
  56     _param[ID] = oss.str();
  57
  58     // read status of job in log file
  59     string line;
  60     ifstream fp(logFile.c_str());
  61     getline(fp, line);
  62
  63     // On some batch managers, the job is deleted soon after it is finished,
  64     // so we have to consider that an unknown job (empty file) is a finished
  65     // one, even if it is not always true.
  66     if (fp.eof()) {
  67       _param[STATE] = FINISHED;
  68     } else {
  69       string sjobid, username, status;
  70       fp >> sjobid;
  71       fp >> username;
  72       fp >> status;
  73
  74       if (status == "PEND") {         // Pending
  75         _param[STATE] = QUEUED;
  76       } else if (status == "PSUSP") { // Suspended while pending
  77         _param[STATE] = PAUSED;
  78       } else if (status == "RUN") {   // Running
  79         _param[STATE] = RUNNING;
  80       } else if (status == "USUSP") { // Suspended while running
  81         _param[STATE] = PAUSED;
  82       } else if (status == "SSUSP") { // Suspended by LSF
  83         _param[STATE] = PAUSED;
  84       } else if (status == "DONE") {  // Finished successfully
  85         _param[STATE] = FINISHED;
  86       } else if (status == "EXIT") {  // Finished in error
  87         _param[STATE] = FAILED;
  88       } else if (status == "UNKWN") { // Lost contact
  89         _param[STATE] = FAILED;
  90       } else if (status == "ZOMBI") { // Zombie
  91         _param[STATE] = FAILED;
  92       } else {
  93         cerr << "Unknown job state code: " << status << endl;
  94       }
  95
  96       if( status.find("RUN") != string::npos)
  97         _running = true;
  98     }
  99   }
 100
 101   // Teste si un job est present en machine
 102   bool JobInfo_eLSF::isRunning() const
 103   {
 104     return _running;
 105   }
 106
 107
 108   // Destructeur
 109   JobInfo_eLSF::~JobInfo_eLSF()
 110   {
 111     // Nothing to do
 112   }
 113
 114   // Convertit une date HH:MM:SS en secondes
 115   long JobInfo_eLSF::HMStoLong(const string & s)
 116   {
 117     long hour, min, sec;
 118
 119     sscanf( s.c_str(), "%ld:%ld:%ld", &hour, &min, &sec);
 120     return ( ( ( hour * 60L ) + min ) * 60L ) + sec;
 121   }
 122
 123   // Methode pour l'interfacage avec Python (SWIG) : affichage en Python
 124   string JobInfo_eLSF::__str__() const
 125   {
 126     ostringstream sst;
 127     sst << "<JobInfo_eLSF (" << this << ") :" << endl;
 128     sst << " ID = " <<_param[ID] << endl;
 129     sst << " STATE = " <<_param[STATE] << endl;
 130
 131     return sst.str();
 132   }
 133
 134
 135 }