src/TestContainer/SALOME_TestComponent_i.cxx

   1 // Copyright (C) 2007-2014  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 TestContainer : test of container creation and its life cycle
  24 //  File   : SALOME_TestComponent_i.cxx
  25 //  Author : Paul RASCLE, EDF - MARC TAJCHMAN, CEA
  26 //  Module : SALOME
  27 //  $Header$
  28 //
  29 #ifndef WIN32
  30 # define private protected
  31 #endif
  32 #include "utilities.h"
  33 #include "SALOME_TestComponent_i.hxx"
  34 #include <stdio.h>
  35 #include <cstdlib>
  36 #include <map>
  37
  38 Engines_TestComponent_i::Engines_TestComponent_i(CORBA::ORB_ptr orb,
  39                                                  PortableServer::POA_ptr poa,
  40                                                  PortableServer::ObjectId * contId,
  41                                                  const char *instanceName,
  42                                                  const char *interfaceName) :
  43   Engines_Component_i(orb, poa, contId, instanceName, interfaceName)
  44 {
  45   MESSAGE("activate object");
  46   _thisObj = this ;
  47   _id = _poa->activate_object(_thisObj);
  48   //does not work with 4.0.6 (too bad)
  49   //SCRUTE(_pd_refCount);
  50   //SCRUTE(_refcount_value());
  51 }
  52
  53 Engines_TestComponent_i::Engines_TestComponent_i()
  54 {
  55 }
  56
  57 Engines_TestComponent_i::~Engines_TestComponent_i()
  58 {
  59   MESSAGE("~Engines_TestComponent_i()");
  60 }
  61
  62 char* Engines_TestComponent_i::Coucou(CORBA::Long L)
  63 {
  64   char s[100];
  65   sprintf(s, "TestComponent_i : L = %ld", (long) L);
  66   //does not work with 4.0.6 (too bad)
  67   //SCRUTE(_pd_refCount);
  68   //SCRUTE(_refcount_value());
  69
  70   return CORBA::string_dup(s);
  71 }
  72
  73 void Engines_TestComponent_i::Setenv()
  74 {
  75   // bool overwrite = true;
  76   std::map<std::string,CORBA::Any>::iterator it;
  77   MESSAGE("set environment associated with keys in map _fieldsDict");
  78   for (it = _fieldsDict.begin(); it != _fieldsDict.end(); it++)
  79     {
  80       std::string cle((*it).first);
  81       if ((*it).second.type()->kind() == CORBA::tk_string)
  82         {
  83           const char* value;
  84           (*it).second >>= value;
  85           //CCRT porting : setenv not defined in stdlib.h
  86           std::string s(cle);
  87           s+='=';
  88           s+=value;
  89           //char* cast because 1st arg of linux putenv function is not a const char* !!!
  90           putenv((char *)s.c_str());
  91           //End of CCRT porting
  92           //int ret = setenv(cle.c_str(), value, overwrite);
  93           MESSAGE("--- setenv: "<<cle<<" = "<< value);
  94         }
  95     }
  96   MESSAGE("read environment associated with keys in map _fieldsDict");
  97   for (it = _fieldsDict.begin(); it != _fieldsDict.end(); it++)
  98     {
  99       std::string cle((*it).first);
 100       char* valenv= getenv(cle.c_str());
 101       if (valenv)
 102         MESSAGE("--- getenv: "<<cle<<" = "<< valenv);
 103     }
 104 }
 105
 106 extern "C"
 107 {
 108   PortableServer::ObjectId * SalomeTestComponentEngine_factory(
 109                                  CORBA::ORB_ptr orb,
 110                                  PortableServer::POA_ptr poa,
 111                                  PortableServer::ObjectId * contId,
 112                                  const char *instanceName,
 113                                  const char *interfaceName)
 114   {
 115     MESSAGE("PortableServer::ObjectId * TestComponent_factory()");
 116     SCRUTE(interfaceName);
 117     Engines_TestComponent_i * myTestComponent
 118       = new Engines_TestComponent_i(orb, poa, contId, instanceName, interfaceName);
 119     return myTestComponent->getId() ;
 120   }
 121 }
 122