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