src/SALOMEDS/SALOMEDS.cxx

   1 // Copyright (C) 2007-2016  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, or (at your option) any later version.
  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 //  SALOME SALOMEDS : data structure of SALOME and sources of Salome data server
  24 //  File   : SALOMEDS.cxx
  25 //  Author : Sergey ANIKIN
  26 //  Module : SALOME
  27 //  $Header$
  28 //
  29 #include "SALOMEDS.hxx"
  30 #include "SALOMEDS_Study.hxx"
  31 #include "SALOMEDS_Study_i.hxx"
  32 #include "SALOMEDS_StudyBuilder.hxx"
  33 #include "SALOMEDS_SObject.hxx"
  34 #include "SALOMEDS_SComponent.hxx"
  35 #include "SALOMEDSClient.hxx"
  36 #include "SALOMEDSClient_IParameters.hxx"
  37 #include "SALOMEDS_IParameters.hxx"
  38
  39 #include "SALOMEDS_Defines.hxx"
  40
  41 #include <utilities.h>
  42
  43 // IDL headers
  44 #include <SALOMEconfig.h>
  45 #include CORBA_SERVER_HEADER(SALOMEDS)
  46 #include <SALOME_NamingService.hxx>
  47
  48 // PAL8065: san -- Global recursive mutex for SALOMEDS methods
  49 Utils_Mutex SALOMEDS::Locker::MutexDS;
  50
  51 // PAL8065: san -- Global SALOMEDS locker
  52 SALOMEDS::Locker::Locker()
  53 : Utils_Locker( &MutexDS )
  54 {}
  55
  56 SALOMEDS::Locker::~Locker()
  57 {}
  58
  59 void SALOMEDS::lock()
  60 {
  61   Locker::MutexDS.lock();
  62 }
  63
  64 void SALOMEDS::unlock()
  65 {
  66   SALOMEDS::Locker::MutexDS.unlock();
  67 }
  68
  69 // srn: Added new library methods that create basic SALOMEDS objects (Study, SComponent, SObject)
  70
  71 //=============================================================================
  72 /*!
  73  * C factory, accessible with dlsym, after dlopen
  74  */
  75 //=============================================================================
  76
  77
  78 extern "C"
  79 {
  80   SALOMEDS_EXPORT
  81   SALOMEDSClient_Study* StudyFactory(SALOMEDS::Study_ptr theStudy)
  82   {
  83     if(CORBA::is_nil(theStudy)) return NULL;
  84     return new SALOMEDS_Study(theStudy);
  85   }
  86
  87   SALOMEDS_EXPORT
  88   SALOMEDSClient_SObject* SObjectFactory(SALOMEDS::SObject_ptr theSObject)
  89   {
  90     if(CORBA::is_nil(theSObject)) return NULL;
  91     return new SALOMEDS_SObject(theSObject);
  92   }
  93
  94   SALOMEDS_EXPORT
  95   SALOMEDSClient_SComponent* SComponentFactory(SALOMEDS::SComponent_ptr theSComponent)
  96   {
  97     if(CORBA::is_nil(theSComponent)) return NULL;
  98     return new SALOMEDS_SComponent(theSComponent);
  99   }
 100
 101   SALOMEDS_EXPORT
 102   SALOMEDSClient_StudyBuilder* BuilderFactory(SALOMEDS::StudyBuilder_ptr theBuilder)
 103   {
 104     if(CORBA::is_nil(theBuilder)) return NULL;
 105     return new SALOMEDS_StudyBuilder(theBuilder);
 106   }
 107
 108   SALOMEDS_EXPORT
 109   void CreateStudy(CORBA::ORB_ptr orb, PortableServer::POA_ptr root_poa)
 110   {
 111     SALOME_NamingService namingService(orb);
 112     CORBA::Object_var obj = namingService.Resolve( "/Study" );
 113     SALOMEDS::Study_var aStudy = SALOMEDS::Study::_narrow( obj );
 114     if( CORBA::is_nil(aStudy) ) {
 115       PortableServer::POAManager_var pman = root_poa->the_POAManager();
 116       CORBA::PolicyList policies;
 117       policies.length(2);
 118       //PortableServer::ThreadPolicy_var threadPol(root_poa->create_thread_policy(PortableServer::SINGLE_THREAD_MODEL));
 119       PortableServer::ThreadPolicy_var threadPol(root_poa->create_thread_policy(PortableServer::ORB_CTRL_MODEL));
 120       PortableServer::ImplicitActivationPolicy_var implicitPol(root_poa->create_implicit_activation_policy(PortableServer::IMPLICIT_ACTIVATION));
 121       policies[0] = PortableServer::ThreadPolicy::_duplicate(threadPol);
 122       policies[1] = PortableServer::ImplicitActivationPolicy::_duplicate(implicitPol);
 123       PortableServer::POA_var poa = root_poa->create_POA("KERNELStudySingleThreadPOA",pman,policies);
 124       MESSAGE("CreateStudy: KERNELStudySingleThreadPOA: "<< poa);
 125       threadPol->destroy();
 126
 127       SALOMEDS_Study_i::SetThePOA(poa);
 128       SALOMEDS_Study_i* aStudy_i = new SALOMEDS_Study_i(orb);
 129
 130       // Activate the objects.  This tells the POA that the objects are ready to accept requests.
 131       PortableServer::ObjectId_var aStudy_iid =  root_poa->activate_object(aStudy_i);
 132       aStudy = aStudy_i->_this();
 133       namingService.Register(aStudy, "/Study");
 134       aStudy_i->GetImpl()->GetDocument()->SetModified(false);
 135       aStudy_i->_remove_ref();
 136     }
 137   }
 138
 139   SALOMEDS_EXPORT
 140   SALOMEDSClient_IParameters* GetIParameters(const _PTR(AttributeParameter)& ap)
 141   {
 142     return new SALOMEDS_IParameters(ap);
 143   }
 144
 145   SALOMEDS_EXPORT
 146   SALOMEDS::SObject_ptr ConvertSObject(const _PTR(SObject)& theSObject)
 147   {
 148     SALOMEDS_SObject* so = _CAST(SObject, theSObject);
 149     if ( !theSObject || !so )
 150       return SALOMEDS::SObject::_nil();
 151     return so->GetSObject();
 152   }
 153
 154   SALOMEDS_EXPORT
 155   SALOMEDS::StudyBuilder_ptr ConvertBuilder(const _PTR(StudyBuilder)& theBuilder)
 156   {
 157     SALOMEDS_StudyBuilder* builder = _CAST(StudyBuilder, theBuilder);
 158     if ( !theBuilder || !builder )
 159       return SALOMEDS::StudyBuilder::_nil();
 160     return builder->GetBuilder();
 161   }
 162 }