---

PsnPvmSvmLink.cxx

Go to the documentation of this file.

/*
 * This file is part of openMask © INRIA, CNRS, Universite de Rennes 1 1993-2002, thereinafter the Software
 * 
 * The Software has been developped within the Siames Project. 
 * INRIA, the University of Rennes 1 and CNRS jointly hold intellectual property rights
 * 
 * The Software has been registered with the Agence pour la Protection des
 * Programmes (APP) under registration number IDDN.FR.001.510008.00.S.P.2001.000.41200
 *  
 * This file may be distributed under the terms of the Q Public License
 * version 1.0 as defined by Trolltech AS of Norway and appearing in the file
 * LICENSE.QPL included in the packaging of this file.
 *
 * Licensees holding valid specific licenses issued by INRIA, CNRS or Université de Rennes 1 
 * for the software may use this file in accordance with that specific license
 *
 */
#include <PsnPvmSvmLink.h>

#include <stdio.h>
#include <pvm3.h>
#include <signal.h>

#include <PsnPvmMessage.h>
#include <PsController.h>
#include "PsPvmException.h"

//-----------------------------------------------------------------------------

PsnPvmSvmLink::PsnPvmSvmLink (int td) : 
  PsnSvmLink(),
  _outgoingBuffer ( td ),
  _distantSiteId ( td ) 
{
}

//-----------------------------------------------------------------------------

PsnPvmSvmLink::~PsnPvmSvmLink() 
{
}



void PsnPvmSvmLink::send (PsnPvmOutgoingMessage & m, PsnPvmMessage::MessageTag tag) 
{
   m.send ( tag ) ;
}



void PsnPvmSvmLink::sendOutgoingBuffer(PsnPvmMessage::MessageTag tag) 
{
#ifdef _DEBUGPVMMESS
  cerr << "PsnPvmSvmLink::sendOutgoingBuffer ("<< force << "," << tag <<") "<<endl;
#endif
  _outgoingBuffer.send ( tag ) ;
}

//-----------------------------------------------------------------------------

PsnPvmIncomingMessage & PsnPvmSvmLink::waitForMessage(PsnPvmMessage::MessageTag tag) 
{
   // attente en reception
   int res = pvm_recv (_distantSiteId, tag) ;
   
   _incomingBuffer.initialise ( res ) ;
#ifdef _DEBUGPVMMESS
   cerr << "waitForMessage : On recoit un message  tag: " << tag << " de " << hex << _distantSiteId << dec << endl;
#endif
   // On renvoie le message
   return _incomingBuffer ;
}

//-----------------------------------------------------------------------------

PsnPvmIncomingMessage * PsnPvmSvmLink::testForMessage (PsnPvmMessage::MessageTag tag) 
{
#ifdef _DEBUGPVMMESS
         cerr << "PsnPvmSvmLink::testForMessage: tag  " <<tag<<endl;
#endif        

   int res = pvm_nrecv (_distantSiteId, tag) ;

   if (res >= 0) 
      { 
         _incomingBuffer.initialise ( res );
         return &_incomingBuffer ;
      } 
   else 
      {
         return NULL ;
      }
}

PsnPvmMessage::MessageTag 
PsnPvmSvmLink::testForAnyMessage (PsnPvmIncomingMessage & receiveBuffer) 
{
  PsnPvmMessage::MessageTag result ;
  
  int bufid = pvm_nrecv  ( _distantSiteId, -1 ) ; //test if any message has arrived from distantDiteId

  if ( bufid < 0 ) 
    {
      cerr<<"PsnSvm::waitForAnyRequests ERROR ";
      switch (bufid)
        {
        case PvmBadParam:
          cerr<<"giving an invalid tid value, or msgtag < -1";
          break;
        case PvmSysErr:
          cerr<<"pvmd not responding";
          break;
        default:
          cerr<<"unexpected error";
          if (PsController::warningLevel >=  PsController::FatalWarnings) 
            {         
              exit (2) ;
            }
        }
      cerr<<endl;
    }

  if ( bufid != 0 )
     {
        int bytes ;
        int senderSiteId ;
        int msgtag ;
        int info = pvm_bufinfo( bufid, &bytes , &msgtag , &senderSiteId  ) ;
        
        result = static_cast<PsnPvmMessage::MessageTag>(msgtag) ;
        
        if ( info < 0 ) 
           {
              cerr<<"PsnSvm::waitForAnyRequests ERROR in pvm_bufinfo ";
              switch (info)
                 {
                 case PvmBadParam:
                    cerr<<"invalid argument";
                    break;
                 case PvmNoSuchBuf:
                    cerr<<"specified buffer does not exist";
                    break;
                 default:
                    cerr<<"unexpected error";
                    if (PsController::warningLevel >=  PsController::FatalWarnings) 
                       {              
                          exit (2) ;
                       }
                 }
              cerr<<endl;
           }
     }

  receiveBuffer.initialise ( bufid ) ;
  
  return result ;
}

//-----------------------------------------------------------------------------

void PsnPvmSvmLink::printDebuggingInformation () 
{
   cerr << "PsnPvmSvmLink:"<<this<<":printDebuggingInformation:_distantSiteIdant : " << hex << _distantSiteId << dec << endl ;
}

//-----------------------------------------------------------------------------

int PsnPvmSvmLink::getTID () 
{
  return _distantSiteId ;
}

void PsnPvmSvmLink::pack (PsOutgoingSynchronisationMessage & out) const 
{
   out << _distantSiteId ;
}


void PsnPvmSvmLink::unpack (PsIncomingSynchronisationMessage & in) 
{
#ifdef _DEBUGPVMMESS
  cerr<<"PsnPvmSvmLink::unpack: ";
#endif
   in >> _distantSiteId ;

   _outgoingBuffer.setDistantSiteId ( _distantSiteId ) ;
#ifdef _DEBUGPVMMESS
   cerr<<"distant site Id: "<<_distantSiteId<<endl;
#endif
}



PsnPvmOutgoingMessage & PsnPvmSvmLink::getOutgoingBuffer () 
{
   return _outgoingBuffer ;
}

---