src/TestContainer/SALOME_TestComponent_i.cxx

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