1 // Copyright (C) 2007-2008 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.
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 #pragma warning( disable:4786 )
26 #include <Standard_Stream.hxx>
28 #include "GEOM_Gen_i.hh"
29 #include "GEOM_Object_i.hh"
35 #include "Utils_CorbaException.hxx"
37 #include "Utils_ExceptHandlers.hxx"
38 #include "utilities.h"
40 #include "GEOM_Object_i.hh"
41 #include "GEOM_Object.hxx"
42 #include "GEOM_Function.hxx"
43 #include "GEOM_ISubShape.hxx"
44 #include <GEOM_PythonDump.hxx>
45 #include "GEOMImpl_Types.hxx"
46 #include "GEOMImpl_CopyDriver.hxx"
49 #include <BRep_Builder.hxx>
50 #include <BRepTools.hxx>
51 #include <TDF_Label.hxx>
52 #include <TDF_Tool.hxx>
53 #include <TDF_ChildIDIterator.hxx>
54 #include <TNaming_NamedShape.hxx>
55 #include <TDataStd_Name.hxx>
56 #include <TCollection_AsciiString.hxx>
57 #include <TColStd_HArray1OfInteger.hxx>
58 #include <TopAbs_ShapeEnum.hxx>
59 //#include <TopTools_IndexedMapOfShape.hxx>
63 #include "SALOMEDS_Tool.hxx"
65 //============================================================================
66 // function : GEOM_Gen_i()
67 // purpose : constructor to be called for servant creation.
68 //============================================================================
69 GEOM_Gen_i::GEOM_Gen_i(CORBA::ORB_ptr orb,
70 PortableServer::POA_ptr poa,
71 PortableServer::ObjectId* contId,
72 const char* instanceName,
73 const char* interfaceName) :
74 Engines_Component_i(orb, poa, contId, instanceName, interfaceName)
77 _id = _poa->activate_object(_thisObj);
78 name_service = new SALOME_NamingService(_orb);
80 _impl = new ::GEOMImpl_Gen;
82 //PAL10867: disable signals catching with "noexcepthandler" option
83 char* envNoCatchSignals = getenv("NOT_INTERCEPT_SIGNALS");
84 if (!envNoCatchSignals || !atoi(envNoCatchSignals))
86 //work around PAL12004, PAL12628
87 //OSD::SetSignal( true );
91 char* envDisableFPE = getenv("DISABLE_FPE");
92 if (envDisableFPE && atoi(envDisableFPE))
97 OSD::SetSignal( raiseFPE );
101 //============================================================================
102 // function : ~GEOM_Gen_i()
103 // purpose : destructor
104 //============================================================================
105 GEOM_Gen_i::~GEOM_Gen_i() {
111 //============================================================================
112 // function : IORToLocalPersistentID()
114 //============================================================================
115 char* GEOM_Gen_i::IORToLocalPersistentID(SALOMEDS::SObject_ptr theSObject,
116 const char* IORString,
117 CORBA::Boolean isMultiFile,
118 CORBA::Boolean isASCII)
120 GEOM::GEOM_Object_var anObject = GEOM::GEOM_Object::_narrow(_orb->string_to_object(IORString));
121 if (!CORBA::is_nil(anObject)) {
122 return CORBA::string_dup(anObject->GetEntry());
128 //============================================================================
129 // function : LocalPersistentIDToIOR()
130 // purpose : Create/Load CORBA object from a persistent ref (an entry)
131 // : Used when a study is loaded
132 // : The IOR (IORName) of object created is returned
133 //============================================================================
134 char* GEOM_Gen_i::LocalPersistentIDToIOR(SALOMEDS::SObject_ptr theSObject,
135 const char* aLocalPersistentID,
136 CORBA::Boolean isMultiFile,
137 CORBA::Boolean isASCII)
139 SALOMEDS::Study_var aStudy = theSObject->GetStudy();
141 Handle(GEOM_Object) anObject = _impl->GetObject(aStudy->StudyId(), const_cast<char*>(aLocalPersistentID));
142 TCollection_AsciiString anEntry;
143 TDF_Tool::Entry(anObject->GetEntry(), anEntry);
144 GEOM::GEOM_Object_var obj = GetObject(anObject->GetDocID(), anEntry.ToCString());
146 CORBA::String_var aPersRefString = _orb->object_to_string(obj);
147 return CORBA::string_dup(aPersRefString);
150 //============================================================================
151 // function : CanPublishInStudy
153 //============================================================================
154 bool GEOM_Gen_i::CanPublishInStudy(CORBA::Object_ptr theIOR)
156 GEOM::GEOM_Object_var anObject = GEOM::GEOM_Object::_narrow(theIOR);
157 return !(anObject->_is_nil());
161 //============================================================================
162 // function : PublishInStudy
164 //============================================================================
165 SALOMEDS::SObject_ptr GEOM_Gen_i::PublishInStudy(SALOMEDS::Study_ptr theStudy,
166 SALOMEDS::SObject_ptr theSObject,
167 CORBA::Object_ptr theObject,
168 const char* theName) throw (SALOME::SALOME_Exception)
170 Unexpect aCatch(SALOME_SalomeException);
171 SALOMEDS::SObject_var aResultSO;
172 if(CORBA::is_nil(theObject) || theStudy->_is_nil()) return aResultSO;
173 GEOM::GEOM_Object_var aShape = GEOM::GEOM_Object::_narrow(theObject);
174 if(aShape->_is_nil()) return aResultSO;
176 SALOMEDS::GenericAttribute_var anAttr;
177 SALOMEDS::StudyBuilder_var aStudyBuilder = theStudy->NewBuilder();
179 SALOMEDS::SComponent_var aFather = theStudy->FindComponent("GEOM");
180 if (aFather->_is_nil()) {
181 aFather = aStudyBuilder->NewComponent("GEOM");
182 anAttr = aStudyBuilder->FindOrCreateAttribute(aFather, "AttributeName");
183 SALOMEDS::AttributeName_var aName = SALOMEDS::AttributeName::_narrow(anAttr);
184 aName->SetValue("Geometry");
186 anAttr = aStudyBuilder->FindOrCreateAttribute(aFather, "AttributePixMap");
187 SALOMEDS::AttributePixMap_var aPixMap=SALOMEDS::AttributePixMap::_narrow(anAttr);
188 aPixMap->SetPixMap("ICON_OBJBROWSER_Geometry");
190 aStudyBuilder->DefineComponentInstance(aFather, (GEOM::GEOM_Gen_var)GEOM_Gen::_this());
192 if (aFather->_is_nil()) return aResultSO;
194 if (CORBA::is_nil(theSObject)) {
195 aResultSO = aStudyBuilder->NewObject(aFather);
197 if (!theSObject->ReferencedObject(aResultSO))
198 aResultSO = SALOMEDS::SObject::_duplicate(theSObject); //SRN: Added Aug 24,2004 : for the method AddInStudy with theFather argumenet != NULL
199 //THROW_SALOME_CORBA_EXCEPTION("Publish in study supervision graph error",SALOME::BAD_PARAM);
201 anAttr = aStudyBuilder->FindOrCreateAttribute(aResultSO, "AttributeIOR");
202 SALOMEDS::AttributeIOR_var anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
203 CORBA::String_var aGeomObjIOR = _orb->object_to_string(theObject);
204 anIOR->SetValue(aGeomObjIOR);
207 anAttr = aStudyBuilder->FindOrCreateAttribute(aResultSO, "AttributePixMap");
208 SALOMEDS::AttributePixMap_var aPixmap = SALOMEDS::AttributePixMap::_narrow(anAttr);
209 TCollection_AsciiString aShapeName("Shape_");
211 if ( aShape->GetType() == GEOM_GROUP ) {
212 GEOM::GEOM_IGroupOperations_var anOp = GetIGroupOperations( theStudy->StudyId() );
213 switch ( (TopAbs_ShapeEnum)anOp->GetType( aShape ) ) {
215 aPixmap->SetPixMap( "ICON_OBJBROWSER_GROUP_PNT" );
216 aShapeName = "Group_Of_Vertices_";
219 aPixmap->SetPixMap( "ICON_OBJBROWSER_GROUP_EDGE" );
220 aShapeName = "Group_Of_Edges_";
223 aPixmap->SetPixMap( "ICON_OBJBROWSER_GROUP_FACE" );
224 aShapeName = "Group_Of_Faces_";
227 aPixmap->SetPixMap( "ICON_OBJBROWSER_GROUP_SOLID" );
228 aShapeName = "Group_Of_Solids_";
231 } else if ( aShape->GetType() == GEOM_MARKER ) {
232 aPixmap->SetPixMap( "ICON_OBJBROWSER_LCS" );
233 aShapeName = "LocalCS_";
234 } else if ( aShape->GetShapeType() == GEOM::COMPOUND ) {
235 aPixmap->SetPixMap( "ICON_OBJBROWSER_COMPOUND" );
236 aShapeName = "Compound_";
237 } else if ( aShape->GetShapeType() == GEOM::COMPSOLID ) {
238 aPixmap->SetPixMap( "ICON_OBJBROWSER_COMPSOLID" );
239 aShapeName = "Compsolid_";
240 } else if ( aShape->GetShapeType() == GEOM::SOLID ) {
241 aPixmap->SetPixMap( "ICON_OBJBROWSER_SOLID" );
242 aShapeName = "Solid_";
243 } else if ( aShape->GetShapeType() == GEOM::SHELL ) {
244 aPixmap->SetPixMap( "ICON_OBJBROWSER_SHELL" );
245 aShapeName = "Shell_";
246 } else if ( aShape->GetShapeType() == GEOM::FACE ) {
247 aPixmap->SetPixMap( "ICON_OBJBROWSER_FACE" );
248 aShapeName = "Face_";
249 } else if ( aShape->GetShapeType() == GEOM::WIRE ) {
250 aPixmap->SetPixMap( "ICON_OBJBROWSER_WIRE" );
251 aShapeName = "Wire_";
252 } else if ( aShape->GetShapeType() == GEOM::EDGE ) {
253 aPixmap->SetPixMap( "ICON_OBJBROWSER_EDGE" );
254 aShapeName = "Edge_";
255 } else if ( aShape->GetShapeType() == GEOM::VERTEX ) {
256 aPixmap->SetPixMap( "ICON_OBJBROWSER_VERTEX" );
257 aShapeName = "Vertex_";
260 //if (strlen(theName) == 0) aShapeName += TCollection_AsciiString(aResultSO->Tag());
261 //else aShapeName = TCollection_AsciiString(CORBA::string_dup(theName));
263 // try to find existed name for current shape
264 bool HasName = false;
265 // recieve current TopoDS shape
266 CORBA::String_var entry = aShape->GetEntry();
267 Handle(GEOM_Object) aGShape = _impl->GetObject(aShape->GetStudyID(), entry);
268 TopoDS_Shape TopoSh = aGShape->GetValue();
269 // find label of main shape
270 GEOM::GEOM_Object_var aMainSh = aShape;
271 while( !aMainSh->IsMainShape() ) {
272 aMainSh = aMainSh->GetMainShape();
274 entry = aMainSh->GetEntry();
275 Handle(GEOM_Object) anObj = _impl->GetObject(aMainSh->GetStudyID(), entry);
276 TDF_Label aMainLbl = anObj->GetEntry();
277 // check all named shapes using iterator
278 TDF_ChildIDIterator anIt(aMainLbl, TNaming_NamedShape::GetID(), Standard_True);
279 for(; anIt.More(); anIt.Next()) {
280 Handle(TNaming_NamedShape) anAttr =
281 Handle(TNaming_NamedShape)::DownCast(anIt.Value());
282 if(anAttr.IsNull()) continue;
283 TopoDS_Shape S = anAttr->Get();
284 if( !S.IsEqual(TopoSh) ) continue;
285 TDF_Label L = anAttr->Label();
286 Handle(TDataStd_Name) aName;
287 if(L.FindAttribute(TDataStd_Name::GetID(),aName)) {
288 aShapeName = aName->Get();
294 // asv : 11.11.04 Introducing a more sofisticated method of name creation, just as
295 // it is done in GUI in GEOMBase::GetDefaultName() - not just add a Tag() == number
296 // of objects in the study, but compute a number of objects with the same prefix
297 // and build a new name as Prefix_N+1
298 if ( strlen( theName ) == 0 ) { // MOST PROBABLY CALLED FROM BATCHMODE OR SUPERVISOR
299 int i = 0; // (WITH EMPTY NEW NAME)
300 SALOMEDS::SObject_var obj;
301 TCollection_AsciiString aNewShapeName;
303 aNewShapeName = aShapeName + TCollection_AsciiString(++i);
304 obj = theStudy->FindObject( aNewShapeName.ToCString() );
306 while ( !obj->_is_nil() );
307 aShapeName = aNewShapeName;
309 else // MOST PROBABLY CALLED FROM GEOM GUI (ALREADY WITH VALID NAME)
310 aShapeName = TCollection_AsciiString((char*)theName);
313 //Set the study entry as a name of the published GEOM_Object
314 CORBA::String_var anID =aResultSO->GetID();
315 aShape->SetStudyEntry(anID.in());
317 //Set a name of the added shape
318 anAttr = aStudyBuilder->FindOrCreateAttribute(aResultSO, "AttributeName");
319 SALOMEDS::AttributeName_var aNameAttrib = SALOMEDS::AttributeName::_narrow(anAttr);
320 aNameAttrib->SetValue(aShapeName.ToCString());
321 aNameAttrib->Destroy();
323 //Set NoteBook variables used in the object creation
324 TCollection_AsciiString aVars;
325 CORBA::String_var aString=aShape->GetParameters();
326 SALOMEDS::ListOfListOfStrings_var aSections = theStudy->ParseVariables(aString);
327 for(int i = 0, n = aSections->length(); i < n; i++) {
328 SALOMEDS::ListOfStrings aListOfVars = aSections[i];
329 for(int j = 0, m = aListOfVars.length(); j < m; j++) {
330 if(theStudy->IsVariable(aListOfVars[j].in()))
331 aVars += TCollection_AsciiString(aListOfVars[j].in());
338 anAttr = aStudyBuilder->FindOrCreateAttribute(aResultSO, "AttributeString");
339 SALOMEDS::AttributeString_var aStringAttrib = SALOMEDS::AttributeString::_narrow(anAttr);
340 aStringAttrib->SetValue(aVars.ToCString());
341 aStringAttrib->Destroy();
345 //Set a name of the GEOM object
346 aShape->SetName(theName);
348 return aResultSO._retn();
352 //============================================================================
353 // function : CreateAndPublishGroup
354 // purpose : auxilary for PublishNamedShapesInStudy
355 //============================================================================
356 void GEOM_Gen_i::CreateAndPublishGroup(SALOMEDS::Study_ptr theStudy,
357 GEOM::GEOM_Object_var theMainShape,
358 const TopTools_IndexedMapOfShape& anIndices,
359 const TopTools_SequenceOfShape& SeqS,
360 const TColStd_SequenceOfAsciiString& SeqN,
361 const Standard_CString& GrName,
362 GEOM::ListOfGO_var aResList)
364 CORBA::String_var entry = theMainShape->GetEntry();
365 Handle(GEOM_Object) aMainShape = _impl->GetObject(theMainShape->GetStudyID(), entry);
366 Handle(TColStd_HArray1OfInteger) anArray;
367 if(SeqS.Length()>0) {
369 GEOM::GEOM_IGroupOperations_var GOp = GetIGroupOperations(theStudy->StudyId());
370 GEOM::GEOM_Object_ptr GrObj =
371 GOp->CreateGroup( theMainShape, SeqS.Value(1).ShapeType() );
372 AddInStudy(theStudy, GrObj, GrName, theMainShape._retn());
373 CORBA::String_var GrEntry = GrObj->GetEntry();
374 Handle(GEOM_Object) HGrObj = _impl->GetObject(GrObj->GetStudyID(), GrEntry);
376 //Handle(GEOM_Object) anObj;
377 for(int i=1; i<=SeqS.Length(); i++) {
378 TopoDS_Shape aValue = SeqS.Value(i);
379 //anArray = new TColStd_HArray1OfInteger(1,1);
380 Standard_Integer anIndex = anIndices.FindIndex(aValue);
381 //anArray->SetValue(1, anIndex);
382 GOp->AddObject(GrObj,anIndex);
383 //anObj = GEOM_Engine::GetEngine()->AddObject(aMainShape->GetDocID(), GEOM_SUBSHAPE);
384 //if (anObj.IsNull()) continue;
385 //Handle(GEOM_Function) aFunction = anObj->AddFunction(GEOM_Object::GetSubShapeID(), 1);
386 //if (aFunction.IsNull()) continue;
387 //GEOM_ISubShape aSSI(aFunction);
388 //aSSI.SetMainShape(aMainShape->GetLastFunction());
389 //aSSI.SetIndices(anArray);
390 //aFunction->SetValue(aValue);
391 //GOp->UnionIDs(GrObj, anIndex);
392 //SALOMEDS::SObject_var aResultSO;
393 //TCollection_AsciiString anEntry;
394 //TDF_Tool::Entry(anObj->GetEntry(),anEntry);
395 //GEOM::GEOM_Object_var aGObj = GetObject(anObj->GetDocID(), anEntry.ToCString());
396 //AddInStudy(theStudy, aGObj._retn(), SeqN.Value(i).ToCString(), GrObj);
402 //============================================================================
403 // function : PublishNamedShapesInStudy
405 //============================================================================
406 GEOM::ListOfGO* GEOM_Gen_i::
407 PublishNamedShapesInStudy(SALOMEDS::Study_ptr theStudy,
408 //SALOMEDS::SObject_ptr theSObject,
409 CORBA::Object_ptr theObject)
411 //Unexpect aCatch(SALOME_SalomeException);
412 GEOM::ListOfGO_var aResList = new GEOM::ListOfGO;
414 //CORBA::Object_var theObject = theSObject->GetObject();
415 GEOM::GEOM_Object_var theMainShape = GEOM::GEOM_Object::_narrow(theObject);
416 if(theMainShape->_is_nil()) return aResList._retn();
418 CORBA::String_var entry = theMainShape->GetEntry();
419 Handle(GEOM_Object) aMainShape = _impl->GetObject(theMainShape->GetStudyID(), entry);
420 if (aMainShape.IsNull()) return aResList._retn();
421 TopoDS_Shape MainSh = aMainShape->GetValue();
423 TDF_Label aMainLbl = aMainShape->GetEntry();
424 TopTools_SequenceOfShape SolidSeqS, FaceSeqS, EdgeSeqS, VertSeqS;
425 TColStd_SequenceOfAsciiString SolidSeqN, FaceSeqN, EdgeSeqN, VertSeqN;
426 TDF_ChildIDIterator anIt(aMainLbl, TNaming_NamedShape::GetID(), Standard_True);
427 for(; anIt.More(); anIt.Next()) {
428 Handle(TNaming_NamedShape) anAttr =
429 Handle(TNaming_NamedShape)::DownCast(anIt.Value());
430 if(anAttr.IsNull()) continue;
431 TopoDS_Shape S = anAttr->Get();
432 TDF_Label L = anAttr->Label();
433 //if(S.IsEqual(MainSh)) continue;
434 Handle(TDataStd_Name) aName;
435 if(L.FindAttribute(TDataStd_Name::GetID(),aName)) {
436 TCollection_ExtendedString EName = aName->Get();
437 if(S.ShapeType()==TopAbs_SOLID) {
439 SolidSeqN.Append(aName->Get());
441 else if(S.ShapeType()==TopAbs_FACE) {
443 FaceSeqN.Append(aName->Get());
445 else if(S.ShapeType()==TopAbs_EDGE) {
447 EdgeSeqN.Append(aName->Get());
449 else if(S.ShapeType()==TopAbs_VERTEX) {
451 VertSeqN.Append(aName->Get());
456 TopTools_IndexedMapOfShape anIndices;
457 TopExp::MapShapes(MainSh, anIndices);
459 CreateAndPublishGroup(theStudy, theMainShape, anIndices, SolidSeqS, SolidSeqN,
460 "Group_Of_Named_Solids", aResList);
462 CreateAndPublishGroup(theStudy, theMainShape, anIndices, FaceSeqS, FaceSeqN,
463 "Group_Of_Named_Faces", aResList);
465 CreateAndPublishGroup(theStudy, theMainShape, anIndices, EdgeSeqS, EdgeSeqN,
466 "Group_Of_Named_Edges", aResList);
468 CreateAndPublishGroup(theStudy, theMainShape, anIndices, VertSeqS, VertSeqN,
469 "Group_Of_Named_Vertices", aResList);
471 return aResList._retn();
475 //============================================================================
477 // purpose : save OCAF/Geom document
478 //============================================================================
479 SALOMEDS::TMPFile* GEOM_Gen_i::Save(SALOMEDS::SComponent_ptr theComponent,
482 SALOMEDS::TMPFile_var aStreamFile;
483 // Get a temporary directory to store a file
484 std::string aTmpDir = (isMultiFile)?theURL:SALOMEDS_Tool::GetTmpDir();
486 // OCCT BUG: cannot save a document (in current folder)
487 // if directory name is empty
488 if (aTmpDir.size() == 0) {
496 // Create a list to store names of created files
497 SALOMEDS::ListOfFileNames_var aSeq = new SALOMEDS::ListOfFileNames;
499 // Prepare a file name to open
500 TCollection_AsciiString aNameWithExt("");
502 aNameWithExt = TCollection_AsciiString((char*)(SALOMEDS_Tool::GetNameFromPath
503 (theComponent->GetStudy()->URL())).c_str());
504 aNameWithExt += TCollection_AsciiString("_GEOM.sgd");
505 aSeq[0] = CORBA::string_dup(aNameWithExt.ToCString());
506 // Build a full file name of temporary file
507 TCollection_AsciiString aFullName = TCollection_AsciiString((char*)aTmpDir.c_str()) + aNameWithExt;
508 // Save GEOM component in this file
509 _impl->Save(theComponent->GetStudy()->StudyId(),(char*) aFullName.ToCString());
510 // Conver a file to the byte stream
511 aStreamFile = SALOMEDS_Tool::PutFilesToStream(aTmpDir.c_str(), aSeq.in(), isMultiFile);
512 // Remove the created file and tmp directory
513 if (!isMultiFile) SALOMEDS_Tool::RemoveTemporaryFiles(aTmpDir.c_str(), aSeq.in(), true);
515 // Return the created byte stream
516 return aStreamFile._retn();
520 //============================================================================
521 // function : SaveASCII()
523 //============================================================================
524 SALOMEDS::TMPFile* GEOM_Gen_i::SaveASCII(SALOMEDS::SComponent_ptr theComponent,
527 SALOMEDS::TMPFile_var aStreamFile = Save(theComponent, theURL, isMultiFile);
528 return aStreamFile._retn();
532 //============================================================================
535 //============================================================================
536 CORBA::Boolean GEOM_Gen_i::Load(SALOMEDS::SComponent_ptr theComponent,
537 const SALOMEDS::TMPFile& theStream,
541 if (theStream.length() <= 9) {
542 MESSAGE("The TMPFile is too short : " << theStream.length() << " bytes ");
546 // Get a temporary directory for a file
547 std::string aTmpDir = isMultiFile?theURL:SALOMEDS_Tool::GetTmpDir();
549 // OCCT BUG: cannot load a document (from current folder)
550 // if directory name is empty
551 if (aTmpDir.size() == 0) {
559 // Conver the byte stream theStream to a file and place it in tmp directory
560 SALOMEDS::ListOfFileNames_var aSeq =
561 SALOMEDS_Tool::PutStreamToFiles(theStream, aTmpDir.c_str(), isMultiFile);
563 // Prepare a file name to open
564 TCollection_AsciiString aNameWithExt("");
566 aNameWithExt = TCollection_AsciiString((char*)(SALOMEDS_Tool::GetNameFromPath
567 (theComponent->GetStudy()->URL())).c_str());
568 aNameWithExt += TCollection_AsciiString("_GEOM.sgd");
569 TCollection_AsciiString aFullName = (TCollection_AsciiString((char*)aTmpDir.c_str()) + aNameWithExt);
572 if (!_impl->Load(theComponent->GetStudy()->StudyId(),(char*) aFullName.ToCString())) return false;
574 // Remove the created file and tmp directory
575 if (!isMultiFile) SALOMEDS_Tool::RemoveTemporaryFiles(aTmpDir.c_str(), aSeq.in(), true);
577 SALOMEDS::Study_var Study = theComponent->GetStudy();
578 TCollection_AsciiString name (Study->Name());
584 //============================================================================
585 // function : LoadASCII()
587 //============================================================================
588 CORBA::Boolean GEOM_Gen_i::LoadASCII(SALOMEDS::SComponent_ptr theComponent,
589 const SALOMEDS::TMPFile& theStream,
592 return Load(theComponent, theStream, theURL, isMultiFile);
596 //============================================================================
597 // function : Close()
599 //============================================================================
600 void GEOM_Gen_i::Close(SALOMEDS::SComponent_ptr theComponent)
602 SALOMEDS::Study_var aStudy= theComponent->GetStudy();
603 _impl->Close(aStudy->StudyId());
606 //============================================================================
607 // function : CanCopy()
609 //============================================================================
610 CORBA::Boolean GEOM_Gen_i::CanCopy(SALOMEDS::SObject_ptr theObject) {
611 // Try to retrieve known by Geometry component GEOM_Object by given IOR
612 SALOMEDS::GenericAttribute_var anAttr;
613 if (!theObject->FindAttribute(anAttr, "AttributeIOR")) return false;
615 SALOMEDS::AttributeIOR_var anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
617 CORBA::String_var aString=anIOR->Value();
619 CORBA::Object_var anObj = _orb->string_to_object(aString);
620 GEOM::GEOM_Object_var anObject = GEOM::GEOM_Object::_narrow(anObj);
621 // If the object is null one it can't be copied: return false
622 if (anObject->_is_nil()) return false;
626 //============================================================================
627 // function : CopyFrom()
629 //============================================================================
630 SALOMEDS::TMPFile* GEOM_Gen_i::CopyFrom(SALOMEDS::SObject_ptr theObject, CORBA::Long& theObjectID)
632 // Declare a sequence of the byte to store the copied object
633 SALOMEDS::TMPFile_var aStreamFile = new SALOMEDS::TMPFile;
635 // Try to get GEOM_Object object by given SObject
636 SALOMEDS::GenericAttribute_var anAttr;
637 if (!theObject->FindAttribute(anAttr, "AttributeIOR")) return aStreamFile._retn();
638 GEOM::GEOM_Object_var anObject = GEOM::GEOM_Object::_narrow
639 (_orb->string_to_object(SALOMEDS::AttributeIOR::_narrow(anAttr)->Value()));
640 if (anObject->_is_nil()) return aStreamFile._retn();
642 aStreamFile = anObject->GetShapeStream();
644 // Assign an ID the type of GEOM_Object
645 theObjectID = anObject->GetType();
647 // Return created TMPFile
648 return aStreamFile._retn();
651 //============================================================================
652 // function : CanPaste()
654 //============================================================================
655 CORBA::Boolean GEOM_Gen_i::CanPaste(const char* theComponentName, CORBA::Long theObjectID) {
656 // The Geometry component can paste only objects copied by Geometry component
657 // and with the object type = 1
658 if (strcmp(theComponentName, ComponentDataType()) != 0) return false;
662 //============================================================================
663 // function : PasteInto()
665 //============================================================================
666 SALOMEDS::SObject_ptr GEOM_Gen_i::PasteInto(const SALOMEDS::TMPFile& theStream,
667 CORBA::Long theObjectID,
668 SALOMEDS::SObject_ptr theObject) {
669 // Find the current Study and StudyBuilder
670 SALOMEDS::Study_var aStudy = theObject->GetStudy();
671 SALOMEDS::StudyBuilder_var aStudyBuilder = aStudy->NewBuilder();
673 // Retrieve a TopoDS_Shape from byte stream
674 TopoDS_Shape aTopology;
675 istrstream aStreamedBrep((char*) &theStream[0], theStream.length());
676 BRep_Builder aBuilder;
678 BRepTools::Read(aTopology, aStreamedBrep, aBuilder);
679 } catch (Standard_Failure) {
683 // SObject of the created shape is theObject or new Child of Component if theObject == geom component
684 SALOMEDS::SObject_var aNewSO;
685 if (strcmp(theObject->GetFatherComponent()->GetID(),theObject->GetID()) == 0) {
686 aNewSO = aStudyBuilder->NewObject(theObject);
687 } else aNewSO = SALOMEDS::SObject::_duplicate(theObject);
690 //Create a new GEOM_Object
691 Handle(GEOM_Object) anObj = _impl->AddObject(aNewSO->GetStudy()->StudyId(), theObjectID);
692 Handle(GEOM_Function) aFunction = anObj->AddFunction(GEOMImpl_CopyDriver::GetID(), COPY_WITHOUT_REF);
693 aFunction->SetValue(aTopology);
695 TCollection_AsciiString anEntry;
696 TDF_Tool::Entry(anObj->GetEntry(), anEntry);
697 GEOM::GEOM_Object_var obj = GetObject(anObj->GetDocID(), anEntry.ToCString());
699 //Set the study entry of the published GEOM_Object
700 obj->SetStudyEntry(aNewSO->GetID());
702 // Add IORAttribute to the Study and set IOR of the created GEOM_Object to it
703 SALOMEDS::GenericAttribute_var anAttr = aStudyBuilder->FindOrCreateAttribute(aNewSO, "AttributeIOR");
704 SALOMEDS::AttributeIOR_var anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
705 CORBA::String_var objStr = _orb->object_to_string(obj);
706 anIOR->SetValue(objStr.in());
709 // Return the created in the Study SObject
710 return aNewSO._retn();
713 //============================================================================
714 // function : ComponentDataType()
716 //============================================================================
717 char* GEOM_Gen_i::ComponentDataType()
719 return CORBA::string_dup("GEOM");
722 //============================================================================
723 // function : AddInStudy
725 //============================================================================
726 SALOMEDS::SObject_ptr GEOM_Gen_i::AddInStudy (SALOMEDS::Study_ptr theStudy,
727 GEOM::GEOM_Object_ptr theObject,
729 GEOM::GEOM_Object_ptr theFather)
731 SALOMEDS::SObject_var aResultSO;
732 if(theObject->_is_nil() || theStudy->_is_nil()) return aResultSO;
734 SALOMEDS::StudyBuilder_var aStudyBuilder = theStudy->NewBuilder();
735 CORBA::String_var IOR;
737 if(!theFather->_is_nil()) {
738 IOR = _orb->object_to_string(theFather);
739 SALOMEDS::SObject_var aFatherSO = theStudy->FindObjectIOR(IOR.in());
740 if(aFatherSO->_is_nil()) return aResultSO._retn();
741 aResultSO = aStudyBuilder->NewObject(aFatherSO);
742 aFatherSO->Destroy();
743 //aStudyBuilder->Addreference(aResultSO, aResultSO);
746 aResultSO = PublishInStudy(theStudy, aResultSO, theObject, theName);
747 if(aResultSO->_is_nil()) return aResultSO._retn();
749 GEOM::ListOfGO_var aList = theObject->GetDependency();
750 Standard_Integer aLength = aList->length();
751 if(aLength < 1) return aResultSO._retn();
753 //Publish the arguments
754 for(Standard_Integer i = 0; i< aLength; i++) {
755 GEOM::GEOM_Object_var anObject = aList[i];
756 if(anObject->_is_nil()) continue;
757 IOR = _orb->object_to_string(anObject);
758 SALOMEDS::SObject_var aSO = theStudy->FindObjectIOR(IOR.in());
759 if(aSO->_is_nil()) continue;
760 SALOMEDS::SObject_var aSubSO = aStudyBuilder->NewObject(aResultSO);
761 aStudyBuilder->Addreference(aSubSO, aSO);
766 return aResultSO._retn();
769 //============================================================================
770 // function : RestoreSubShapesO
771 // purpose : Publish sub-shapes, standing for arguments and sub-shapes of arguments.
772 // To be used from python scripts out of geompy.addToStudy (non-default usage)
773 //============================================================================
774 GEOM::ListOfGO* GEOM_Gen_i::RestoreSubShapesO (SALOMEDS::Study_ptr theStudy,
775 GEOM::GEOM_Object_ptr theObject,
776 const GEOM::ListOfGO& theArgs,
777 GEOM::find_shape_method theFindMethod,
778 CORBA::Boolean theInheritFirstArg)
780 GEOM::ListOfGO_var aParts = new GEOM::ListOfGO;
781 if (CORBA::is_nil(theStudy) || CORBA::is_nil(theObject))
782 return aParts._retn();
784 // find SObject in the study if it is already published
785 CORBA::String_var anIORo = _orb->object_to_string(theObject);
786 SALOMEDS::SObject_var aSO = theStudy->FindObjectIOR(anIORo.in());
787 //PTv, IMP 0020001, The salome object <aSO>
788 // is not obligatory in case of invokation from script
789 // if (CORBA::is_nil(aSO))
790 // return aParts._retn();
792 aParts = RestoreSubShapes(theStudy, theObject, aSO, theArgs, theFindMethod, theInheritFirstArg);
794 return aParts._retn();
797 //============================================================================
798 // function : RestoreSubShapesSO
799 // purpose : Publish sub-shapes, standing for arguments and sub-shapes of arguments.
800 // To be used from GUI and from geompy.addToStudy
801 //============================================================================
802 GEOM::ListOfGO* GEOM_Gen_i::RestoreSubShapesSO (SALOMEDS::Study_ptr theStudy,
803 SALOMEDS::SObject_ptr theSObject,
804 const GEOM::ListOfGO& theArgs,
805 GEOM::find_shape_method theFindMethod,
806 CORBA::Boolean theInheritFirstArg)
808 GEOM::ListOfGO_var aParts = new GEOM::ListOfGO;
809 if (CORBA::is_nil(theStudy) || CORBA::is_nil(theSObject))
810 return aParts._retn();
812 SALOMEDS::GenericAttribute_var anAttr;
813 if (!theSObject->FindAttribute(anAttr, "AttributeIOR"))
814 return aParts._retn();
816 SALOMEDS::AttributeIOR_var anAttrIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
817 CORBA::String_var anIORso = anAttrIOR->Value();
819 // get Object from SObject
820 GEOM::GEOM_Object_var anO = GEOM::GEOM_Object::_narrow(_orb->string_to_object(anIORso));
821 if (CORBA::is_nil(anO))
822 return aParts._retn();
824 aParts = RestoreSubShapes(theStudy, anO, theSObject, theArgs, theFindMethod, theInheritFirstArg);
825 return aParts._retn();
828 //============================================================================
829 // function : addToListOfGO
830 // purpose : static local function
831 //============================================================================
832 static void addToListOfGO( GEOM::GEOM_Object_ptr theObject,
833 GEOM::ListOfGO& theList )
835 const int oldLen = theList.length();
836 theList.length(oldLen + 1);
837 theList[ oldLen ] = GEOM::GEOM_Object::_duplicate( theObject );
840 //============================================================================
841 // function : addToListOfGO
842 // purpose : static local function
843 //============================================================================
844 static void addToListOfGO( const GEOM::ListOfGO& theSrcList,
845 GEOM::ListOfGO& theTrgList )
847 const int oldLen = theTrgList.length();
848 const int srcLen = theSrcList.length();
849 theTrgList.length(oldLen + srcLen);
850 for( int i = 0; i < srcLen; i++ )
851 theTrgList[ oldLen + i ] = GEOM::GEOM_Object::_duplicate( theSrcList[ i ] );
854 //============================================================================
855 // function : RestoreSubShapes
856 // purpose : Private method. Works only if both theObject and theSObject
857 // are defined, and does not check, if they correspond to each other.
858 //============================================================================
859 GEOM::ListOfGO* GEOM_Gen_i::RestoreSubShapes(SALOMEDS::Study_ptr theStudy,
860 GEOM::GEOM_Object_ptr theObject,
861 SALOMEDS::SObject_ptr theSObject,
862 const GEOM::ListOfGO& theArgs,
863 GEOM::find_shape_method theFindMethod,
864 CORBA::Boolean theInheritFirstArg)
866 GEOM::ListOfGO_var aParts = new GEOM::ListOfGO;
867 //PTv, IMP 0020001, The salome object <theSObject>
868 // is not obligatory in case of invokation from script
869 if (CORBA::is_nil(theStudy) || CORBA::is_nil(theObject) /*|| CORBA::is_nil(theSObject)*/)
870 return aParts._retn();
872 // Arguments to be published
873 GEOM::ListOfGO_var aList;
875 // If theArgs list is empty, we try to publish all arguments,
876 // otherwise publish only passed args
877 Standard_Integer nbArgsActual = -1; // -1 means unknown
878 Standard_Integer aLength = theArgs.length();
880 aList = new GEOM::ListOfGO;
881 aList->length(aLength);
882 for (int i = 0; i < aLength; i++) {
883 aList[i] = GEOM::GEOM_Object::_duplicate( theArgs[i] );
888 aList = theObject->GetDependency();
889 aLength = aList->length();
890 nbArgsActual = aLength;
894 return aParts._retn();
896 if (theInheritFirstArg || (nbArgsActual == 1)) {
897 // Do not publish argument's reflection,
898 // but only reconstruct its published sub-shapes
900 CORBA::String_var anIOR = _orb->object_to_string(aList[0]);
901 SALOMEDS::SObject_var anArgSO = theStudy->FindObjectIOR(anIOR.in());
903 aParts = RestoreSubShapesOneLevel(theStudy, anArgSO, theSObject, theObject, theFindMethod);
905 // set the color of the transformed shape to the color of initial shape
906 theObject->SetColor(aList[0]->GetColor());
910 // Get interface, containing method, which we will use to reconstruct sub-shapes
911 GEOM::GEOM_IShapesOperations_var aShapesOp = GetIShapesOperations(theStudy->StudyId());
912 GEOM::GEOM_IGroupOperations_var aGroupOp = GetIGroupOperations(theStudy->StudyId());
914 // Reconstruct arguments and tree of sub-shapes of the arguments
915 CORBA::String_var anIOR;
916 SALOMEDS::StudyBuilder_var aStudyBuilder = theStudy->NewBuilder();
917 for (Standard_Integer i = 0; i < aLength; i++)
919 GEOM::GEOM_Object_var anArgO = aList[i];
920 if (!CORBA::is_nil(anArgO)) {
921 anIOR = _orb->object_to_string(anArgO);
922 SALOMEDS::SObject_var anArgSO = theStudy->FindObjectIOR(anIOR.in());
923 TCollection_AsciiString anArgName;
924 if (CORBA::is_nil(anArgSO)) {
926 anArgName += TCollection_AsciiString(i);
929 anArgName = anArgSO->GetName();
932 // Find a sub-shape of theObject in place of the argument
933 GEOM::GEOM_Object_var aSubO;
934 switch (theFindMethod) {
935 case GEOM::FSM_GetInPlace:
938 aSubO = aShapesOp->GetInPlace(theObject, anArgO);
941 case GEOM::FSM_Transformed:
943 // transformation, cannot use GetInPlace, operate with indices
944 GEOM::ListOfLong_var anIDs = anArgO->GetSubShapeIndices();
945 if (anIDs->length() > 1) {
947 aSubO = aGroupOp->CreateGroup(theObject, aGroupOp->GetType(anArgO));
948 if (!CORBA::is_nil(aSubO))
949 aGroupOp->UnionIDs(aSubO, anIDs);
951 else if (anIDs->length() > 0) {
953 aSubO = aShapesOp->GetSubShape(theObject, anIDs[0]);
957 case GEOM::FSM_GetSame:
960 aSubO = aShapesOp->GetSame(theObject, anArgO);
963 case GEOM::FSM_GetShapesOnShape:
965 // Use GetShapesOnShape. Can work only on solids, so it has sense to search only solids
966 aSubO = aShapesOp->GetShapesOnShapeAsCompound(anArgO, theObject,
967 (short)GEOM::SOLID, GEOM::ST_ONIN);
970 case GEOM::FSM_GetInPlaceByHistory:
972 // Use GetInPlaceByHistory
973 aSubO = aShapesOp->GetInPlaceByHistory(theObject, anArgO);
980 if (!CORBA::is_nil(aSubO)) {
982 addToListOfGO( aSubO, aParts );
984 // Publish the sub-shape
985 SALOMEDS::SObject_var aSubSO;
986 if (!CORBA::is_nil(theSObject)) {
987 TCollection_AsciiString aSubName ("from_");
988 aSubName += anArgName;
989 aSubSO = aStudyBuilder->NewObject(theSObject);
990 aSubSO = PublishInStudy(theStudy, aSubSO, aSubO, aSubName.ToCString());
992 aSubO->SetColor(anArgO->GetColor());
995 if (!CORBA::is_nil(anArgSO)) {
996 // Restore published sub-shapes of the argument
997 GEOM::ListOfGO_var aSubParts;
998 if (theFindMethod == GEOM::FSM_GetInPlaceByHistory)
999 // pass theObject, because only it has the history
1000 aSubParts = RestoreSubShapesOneLevel(theStudy, anArgSO, aSubSO, theObject, theFindMethod);
1002 aSubParts = RestoreSubShapesOneLevel(theStudy, anArgSO, aSubSO, aSubO, theFindMethod);
1003 // add to parts list
1004 addToListOfGO( aSubParts, aParts );
1007 else { // GetInPlace failed, try to build from published parts
1008 if (!CORBA::is_nil(anArgSO)) {
1009 SALOMEDS::SObject_var aSubSO;
1010 if (!CORBA::is_nil(theSObject))
1011 aSubSO = aStudyBuilder->NewObject(theSObject);
1013 // Restore published sub-shapes of the argument
1014 GEOM::ListOfGO_var aSubParts =
1015 RestoreSubShapesOneLevel(theStudy, anArgSO, aSubSO, theObject, theFindMethod);
1017 // add to parts list
1018 addToListOfGO( aSubParts, aParts );
1020 if (aSubParts->length() > 0) {
1021 // try to build an argument from a set of its sub-shapes,
1022 // that published and will be reconstructed
1023 if (aSubParts->length() > 1) {
1024 aSubO = aShapesOp->MakeCompound(aSubParts);
1025 // add to parts list
1026 addToListOfGO( aSubO, aParts );
1029 aSubO = aSubParts[0];
1031 if (!CORBA::is_nil(aSubO) && !CORBA::is_nil(aSubSO)) {
1032 // Publish the sub-shape
1033 TCollection_AsciiString aSubName ("from_parts_of_");
1034 aSubName += anArgName;
1035 aSubSO = PublishInStudy(theStudy, aSubSO, aSubO, aSubName.ToCString());
1037 aSubO->SetColor(anArgO->GetColor());
1040 else if (!CORBA::is_nil(aSubSO)) {
1041 // remove created aSubSO, because no parts have been found
1042 aStudyBuilder->RemoveObject(aSubSO);
1045 } // try to build from published parts
1048 } // process arguments
1050 set<string> anObjEntryMap;
1051 GEOM::ListOfGO_var aResParts = new GEOM::ListOfGO;
1053 int nb = aParts->length();
1054 aResParts->length(nb);
1057 Handle(GEOM_Object) aMainObj = _impl->GetObject(theObject->GetStudyID(), theObject->GetEntry());
1058 Handle(GEOM_Function) aFunction = aMainObj->GetLastFunction();
1059 GEOM::TPythonDump pd (aFunction, true);
1062 for ( ; i < nb; i++ )
1064 GEOM::GEOM_Object_var anObj = GEOM::GEOM_Object::_duplicate( aParts[ i ] );
1065 if (CORBA::is_nil(anObj))
1067 char* anEntry = anObj->GetEntry();
1068 if (anObjEntryMap.count(anEntry))
1069 continue; // already treated
1070 anObjEntryMap.insert(anEntry);
1071 aResParts[nbRes++] = anObj;
1072 // clear python dump of object
1073 Handle(GEOM_Object) aGeomObj = _impl->GetObject(anObj->GetStudyID(), anEntry);
1074 Handle(GEOM_Function) anObjFun = aGeomObj->GetLastFunction();
1075 if ( !anObjFun.IsNull() )
1076 anObjFun->SetDescription( "" );
1082 pd <<"]" << " = geompy.RestoreSubShapes(" << aMainObj << ", " << "[";
1083 i = 0; nb = theArgs.length(); j = 0;
1084 for ( ; i < nb; i++ )
1086 GEOM::GEOM_Object_var anObj = theArgs[ i ];
1087 if (CORBA::is_nil(anObj))
1089 Handle(GEOM_Object) aGeomObj = _impl->GetObject(anObj->GetStudyID(), anObj->GetEntry());
1095 pd <<"]" << ", " <<"geompy.GEOM.";
1096 switch (theFindMethod) {
1097 case GEOM::FSM_GetInPlace:
1098 pd << "FSM_GetInPlace"; break;
1099 case GEOM::FSM_Transformed:
1100 pd << "FSM_Transformed"; break;
1101 case GEOM::FSM_GetSame:
1102 pd << "FSM_GetSame"; break;
1103 case GEOM::FSM_GetShapesOnShape:
1104 pd << "FSM_GetShapesOnShape"; break;
1105 case GEOM::FSM_GetInPlaceByHistory:
1107 pd << "FSM_GetInPlaceByHistory"; break;
1109 pd << ", " << theInheritFirstArg << ")";
1111 aResParts->length(nbRes);
1112 return aResParts._retn();
1115 //============================================================================
1116 // function : RestoreSubShapesOneLevel
1117 // purpose : Private method
1118 //============================================================================
1119 GEOM::ListOfGO* GEOM_Gen_i::RestoreSubShapesOneLevel (SALOMEDS::Study_ptr theStudy,
1120 SALOMEDS::SObject_ptr theOldSO,
1121 SALOMEDS::SObject_ptr theNewSO,
1122 GEOM::GEOM_Object_ptr theNewO,
1123 GEOM::find_shape_method theFindMethod)
1126 GEOM::ListOfGO_var aParts = new GEOM::ListOfGO;
1127 GEOM::ListOfGO_var aNewParts = new GEOM::ListOfGO;
1128 if (CORBA::is_nil(theStudy) || CORBA::is_nil(theOldSO) ||
1129 CORBA::is_nil(theNewO) /*|| CORBA::is_nil(theNewSO)*/)
1130 return aParts._retn();
1132 SALOMEDS::StudyBuilder_var aStudyBuilder = theStudy->NewBuilder();
1134 // Get interface, containing method, which we will use to reconstruct sub-shapes
1135 GEOM::GEOM_IShapesOperations_var aShapesOp = GetIShapesOperations(theStudy->StudyId());
1136 GEOM::GEOM_IGroupOperations_var aGroupOp = GetIGroupOperations(theStudy->StudyId());
1138 // Reconstruct published sub-shapes
1139 SALOMEDS::ChildIterator_var it = theStudy->NewChildIterator(theOldSO);
1142 for (it->Init(); it->More(); it->Next()) {
1145 aParts->length(aLen);
1147 for (it->Init(); it->More(); it->Next()) {
1148 SALOMEDS::SObject_var anOldSubSO = it->Value();
1150 TCollection_AsciiString anArgName = anOldSubSO->GetName();
1152 SALOMEDS::GenericAttribute_var anAttr;
1153 if (anOldSubSO->FindAttribute(anAttr, "AttributeIOR")) {
1154 SALOMEDS::AttributeIOR_var anAttrIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
1155 GEOM::GEOM_Object_var anOldSubO =
1156 GEOM::GEOM_Object::_narrow(_orb->string_to_object(anAttrIOR->Value()));
1157 if (!CORBA::is_nil(anOldSubO)) {
1158 // Find a sub-shape of theNewO in place of anOldSubO
1159 GEOM::GEOM_Object_var aNewSubO;
1160 switch (theFindMethod) {
1161 case GEOM::FSM_GetInPlace:
1164 aNewSubO = aShapesOp->GetInPlace(theNewO, anOldSubO);
1167 case GEOM::FSM_Transformed:
1169 // transformation, cannot use GetInPlace, operate with indices
1170 GEOM::ListOfLong_var anIDs = anOldSubO->GetSubShapeIndices();
1171 if (anIDs->length() > 1) {
1173 aNewSubO = aGroupOp->CreateGroup(theNewO, aGroupOp->GetType(anOldSubO));
1174 if (!CORBA::is_nil(aNewSubO))
1175 aGroupOp->UnionIDs(aNewSubO, anIDs);
1179 aNewSubO = aShapesOp->GetSubShape(theNewO, anIDs[0]);
1183 case GEOM::FSM_GetSame:
1186 aNewSubO = aShapesOp->GetSame(theNewO, anOldSubO);
1189 case GEOM::FSM_GetShapesOnShape:
1191 // Use GetShapesOnShape. Can work only on solids, so it has sense to search only solids
1192 aNewSubO = aShapesOp->GetShapesOnShapeAsCompound(anOldSubO, theNewO,
1193 (short)GEOM::SOLID, GEOM::ST_ONIN);
1196 case GEOM::FSM_GetInPlaceByHistory:
1198 // Use GetInPlaceByHistory
1199 aNewSubO = aShapesOp->GetInPlaceByHistory(theNewO, anOldSubO);
1206 if (!CORBA::is_nil(aNewSubO)) {
1207 // add the part to the list
1208 aParts[i] = aNewSubO;
1210 // add to parts list
1211 addToListOfGO( aNewSubO, aNewParts );
1213 SALOMEDS::SObject_var aNewSubSO;
1214 if (!CORBA::is_nil(theNewSO)) {
1215 // Publish the sub-shape
1216 TCollection_AsciiString aSubName ("from_");
1217 aSubName += anArgName;
1218 aNewSubSO = aStudyBuilder->NewObject(theNewSO);
1219 aNewSubSO = PublishInStudy(theStudy, aNewSubSO, aNewSubO, aSubName.ToCString());
1221 aNewSubO->SetColor(anOldSubO->GetColor());
1223 // Restore published sub-shapes of the argument
1224 GEOM::ListOfGO_var aSubParts;
1225 if (theFindMethod == GEOM::FSM_GetInPlaceByHistory)
1226 // pass the main shape as Object, because only it has the history
1227 aSubParts = RestoreSubShapesOneLevel(theStudy, anOldSubSO, aNewSubSO, theNewO, theFindMethod);
1229 aSubParts = RestoreSubShapesOneLevel(theStudy, anOldSubSO, aNewSubSO, aNewSubO, theFindMethod);
1230 // add to parts list
1231 addToListOfGO( aSubParts, aNewParts );
1233 else { // GetInPlace failed, try to build from published parts
1234 SALOMEDS::SObject_var aNewSubSO;
1235 if (!CORBA::is_nil(theNewSO))
1236 aNewSubSO = aStudyBuilder->NewObject(theNewSO);
1238 // Restore published sub-shapes of the argument
1239 GEOM::ListOfGO_var aSubParts =
1240 RestoreSubShapesOneLevel(theStudy, anOldSubSO, aNewSubSO, theNewO, theFindMethod);
1241 // add to parts list
1242 addToListOfGO( aSubParts, aNewParts );
1244 if (aSubParts->length() > 0) {
1245 // try to build an object from a set of its sub-shapes,
1246 // that published and will be reconstructed
1247 if (aSubParts->length() > 1) {
1248 aNewSubO = aShapesOp->MakeCompound(aSubParts);
1249 // add to parts list
1250 addToListOfGO( aNewSubO, aNewParts );
1253 aNewSubO = aSubParts[0];
1256 if (!CORBA::is_nil(aNewSubO)) {
1257 // add the part to the list
1258 aSubParts[i] = aNewSubO;
1261 // Publish the sub-shape
1262 if (!CORBA::is_nil(aNewSubSO)) {
1263 TCollection_AsciiString aSubName = "from_parts_of_";
1264 aSubName += anArgName;
1265 aNewSubSO = PublishInStudy(theStudy, aNewSubSO, aNewSubO, aSubName.ToCString());
1267 aNewSubO->SetColor(anOldSubO->GetColor());
1271 else if (!CORBA::is_nil(aNewSubSO)) {
1272 // remove created aSubSO, because no parts have been found
1273 aStudyBuilder->RemoveObject(aNewSubSO);
1275 } // try to build from published parts
1278 } // iterate on published sub-shapes
1281 // add to parts list
1282 addToListOfGO( aNewParts, aParts );
1283 return aParts._retn();
1286 //============================================================================
1287 // function : register()
1288 // purpose : register 'name' in 'name_service'
1289 //============================================================================
1290 void GEOM_Gen_i::register_name(char * name)
1292 GEOM::GEOM_Gen_var g = _this();
1293 name_service->Register(g, name);
1296 //============================================================================
1299 //============================================================================
1300 void GEOM_Gen_i::Undo(CORBA::Long theStudyID)
1302 _impl->Undo(theStudyID);
1305 //============================================================================
1308 //============================================================================
1309 void GEOM_Gen_i::Redo(CORBA::Long theStudyID)
1311 _impl->Redo(theStudyID);
1314 //============================================================================
1315 // function : GetIBasicOperations
1317 //============================================================================
1318 GEOM::GEOM_IBasicOperations_ptr GEOM_Gen_i::GetIBasicOperations(CORBA::Long theStudyID)
1319 throw ( SALOME::SALOME_Exception )
1321 Unexpect aCatch(SALOME_SalomeException);
1322 MESSAGE( "GEOM_Gen_i::GetIBasicOperations" );
1324 GEOM::GEOM_Gen_ptr engine = _this();
1326 //transfer reference on engine
1327 GEOM_IBasicOperations_i* aServant =
1328 new GEOM_IBasicOperations_i(_poa, engine, _impl->GetIBasicOperations(theStudyID));
1330 PortableServer::ObjectId_var id = _poa->activate_object(aServant);
1331 // activate the CORBA servant
1332 GEOM::GEOM_IBasicOperations_var operations = aServant->_this();
1333 return operations._retn();
1336 //============================================================================
1337 // function : GetITransformOperations
1339 //============================================================================
1340 GEOM::GEOM_ITransformOperations_ptr GEOM_Gen_i::GetITransformOperations(CORBA::Long theStudyID)
1341 throw ( SALOME::SALOME_Exception )
1343 Unexpect aCatch(SALOME_SalomeException);
1344 MESSAGE( "GEOM_Gen_i::GetITransformOperations" );
1346 GEOM::GEOM_Gen_ptr engine = _this();
1348 GEOM_ITransformOperations_i* aServant =
1349 new GEOM_ITransformOperations_i(_poa, engine, _impl->GetITransformOperations(theStudyID));
1351 // activate the CORBA servant
1352 GEOM::GEOM_ITransformOperations_var operations = aServant->_this();
1353 return operations._retn();
1356 //============================================================================
1357 // function : GetI3DPrimOperations
1359 //============================================================================
1360 GEOM::GEOM_I3DPrimOperations_ptr GEOM_Gen_i::GetI3DPrimOperations(CORBA::Long theStudyID)
1361 throw ( SALOME::SALOME_Exception )
1363 Unexpect aCatch(SALOME_SalomeException);
1364 MESSAGE( "GEOM_Gen_i::GetI3DPrimOperations" );
1366 GEOM::GEOM_Gen_ptr engine = _this();
1368 GEOM_I3DPrimOperations_i* aServant =
1369 new GEOM_I3DPrimOperations_i(_poa, engine, _impl->GetI3DPrimOperations(theStudyID));
1370 PortableServer::ObjectId_var id = _poa->activate_object(aServant);
1372 // activate the CORBA servant
1373 GEOM::GEOM_I3DPrimOperations_var operations = aServant->_this();
1374 return operations._retn();
1377 //============================================================================
1378 // function : GetIShapesOperations
1380 //============================================================================
1381 GEOM::GEOM_IShapesOperations_ptr GEOM_Gen_i::GetIShapesOperations(CORBA::Long theStudyID)
1382 throw ( SALOME::SALOME_Exception )
1384 Unexpect aCatch(SALOME_SalomeException);
1385 MESSAGE( "GEOM_Gen_i::GetIShapesOperations" );
1387 GEOM::GEOM_Gen_ptr engine = _this();
1389 GEOM_IShapesOperations_i* aServant =
1390 new GEOM_IShapesOperations_i(_poa, engine, _impl->GetIShapesOperations(theStudyID));
1392 // activate the CORBA servant
1393 GEOM::GEOM_IShapesOperations_var operations = aServant->_this();
1394 return operations._retn();
1397 //============================================================================
1398 // function : GetIBlocksOperations
1400 //============================================================================
1401 GEOM::GEOM_IBlocksOperations_ptr GEOM_Gen_i::GetIBlocksOperations(CORBA::Long theStudyID)
1402 throw ( SALOME::SALOME_Exception )
1404 Unexpect aCatch(SALOME_SalomeException);
1405 MESSAGE( "GEOM_Gen_i::GetIBlocksOperations" );
1407 GEOM::GEOM_Gen_ptr engine = _this();
1409 GEOM_IBlocksOperations_i* aServant =
1410 new GEOM_IBlocksOperations_i(_poa, engine, _impl->GetIBlocksOperations(theStudyID));
1412 // activate the CORBA servant
1413 GEOM::GEOM_IBlocksOperations_var operations = aServant->_this();
1414 return operations._retn();
1417 //============================================================================
1418 // function : GetIBooleanOperations
1420 //============================================================================
1421 GEOM::GEOM_IBooleanOperations_ptr GEOM_Gen_i::GetIBooleanOperations(CORBA::Long theStudyID)
1422 throw ( SALOME::SALOME_Exception )
1424 Unexpect aCatch(SALOME_SalomeException);
1425 MESSAGE( "GEOM_Gen_i::GetIBooleanOperations" );
1427 GEOM::GEOM_Gen_ptr engine = _this();
1429 GEOM_IBooleanOperations_i* aServant =
1430 new GEOM_IBooleanOperations_i(_poa, engine, _impl->GetIBooleanOperations(theStudyID));
1432 // activate the CORBA servant
1433 GEOM::GEOM_IBooleanOperations_var operations = aServant->_this();
1434 return operations._retn();
1437 //============================================================================
1438 // function : GetICurvesOperations
1440 //============================================================================
1441 GEOM::GEOM_ICurvesOperations_ptr GEOM_Gen_i::GetICurvesOperations(CORBA::Long theStudyID)
1442 throw ( SALOME::SALOME_Exception )
1444 Unexpect aCatch(SALOME_SalomeException);
1445 MESSAGE( "GEOM_Gen_i::GetICurvesOperations" );
1447 GEOM::GEOM_Gen_ptr engine = _this();
1449 GEOM_ICurvesOperations_i* aServant =
1450 new GEOM_ICurvesOperations_i(_poa, engine, _impl->GetICurvesOperations(theStudyID));
1452 // activate the CORBA servant
1453 GEOM::GEOM_ICurvesOperations_var operations = aServant->_this();
1454 return operations._retn();
1457 //============================================================================
1458 // function : GetILocalOperations
1460 //============================================================================
1461 GEOM::GEOM_ILocalOperations_ptr GEOM_Gen_i::GetILocalOperations(CORBA::Long theStudyID)
1462 throw ( SALOME::SALOME_Exception )
1464 Unexpect aCatch(SALOME_SalomeException);
1465 MESSAGE( "GEOM_Gen_i::GetILocalOperations" );
1467 GEOM::GEOM_Gen_ptr engine = _this();
1469 GEOM_ILocalOperations_i* aServant =
1470 new GEOM_ILocalOperations_i(_poa, engine, _impl->GetILocalOperations(theStudyID));
1472 // activate the CORBA servant
1473 GEOM::GEOM_ILocalOperations_var operations = aServant->_this();
1474 return operations._retn();
1477 //============================================================================
1478 // function : GetIHealingOperations
1480 //============================================================================
1481 GEOM::GEOM_IHealingOperations_ptr GEOM_Gen_i::GetIHealingOperations(CORBA::Long theStudyID)
1482 throw ( SALOME::SALOME_Exception )
1484 Unexpect aCatch(SALOME_SalomeException);
1485 MESSAGE( "GEOM_Gen_i::IHealingOperations" );
1487 GEOM::GEOM_Gen_ptr engine = _this();
1489 GEOM_IHealingOperations_i* aServant =
1490 new GEOM_IHealingOperations_i(_poa, engine, _impl->GetIHealingOperations(theStudyID));
1492 // activate the CORBA servant
1493 GEOM::GEOM_IHealingOperations_var operations = aServant->_this();
1494 return operations._retn();
1497 //============================================================================
1498 // function : GetIInsertOperations
1500 //============================================================================
1501 GEOM::GEOM_IInsertOperations_ptr GEOM_Gen_i::GetIInsertOperations(CORBA::Long theStudyID)
1502 throw ( SALOME::SALOME_Exception )
1504 Unexpect aCatch(SALOME_SalomeException);
1505 MESSAGE( "GEOM_Gen_i::GetIInsertOperations" );
1507 GEOM::GEOM_Gen_ptr engine = _this();
1509 GEOM_IInsertOperations_i* aServant =
1510 new GEOM_IInsertOperations_i(_poa, engine, _impl->GetIInsertOperations(theStudyID));
1512 // activate the CORBA servant
1513 GEOM::GEOM_IInsertOperations_var operations = aServant->_this();
1514 return operations._retn();
1517 //============================================================================
1518 // function : GetIMeasureOperations
1520 //============================================================================
1521 GEOM::GEOM_IMeasureOperations_ptr GEOM_Gen_i::GetIMeasureOperations(CORBA::Long theStudyID)
1522 throw ( SALOME::SALOME_Exception )
1524 Unexpect aCatch(SALOME_SalomeException);
1525 MESSAGE( "GEOM_Gen_i::GetIMeasureOperations" );
1527 GEOM::GEOM_Gen_ptr engine = _this();
1529 GEOM_IMeasureOperations_i* aServant =
1530 new GEOM_IMeasureOperations_i(_poa, engine, _impl->GetIMeasureOperations(theStudyID));
1532 // activate the CORBA servant
1533 GEOM::GEOM_IMeasureOperations_var operations = aServant->_this();
1534 return operations._retn();
1537 //============================================================================
1538 // function : GetIGroupOperations
1540 //============================================================================
1541 GEOM::GEOM_IGroupOperations_ptr GEOM_Gen_i::GetIGroupOperations(CORBA::Long theStudyID)
1542 throw ( SALOME::SALOME_Exception )
1544 Unexpect aCatch(SALOME_SalomeException);
1545 MESSAGE( "GEOM_Gen_i::GetIGroupOperations" );
1547 GEOM::GEOM_Gen_ptr engine = _this();
1549 GEOM_IGroupOperations_i* aServant =
1550 new GEOM_IGroupOperations_i(_poa, engine, _impl->GetIGroupOperations(theStudyID));
1552 // activate the CORBA servant
1553 GEOM::GEOM_IGroupOperations_var operations = aServant->_this();
1554 return operations._retn();
1557 //============================================================================
1558 // function : GetIAdvancedOperations
1560 //============================================================================
1561 GEOM::GEOM_IAdvancedOperations_ptr GEOM_Gen_i::GetIAdvancedOperations(CORBA::Long theStudyID)
1562 throw ( SALOME::SALOME_Exception )
1564 Unexpect aCatch(SALOME_SalomeException);
1565 MESSAGE( "GEOM_Gen_i::GetIAdvancedOperations" );
1567 GEOM::GEOM_Gen_ptr engine = _this();
1569 GEOM_IAdvancedOperations_i* aServant =
1570 new GEOM_IAdvancedOperations_i(_poa, engine, _impl->GetIAdvancedOperations(theStudyID));
1572 // activate the CORBA servant
1573 GEOM::GEOM_IAdvancedOperations_var operations = aServant->_this();
1574 return operations._retn();
1577 //=============================================================================
1581 //=============================================================================
1582 GEOM::GEOM_Object_ptr GEOM_Gen_i::AddSubShape (GEOM::GEOM_Object_ptr theMainShape,
1583 const GEOM::ListOfLong& theIndices)
1585 if (CORBA::is_nil(theMainShape) || theIndices.length() < 1)
1586 return GEOM::GEOM_Object::_nil();
1587 CORBA::String_var entry = theMainShape->GetEntry();
1588 Handle(GEOM_Object) aMainsShape = _impl->GetObject(theMainShape->GetStudyID(), entry);
1589 if (aMainsShape.IsNull()) return GEOM::GEOM_Object::_nil();
1591 Handle(TColStd_HArray1OfInteger) anArray = new TColStd_HArray1OfInteger(1, theIndices.length());
1592 for(Standard_Integer i = 0; i<theIndices.length(); i++) anArray->SetValue(i+1, theIndices[i]);
1594 Handle(GEOM_Object) anObject = _impl->AddSubShape(aMainsShape, anArray, true);
1595 if(anObject.IsNull()) return GEOM::GEOM_Object::_nil();
1597 TCollection_AsciiString anEntry;
1598 TDF_Tool::Entry(anObject->GetEntry(), anEntry);
1599 return GetObject(anObject->GetDocID(), anEntry.ToCString());
1602 //=============================================================================
1606 //=============================================================================
1607 void GEOM_Gen_i::RemoveObject(GEOM::GEOM_Object_ptr theObject)
1609 CORBA::String_var anEntry = theObject->GetEntry();
1610 Handle(GEOM_Object) anObject = _impl->GetObject(theObject->GetStudyID(), anEntry, false);
1611 if (anObject.IsNull()) return;
1612 _impl->RemoveObject(anObject);
1617 //=================================================================================
1618 // function : GetStringFromIOR()
1619 // purpose : returns a string that represents a 'GEOM::GEOM_Object_var'
1620 //=================================================================================
1621 char* GEOM_Gen_i::GetStringFromIOR(GEOM::GEOM_Object_ptr theObject) {
1622 return _orb->object_to_string(theObject);
1626 //=================================================================================
1627 // function : GetIORFromString()
1628 // purpose : returns a 'GEOM::GEOM_Object_var' from a string representing it
1629 //=================================================================================
1630 GEOM::GEOM_Object_ptr GEOM_Gen_i::GetIORFromString(const char* stringIOR) {
1631 GEOM::GEOM_Object_var aGeomObject;
1632 if(strcmp(stringIOR,"") != 0){
1633 CORBA::Object_var anObject = _orb->string_to_object(stringIOR);
1634 if(!CORBA::is_nil(anObject))
1635 aGeomObject = GEOM::GEOM_Object::_narrow(anObject.in());
1637 return aGeomObject._retn();
1640 //=================================================================================
1641 // function : GetObject()
1643 //=================================================================================
1644 GEOM::GEOM_Object_ptr GEOM_Gen_i::GetObject (CORBA::Long theStudyID, const char* theEntry)
1646 GEOM::GEOM_Object_var obj;
1647 Handle(GEOM_Object) handle_object = _impl->GetObject(theStudyID, (char*)theEntry);
1648 if (handle_object.IsNull()) return obj._retn();
1650 TCollection_AsciiString stringIOR = handle_object->GetIOR();
1651 if (stringIOR.Length() > 1) {
1652 CORBA::Object_var corba_object = _orb->string_to_object(stringIOR.ToCString());
1653 if (!CORBA::is_nil(corba_object)) obj = GEOM::GEOM_Object::_narrow(corba_object);
1657 GEOM::GEOM_Gen_ptr engine = _this();
1658 //transfer the reference to GEOM_Object_i
1659 GEOM_Object_i* servant = new GEOM_Object_i (_poa, engine, handle_object);
1660 PortableServer::ObjectId_var id = _poa->activate_object(servant);
1662 obj = servant->_this();
1663 CORBA::String_var objStr = _orb->object_to_string(obj);
1664 TCollection_AsciiString anAscii( (char *)objStr.in() );
1665 handle_object->SetIOR( anAscii );
1669 //=================================================================================
1670 // function : hasObjectInfo()
1671 // purpose : shows if module provides information for its objects
1672 //=================================================================================
1673 bool GEOM_Gen_i::hasObjectInfo()
1678 //=================================================================================
1679 // function : getObjectInfo()
1680 // purpose : returns an information for a given object by its entry
1681 //=================================================================================
1682 char* GEOM_Gen_i::getObjectInfo(CORBA::Long studyId, const char* entry)
1684 GEOM::GEOM_Object_var aGeomObject;
1686 CORBA::Object_var aSMObject = name_service->Resolve( "/myStudyManager" );
1687 SALOMEDS::StudyManager_var aStudyManager = SALOMEDS::StudyManager::_narrow( aSMObject );
1688 SALOMEDS::Study_var aStudy = aStudyManager->GetStudyByID( studyId );
1689 SALOMEDS::SObject_var aSObj = aStudy->FindObjectID( entry );
1690 SALOMEDS::SObject_var aResultSObj;
1691 if (aSObj->ReferencedObject(aResultSObj))
1692 aSObj = aResultSObj;
1694 SALOMEDS::GenericAttribute_var anAttr;
1695 if (!aSObj->_is_nil() && aSObj->FindAttribute(anAttr, "AttributeIOR")) {
1696 SALOMEDS::AttributeIOR_var anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
1697 CORBA::String_var aVal = anIOR->Value();
1699 CORBA::Object_var anObject = aStudy->ConvertIORToObject(aVal);
1700 aGeomObject = GEOM::GEOM_Object::_narrow(anObject);
1702 if (!aSObj->_is_nil() )
1705 const char* aTypeInfo = "Object";
1706 if ( !aGeomObject->_is_nil() ) {
1707 GEOM::GEOM_IKindOfShape::shape_kind aKind;
1708 GEOM::ListOfLong_var anInts;
1709 GEOM::ListOfDouble_var aDbls;
1711 GEOM::GEOM_IMeasureOperations_var anOp = GetIMeasureOperations( studyId );
1712 aKind = anOp->KindOfShape( aGeomObject, anInts, aDbls );
1714 if ( anOp->IsDone() ) {
1716 case GEOM::GEOM_IKindOfShape::COMPOUND:
1717 aTypeInfo = "Compound";
1719 case GEOM::GEOM_IKindOfShape::COMPSOLID:
1720 aTypeInfo = "CompSolid";
1722 case GEOM::GEOM_IKindOfShape::SHELL:
1723 aTypeInfo = "Shell";
1725 case GEOM::GEOM_IKindOfShape::WIRE:
1726 if ( anInts[0] == 1 )
1727 aTypeInfo = "Closed Wire";
1728 else if ( anInts[0] == 2 )
1729 aTypeInfo = "Opened Wire";
1734 case GEOM::GEOM_IKindOfShape::SPHERE:
1735 aTypeInfo = "Sphere";
1737 case GEOM::GEOM_IKindOfShape::CYLINDER:
1738 aTypeInfo = "Cylinder";
1740 case GEOM::GEOM_IKindOfShape::BOX:
1741 case GEOM::GEOM_IKindOfShape::ROTATED_BOX:
1744 case GEOM::GEOM_IKindOfShape::TORUS:
1745 aTypeInfo = "Torus";
1747 case GEOM::GEOM_IKindOfShape::CONE:
1750 case GEOM::GEOM_IKindOfShape::POLYHEDRON:
1751 aTypeInfo = "Polyhedron";
1753 case GEOM::GEOM_IKindOfShape::SOLID:
1754 aTypeInfo = "Solid";
1757 case GEOM::GEOM_IKindOfShape::SPHERE2D:
1758 aTypeInfo = "Spherical Face";
1760 case GEOM::GEOM_IKindOfShape::CYLINDER2D:
1761 aTypeInfo = "Cylindrical Face";
1763 case GEOM::GEOM_IKindOfShape::TORUS2D:
1764 aTypeInfo = "Toroidal Face";
1766 case GEOM::GEOM_IKindOfShape::CONE2D:
1767 aTypeInfo = "Conical Face";
1769 case GEOM::GEOM_IKindOfShape::DISK_CIRCLE:
1772 case GEOM::GEOM_IKindOfShape::DISK_ELLIPSE:
1773 aTypeInfo = "Elliptical Face";
1775 case GEOM::GEOM_IKindOfShape::POLYGON:
1776 aTypeInfo = "Polygon";
1778 case GEOM::GEOM_IKindOfShape::PLANE:
1779 aTypeInfo = "Plane";
1781 case GEOM::GEOM_IKindOfShape::PLANAR:
1782 aTypeInfo = "Planar Face";
1784 case GEOM::GEOM_IKindOfShape::FACE:
1788 case GEOM::GEOM_IKindOfShape::CIRCLE:
1789 aTypeInfo = "Circle";
1791 case GEOM::GEOM_IKindOfShape::ARC_CIRCLE:
1794 case GEOM::GEOM_IKindOfShape::ELLIPSE:
1795 aTypeInfo = "Ellipse";
1797 case GEOM::GEOM_IKindOfShape::ARC_ELLIPSE:
1798 aTypeInfo = "Arc Ellipse";
1800 case GEOM::GEOM_IKindOfShape::LINE:
1803 case GEOM::GEOM_IKindOfShape::SEGMENT:
1804 aTypeInfo = "Segment";
1806 case GEOM::GEOM_IKindOfShape::EDGE:
1809 case GEOM::GEOM_IKindOfShape::VERTEX:
1810 aTypeInfo = "Vertex";
1818 char* anInfo = new char[strlen("Module ") + strlen(ComponentDataType()) + strlen(", ") + strlen(aTypeInfo) + 3];
1819 sprintf(anInfo, "Module %s, %s", ComponentDataType(), aTypeInfo);
1821 char* ret = CORBA::string_dup(anInfo);
1826 //=====================================================================================
1828 //=====================================================================================
1833 PortableServer::ObjectId* GEOMEngine_factory(CORBA::ORB*, PortableServer::POA*, PortableServer::ObjectId*, const char*, const char*);
1837 PortableServer::ObjectId* GEOMEngine_factory(CORBA::ORB_ptr orb,
1838 PortableServer::POA_ptr poa,
1839 PortableServer::ObjectId* contId,
1840 const char* instanceName,
1841 const char* interfaceName)
1843 GEOM_Gen_i* myGEOM_Gen_i = new GEOM_Gen_i(orb, poa, contId, instanceName, interfaceName);
1844 return myGEOM_Gen_i->getId();