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   SCRUTE(pd_refCount);
  50 }
  51
  52 Engines_TestComponent_i::Engines_TestComponent_i()
  53 {
  54 }
  55
  56 Engines_TestComponent_i::~Engines_TestComponent_i()
  57 {
  58   MESSAGE("~Engines_TestComponent_i()");
  59 }
  60
  61 char* Engines_TestComponent_i::Coucou(CORBA::Long L)
  62 {
  63   char s[100];
  64   sprintf(s, "TestComponent_i : L = %ld", (long) L);
  65   SCRUTE(pd_refCount);
  66
  67   return CORBA::string_dup(s);
  68 }
  69
  70 void Engines_TestComponent_i::Setenv()
  71 {
  72   bool overwrite = true;
  73   map<std::string,CORBA::Any>::iterator it;
  74   MESSAGE("set environment associated with keys in map _fieldsDict");
  75   for (it = _fieldsDict.begin(); it != _fieldsDict.end(); it++)
  76     {
  77       std::string cle((*it).first);
  78       if ((*it).second.type()->kind() == CORBA::tk_string)
  79         {
  80           const char* value;
  81           (*it).second >>= value;
  82           //CCRT porting : setenv not defined in stdlib.h
  83           std::string s(cle);
  84           s+='=';
  85           s+=value;
  86           //char* cast because 1st arg of linux putenv function is not a const char* !!!
  87           int ret=putenv((char *)s.c_str());
  88           //End of CCRT porting
  89           //int ret = setenv(cle.c_str(), value, overwrite);
  90           MESSAGE("--- setenv: "<<cle<<" = "<< value);
  91         }
  92     }
  93   MESSAGE("read environment associated with keys in map _fieldsDict");
  94   for (it = _fieldsDict.begin(); it != _fieldsDict.end(); it++)
  95     {
  96       std::string cle((*it).first);
  97       char* valenv= getenv(cle.c_str());
  98       if (valenv)
  99         MESSAGE("--- getenv: "<<cle<<" = "<< valenv);
 100     }
 101 }
 102
 103 extern "C"
 104 {
 105   PortableServer::ObjectId * SalomeTestComponentEngine_factory(
 106                                  CORBA::ORB_ptr orb,
 107                                  PortableServer::POA_ptr poa,
 108                                  PortableServer::ObjectId * contId,
 109                                  const char *instanceName,
 110                                  const char *interfaceName)
 111   {
 112     MESSAGE("PortableServer::ObjectId * TestComponent_factory()");
 113     SCRUTE(interfaceName);
 114     Engines_TestComponent_i * myTestComponent
 115       = new Engines_TestComponent_i(orb, poa, contId, instanceName, interfaceName);
 116     return myTestComponent->getId() ;
 117   }
 118 }
 119