src/TestContainer/SALOME_TestComponent_i.cxx

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