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           int ret = setenv(cle.c_str(), value, overwrite);
  78           MESSAGE("--- setenv: "<<cle<<" = "<< value);
  79         }
  80     }
  81   MESSAGE("read environment associated with keys in map _fieldsDict");
  82   for (it = _fieldsDict.begin(); it != _fieldsDict.end(); it++)
  83     {
  84       std::string cle((*it).first);
  85       char* valenv= getenv(cle.c_str());
  86       if (valenv)
  87         MESSAGE("--- getenv: "<<cle<<" = "<< valenv);
  88     }
  89 }
  90
  91 extern "C"
  92 {
  93   PortableServer::ObjectId * SalomeTestComponentEngine_factory(
  94                                  CORBA::ORB_ptr orb,
  95                                  PortableServer::POA_ptr poa,
  96                                  PortableServer::ObjectId * contId,
  97                                  const char *instanceName,
  98                                  const char *interfaceName)
  99   {
 100     MESSAGE("PortableServer::ObjectId * TestComponent_factory()");
 101     SCRUTE(interfaceName);
 102     Engines_TestComponent_i * myTestComponent
 103       = new Engines_TestComponent_i(orb, poa, contId, instanceName, interfaceName);
 104     return myTestComponent->getId() ;
 105   }
 106 }
 107