Salome HOME
Merge from BR_V5_DEV 17Feb09
[samples/component.git] / src / TestFunctions / TestFunctionsMemory2.cxx
1 //  Copyright (C) 2007-2008  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.
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 //  SuperVisionTest TestFunctionsMemory : Check of memory leaks ...
23 //  File   : TestFunctionsMemory.cxx
24 //  Author : Jean Rahuel
25 //  Module : SuperVisionTest
26 //
27 #include <iostream>
28 #include <fstream>
29 #include <unistd.h>
30
31 #include <SALOMEconfig.h>
32 #include CORBA_CLIENT_HEADER(AddComponent)
33 #include CORBA_CLIENT_HEADER(SALOME_Component)
34
35 #include "utilities.h"
36 #include "SALOME_NamingService.hxx"
37 #include "SALOME_LifeCycleCORBA.hxx"
38 #include <OpUtil.hxx>
39
40 #include "DynInvoke.hxx"
41
42 using namespace std;
43
44 int main(int argc, char **argv) {
45   CORBA::ORB_var orb = CORBA::ORB_init(argc, argv);
46   CORBA::Object_var obj = orb->resolve_initial_references("RootPOA") ;
47   PortableServer::POA_var poa = PortableServer::POA::_narrow(obj) ;
48   SALOME_NamingService _NS(orb) ;
49   SALOME_LifeCycleCORBA _LCC(&_NS) ;
50
51   Engines::Component_var AddComponent = _LCC.FindOrLoad_Component( "FactoryServer" ,
52                                                                    "AddComponent");
53   SuperVisionTest::AddComponent_var AddInterface ;
54   AddInterface = SuperVisionTest::AddComponent::_narrow( AddComponent );
55
56   SuperVisionTest::Adder_var Adder1 ;
57   bool sts1 = AddInterface->AdditionObjRef1( Adder1 ) ;
58
59   int ninParams = 0 ;
60   ServicesAnyData * inParams = NULL ;
61   int noutParams = 2 ;
62   ServicesAnyData * outParams = new ServicesAnyData[noutParams] ;
63   bool b = 0 ;
64   outParams[ 0 ].Value <<= (CORBA::Any::from_boolean ) b ;
65   outParams[ 1 ].Value <<= CORBA::Object::_nil()  ;
66   DynInvoke( AddInterface , "AdditionObjRef1" , inParams , ninParams ,
67                                                 outParams , noutParams ) ;
68   outParams[ 0 ].Value >>= sts1 ;
69   CORBA::Object_ptr objptr ;
70   outParams[ 1 ].Value >>= objptr ;
71   SuperVisionTest::Adder_var DynAdder1 ;
72   DynAdder1 = SuperVisionTest::Adder::_narrow( objptr ) ;
73
74   SuperVisionTest::Adder_var Adder2 ;
75   bool sts2 ;
76   AddInterface->AdditionObjRef2( sts2 , Adder2 ) ;
77
78   outParams[ 0 ].Value <<= (CORBA::Any::from_boolean ) b ;
79   outParams[ 1 ].Value <<= CORBA::Object::_nil()  ;
80   DynInvoke( AddInterface , "AdditionObjRef2" , inParams , ninParams ,
81                                                 outParams , noutParams ) ;
82   outParams[ 0 ].Value >>= sts2 ;
83   outParams[ 1 ].Value >>= objptr ;
84   SuperVisionTest::Adder_var DynAdder2 ;
85   DynAdder2 = SuperVisionTest::Adder::_narrow( objptr ) ;
86
87   delete [] outParams ;
88
89   int i ;
90   for ( i = 0 ; i < 10000 ; i++ ) {
91
92     int ninParams = 2 ;
93     ServicesAnyData * inParams = new ServicesAnyData[ninParams] ;
94     int noutParams = 2 ;
95     ServicesAnyData * outParams = new ServicesAnyData[noutParams] ;
96
97 // Direct call to AdditionObjRef1
98     double d1 = 1. ;
99     inParams[0].Value <<= d1 ;
100     double d2 = 2. ;
101     inParams[1].Value <<= d2 ;
102     double Func1 = 0. ;
103     outParams[ 0 ].Value <<= Func1 ;
104     double z1 = 0. ;
105     outParams[ 1 ].Value <<= z1 ;
106     DynInvoke( Adder1 , "AddWithoutSleep" , inParams , ninParams ,
107                                             outParams , noutParams ) ;
108     outParams[ 0 ].Value >>= Func1 ;
109     outParams[ 1 ].Value >>= z1 ;
110     cout << i << ". TestFunctionsMemory " << " Func1 " << Func1 << " z1 " << z1 << endl ;
111
112 // Call to AdditionObjRef1 via dynamic invocation
113     Func1 = 0. ;
114     outParams[ 0 ].Value <<= Func1 ;
115     z1 = 0. ;
116     outParams[ 1 ].Value <<= z1 ;
117     DynInvoke( DynAdder1 , "AddWithoutSleep" , inParams , ninParams ,
118                                                outParams , noutParams ) ;
119     outParams[ 0 ].Value >>= Func1 ;
120     outParams[ 1 ].Value >>= z1 ;
121     Func1 = DynAdder1->AddWithoutSleep( 1. , 2. , z1 ) ;
122     cout << i << ". TestFunctionsMemory DynInvoke " << " Func1 " << Func1 << " z1 " << z1
123          << endl ;
124
125 // Direct call to AdditionObjRef2
126     double Func2 = 0. ;
127     outParams[ 0 ].Value <<= Func2 ;
128     double z2 = 0. ;
129     outParams[ 1 ].Value <<= z2 ;
130     DynInvoke( Adder2 , "AddWithoutSleep" , inParams , ninParams ,
131                                             outParams , noutParams ) ;
132     outParams[ 0 ].Value >>= Func2 ;
133     outParams[ 1 ].Value >>= z2 ;
134     cout << i << ". TestFunctions " << " Func2 " << Func2 << " z2 " << z2 << endl ;
135
136 // Call to AdditionObjRef2 via dynamic invocation
137     outParams[ 0 ].Value <<= Func2 ;
138     outParams[ 1 ].Value <<= z2 ;
139     DynInvoke( DynAdder2 , "AddWithoutSleep" , inParams , ninParams ,
140                                                outParams , noutParams ) ;
141     outParams[ 0 ].Value >>= Func2 ;
142     outParams[ 1 ].Value >>= z2 ;
143     cout << i << ". TestFunctionsMemory DynInvoke " << " Func2 " << Func2 << " z2 " << z2
144          << endl ;
145
146     delete [] inParams ;
147     delete [] outParams ;
148
149   }
150
151   Adder1->destroy() ;
152   DynAdder1->destroy() ;
153   Adder2->destroy() ;
154   DynAdder2->destroy() ;
155
156   return 0;
157 }
158