1 // SALOME TestContainer : test of container creation and its life cycle
3 // Copyright (C) 2003 OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
4 // CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
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.
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.
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
20 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
24 // File : SALOME_TestComponent_i.cxx
25 // Author : Paul RASCLE, EDF - MARC TAJCHMAN, CEA
30 # define private protected
32 #include "utilities.h"
33 #include "SALOME_TestComponent_i.hxx"
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)
46 MESSAGE("activate object");
48 _id = _poa->activate_object(_thisObj);
49 //does not work with 4.0.6 (too bad)
50 //SCRUTE(_pd_refCount);
51 //SCRUTE(_refcount_value());
54 Engines_TestComponent_i::Engines_TestComponent_i()
58 Engines_TestComponent_i::~Engines_TestComponent_i()
60 MESSAGE("~Engines_TestComponent_i()");
63 char* Engines_TestComponent_i::Coucou(CORBA::Long L)
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());
71 return CORBA::string_dup(s);
74 void Engines_TestComponent_i::Setenv()
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++)
81 std::string cle((*it).first);
82 if ((*it).second.type()->kind() == CORBA::tk_string)
85 (*it).second >>= value;
86 //CCRT porting : setenv not defined in stdlib.h
90 //char* cast because 1st arg of linux putenv function is not a const char* !!!
91 int ret=putenv((char *)s.c_str());
93 //int ret = setenv(cle.c_str(), value, overwrite);
94 MESSAGE("--- setenv: "<<cle<<" = "<< value);
97 MESSAGE("read environment associated with keys in map _fieldsDict");
98 for (it = _fieldsDict.begin(); it != _fieldsDict.end(); it++)
100 std::string cle((*it).first);
101 char* valenv= getenv(cle.c_str());
103 MESSAGE("--- getenv: "<<cle<<" = "<< valenv);
109 PortableServer::ObjectId * SalomeTestComponentEngine_factory(
111 PortableServer::POA_ptr poa,
112 PortableServer::ObjectId * contId,
113 const char *instanceName,
114 const char *interfaceName)
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() ;