1 // Copyright (C) 2007-2019 CEA/DEN, EDF R&D, OPEN CASCADE
3 // Copyright (C) 2003-2007 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, or (at your option) any later version.
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
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
30 #include "utilities.h"
31 #include "SALOME_TestComponent_i.hxx"
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)
43 MESSAGE("activate object");
45 _id = _poa->activate_object(_thisObj);
46 //does not work with 4.0.6 (too bad)
47 //SCRUTE(_pd_refCount);
48 //SCRUTE(_refcount_value());
51 Engines_TestComponent_i::Engines_TestComponent_i()
55 Engines_TestComponent_i::~Engines_TestComponent_i()
57 MESSAGE("~Engines_TestComponent_i()");
60 char* Engines_TestComponent_i::Coucou(CORBA::Long L)
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());
68 return CORBA::string_dup(s);
71 void Engines_TestComponent_i::Setenv()
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++)
78 std::string cle((*it).first);
79 if ((*it).second.type()->kind() == CORBA::tk_string)
82 (*it).second >>= value;
83 //CCRT porting : setenv not defined in stdlib.h
87 //char* cast because 1st arg of linux putenv function is not a const char* !!!
88 putenv((char *)s.c_str());
90 //int ret = setenv(cle.c_str(), value, overwrite);
91 MESSAGE("--- setenv: "<<cle<<" = "<< value);
94 MESSAGE("read environment associated with keys in map _fieldsDict");
95 for (it = _fieldsDict.begin(); it != _fieldsDict.end(); it++)
97 std::string cle((*it).first);
98 char* valenv= getenv(cle.c_str());
100 MESSAGE("--- getenv: "<<cle<<" = "<< valenv);
106 PortableServer::ObjectId * SalomeTestComponentEngine_factory(
108 PortableServer::POA_ptr poa,
109 PortableServer::ObjectId * contId,
110 const char *instanceName,
111 const char *interfaceName)
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() ;