0028643: Coding rules - eliminate GCC compiler warnings -Wmisleading-indentation
[occt.git] / src / IFSelect / IFSelect_WorkSession.cxx
CommitLineData
973c2be1 1// Copyright (c) 1999-2014 OPEN CASCADE SAS
b311480e 2//
973c2be1 3// This file is part of Open CASCADE Technology software library.
b311480e 4//
d5f74e42 5// This library is free software; you can redistribute it and/or modify it under
6// the terms of the GNU Lesser General Public License version 2.1 as published
973c2be1 7// by the Free Software Foundation, with special exception defined in the file
8// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
9// distribution for complete text of the license and disclaimer of any warranty.
b311480e 10//
973c2be1 11// Alternatively, this file may be used under the terms of Open CASCADE
12// commercial license or contractual agreement.
b311480e 13
7fd59977 14//#1 svv 10.01.00 : porting on DEC
15//smh#14 17.03.2000 : FRA62479 Clearing of gtool
7fd59977 16
42cf5bc1 17#include <IFGraph_SubPartsIterator.hxx>
18#include <IFSelect_CheckCounter.hxx>
19#include <IFSelect_Dispatch.hxx>
20#include <IFSelect_DispGlobal.hxx>
21#include <IFSelect_DispPerCount.hxx>
22#include <IFSelect_DispPerOne.hxx>
23#include <IFSelect_EditForm.hxx>
24#include <IFSelect_Editor.hxx>
25#include <IFSelect_GeneralModifier.hxx>
26#include <IFSelect_IntParam.hxx>
27#include <IFSelect_ModelCopier.hxx>
28#include <IFSelect_Modifier.hxx>
29#include <IFSelect_PacketList.hxx>
30#include <IFSelect_ParamEditor.hxx>
31#include <IFSelect_SelectCombine.hxx>
32#include <IFSelect_SelectControl.hxx>
7fd59977 33#include <IFSelect_SelectDeduct.hxx>
42cf5bc1 34#include <IFSelect_SelectDiff.hxx>
35#include <IFSelect_SelectEntityNumber.hxx>
7fd59977 36#include <IFSelect_SelectExtract.hxx>
42cf5bc1 37#include <IFSelect_SelectIntersection.hxx>
38#include <IFSelect_Selection.hxx>
39#include <IFSelect_SelectionIterator.hxx>
7fd59977 40#include <IFSelect_SelectModelEntities.hxx>
42cf5bc1 41#include <IFSelect_SelectModelRoots.hxx>
7fd59977 42#include <IFSelect_SelectPointed.hxx>
7fd59977 43#include <IFSelect_SelectSignature.hxx>
42cf5bc1 44#include <IFSelect_SelectUnion.hxx>
45#include <IFSelect_ShareOut.hxx>
46#include <IFSelect_ShareOutResult.hxx>
47#include <IFSelect_Signature.hxx>
48#include <IFSelect_SignatureList.hxx>
49#include <IFSelect_SignCounter.hxx>
50#include <IFSelect_SignValidity.hxx>
51#include <IFSelect_Transformer.hxx>
7fd59977 52#include <IFSelect_TransformStandard.hxx>
42cf5bc1 53#include <IFSelect_WorkLibrary.hxx>
54#include <IFSelect_WorkSession.hxx>
55#include <Interface_Category.hxx>
56#include <Interface_Check.hxx>
57#include <Interface_CheckIterator.hxx>
58#include <Interface_CheckTool.hxx>
59#include <Interface_CopyControl.hxx>
60#include <Interface_CopyTool.hxx>
61#include <Interface_EntityIterator.hxx>
62#include <Interface_GeneralLib.hxx>
63#include <Interface_GeneralModule.hxx>
64#include <Interface_Graph.hxx>
65#include <Interface_GTool.hxx>
66#include <Interface_HGraph.hxx>
67#include <Interface_InterfaceModel.hxx>
7fd59977 68#include <Interface_Macros.hxx>
69#include <Interface_MSG.hxx>
42cf5bc1 70#include <Interface_Protocol.hxx>
71#include <Interface_ReportEntity.hxx>
72#include <Interface_ShareFlags.hxx>
73#include <Interface_ShareTool.hxx>
74#include <Interface_Static.hxx>
7fd59977 75#include <Message.hxx>
42cf5bc1 76#include <Message_Messenger.hxx>
77#include <OSD_Path.hxx>
78#include <Standard_DomainError.hxx>
79#include <Standard_ErrorHandler.hxx>
7fd59977 80#include <Standard_Failure.hxx>
42cf5bc1 81#include <Standard_Transient.hxx>
82#include <Standard_Type.hxx>
83#include <TCollection_AsciiString.hxx>
ec357c5c 84#include <TCollection_HAsciiString.hxx>
42cf5bc1 85#include <TColStd_MapOfInteger.hxx>
7fd59977 86
92efcf78 87IMPLEMENT_STANDARD_RTTIEXT(IFSelect_WorkSession,MMgt_TShared)
88
7fd59977 89#define Flag_Incorrect 2
90// (Bit Map n0 2)
91
92
93static Standard_Boolean errhand; // pb : un seul a la fois, mais ca va si vite
94static TCollection_AsciiString bufstr;
95
96
97// #################################################################
98
99
100//=======================================================================
101//function :
102//purpose :
103//=======================================================================
104
105IFSelect_WorkSession::IFSelect_WorkSession ()
106{
107 theshareout = new IFSelect_ShareOut;
108 theerrhand = errhand = Standard_True;
7fd59977 109 thecopier = new IFSelect_ModelCopier;
110 thecopier->SetShareOut (theshareout);
111 thecheckdone = Standard_False;
112 thegtool = new Interface_GTool;
bc650d41 113 themodelstat = Standard_False;
7fd59977 114}
115
7fd59977 116//=======================================================================
117//function :
118//purpose :
119//=======================================================================
120
7f56eba8 121void IFSelect_WorkSession::SetErrorHandle (const Standard_Boolean toHandle)
7fd59977 122{
7f56eba8 123 theerrhand = errhand = toHandle;
7fd59977 124}
7f56eba8 125
7fd59977 126
127//=======================================================================
128//function :
129//purpose :
130//=======================================================================
131
132void IFSelect_WorkSession::SetProtocol
133 (const Handle(Interface_Protocol)& protocol)
134{
135 theprotocol = protocol;
136 Interface_Protocol::SetActive(protocol);
137 thegtool->SetProtocol (protocol);
138}
139
140
141//=======================================================================
142//function :
143//purpose :
144//=======================================================================
145
7f56eba8 146void IFSelect_WorkSession::SetSignType (const Handle(IFSelect_Signature)& signtype)
7fd59977 147{
148 thegtool->SetSignType (signtype);
997e128f 149 if (signtype.IsNull()) thenames.UnBind("xst-sign-type");
150 else thenames.Bind("xst-sign-type",signtype);
7fd59977 151}
152
153
154//=======================================================================
155//function :
156//purpose :
157//=======================================================================
158
159Handle(IFSelect_Signature) IFSelect_WorkSession::SignType () const
160{
161 return Handle(IFSelect_Signature)::DownCast (thegtool->SignType());
162}
163
164
165//=======================================================================
166//function :
167//purpose :
168//=======================================================================
169
170void IFSelect_WorkSession::SetShareOut
171 (const Handle(IFSelect_ShareOut)& shareout)
172{
173 theshareout = shareout;
174 thecopier->SetShareOut (theshareout);
175// ... faudrait ajouter les Params, Dispatches, etc...
176}
177
178
179//=======================================================================
180//function :
181//purpose :
182//=======================================================================
183
7fd59977 184void IFSelect_WorkSession::SetModel
185 (const Handle(Interface_InterfaceModel)& model,
186 const Standard_Boolean clearpointed)
187{
7f56eba8 188 if (myModel != model)
7fd59977 189 theloaded.Clear();
7f56eba8 190 myModel = model;
7fd59977 191 if (!thegtool.IsNull()) thegtool->ClearEntities(); //smh#14 FRA62479
7f56eba8 192 myModel->SetGTool (thegtool);
bc650d41 193
7fd59977 194 thegraph.Nullify();
195 ComputeGraph(); // fait qqchose si Protocol present. Sinon, ne fait rien
196 ClearData(3); // RAZ CheckList, a refaire
197 thecheckrun.Clear();
198
199// MISE A JOUR des SelectPointed C-A-D on efface leur contenu
200 if (clearpointed) ClearData(4);
201 ClearData(0);
202}
203
204
205//=======================================================================
206//function :
207//purpose :
208//=======================================================================
7fd59977 209
210IFSelect_ReturnStatus IFSelect_WorkSession::ReadFile
211 (const Standard_CString filename)
212{
213 if (thelibrary.IsNull()) return IFSelect_RetVoid;
214 if (theprotocol.IsNull()) return IFSelect_RetVoid;
215 Handle(Interface_InterfaceModel) model;
216 IFSelect_ReturnStatus status = IFSelect_RetVoid;
217 try {
218 OCC_CATCH_SIGNALS
219 Standard_Integer stat = thelibrary->ReadFile (filename,model,theprotocol);
220 if (stat == 0) status = IFSelect_RetDone;
221 else if (stat < 0) status = IFSelect_RetError;
222 else status = IFSelect_RetFail;
223 }
9775fa61 224 catch(Standard_Failure const& anException) {
7fd59977 225 Handle(Message_Messenger) sout = Message::DefaultMessenger();
226 sout<<" **** Interruption ReadFile par Exception : ****\n";
9775fa61 227 sout << anException.GetMessageString();
7fd59977 228 sout<<"\n Abandon"<<endl;
229 status = IFSelect_RetFail;
230 }
231 if (status != IFSelect_RetDone) return status;
232 if (model.IsNull()) return IFSelect_RetVoid;
233 SetModel (model);
234 SetLoadedFile (filename);
235 return status;
236}
237
238
239//=======================================================================
240//function :
241//purpose :
242//=======================================================================
243
244Standard_Integer IFSelect_WorkSession::NbStartingEntities () const
245{
7f56eba8 246 return (myModel.IsNull()? 0 : myModel->NbEntities());
7fd59977 247}
248
249
250//=======================================================================
251//function :
252//purpose :
253//=======================================================================
254
7f56eba8 255Handle(Standard_Transient) IFSelect_WorkSession::StartingEntity (const Standard_Integer num) const
7fd59977 256{
257 Handle(Standard_Transient) res; // Null par defaut
7f56eba8 258 if (myModel.IsNull()) return res;
259 if (num < 1 || num > myModel->NbEntities()) return res;
260 return myModel->Value(num);
7fd59977 261}
262
263
264//=======================================================================
265//function :
266//purpose :
267//=======================================================================
268
7f56eba8 269Standard_Integer IFSelect_WorkSession::StartingNumber (const Handle(Standard_Transient)& ent) const
7fd59977 270{
7f56eba8 271 return (myModel.IsNull()? 0 : myModel->Number(ent));
7fd59977 272}
273
274
275//=======================================================================
276//function :
277//purpose :
278//=======================================================================
279
280Standard_Integer IFSelect_WorkSession::NumberFromLabel
281 (const Standard_CString val, const Standard_Integer afternum) const
282{
283 Standard_Integer i, cnt = 0, num = atoi(val);
7f56eba8 284 if (num > 0 || myModel.IsNull()) return num; // un n0 direct : gagne !
7fd59977 285// Sinon, on considere que c est un label; a traiter en CaseNonSensitive ...
7f56eba8 286 if (num > myModel->NbEntities()) { num = 0; return num; }
7fd59977 287 Standard_Boolean exact = Standard_False;
288 Standard_Integer after = (afternum >= 0 ? afternum : -afternum);
7f56eba8 289 for (i = myModel->NextNumberForLabel (val, after, exact) ; i != 0;
290 i = myModel->NextNumberForLabel (val, i, exact)) {
7fd59977 291 cnt ++;
292 if (num <= 0) num = i;
293 }
294 if (cnt == 1) return num;
295 num = -num;
bc650d41 296
7fd59977 297 return num;
298}
299
300
301//=======================================================================
302//function :
303//purpose :
304//=======================================================================
305
7f56eba8 306Handle(TCollection_HAsciiString) IFSelect_WorkSession::EntityLabel (const Handle(Standard_Transient)& ent) const
7fd59977 307{
7f56eba8 308 if (myModel.IsNull() || ent.IsNull()) return 0;
309 if (!myModel->Contains(ent)) return 0;
310 return myModel->StringLabel(ent);
7fd59977 311}
312
313
314//=======================================================================
315//function :
316//purpose :
317//=======================================================================
318
7f56eba8 319Handle(TCollection_HAsciiString) IFSelect_WorkSession::EntityName (const Handle(Standard_Transient)& ent) const
7fd59977 320{
7f56eba8 321 if (myModel.IsNull() || ent.IsNull()) return 0;
7fd59977 322 Interface_ShareTool sht(thegraph->Graph());
323
324 Standard_Integer CN;
325 Handle(Interface_GeneralModule) module;
326 if (!thegtool->Select (ent,module,CN)) return 0;
327 return module->Name (CN,ent,sht);
328}
329
330
331//=======================================================================
332//function :
333//purpose :
334//=======================================================================
335
7f56eba8 336Standard_Integer IFSelect_WorkSession::CategoryNumber (const Handle(Standard_Transient)& ent) const
7fd59977 337{
7f56eba8 338 return (myModel.IsNull()? -1 : myModel->CategoryNumber(StartingNumber(ent)));
7fd59977 339}
340
341
342//=======================================================================
343//function :
344//purpose :
345//=======================================================================
346
7f56eba8 347Standard_CString IFSelect_WorkSession::CategoryName (const Handle(Standard_Transient)& ent) const
7fd59977 348{
7f56eba8 349 return Interface_Category::Name (CategoryNumber (ent));
7fd59977 350}
351
352
353//=======================================================================
354//function :
355//purpose :
356//=======================================================================
357
7f56eba8 358Standard_CString IFSelect_WorkSession::ValidityName (const Handle(Standard_Transient)& ent) const
7fd59977 359{
7f56eba8 360 return ((StartingNumber(ent) == 0)? "" : IFSelect_SignValidity::CVal (ent,myModel));
7fd59977 361}
362
363
364//=======================================================================
365//function :
366//purpose :
367//=======================================================================
368
369void IFSelect_WorkSession::ClearData (const Standard_Integer mode)
370{
371 switch (mode) {
372 case 1 : {
373 theloaded.Clear();
7f56eba8 374 if (!myModel.IsNull()) {
375 myModel->Clear();
376 myModel.Nullify();
377 }
7fd59977 378 ClearData(2); ClearData(4);
379 thecheckrun.Clear();
380 break;
381 }
382 case 2 : { thegraph.Nullify(); thecheckdone = Standard_False; thecheckana.Clear(); break; }
383 case 3 : { thecheckdone = Standard_False; break; }
384 case 4 : {
385// MISE A JOUR des SelectPointed C-A-D on efface leur contenu
386// AINSI que des editeurs (en fait, les EditForm)
387// Des compteurs C-A-D on efface leur contenu (a reevaluer)
388 Handle(TColStd_HSequenceOfInteger) list =
389 ItemIdents(STANDARD_TYPE(IFSelect_SelectPointed));
390 Standard_Integer nb = list->Length();
391 Standard_Integer i; // svv #1
392 for (i = 1; i <= nb; i ++) {
393 DeclareAndCast(IFSelect_SelectPointed,sp,Item(list->Value(i)));
394 if (!sp.IsNull()) sp->Clear();
395 }
396 list = ItemIdents(STANDARD_TYPE(IFSelect_SignatureList));
397 nb = list->Length();
398 for (i = 1; i <= nb; i ++) {
399 DeclareAndCast(IFSelect_SignatureList,sl,Item(list->Value(i)));
400 if (!sl.IsNull()) sl->Clear();
401 DeclareAndCast(IFSelect_SignCounter,sc,sl);
402 if (!sc.IsNull()) sc->SetSelMode(-1);
403 }
404 list = ItemIdents(STANDARD_TYPE(IFSelect_EditForm));
405 nb = list->Length();
406 Handle(Standard_Transient) nulent;
407 for (i = 1; i <= nb; i ++) {
408 DeclareAndCast(IFSelect_EditForm,edf,Item(list->Value(i)));
409 edf->ClearData ();
410 }
411 theitems.Clear();
412 break;
413 }
414 default : break;
415 }
416}
417
418
419//=======================================================================
420//function :
421//purpose :
422//=======================================================================
423
424Standard_Boolean IFSelect_WorkSession::ComputeGraph
425 (const Standard_Boolean enforce)
426{
427 if (theprotocol.IsNull()) return Standard_False;
7f56eba8 428 if (myModel.IsNull()) return Standard_False;
7fd59977 429 if (enforce) thegraph.Nullify();
430 if (!thegraph.IsNull()) {
7f56eba8 431 if (myModel->NbEntities() == thegraph->Graph().Size()) return Standard_True;
7fd59977 432 thegraph.Nullify();
433 }
7f56eba8 434 if (myModel->NbEntities() == 0) return Standard_False;
7fd59977 435 // Il faut calculer le graphe pour de bon
7f56eba8 436 thegraph = new Interface_HGraph (myModel,themodelstat);
437 Standard_Integer nb = myModel->NbEntities();
bc650d41
G
438 if(themodelstat)
439 {
440 Standard_Integer i; // svv #1
441 for (i = 1; i <= nb; i ++) thegraph->CGraph().SetStatus(i,0);
442 Interface_BitMap& bm = thegraph->CGraph().CBitMap();
443 bm.AddFlag();
444 bm.SetFlagName (Flag_Incorrect,"Incorrect");
445 }
7fd59977 446 ComputeCheck();
447 thecheckdone = Standard_True;
bc650d41
G
448 if(themodelstat)
449 {
450 // Calcul des categories, a present memorisees dans le modele
451 Interface_Category categ(thegtool);
452 Interface_ShareTool sht(thegraph);
453 Standard_Integer i =1;
7f56eba8 454 for ( ; i <= nb; i ++)
455 myModel->SetCategoryNumber(i,categ.CatNum(myModel->Value(i),sht));
bc650d41 456 }
7fd59977 457
458 return Standard_True;
459}
460
461
462//=======================================================================
463//function :
464//purpose :
465//=======================================================================
466
467Handle(Interface_HGraph) IFSelect_WorkSession::HGraph ()
468{
469 ComputeGraph();
470 return thegraph;
471}
472
473
474//=======================================================================
475//function :
476//purpose :
477//=======================================================================
478
479const Interface_Graph& IFSelect_WorkSession::Graph ()
480{
481 ComputeGraph();
9775fa61 482 if (thegraph.IsNull()) throw Standard_DomainError("IFSelect WorkSession : Graph not available");
7fd59977 483 return thegraph->Graph();
484}
485
486
487//=======================================================================
488//function :
489//purpose :
490//=======================================================================
491
492Handle(TColStd_HSequenceOfTransient) IFSelect_WorkSession::Shareds
493 (const Handle(Standard_Transient)& ent)
494{
495 Handle(TColStd_HSequenceOfTransient) list;
496 if (!ComputeGraph()) return list;
497 if (StartingNumber(ent) == 0) return list;
498 return thegraph->Graph().Shareds(ent).Content();
499}
500
501
502//=======================================================================
503//function :
504//purpose :
505//=======================================================================
506
507Handle(TColStd_HSequenceOfTransient) IFSelect_WorkSession::Sharings
508 (const Handle(Standard_Transient)& ent)
509{
510 Handle(TColStd_HSequenceOfTransient) list;
511 if (!ComputeGraph()) return list;
512 if (StartingNumber(ent) == 0) return list;
513 return thegraph->Graph().Sharings(ent).Content();
514}
515
516
517//=======================================================================
518//function :
519//purpose :
520//=======================================================================
521
522Standard_Boolean IFSelect_WorkSession::IsLoaded () const
523{
524 if (theprotocol.IsNull()) return Standard_False;
7f56eba8 525 if (myModel.IsNull()) return Standard_False;
526 if (myModel->NbEntities() == 0) return Standard_False;
7fd59977 527 if (thegraph.IsNull()) return Standard_False;
7f56eba8 528 if (myModel->NbEntities() == thegraph->Graph().Size()) return Standard_True;
7fd59977 529 return Standard_False;
530}
531
532
533//=======================================================================
534//function :
535//purpose :
536//=======================================================================
537
538Standard_Boolean IFSelect_WorkSession::ComputeCheck
539 (const Standard_Boolean enforce)
540{
541 if (enforce) thecheckdone = Standard_False;
542 if (thecheckdone) return Standard_True;
543 if (!IsLoaded()) return Standard_False;
544
545 Interface_Graph& CG = thegraph->CGraph();
546 Interface_CheckTool cht(thegraph);
547 Interface_CheckIterator checklist = cht.VerifyCheckList();
7f56eba8 548 myModel->FillSemanticChecks(checklist,Standard_False);
bc650d41
G
549 if(themodelstat)
550 {
551 // Et on met a jour le Graphe (BitMap) ! Flag Incorrect (STX + SEM)
552 Interface_BitMap& BM = CG.CBitMap();
553 BM.Init (Standard_False,Flag_Incorrect);
554 Standard_Integer num, nb = CG.Size();
555 for (checklist.Start(); checklist.More(); checklist.Next()) {
556 const Handle(Interface_Check) chk = checklist.Value();
557 if (!chk->HasFailed()) continue;
558 num = checklist.Number();
559 if (num > 0 && num <= nb) BM.SetTrue (num,Flag_Incorrect);
560 }
561 for (num = 1; num <= nb; num ++)
7f56eba8 562 if (myModel->IsErrorEntity (num)) BM.SetTrue (num,Flag_Incorrect);
7fd59977 563 }
7fd59977 564 return Standard_True;
565}
566
567
568//=======================================================================
569//function :
570//purpose :
571//=======================================================================
572
573Interface_CheckIterator IFSelect_WorkSession::ModelCheckList
574 (const Standard_Boolean complete)
575{
576 Interface_CheckIterator checks;
577 if (!IsLoaded()) {
578 checks.CCheck(0)->AddFail("DATA NOT AVAILABLE FOR CHECK");
579 return checks;
580 }
581 Interface_CheckTool cht(Graph());
582 checks = (complete ? cht.CompleteCheckList() : cht.AnalyseCheckList());
583 checks.SetName
584 ((char*)(complete ? "Model Complete Check List" : "Model Syntactic Check List"));
585 return checks;
586}
587
588
589//=======================================================================
590//function :
591//purpose :
592//=======================================================================
593
594Interface_CheckIterator IFSelect_WorkSession::CheckOne
595 (const Handle(Standard_Transient)& ent,
596 const Standard_Boolean complete)
597{
598 Interface_CheckIterator checks;
7f56eba8 599 checks.SetModel(myModel);
7fd59977 600 if (!IsLoaded()) {
601 checks.CCheck(0)->AddFail("DATA NOT AVAILABLE FOR CHECK");
602 return checks;
603 }
604 Standard_Integer num = -1;
7f56eba8 605 if (ent.IsNull() || ent == myModel) num = 0;
606 else num = myModel->Number(ent);
7fd59977 607
7f56eba8 608 Handle(Interface_Check) ach = myModel->Check (num,Standard_True);
609 if (complete) ach->GetMessages (myModel->Check (num,Standard_False));
7fd59977 610 if (num > 0) ach->SetEntity(ent);
611 checks.Add (ach,num);
612 checks.SetName ("Data Check (One Entity)");
613 return checks;
614}
615
616
7fd59977 617// #####################################################################
618// .... LES VARIABLES ....
619
620//=======================================================================
621//function :
622//purpose :
623//=======================================================================
624
625Standard_Integer IFSelect_WorkSession::MaxIdent () const
626{
627 return theitems.Extent();
628}
629
630
631//=======================================================================
632//function :
633//purpose :
634//=======================================================================
635
636Handle(Standard_Transient) IFSelect_WorkSession::Item
637 (const Standard_Integer id) const
638{
639 Handle(Standard_Transient) res;
640 if (id <= 0 || id > MaxIdent()) return res;
641 if (theitems.FindFromIndex(id).IsNull()) return res;
642 return theitems.FindKey(id);
643}
644
645
646//=======================================================================
647//function :
648//purpose :
649//=======================================================================
650
651Standard_Integer IFSelect_WorkSession::ItemIdent
652 (const Handle(Standard_Transient)& item) const
653{
654 if (item.IsNull()) return 0;
655 Standard_Integer id = theitems.FindIndex(item);
656 if (id == 0) return 0;
657 if (theitems.FindFromIndex(id).IsNull()) return 0;
658 return id;
659}
660
661
662//=======================================================================
663//function :
664//purpose :
665//=======================================================================
666
667Handle(Standard_Transient) IFSelect_WorkSession::NamedItem
668 (const Standard_CString name) const
669{
670 Handle(Standard_Transient) res;
671 if (name[0] == '\0') return res;
672 if (name[0] == '#') { // #nnn : pas un nom mais un n0 id.
673 Standard_Integer id = atoi( &name[1] );
674 return Item(id);
675 }
997e128f 676 if (!thenames.Find(name,res))
677 res.Nullify();
7fd59977 678 return res;
679}
680
681
682//=======================================================================
683//function :
684//purpose :
685//=======================================================================
686
687Handle(Standard_Transient) IFSelect_WorkSession::NamedItem
688 (const Handle(TCollection_HAsciiString)& name) const
689{
690 Handle(Standard_Transient) res;
691 if (!name.IsNull()) res = NamedItem (name->ToCString());
692 return res;
693}
694
695
696//=======================================================================
697//function :
698//purpose :
699//=======================================================================
700
701Standard_Integer IFSelect_WorkSession::NameIdent
702 (const Standard_CString name) const
703{
704 Handle(Standard_Transient) res;
705 if (name[0] == '\0') return 0;
706 if (name[0] == '#') { // #nnn : pas un nom mais un n0 id.
707 Standard_Integer id = atoi( &name[1] );
708 return id;
709 }
997e128f 710 if (!thenames.Find(name,res))
711 return 0;
7fd59977 712 return ItemIdent(res);
713}
714
715
716//=======================================================================
717//function :
718//purpose :
719//=======================================================================
720
721Standard_Boolean IFSelect_WorkSession::HasName
722 (const Handle(Standard_Transient)& item) const
723{
724 if (item.IsNull()) return Standard_False;
725 Standard_Integer id = theitems.FindIndex(item);
726 if (id == 0) return Standard_False;
727 Handle(Standard_Transient) att = theitems.FindFromIndex(id);
728 if (att.IsNull()) return Standard_False;
729 return att->IsKind(STANDARD_TYPE(TCollection_HAsciiString));
730}
731
732
733//=======================================================================
734//function :
735//purpose :
736//=======================================================================
737
738Handle(TCollection_HAsciiString) IFSelect_WorkSession::Name
739 (const Handle(Standard_Transient)& item) const
740{
741 Handle(TCollection_HAsciiString) res;
742 if (item.IsNull()) return res;
743 Standard_Integer id = theitems.FindIndex(item);
744 if (id == 0) return res; // Null
745 Handle(Standard_Transient) att = theitems.FindFromIndex(id);
746 return GetCasted(TCollection_HAsciiString,att);
747}
748
749
750//=======================================================================
751//function :
752//purpose :
753//=======================================================================
754
755Standard_Integer IFSelect_WorkSession::AddItem
756 (const Handle(Standard_Transient)& item,
757 const Standard_Boolean active)
758{
759 if (item.IsNull()) return 0;
760 Standard_Integer id = theitems.FindIndex(item);
761 if (id > 0) {
762 Handle(Standard_Transient)& att = theitems.ChangeFromIndex(id);
763 if (att.IsNull()) att = item;
7fd59977 764 }
765 else id = theitems.Add(item,item);
766
767// Cas particuliers : Dispatch,Modifier
768 if (active) SetActive(item,Standard_True);
769 return id;
770}
771
772
773//=======================================================================
774//function :
775//purpose :
776//=======================================================================
777
778Standard_Integer IFSelect_WorkSession::AddNamedItem
779 (const Standard_CString name, const Handle(Standard_Transient)& item,
780 const Standard_Boolean active)
781{
782 if (item.IsNull()) return 0;
783 if (name[0] == '#' || name[0] == '!') return 0;
784// #nnn : pas un nom mais un numero. !... : reserve (interdit pour un nom)
785// nom deja pris : on ecrase l ancienne valeur
997e128f 786 if (name[0] != '\0')
787 thenames.Bind(name, item);
788
7fd59977 789 Standard_Integer id = theitems.FindIndex(item);
790 if (id > 0) {
791 Handle(Standard_Transient)& att = theitems.ChangeFromIndex(id);
792 if (att.IsNull()) att = item;
793 if (name[0] != '\0') {
794// if (!att->IsKind(STANDARD_TYPE(TCollection_HAsciiString))) ecrasement admis !
795 att = new TCollection_HAsciiString(name);
796 }
797 }
798 else if (name[0] != '\0')
799 id = theitems.Add(item,new TCollection_HAsciiString(name));
800 else id = theitems.Add(item,item);
801
802// Cas particuliers : Dispatch,Modifier
803 if (active) SetActive(item,Standard_True);
804 return id;
805}
806
807
808//=======================================================================
809//function :
810//purpose :
811//=======================================================================
812
813Standard_Boolean IFSelect_WorkSession::SetActive
814 (const Handle(Standard_Transient)& item, const Standard_Boolean mode)
815{
816 if (item->IsKind(STANDARD_TYPE(IFSelect_Dispatch))) {
817 DeclareAndCast(IFSelect_Dispatch,disp,item);
818 Standard_Integer num = theshareout->DispatchRank(disp);
819 if ( num > theshareout->NbDispatches()) return Standard_False;
820 if ( mode) {
821 if (num > 0) return Standard_False;
822 theshareout->AddDispatch (disp);
823 return Standard_True;
824 } else {
825 if (num <= theshareout->LastRun()) return Standard_False;
826 theshareout->RemoveDispatch(num);
827 SetFileRoot(disp,""); // si onlynamed : nettoie aussi ShareOut
828 return Standard_True;
829 }
830 }
bc650d41 831
7fd59977 832 return Standard_False;
833}
834
835
836//=======================================================================
837//function :
838//purpose :
839//=======================================================================
840
841Standard_Boolean IFSelect_WorkSession::RemoveNamedItem
842 (const Standard_CString name)
843{
844 Handle(Standard_Transient) item = NamedItem(name);
845 if (item.IsNull()) return Standard_False;
846 if (!RemoveItem(item)) return Standard_False; // qui se charge de tout
847 return Standard_True;
848}
849
850
851//=======================================================================
852//function :
853//purpose :
854//=======================================================================
855
856Standard_Boolean IFSelect_WorkSession::RemoveName
857 (const Standard_CString name)
858{
859 Handle(Standard_Transient) item = NamedItem(name);
860 if (item.IsNull()) return Standard_False;
6e6cd5d9 861 theitems.Add(item,item); // reste mais sans nom
997e128f 862 return thenames.UnBind(name);
7fd59977 863}
864
865
866//=======================================================================
867//function :
868//purpose :
869//=======================================================================
870
871Standard_Boolean IFSelect_WorkSession::RemoveItem
872 (const Handle(Standard_Transient)& item)
873{
874 if (item.IsNull()) return Standard_False;
875 Standard_Integer id = theitems.FindIndex(item);
876 if (id == 0) return Standard_False;
877 Handle(Standard_Transient)& att = theitems.ChangeFromIndex(id);
878 if (att.IsNull()) return Standard_False; // deja annulle
879
880// Cas particuliers : Dispatch,Modifier
881 theshareout->RemoveItem(item);
882
883// Marquer "Removed" dans la Map (on ne peut pas la vider)
884 if (att->IsKind(STANDARD_TYPE(TCollection_HAsciiString))) {
997e128f 885 if (!thenames.UnBind
7fd59977 886 (GetCasted(TCollection_HAsciiString,att)->ToCString()))
887 return Standard_False;
888 }
889 att.Nullify(); // cf ChangeFromIndex
890// id = theitems.Add(item,att);
891 return Standard_True;
892}
893
894
895//=======================================================================
896//function :
897//purpose :
898//=======================================================================
899
900void IFSelect_WorkSession::ClearItems ()
901{
997e128f 902 thenames.Clear();
7fd59977 903 theitems.Clear();
904 theshareout->Clear(Standard_False);
905}
906
907
908//=======================================================================
909//function :
910//purpose :
911//=======================================================================
912
913Handle(TCollection_HAsciiString) IFSelect_WorkSession::ItemLabel
914 (const Standard_Integer id) const
915{
916 Handle(TCollection_HAsciiString) res;
917 Handle(Standard_Transient) var = Item(id);
918 if (var.IsNull()) return res;
919 DeclareAndCast(TCollection_HAsciiString,text,var);
920 if (!text.IsNull()) {
921 res = new TCollection_HAsciiString("Text:");
922 res->AssignCat(text);
923 return res;
924 }
925 DeclareAndCast(IFSelect_IntParam,intpar,var);
926 if (!intpar.IsNull()) {
927 res = new TCollection_HAsciiString(intpar->Value());
928 res->Insert(1,"Integer:");
929 return res;
930 }
931 DeclareAndCast(IFSelect_Selection,sel,var);
932 if (!sel.IsNull()) {
933 res = new TCollection_HAsciiString("Selection:");
934 res->AssignCat(sel->Label().ToCString());
935 return res;
936 }
937 DeclareAndCast(IFSelect_GeneralModifier,mod,var);
938 if (!mod.IsNull()) {
939 if (mod->IsKind(STANDARD_TYPE(IFSelect_Modifier)))
940 res = new TCollection_HAsciiString("ModelModifier:");
941 else res = new TCollection_HAsciiString("FileModifier:");
942 res->AssignCat(mod->Label().ToCString());
943 return res;
944 }
945 DeclareAndCast(IFSelect_Dispatch,disp,var);
946 if (!disp.IsNull()) {
947 res = new TCollection_HAsciiString("Dispatch:");
948 res->AssignCat(disp->Label().ToCString());
949 return res;
950 }
951 DeclareAndCast(IFSelect_Transformer,tsf,var);
952 if (!tsf.IsNull()) {
953 res = new TCollection_HAsciiString("Transformer:");
954 res->AssignCat(tsf->Label().ToCString());
955 return res;
956 }
957 DeclareAndCast(IFSelect_SignatureList,slc,var);
958 if (!slc.IsNull()) {
959 res = new TCollection_HAsciiString("Counter:");
960 res->AssignCat(slc->Name());
961 return res;
962 }
963 DeclareAndCast(IFSelect_Signature,sig,var);
964 if (!sig.IsNull()) {
965 res = new TCollection_HAsciiString("Signature:");
966 res->AssignCat(sig->Name());
967 return res;
968 }
969 DeclareAndCast(IFSelect_EditForm,edf,var);
970 if (!edf.IsNull()) {
971 res = new TCollection_HAsciiString("EditForm:");
972 res->AssignCat(edf->Label());
973 return res;
974 }
975 DeclareAndCast(IFSelect_Editor,edt,var);
976 if (!edt.IsNull()) {
977 res = new TCollection_HAsciiString("Editor:");
978 res->AssignCat(edt->Label().ToCString());
979 return res;
980 }
981 res = new TCollection_HAsciiString("VariableType:");
982 res->AssignCat(var->DynamicType()->Name());
983 return res;
984}
985
986
987//=======================================================================
988//function :
989//purpose :
990//=======================================================================
991
992Handle(TColStd_HSequenceOfInteger) IFSelect_WorkSession::ItemIdents
993 (const Handle(Standard_Type)& type) const
994{
995 Handle(TColStd_HSequenceOfInteger) list =
996 new TColStd_HSequenceOfInteger();
997 Standard_Integer nb = theitems.Extent();
998 for (Standard_Integer i = 1; i <= nb; i ++) {
999 if (theitems.FindKey(i)->IsKind(type)) list->Append(i);
1000 }
1001 return list;
1002}
1003
1004
1005//=======================================================================
1006//function :
1007//purpose :
1008//=======================================================================
1009
1010Handle(TColStd_HSequenceOfHAsciiString) IFSelect_WorkSession::ItemNames
1011 (const Handle(Standard_Type)& type) const
1012{
1013 Handle(TColStd_HSequenceOfHAsciiString) list =
1014 new TColStd_HSequenceOfHAsciiString();
997e128f 1015 NCollection_DataMap<TCollection_AsciiString, Handle(Standard_Transient)>::Iterator IT(thenames);
1016 for (; IT.More(); IT.Next()){
7fd59977 1017 if (IT.Value()->IsKind(type)) list->Append
997e128f 1018 (new TCollection_HAsciiString(IT.Key()));
7fd59977 1019 }
1020 return list;
1021}
1022
1023
1024// .. Recherche par label : recherche en liste(noms) ou iterative
1025
1026//=======================================================================
1027//function :
1028//purpose :
1029//=======================================================================
1030
1031Handle(TColStd_HSequenceOfHAsciiString) IFSelect_WorkSession::ItemNamesForLabel
1032 (const Standard_CString label) const
1033{
1034 Handle(TColStd_HSequenceOfHAsciiString) list =
1035 new TColStd_HSequenceOfHAsciiString();
1036 Standard_Integer i, nb = MaxIdent();
1037 for (i = 1; i <= nb; i ++) {
1038 Handle(TCollection_HAsciiString) lab = ItemLabel(i);
1039 Handle(Standard_Transient) item = Item(i);
1040 if (lab.IsNull()) continue;
1041 if (label[0] != '\0' && lab->Search(label) <= 0) continue;
1042
1043 Handle(TCollection_HAsciiString) nom = Name(Item(i));
1044 if (nom.IsNull()) { nom = new TCollection_HAsciiString(i); nom->Insert(1,'#'); }
1045 else nom = new TCollection_HAsciiString (nom);
1046 list->Append (new TCollection_HAsciiString(lab));
1047 }
1048 return list;
1049}
1050
1051
1052//=======================================================================
1053//function :
1054//purpose :
1055//=======================================================================
1056
1057Standard_Integer IFSelect_WorkSession::NextIdentForLabel
1058 (const Standard_CString label, const Standard_Integer id,
1059 const Standard_Integer mode) const
1060{
1061 Standard_Integer nb = MaxIdent();
1062 for (Standard_Integer i = id+1; i <= nb; i ++) {
1063 Handle(TCollection_HAsciiString) lab = ItemLabel(i);
1064 if (lab.IsNull()) continue;
1065 switch (mode) {
1066 case 0 : if (!strcmp(lab->ToCString(),label)) return i; break; // switch
1067 case 1 : if (lab->Search(label) == 1 ) return i; break;
1068 case 2 : if (lab->Search(label) > 0 ) return i; break;
1069 default : break; // break du switch
1070 }
1071 }
1072 return 0; // ici : pas trouve
1073}
1074
1075
1076// #################################################################
1077// .... Parametres (Int et Text) ....
1078
1079//=======================================================================
1080//function :
1081//purpose :
1082//=======================================================================
1083
1084Handle(Standard_Transient) IFSelect_WorkSession::NewParamFromStatic
1085 (const Standard_CString statname, const Standard_CString name)
1086{
1087 Handle(Standard_Transient) param;
1088 Handle(Interface_Static) stat = Interface_Static::Static(statname);
1089 if (stat.IsNull()) return param;
1090 if (stat->Type() == Interface_ParamInteger) {
1091 Handle(IFSelect_IntParam) intpar = new IFSelect_IntParam;
1092 intpar->SetStaticName (statname);
1093 param = intpar;
1094 } else {
1095 param = stat->HStringValue();
1096 }
1097 if (param.IsNull()) return param;
1098 if ( AddNamedItem (name, param) == 0 ) param.Nullify();
1099 return param;
1100}
1101
1102
1103//=======================================================================
1104//function :
1105//purpose :
1106//=======================================================================
1107
1108Handle(IFSelect_IntParam) IFSelect_WorkSession::IntParam
1109 (const Standard_Integer id) const
1110{ return Handle(IFSelect_IntParam)::DownCast(Item(id)); }
1111
1112
1113//=======================================================================
1114//function :
1115//purpose :
1116//=======================================================================
1117
1118Standard_Integer IFSelect_WorkSession::IntValue
1119 (const Handle(IFSelect_IntParam)& par) const
1120{
1121 if (!par.IsNull()) return par->Value();
1122 else return 0;
1123}
1124
1125
1126//=======================================================================
1127//function :
1128//purpose :
1129//=======================================================================
1130
1131Handle(IFSelect_IntParam) IFSelect_WorkSession::NewIntParam
1132 (const Standard_CString name)
1133{
1134 Handle(IFSelect_IntParam) intpar = new IFSelect_IntParam;
1135 if ( AddNamedItem (name, intpar) == 0 ) intpar.Nullify();
1136 return intpar;
1137}
1138
1139
1140//=======================================================================
1141//function :
1142//purpose :
1143//=======================================================================
1144
1145Standard_Boolean IFSelect_WorkSession::SetIntValue
1146 (const Handle(IFSelect_IntParam)& par, const Standard_Integer val)
1147{
1148 if (ItemIdent(par) == 0) return Standard_False;
1149 par->SetValue(val);
1150 return Standard_True;
1151}
1152
1153
1154//=======================================================================
1155//function :
1156//purpose :
1157//=======================================================================
1158
1159Handle(TCollection_HAsciiString) IFSelect_WorkSession::TextParam
1160 (const Standard_Integer id) const
1161{ return Handle(TCollection_HAsciiString)::DownCast(Item(id)); }
1162
1163
1164//=======================================================================
1165//function :
1166//purpose :
1167//=======================================================================
1168
1169TCollection_AsciiString IFSelect_WorkSession::TextValue
1170 (const Handle(TCollection_HAsciiString)& par) const
1171{
1172 if (!par.IsNull()) return TCollection_AsciiString(par->ToCString());
1173 else return TCollection_AsciiString();
1174}
1175
1176
1177Handle(TCollection_HAsciiString) IFSelect_WorkSession::NewTextParam
1178 (const Standard_CString name)
1179{
1180 Handle(TCollection_HAsciiString) textpar = new TCollection_HAsciiString("");
1181 if ( AddNamedItem (name, textpar) == 0 ) textpar.Nullify();
1182 return textpar;
1183}
1184
1185
1186//=======================================================================
1187//function :
1188//purpose :
1189//=======================================================================
1190
1191Standard_Boolean IFSelect_WorkSession::SetTextValue
1192 (const Handle(TCollection_HAsciiString)& par, const Standard_CString val)
1193{
1194 if (ItemIdent(par) == 0) return Standard_False;
1195 par->Clear(); par->AssignCat(val);
1196 return Standard_True;
1197}
1198
1199// ########################################################################
1200// .... SIGNATURES ....
1201
1202//=======================================================================
1203//function :
1204//purpose :
1205//=======================================================================
1206
1207Handle(IFSelect_Signature) IFSelect_WorkSession::Signature
1208 (const Standard_Integer id) const
1209{ return GetCasted(IFSelect_Signature,Item(id)); }
1210
1211 Standard_CString IFSelect_WorkSession::SignValue
1212 (const Handle(IFSelect_Signature)& sign, const Handle(Standard_Transient)& ent) const
1213{
7f56eba8 1214 if (sign.IsNull() || myModel.IsNull()) return "";
7fd59977 1215 if (StartingNumber(ent) == 0) return "";
7f56eba8 1216 return sign->Value (ent,myModel);
7fd59977 1217}
1218
1219// ########################################################################
1220// .... SELECTIONS & Cie ....
1221
1222//=======================================================================
1223//function :
1224//purpose :
1225//=======================================================================
1226
1227Handle(IFSelect_Selection) IFSelect_WorkSession::Selection
1228 (const Standard_Integer id) const
1229{ return GetCasted(IFSelect_Selection,Item(id)); }
1230
1231
1232//=======================================================================
1233//function :
1234//purpose :
1235//=======================================================================
1236
1237Interface_EntityIterator IFSelect_WorkSession::EvalSelection
1238 (const Handle(IFSelect_Selection)& sel) const
1239{
1240 Interface_EntityIterator iter;
1241 if (errhand) {
1242 errhand = Standard_False;
1243 try {
1244 OCC_CATCH_SIGNALS
1245 iter = EvalSelection(sel); // appel normal (donc, code pas duplique)
1246 }
9775fa61 1247 catch (Standard_Failure const& anException) {
7fd59977 1248 Handle(Message_Messenger) sout = Message::DefaultMessenger();
1249 sout<<" **** Interruption EvalSelection par Exception : ****\n";
9775fa61 1250 sout<<anException.GetMessageString();
7fd59977 1251 sout<<"\n Abandon"<<endl;
1252 }
1253 errhand = theerrhand;
1254 return iter;
1255 }
1256
1257 if (thegraph.IsNull()) return iter;
bc650d41 1258 iter = sel->UniqueResult(thegraph->Graph());
7fd59977 1259 return iter;
1260}
1261
1262
1263//=======================================================================
1264//function :
1265//purpose :
1266//=======================================================================
1267
1268IFSelect_SelectionIterator IFSelect_WorkSession::Sources
1269 (const Handle(IFSelect_Selection)& sel) const
1270{
1271 return IFSelect_SelectionIterator (sel);
1272}
1273
1274
1275//=======================================================================
1276//function :
1277//purpose :
1278//=======================================================================
1279
1280Handle(TColStd_HSequenceOfTransient) IFSelect_WorkSession::SelectionResult
1281 (const Handle(IFSelect_Selection)& sel) const
1282{
1283 Handle(TColStd_HSequenceOfTransient) res;
1284 if (errhand) {
1285 errhand = Standard_False;
1286 try {
1287 OCC_CATCH_SIGNALS
1288 res = SelectionResult(sel); // appel normal (->code unique)
1289 }
9775fa61 1290 catch (Standard_Failure const& anException) {
7fd59977 1291 Handle(Message_Messenger) sout = Message::DefaultMessenger();
1292 sout<<" **** Interruption SelectionResult par Exception : ****\n";
9775fa61 1293 sout<<anException.GetMessageString();
7fd59977 1294 sout<<"\n Abandon"<<endl;
1295 }
1296 errhand = theerrhand;
1297 return res;
1298 }
1299
1300 if (!IsLoaded()) {
1301 cout<< " *** Data for Evaluation not available ***"<<endl;
1302 return new TColStd_HSequenceOfTransient();
1303 }
1304// if (ItemIdent(sel) == 0)
1305 if (sel.IsNull())
586db386 1306 { cout << " Selection : Unknown"<<endl; return res; } //cout<<Handle
7fd59977 1307 return EvalSelection (sel).Content();
1308}
1309
1310
1311//=======================================================================
1312//function :
1313//purpose :
1314//=======================================================================
1315
1316Handle(TColStd_HSequenceOfTransient) IFSelect_WorkSession::SelectionResultFromList
1317 (const Handle(IFSelect_Selection)& sel,
1318 const Handle(TColStd_HSequenceOfTransient)& list) const
1319{
1320 if (list.IsNull()) return SelectionResult (sel);
1321 DeclareAndCast(IFSelect_SelectDeduct,deduct,sel);
1322 if (deduct.IsNull()) return SelectionResult (sel);
1323
1324// On va chercher la derniere deduction de la chaine des inputs
1325 Handle(IFSelect_Selection) ssel, newinput;
1326 ssel = sel;
1327 Standard_Integer i, nb = MaxIdent();
1328 for (i = 1; i <= nb * 2; i ++) {
1329 newinput = deduct->Input();
1330 deduct = GetCasted(IFSelect_SelectDeduct,newinput);
1331 if (deduct.IsNull()) break;
1332 ssel = newinput;
1333 }
1334
1335// on y est (enfin, on devrait)
1336// ssel est la derniere selection auscultee, deduct son downcast
1337// input son Input (nulle si sel pas une deduction)
1338 deduct = GetCasted(IFSelect_SelectDeduct,ssel);
bc650d41 1339
7fd59977 1340 deduct->Alternate()->SetList (list);
1341
1342// On execute puis on nettoie
1343 Handle(TColStd_HSequenceOfTransient) res = SelectionResult (sel);
1344//// deduct->SetInput (newinput);
1345 return res;
1346}
1347
1348
1349//=======================================================================
1350//function :
1351//purpose :
1352//=======================================================================
1353
1354Standard_Boolean IFSelect_WorkSession::SetItemSelection
1355 (const Handle(Standard_Transient)& item,
1356 const Handle(IFSelect_Selection)& sel)
1357{
1358 DeclareAndCast(IFSelect_Dispatch,disp,item);
1359 DeclareAndCast(IFSelect_GeneralModifier,modif,item);
1360 if (!disp.IsNull()) {
1361 if (ItemIdent(disp) == 0) return Standard_False;
1362// Selection Nulle : Annuler FinalSelection
1363 if (!sel.IsNull() && ItemIdent(sel) == 0) return Standard_False;
1364 disp->SetFinalSelection(sel);
1365 return Standard_True;
1366 }
1367 if (!modif.IsNull()) {
1368 if (ItemIdent(modif) == 0) return Standard_False;
1369 if (!sel.IsNull() && ItemIdent(sel) == 0) return Standard_False;
1370// Selection Nulle : Annuler Selection
1371 modif->SetSelection(sel);
1372 return Standard_True;
1373 }
1374 return Standard_False;
1375}
1376
1377
1378//=======================================================================
1379//function :
1380//purpose :
1381//=======================================================================
1382
1383Standard_Boolean IFSelect_WorkSession::ResetItemSelection
1384 (const Handle(Standard_Transient)& item)
1385{
1386 Handle(IFSelect_Selection) nulsel;
1387 return SetItemSelection (item,nulsel);
1388}
1389
1390
1391//=======================================================================
1392//function :
1393//purpose :
1394//=======================================================================
1395
1396Handle(IFSelect_Selection) IFSelect_WorkSession::ItemSelection
1397 (const Handle(Standard_Transient)& item) const
1398{
1399 Handle(IFSelect_Selection) sel;
1400 DeclareAndCast(IFSelect_Dispatch,disp,item);
1401 DeclareAndCast(IFSelect_GeneralModifier,modif,item);
1402 if (ItemIdent(disp) > 0) return disp->FinalSelection();
1403 if (ItemIdent(modif) > 0) return modif->Selection();
1404 return sel; // Nul ou inconnu -> Null
1405}
1406
1407// ######################################################################
1408// .... Les COMPTEURS ....
1409
1410//=======================================================================
1411//function :
1412//purpose :
1413//=======================================================================
1414
1415Handle(IFSelect_SignCounter) IFSelect_WorkSession::SignCounter
1416 (const Standard_Integer id) const
1417{ return GetCasted(IFSelect_SignCounter,Item(id)); }
1418
1419
1420//=======================================================================
1421//function :
1422//purpose :
1423//=======================================================================
1424
1425Standard_Boolean IFSelect_WorkSession::ComputeCounter
1426 (const Handle(IFSelect_SignCounter)& counter, const Standard_Boolean forced)
1427{
1428 if (counter.IsNull()) return Standard_False;
1429 if (!ComputeGraph()) return Standard_False;
1430 return counter->ComputeSelected (Graph(),forced);
1431}
1432
1433
1434//=======================================================================
1435//function :
1436//purpose :
1437//=======================================================================
1438
1439Standard_Boolean IFSelect_WorkSession::ComputeCounterFromList
1440 (const Handle(IFSelect_SignCounter)& counter,
1441 const Handle(TColStd_HSequenceOfTransient)& list,
1442 const Standard_Boolean clear)
1443{
1444 if (counter.IsNull()) return Standard_False;
1445 if (clear) counter->Clear();
1446 if (list.IsNull()) return ComputeCounter (counter,Standard_True);
7f56eba8 1447 counter->AddList (list,myModel);
7fd59977 1448 return Standard_True;
1449}
1450
1451// ######################################################################
1452// .... Les DISPATCHES ....
1453
1454//=======================================================================
1455//function :
1456//purpose :
1457//=======================================================================
1458
1459Handle(TColStd_HSequenceOfInteger) IFSelect_WorkSession::AppliedDispatches
1460 () const
1461{
1462 Handle(TColStd_HSequenceOfInteger) list = new TColStd_HSequenceOfInteger();
1463 Standard_Integer nb = theshareout->NbDispatches();
1464 for (Standard_Integer i = 1; i <= nb; i ++) {
1465 list->Append (ItemIdent(theshareout->Dispatch(i)));
1466 }
1467 return list;
1468}
1469
1470
1471//=======================================================================
1472//function :
1473//purpose :
1474//=======================================================================
1475
1476void IFSelect_WorkSession::ClearShareOut (const Standard_Boolean onlydisp)
1477{
1478 theshareout->Clear(onlydisp);
1479}
1480
1481
1482//=======================================================================
1483//function :
1484//purpose :
1485//=======================================================================
1486
1487Handle(IFSelect_Dispatch) IFSelect_WorkSession::Dispatch
1488 (const Standard_Integer id) const
1489{
1490 return GetCasted(IFSelect_Dispatch,Item(id));
1491}
1492
1493
1494//=======================================================================
1495//function :
1496//purpose :
1497//=======================================================================
1498
1499Standard_Integer IFSelect_WorkSession::DispatchRank
1500 (const Handle(IFSelect_Dispatch)& disp) const
1501{
1502 if (ItemIdent(disp) == 0) return 0;
1503 return theshareout->DispatchRank(disp);
1504}
1505
1506// ######################################################################
1507// .... Les MODIFIERS ....
1508
1509//=======================================================================
1510//function :
1511//purpose :
1512//=======================================================================
1513
7f56eba8 1514void IFSelect_WorkSession::SetModelCopier (const Handle(IFSelect_ModelCopier)& copier)
7fd59977 1515{
1516 thecopier = copier;
1517 thecopier->SetShareOut(theshareout);
1518}
1519
1520
1521//=======================================================================
1522//function :
1523//purpose :
1524//=======================================================================
1525
7f56eba8 1526Standard_Integer IFSelect_WorkSession::NbFinalModifiers (const Standard_Boolean formodel) const
7fd59977 1527{
1528 return theshareout->NbModifiers(formodel);
1529}
1530
1531
1532//=======================================================================
1533//function :
1534//purpose :
1535//=======================================================================
1536
1537Handle(TColStd_HSequenceOfInteger) IFSelect_WorkSession::FinalModifierIdents
1538 (const Standard_Boolean formodel) const
1539{
1540// return ItemIdents(STANDARD_TYPE(IFSelect_Modifier));
1541// On donne la liste dans l ordre du ModelCopier, qui fait foi
1542 Handle(TColStd_HSequenceOfInteger) list = new TColStd_HSequenceOfInteger();
1543 Standard_Integer nbm = theshareout->NbModifiers(formodel);
1544 for (Standard_Integer i = 1; i <= nbm; i ++)
1545 list->Append(ItemIdent(theshareout->GeneralModifier(formodel,i)));
1546 return list;
1547}
1548
1549
1550//=======================================================================
1551//function :
1552//purpose :
1553//=======================================================================
1554
7f56eba8 1555Handle(IFSelect_GeneralModifier) IFSelect_WorkSession::GeneralModifier (const Standard_Integer id) const
7fd59977 1556{
1557 return GetCasted(IFSelect_GeneralModifier,Item(id));
1558}
1559
1560
1561//=======================================================================
1562//function :
1563//purpose :
1564//=======================================================================
1565
7f56eba8 1566Handle(IFSelect_Modifier) IFSelect_WorkSession::ModelModifier (const Standard_Integer id) const
7fd59977 1567{
1568 return GetCasted(IFSelect_Modifier,Item(id));
1569}
1570
1571
1572//=======================================================================
1573//function :
1574//purpose :
1575//=======================================================================
1576
7f56eba8 1577Standard_Integer IFSelect_WorkSession::ModifierRank (const Handle(IFSelect_GeneralModifier)& modif) const
7fd59977 1578{
1579 if (ItemIdent(modif) == 0) return 0;
1580 return theshareout->ModifierRank(modif);
1581}
1582
1583
1584//=======================================================================
1585//function :
1586//purpose :
1587//=======================================================================
1588
1589Standard_Boolean IFSelect_WorkSession::ChangeModifierRank
1590 (const Standard_Boolean formodel,
1591 const Standard_Integer before, const Standard_Integer after)
1592{
1593 return theshareout->ChangeModifierRank(formodel,before,after);
1594}
1595
1596
1597//=======================================================================
1598//function :
1599//purpose :
1600//=======================================================================
1601
1602void IFSelect_WorkSession::ClearFinalModifiers ()
1603{
1604 Handle(TColStd_HSequenceOfInteger) list = FinalModifierIdents (Standard_True);
1605 Standard_Integer nb = list->Length();
1606 Standard_Integer i; // svv #1
1607 for (i = 1; i <= nb; i ++)
1608 RemoveItem(GeneralModifier(list->Value(i)));
1609 list = FinalModifierIdents (Standard_False);
1610 nb = list->Length();
1611 for (i = 1; i <= nb; i ++)
1612 RemoveItem(GeneralModifier(list->Value(i)));
1613}
1614
1615
1616//=======================================================================
1617//function :
1618//purpose :
1619//=======================================================================
1620
1621Standard_Boolean IFSelect_WorkSession::SetAppliedModifier
1622 (const Handle(IFSelect_GeneralModifier)& modif,
1623 const Handle(Standard_Transient)& item)
1624{
1625 if (ItemIdent(modif) == 0) return Standard_False;
1626
1627 if (item.IsNull()) return Standard_False;
1628 if (item == theshareout) {
1629 theshareout->AddModifier(modif,0);
1630 return Standard_True;
1631 }
1632 if (item->IsKind(STANDARD_TYPE(IFSelect_Dispatch))) {
1633 DeclareAndCast(IFSelect_Dispatch,disp,item);
1634 theshareout->AddModifier(modif,0);
1635 modif->SetDispatch(disp);
1636 return Standard_True;
1637 }
1638 if (item->IsKind(STANDARD_TYPE(IFSelect_TransformStandard))) {
1639 DeclareAndCast(IFSelect_TransformStandard,stf,item);
1640 DeclareAndCast(IFSelect_Modifier,tmod,modif);
1641 if (tmod.IsNull()) return Standard_False;
1642 stf->AddModifier (tmod);
1643 theshareout->RemoveItem(modif);
1644 return Standard_True;
1645 }
1646 return Standard_False;
1647}
1648
1649
1650//=======================================================================
1651//function :
1652//purpose :
1653//=======================================================================
1654
1655Standard_Boolean IFSelect_WorkSession::ResetAppliedModifier
1656 (const Handle(IFSelect_GeneralModifier)& modif)
1657{
1658 if (ItemIdent(modif) == 0) return Standard_False;
1659
1660 return theshareout->RemoveItem(modif);
1661}
1662
1663
1664//=======================================================================
1665//function :
1666//purpose :
1667//=======================================================================
1668
1669Handle(Standard_Transient) IFSelect_WorkSession::UsesAppliedModifier
1670 (const Handle(IFSelect_GeneralModifier)& modif) const
1671{
1672 Handle(Standard_Transient) res;
1673 if (ItemIdent(modif) == 0) return res;
1674 if (theshareout->ModifierRank(modif) == 0) return res;
1675 res = modif->Dispatch();
1676 if (res.IsNull()) res = theshareout;
1677 return res;
1678}
1679
1680// #################################################################
1681// .... Transformer ....
1682
1683//=======================================================================
1684//function :
1685//purpose :
1686//=======================================================================
1687
7f56eba8 1688Handle(IFSelect_Transformer) IFSelect_WorkSession::Transformer (const Standard_Integer id) const
7fd59977 1689{
1690 return GetCasted(IFSelect_Transformer,Item(id));
1691}
1692
1693
1694//=======================================================================
1695//function :
1696//purpose :
1697//=======================================================================
1698
1699Standard_Integer IFSelect_WorkSession::RunTransformer
1700 (const Handle(IFSelect_Transformer)& transf)
1701{
1702 Standard_Integer effect = 0;
1703 if (transf.IsNull() || !IsLoaded()) return effect;
1704 Handle(Interface_InterfaceModel) newmod; // Null au depart
1705 Interface_CheckIterator checks;
1706 checks.SetName("X-STEP WorkSession : RunTransformer");
1707 Standard_Boolean res = transf->Perform
1708 (thegraph->Graph(),theprotocol,checks,newmod);
1709
1710 if (!checks.IsEmpty(Standard_False)) {
1711 Handle(Message_Messenger) sout = Message::DefaultMessenger();
1712 sout<<" ** RunTransformer has produced Check Messages : **"<<endl;
7f56eba8 1713 checks.Print (sout,myModel,Standard_False);
7fd59977 1714 }
1715 thecheckdone = Standard_False;
1716 thecheckrun = checks;
1717
1718 if (newmod.IsNull()) return (res ? 1 : -1);
1719// MISE A JOUR des SelectPointed
1720 Handle(TColStd_HSequenceOfInteger) list =
1721 ItemIdents(STANDARD_TYPE(IFSelect_SelectPointed));
1722 Standard_Integer nb = list->Length();
1723 for (Standard_Integer i = 1; i <= nb; i ++) {
1724 DeclareAndCast(IFSelect_SelectPointed,sp,Item(list->Value(i)));
1725 sp->Update(transf);
1726 }
7f56eba8 1727 if (newmod == myModel) {
7fd59977 1728 effect = (res ? 2 : -2);
1729 if (!res) return effect;
1730 Handle(Interface_Protocol) newproto = theprotocol;
1731 if (transf->ChangeProtocol(newproto))
1732 { effect = 4; theprotocol = newproto; thegtool->SetProtocol(newproto); }
1733 return (ComputeGraph(Standard_True) ? 4 : -4);
1734 } else {
1735 effect = (res ? 3 : -3);
1736 if (!res) return effect;
1737 Handle(Interface_Protocol) newproto = theprotocol;
1738 if (transf->ChangeProtocol(newproto))
1739 { effect = 5; theprotocol = newproto; thegtool->SetProtocol(newproto); }
7f56eba8 1740 theoldel = myModel;
7fd59977 1741 SetModel(newmod,Standard_False);
1742 }
1743 return effect;
1744}
1745
1746
1747//=======================================================================
1748//function :
1749//purpose :
1750//=======================================================================
1751
1752Standard_Integer IFSelect_WorkSession::RunModifier
1753 (const Handle(IFSelect_Modifier)& modif, const Standard_Boolean copy)
1754{
1755 Handle(IFSelect_Selection) sel; // null
1756 return RunModifierSelected (modif,sel,copy);
1757}
1758
1759
1760//=======================================================================
1761//function :
1762//purpose :
1763//=======================================================================
1764
1765Standard_Integer IFSelect_WorkSession::RunModifierSelected
1766 (const Handle(IFSelect_Modifier)& modif,
1767 const Handle(IFSelect_Selection)& sel, const Standard_Boolean copy)
1768{
1769 if (ItemIdent(modif) == 0) return Standard_False;
1770 Handle(IFSelect_TransformStandard) stf = new IFSelect_TransformStandard;
1771 stf->SetCopyOption(copy);
1772 stf->SetSelection (sel);
1773 stf->AddModifier (modif);
1774 return RunTransformer (stf);
1775}
1776
1777
1778//=======================================================================
1779//function :
1780//purpose :
1781//=======================================================================
1782
1783Handle(IFSelect_Transformer) IFSelect_WorkSession::NewTransformStandard
1784 (const Standard_Boolean copy, const Standard_CString name)
1785{
1786 Handle(IFSelect_TransformStandard) stf = new IFSelect_TransformStandard;
1787 stf->SetCopyOption(copy);
1788 if (AddNamedItem (name, stf) == 0) stf.Nullify();
1789 return stf;
1790}
1791
1792
1793// Ceci est une action directe : pourrait etre fait par un Transformer ...
1794//=======================================================================
1795//function :
1796//purpose :
1797//=======================================================================
1798
1799Standard_Boolean IFSelect_WorkSession::SetModelContent
1800 (const Handle(IFSelect_Selection)& sel, const Standard_Boolean keep)
1801{
1802 if (sel.IsNull() || !IsLoaded()) return Standard_False;
1803 Interface_EntityIterator list = sel->UniqueResult(thegraph->Graph());
1804 if (list.NbEntities() == 0) return Standard_False;
1805
7f56eba8 1806 Handle(Interface_InterfaceModel) newmod = myModel->NewEmptyModel();
1807 Interface_CopyTool TC(myModel,theprotocol);
1808 Standard_Integer i, nb = myModel->NbEntities();
7fd59977 1809 if (keep) {
1810 for (list.Start(); list.More(); list.Next())
1811 TC.TransferEntity (list.Value());
1812 } else {
1813 Standard_Integer* flags = new Standard_Integer[nb+1];
1814 for (i = 0; i <= nb; i ++) flags[i] = 0;
1815 for (list.Start(); list.More(); list.Next()) {
7f56eba8 1816 Standard_Integer num = myModel->Number(list.Value());
7fd59977 1817 if (num <= nb) flags[num] = 1;
1818 }
1819 for (i = 1; i <= nb; i ++) {
7f56eba8 1820 if (flags[i] == 0) TC.TransferEntity (myModel->Value(i));
7fd59977 1821 }
1822 delete [] flags;
1823 }
1824 TC.FillModel(newmod);
1825 if (newmod->NbEntities() == 0) return Standard_False;
1826// Mettre a jour (ne pas oublier SelectPointed)
7f56eba8 1827 theoldel = myModel;
7fd59977 1828 SetModel(newmod,Standard_False);
1829// MISE A JOUR des SelectPointed
1830 Handle(TColStd_HSequenceOfInteger) pts =
1831 ItemIdents(STANDARD_TYPE(IFSelect_SelectPointed));
1832 nb = pts->Length();
1833 for (i = 1; i <= nb; i ++) {
1834 DeclareAndCast(IFSelect_SelectPointed,sp,Item(pts->Value(i)));
1835 sp->Update(TC.Control());
1836 }
1837 return Standard_True;
1838}
1839
1840
1841// #################################################################
1842// .... File Name ....
1843
1844//=======================================================================
1845//function :
1846//purpose :
1847//=======================================================================
1848
1849Handle(TCollection_HAsciiString) IFSelect_WorkSession::FilePrefix () const
1850{
1851 return theshareout->Prefix();
1852}
1853
1854
1855//=======================================================================
1856//function :
1857//purpose :
1858//=======================================================================
1859
1860Handle(TCollection_HAsciiString) IFSelect_WorkSession::DefaultFileRoot () const
1861{
1862 return theshareout->DefaultRootName();
1863}
1864
1865
1866//=======================================================================
1867//function :
1868//purpose :
1869//=======================================================================
1870
1871Handle(TCollection_HAsciiString) IFSelect_WorkSession::FileExtension () const
1872{
1873 return theshareout->Extension();
1874}
1875
1876
1877//=======================================================================
1878//function :
1879//purpose :
1880//=======================================================================
1881
1882Handle(TCollection_HAsciiString) IFSelect_WorkSession::FileRoot
1883 (const Handle(IFSelect_Dispatch)& disp) const
1884{
1885 return theshareout->RootName(theshareout->DispatchRank(disp));
1886}
1887
1888
1889//=======================================================================
1890//function :
1891//purpose :
1892//=======================================================================
1893
1894void IFSelect_WorkSession::SetFilePrefix (const Standard_CString name)
1895{
1896 theshareout->SetPrefix (new TCollection_HAsciiString(name));
1897}
1898
1899
1900//=======================================================================
1901//function :
1902//purpose :
1903//=======================================================================
1904
1905void IFSelect_WorkSession::SetFileExtension (const Standard_CString name)
1906{
1907 theshareout->SetExtension (new TCollection_HAsciiString(name));
1908}
1909
1910
1911//=======================================================================
1912//function :
1913//purpose :
1914//=======================================================================
1915
1916Standard_Boolean IFSelect_WorkSession::SetDefaultFileRoot
1917 (const Standard_CString name)
1918{
1919 Handle(TCollection_HAsciiString) defrt;
1920 if (name[0] != '\0') defrt = new TCollection_HAsciiString(name);
1921 return theshareout->SetDefaultRootName (defrt);
1922}
1923
1924
1925//=======================================================================
1926//function :
1927//purpose :
1928//=======================================================================
1929
1930Standard_Boolean IFSelect_WorkSession::SetFileRoot
1931 (const Handle(IFSelect_Dispatch)& disp, const Standard_CString namefile)
1932{
1933 Standard_Integer id = ItemIdent(disp);
1934 if (id == 0) return Standard_False;
1935 Standard_Integer nd = theshareout->DispatchRank(disp);
1936/* if (theonlynamed) {
1937 if (nd == 0 && namefile[0] != 0)
1938 theshareout->AddDispatch(disp);
1939 else if (nd != 0 && namefile[0] == 0)
1940 theshareout->RemoveDispatch (nd);
1941 } */
1942 if (nd == 0) return Standard_False;
1943// The order below prevented to change the root name on a given dispatch !
1944// if (theshareout->HasRootName(nd)) return Standard_False;
1945 Handle(TCollection_HAsciiString) filename;
1946 if (namefile[0] != '\0') filename = new TCollection_HAsciiString (namefile);
1947 return theshareout->SetRootName(nd,filename);
1948}
1949
1950
1951//=======================================================================
1952//function :
1953//purpose :
1954//=======================================================================
1955
1956Standard_CString IFSelect_WorkSession::GiveFileRoot
1957 (const Standard_CString file) const
1958{
1959 OSD_Path path (file);
1960 if (!path.IsValid(TCollection_AsciiString(file))) return file; // tant pis ..
1961 bufstr = path.Name();
1962 return bufstr.ToCString();
1963}
1964
1965
1966//=======================================================================
1967//function :
1968//purpose :
1969//=======================================================================
1970
1971Standard_CString IFSelect_WorkSession::GiveFileComplete
1972 (const Standard_CString file) const
1973{
1974// ajouter si besoin : Prefix; Extension
1975 bufstr.Clear(); bufstr.AssignCat (file);
1976 Standard_Integer i,j = 0,nb = bufstr.Length();
1977 Handle(TCollection_HAsciiString) ext = FileExtension ();
1978 if (!ext.IsNull()) {
1979 char val0 = '\0'; if (ext->Length() > 0) val0 = ext->Value(1);
1980 for (i = nb; i > 0; i --) if (bufstr.Value(i) == val0) { j = 1; break; }
1981 if (j == 0) bufstr.AssignCat (ext->ToCString());
1982 }
1983 Handle(TCollection_HAsciiString) pre = FilePrefix ();
1984 if (!pre.IsNull()) {
1985 char val1 = '\0'; if (pre->Length() > 0) val1 = pre->Value(pre->Length());
1986 j = 0;
1987 for (i = nb; i > 0; i --) if (bufstr.Value(i) == val1) { j = 1; break; }
1988 if (j == 0) bufstr.Insert (1,pre->ToCString());
1989 }
1990
1991 return bufstr.ToCString();
1992}
1993
1994
1995//=======================================================================
1996//function :
1997//purpose :
1998//=======================================================================
1999
2000void IFSelect_WorkSession::ClearFile ()
2001{
2002 thecopier->ClearResult();
2003 theshareout->ClearResult(Standard_True);
2004}
2005
2006
2007//=======================================================================
2008//function :
2009//purpose :
2010//=======================================================================
2011
2012void IFSelect_WorkSession::EvaluateFile ()
2013{
2014////...
2015 if (!IsLoaded()) return;
2016 Interface_CheckIterator checks;
2017 if (errhand) {
2018 errhand = Standard_False;
2019 try {
2020 OCC_CATCH_SIGNALS
2021 EvaluateFile(); // appel normal (donc, code pas duplique)
2022 }
9775fa61 2023 catch (Standard_Failure const& anException) {
7fd59977 2024 Handle(Message_Messenger) sout = Message::DefaultMessenger();
2025 sout<<" **** Interruption EvaluateFile par Exception : ****\n";
9775fa61 2026 sout<<anException.GetMessageString();
7fd59977 2027 sout<<"\n Abandon"<<endl;
2028 checks.CCheck(0)->AddFail ("Exception Raised -> Abandon");
2029 }
2030 errhand = theerrhand;
2031 thecheckrun = checks;
2032 return;
2033 }
2034
2035 IFSelect_ShareOutResult R(theshareout,thegraph->Graph());
2036 checks = thecopier->Copy (R,thelibrary,theprotocol);
2037 if (!checks.IsEmpty(Standard_False)) {
2038 Handle(Message_Messenger) sout = Message::DefaultMessenger();
2039 sout<<" ** EvaluateFile has produced Check Messages : **"<<endl;
7f56eba8 2040 checks.Print (sout,myModel,Standard_False);
7fd59977 2041 }
2042 thecopier->SetRemaining (thegraph->CGraph());
2043 thecheckrun = checks;
2044}
2045
2046
2047//=======================================================================
2048//function :
2049//purpose :
2050//=======================================================================
2051
2052Standard_Integer IFSelect_WorkSession::NbFiles () const
2053{
2054 return thecopier->NbFiles();
2055}
2056
2057
2058//=======================================================================
2059//function :
2060//purpose :
2061//=======================================================================
2062
2063Handle(Interface_InterfaceModel) IFSelect_WorkSession::FileModel
2064 (const Standard_Integer num) const
2065{
2066 Handle(Interface_InterfaceModel) mod;
2067 if (num > 0 && num <= NbFiles()) mod = thecopier->FileModel(num);
2068 return mod;
2069}
2070
2071
2072//=======================================================================
2073//function :
2074//purpose :
2075//=======================================================================
2076
2077TCollection_AsciiString IFSelect_WorkSession::FileName
2078 (const Standard_Integer num) const
2079{
2080 TCollection_AsciiString name;
2081 if (num > 0 && num <= NbFiles()) name = thecopier->FileName(num);
2082 return name;
2083}
2084
2085
2086//=======================================================================
2087//function :
2088//purpose :
2089//=======================================================================
2090
2091void IFSelect_WorkSession::BeginSentFiles (const Standard_Boolean record)
2092{
2093 thecopier->BeginSentFiles(theshareout,record);
2094}
2095
2096
2097//=======================================================================
2098//function :
2099//purpose :
2100//=======================================================================
2101
2102Handle(TColStd_HSequenceOfHAsciiString) IFSelect_WorkSession::SentFiles () const
2103{
2104 return thecopier->SentFiles();
2105}
2106
2107
2108// #########################################################################
2109// .... Action de Transfert proprement dite : la grande affaire ! ....
2110
2111//=======================================================================
2112//function :
2113//purpose :
2114//=======================================================================
2115
2116Standard_Boolean IFSelect_WorkSession::SendSplit ()
2117{
2118////...
2119 Interface_CheckIterator checks;
2120
2121 if (errhand) {
2122 errhand = Standard_False;
2123 try {
2124 OCC_CATCH_SIGNALS
2125 return SendSplit(); // appel normal (donc, code pas duplique)
2126 }
9775fa61 2127 catch (Standard_Failure const& anException) {
7fd59977 2128 Handle(Message_Messenger) sout = Message::DefaultMessenger();
2129 sout<<" **** Interruption SendSplit par Exception : ****\n";
9775fa61 2130 sout<<anException.GetMessageString();
7fd59977 2131 sout<<"\n Abandon"<<endl;
2132 checks.CCheck(0)->AddFail ("Exception Raised -> Abandon");
2133 }
2134 errhand = theerrhand;
2135 thecheckrun = checks;
2136 return Standard_False;
2137 }
2138
2139 if (thelibrary.IsNull()) {
2140 checks.CCheck(0)->AddFail("WorkLibrary undefined");
2141 thecheckrun = checks;
2142 return Standard_False;
2143 }
2144 if (!IsLoaded()) {
2145 Handle(Message_Messenger) sout = Message::DefaultMessenger();
2146 sout<< " *** Data for SendSplit not available ***"<<endl;
2147 checks.CCheck(0)->AddFail("Data not available");
2148 thecheckrun = checks;
2149 return Standard_False;
2150 }
2151
2152 if (NbFiles() > 0) checks = thecopier->SendCopied (thelibrary,theprotocol);
2153 else {
2154 /*
2155 IFSelect_ShareOutResult eval (ShareOut(), thegraph->Graph());
2156 checks = thecopier->Send (eval, thelibrary, theprotocol);
2157 thecopier->SetRemaining (thegraph->CGraph());
2158 */
2159// Decomposer
2160 if (theshareout.IsNull()) return Standard_False;
2161 Standard_Integer i, nbd = theshareout->NbDispatches();
2162 Standard_Integer nf = 0;
2163 Handle(Message_Messenger) sout = Message::DefaultMessenger();
2164 sout<<" SendSplit .. ";
2165 for (i = 1; i <= nbd; i ++) {
2166 Handle(IFSelect_Dispatch) disp = theshareout->Dispatch(i);
2167 if (disp.IsNull()) continue;
2168 IFGraph_SubPartsIterator packs(thegraph->Graph(),Standard_False);
2169 disp->Packets (thegraph->Graph(),packs);
2170 for (packs.Start(); packs.More(); packs.Next()) {
2171 Interface_EntityIterator iter = packs.Entities();
2172 if (iter.NbEntities() == 0) continue;
2173// Ecrire une liste d entites
2174 Handle(IFSelect_SelectPointed) sp = new IFSelect_SelectPointed;
2175 sp->SetList (iter.Content());
2176 nf ++;
2177 TCollection_AsciiString filnam (nf);
2178 filnam.Insert (1,"_");
2179 Handle(TCollection_HAsciiString) filepart;
2180 filepart = FileRoot(disp);
2181 if (!filepart.IsNull()) filnam.Insert(1,filepart->ToCString());
2182 filepart = FilePrefix();
2183 if (!filepart.IsNull()) filnam.Insert(1,filepart->ToCString());
2184 filepart = FileExtension();
2185 if (!filepart.IsNull()) filnam.AssignCat (filepart->ToCString());
2186 IFSelect_ReturnStatus stat = SendSelected (filnam.ToCString(),sp);
2187 if (stat != IFSelect_RetDone) cout<<"File "<<filnam<<" failed"<<endl;
2188 }
2189 }
2190 sout<<" .. Files Written : "<<nf<<endl;
2191 }
2192 thecheckrun = checks;
2193 return Standard_True;
2194}
2195
2196
2197//=======================================================================
2198//function :
2199//purpose :
2200//=======================================================================
2201
2202Handle(IFSelect_PacketList) IFSelect_WorkSession::EvalSplit () const
2203{
2204 Handle(IFSelect_PacketList) pks;
2205 if (!IsLoaded()) return pks;
2206 IFSelect_ShareOutResult sho (ShareOut(), thegraph->Graph());
2207 return sho.Packets();
2208}
2209
2210
2211//=======================================================================
2212//function :
2213//purpose :
2214//=======================================================================
2215
2216Interface_EntityIterator IFSelect_WorkSession::SentList
2217 (const Standard_Integer newcount) const
2218{
2219 Interface_EntityIterator iter;
2220 if (!IsLoaded()) return iter;
2221 const Interface_Graph& G = thegraph->Graph();
2222 Standard_Integer nb = G.Size();
2223 Standard_Integer i;
2224 for ( i = 1; i <= nb; i ++) {
2225 Standard_Integer stat = G.Status(i);
2226 if ( (stat > 0 && newcount < 0) || stat == newcount)
2227 iter.GetOneItem(G.Entity(i));
2228 }
2229 return iter;
2230}
2231
2232
2233//=======================================================================
2234//function :
2235//purpose :
2236//=======================================================================
2237
2238Standard_Integer IFSelect_WorkSession::MaxSendingCount () const
2239{
2240 Standard_Integer newcount = 0;
2241 if (!IsLoaded()) return newcount;
2242 const Interface_Graph& G = thegraph->Graph();
2243 Standard_Integer nb = G.Size();
2244 Standard_Integer i;
2245 for (i = 1; i <= nb; i ++) {
2246 Standard_Integer stat = G.Status(i);
2247 if (stat > newcount) newcount = stat;
2248 }
2249 return newcount;
2250}
2251
2252
2253//=======================================================================
2254//function :
2255//purpose :
2256//=======================================================================
2257
2258Standard_Boolean IFSelect_WorkSession::SetRemaining
2259 (const IFSelect_RemainMode mode)
2260{
2261 Handle(Message_Messenger) sout = Message::DefaultMessenger();
2262 if (!IsLoaded()) return Standard_False;
2263 if (mode == IFSelect_RemainForget) {
2264 Standard_Integer nb = thegraph->Graph().Size();
2265 for (Standard_Integer i = 1; i <= nb; i ++)
2266 thegraph->CGraph().SetStatus (i,0);
2267 theoldel.Nullify();
2268 return Standard_True;
2269 } else if (mode == IFSelect_RemainCompute) {
2270 Handle(Interface_InterfaceModel) newmod;
7f56eba8 2271 Interface_CopyTool TC(myModel,theprotocol);
7fd59977 2272 thecopier->CopiedRemaining (thegraph->Graph(),thelibrary,TC,newmod);
2273 if (newmod.IsNull()) {
2274 sout<<" No Remaining Data recorded"<<endl; return Standard_False;
7f56eba8 2275 } else if (newmod == myModel) {
7fd59977 2276 sout<<" Remaining causes all original data to be kept"<<endl;
2277 thecopier->SetRemaining (thegraph->CGraph());
2278 return Standard_False;
2279 } else {
7f56eba8 2280 theoldel = myModel;
7fd59977 2281 SetModel(newmod,Standard_False);
2282// MISE A JOUR des SelectPointed
2283 Handle(TColStd_HSequenceOfInteger) list =
2284 ItemIdents(STANDARD_TYPE(IFSelect_SelectPointed));
2285 Standard_Integer nb = list->Length();
2286 for (Standard_Integer i = 1; i <= nb; i ++) {
2287 DeclareAndCast(IFSelect_SelectPointed,sp,Item(list->Value(i)));
2288 sp->Update(TC.Control());
2289 }
2290 return Standard_True;
2291 }
2292 } else if (mode == IFSelect_RemainDisplay) {
2293 Standard_Integer ne = 0;
2294 Standard_Integer nb = thegraph->Graph().Size();
2295 for (Standard_Integer i = 1; i <= nb; i ++)
2296 { if (thegraph->Graph().Status(i) >= 0) ne ++; }
2297 if (ne == 0) {
2298 sout<<" - All entities are remaining, none yet sent"<<endl; return Standard_True;
2299 }
2300 Interface_EntityIterator iter = SentList(0);
2301 nb = iter.NbEntities();
2302 if (nb == 0) {
2303 sout<<" - No recorded remaining entities"<<endl; return Standard_True;
2304 }
2305 sout <<" -- Recorded Remaining (not yet sent) Entities --"<<endl;
2306 ListEntities(iter,2);
2307 sout << " -- Maximum Sending Count (i.e. duplication in files) "<<
2308 MaxSendingCount() << endl;
2309
2310/*
2311 sout<< " - Now, dispatches are deactivated"<<endl;
2312 nb = theshareout->NbDispatches();
2313 for (Standard_Integer i = nb; i > theshareout->LastRun(); i --)
2314 theshareout->RemoveDispatch(i);
2315*/
2316 return Standard_True;
2317 } else if (mode == IFSelect_RemainUndo) {
2318 if (theoldel.IsNull()) return Standard_False;
2319 SetModel(theoldel); theoldel.Nullify();
2320 return Standard_True;
2321 }
2322 else return Standard_False;
2323}
2324
2325
2326//=======================================================================
2327//function :
2328//purpose :
2329//=======================================================================
2330
2331IFSelect_ReturnStatus IFSelect_WorkSession::SendAll
2332 (const Standard_CString filename, const Standard_Boolean computegraph)
2333{
2334////...
2335 Interface_CheckIterator checks;
2336 if (!IsLoaded()) return IFSelect_RetVoid;
2337 if (thelibrary.IsNull()) {
2338 checks.CCheck(0)->AddFail("WorkLibrary undefined");
2339 thecheckrun = checks;
2340 return IFSelect_RetError;
2341 }
2342
2343 if (errhand) {
2344 errhand = Standard_False;
2345 try {
2346 OCC_CATCH_SIGNALS
2347 ComputeGraph(computegraph);
2348 checks = thecopier->SendAll(filename,thegraph->Graph(),thelibrary,theprotocol);
2349 }
9775fa61 2350 catch (Standard_Failure const& anException) {
7fd59977 2351 Handle(Message_Messenger) sout = Message::DefaultMessenger();
2352 sout<<" **** Interruption SendAll par Exception : ****\n";
9775fa61 2353 sout<<anException.GetMessageString();
7fd59977 2354 sout<<"\n Abandon"<<endl;
2355 errhand = theerrhand;
2356 checks.CCheck(0)->AddFail ("Exception Raised -> Abandon");
2357 thecheckrun = checks;
2358 return IFSelect_RetFail;
2359 }
2360 }
2361 else checks = thecopier->SendAll(filename,thegraph->Graph(),thelibrary,theprotocol);
857ffd5e 2362 Handle(Interface_Check) aMainFail = checks.CCheck(0);
12bf87c5
P
2363 if (!aMainFail.IsNull() && aMainFail->HasFailed ())
2364 {
bc650d41 2365 return IFSelect_RetStop;
12bf87c5 2366 }
7fd59977 2367 if (theloaded.Length() == 0) theloaded.AssignCat(filename);
2368 thecheckrun = checks;
2369 if (checks.IsEmpty(Standard_True)) return IFSelect_RetDone;
2370 return IFSelect_RetError;
2371}
2372
2373
2374//=======================================================================
2375//function :
2376//purpose :
2377//=======================================================================
2378
2379IFSelect_ReturnStatus IFSelect_WorkSession::SendSelected
2380 (const Standard_CString filename,
2381 const Handle(IFSelect_Selection)& sel,
2382 const Standard_Boolean computegraph)
2383{
2384////...
2385 if (!IsLoaded()) return IFSelect_RetVoid;
2386 Interface_CheckIterator checks;
2387 if (thelibrary.IsNull()) {
2388 checks.CCheck(0)->AddFail("WorkLibrary undefined");
2389 thecheckrun = checks;
2390 return IFSelect_RetVoid;
2391 }
2392
2393 if (errhand) {
2394 errhand = Standard_False;
2395 try {
2396 OCC_CATCH_SIGNALS
2397 ComputeGraph(computegraph);
2398 return SendSelected (filename,sel); // appel normal
2399 }
9775fa61 2400 catch (Standard_Failure const& anException) {
7fd59977 2401 Handle(Message_Messenger) sout = Message::DefaultMessenger();
2402 sout<<" **** Interruption SendSelected par Exception : ****\n";
9775fa61 2403 sout<<anException.GetMessageString();
7fd59977 2404 sout<<"\n Abandon"<<endl;
2405 checks.CCheck(0)->AddFail ("Exception Raised -> Abandon");
2406 errhand = theerrhand;
2407 thecheckrun = checks;
2408 return IFSelect_RetFail;
2409 }
2410 }
2411// if (ItemIdent(sel) == 0) return 3;
2412 Interface_EntityIterator iter = sel->UniqueResult(thegraph->Graph());
2413 if (iter.NbEntities() == 0) return IFSelect_RetVoid;
2414
2415 checks = thecopier->SendSelected
2416 (filename,thegraph->Graph(),thelibrary,theprotocol,iter);
2417 thecopier->SetRemaining (thegraph->CGraph());
2418 thecheckrun = checks;
2419 if (checks.IsEmpty(Standard_True)) return IFSelect_RetDone;
2420 return IFSelect_RetError;
2421}
2422
2423
2424//=======================================================================
2425//function :
2426//purpose :
2427//=======================================================================
2428
2429IFSelect_ReturnStatus IFSelect_WorkSession::WriteFile
2430 (const Standard_CString filename)
2431{
2432 if (WorkLibrary().IsNull()) return IFSelect_RetVoid;
2433 ComputeGraph(Standard_True);
2434 if (!IsLoaded()) return IFSelect_RetVoid;
2435 return SendAll (filename);
2436}
2437
2438
2439//=======================================================================
2440//function :
2441//purpose :
2442//=======================================================================
2443
2444IFSelect_ReturnStatus IFSelect_WorkSession::WriteFile
2445 (const Standard_CString filename, const Handle(IFSelect_Selection)& sel)
2446{
2447 if (WorkLibrary().IsNull() || sel.IsNull()) return IFSelect_RetVoid;
2448 ComputeGraph(Standard_True);
2449 if (!IsLoaded()) return IFSelect_RetVoid;
2450 return SendSelected (filename,sel);
2451}
2452
2453// ################################################################
2454// .... Actions particulieres sur les Selections ....
2455
2456//=======================================================================
2457//function :
2458//purpose :
2459//=======================================================================
2460
2461Standard_Integer IFSelect_WorkSession::NbSources
2462 (const Handle(IFSelect_Selection)& sel) const
2463{
2464 if (ItemIdent(sel) == 0) return 0;
2465 if (sel->IsKind(STANDARD_TYPE(IFSelect_SelectExtract)) ||
2466 sel->IsKind(STANDARD_TYPE(IFSelect_SelectDeduct)) ) return 1;
2467 if (sel->IsKind(STANDARD_TYPE(IFSelect_SelectControl)) ) return 2;
2468 if (sel->IsKind(STANDARD_TYPE(IFSelect_SelectCombine)) ) return
2469 GetCasted(IFSelect_SelectCombine,sel)->NbInputs();
2470 return 0;
2471}
2472
2473
2474//=======================================================================
2475//function :
2476//purpose :
2477//=======================================================================
2478
2479Handle(IFSelect_Selection) IFSelect_WorkSession::Source
2480 (const Handle(IFSelect_Selection)& sel, const Standard_Integer num) const
2481{
2482 Handle(IFSelect_Selection) sr;
2483 if (ItemIdent(sel) == 0) return sr;
2484 if (sel->IsKind(STANDARD_TYPE(IFSelect_SelectExtract)) ) sr =
2485 GetCasted(IFSelect_SelectExtract,sel)->Input();
2486 else if (sel->IsKind(STANDARD_TYPE(IFSelect_SelectDeduct)) ) sr =
2487 GetCasted(IFSelect_SelectDeduct,sel)->Input();
2488 else if (sel->IsKind(STANDARD_TYPE(IFSelect_SelectControl)) ) {
2489 if (num == 1) sr = GetCasted(IFSelect_SelectControl,sel)->MainInput();
2490 else if (num == 2) sr = GetCasted(IFSelect_SelectControl,sel)->SecondInput();
2491 }
2492 else if (sel->IsKind(STANDARD_TYPE(IFSelect_SelectCombine)) ) sr =
2493 GetCasted(IFSelect_SelectCombine,sel)->Input(num);
2494 return sr;
2495}
2496
2497
2498//=======================================================================
2499//function :
2500//purpose :
2501//=======================================================================
2502
2503Standard_Boolean IFSelect_WorkSession::IsReversedSelectExtract
2504 (const Handle(IFSelect_Selection)& sel) const
2505{
2506 if (ItemIdent(sel) == 0) return Standard_False;
2507 DeclareAndCast(IFSelect_SelectExtract,sxt,sel);
2508 if (sxt.IsNull()) return Standard_False;
2509 return (!sxt->IsDirect());
2510}
2511
2512
2513//=======================================================================
2514//function :
2515//purpose :
2516//=======================================================================
2517
2518Standard_Boolean IFSelect_WorkSession::ToggleSelectExtract
2519 (const Handle(IFSelect_Selection)& sel)
2520{
2521 if (ItemIdent(sel) == 0) return Standard_False;
2522 DeclareAndCast(IFSelect_SelectExtract,sxt,sel);
2523 if (sxt.IsNull()) return Standard_False;
2524 sxt->SetDirect(!sxt->IsDirect());
2525 return Standard_True;
2526}
2527
2528
2529//=======================================================================
2530//function :
2531//purpose :
2532//=======================================================================
2533
2534Standard_Boolean IFSelect_WorkSession::SetInputSelection
2535 (const Handle(IFSelect_Selection)& sel,
2536 const Handle(IFSelect_Selection)& inp)
2537{
2538 if (ItemIdent(sel) == 0) return Standard_False;
2539 if (!inp.IsNull() && ItemIdent(inp) == 0) return Standard_False;
2540 DeclareAndCast(IFSelect_SelectExtract,sxt,sel);
2541 if (!sxt.IsNull()) { sxt->SetInput(inp); return Standard_True; }
2542 DeclareAndCast(IFSelect_SelectDeduct,sdt,sel);
2543 if (!sdt.IsNull()) { sdt->SetInput(inp); return Standard_True; }
2544 return Standard_False;
2545}
2546
2547
2548//=======================================================================
2549//function :
2550//purpose :
2551//=======================================================================
2552
2553Standard_Boolean IFSelect_WorkSession::SetControl
2554 (const Handle(IFSelect_Selection)& sel,
2555 const Handle(IFSelect_Selection)& sc,
2556 const Standard_Boolean formain)
2557{
2558 DeclareAndCast(IFSelect_SelectControl,dsel,sel);
2559 if (ItemIdent(dsel) == 0) return Standard_False;
2560 if (ItemIdent(sc) == 0) return Standard_False;
2561 if (formain) dsel->SetMainInput (sc);
2562 else dsel->SetSecondInput (sc);
2563 return Standard_True;
2564}
2565
2566
2567//=======================================================================
2568//function :
2569//purpose :
2570//=======================================================================
2571
2572Standard_Integer IFSelect_WorkSession::CombineAdd
2573 (const Handle(IFSelect_Selection)& sel,
2574 const Handle(IFSelect_Selection)& seladd,
2575 const Standard_Integer atnum)
2576{
2577 DeclareAndCast(IFSelect_SelectCombine,csel,sel);
2578 if (ItemIdent(csel) == 0) return 0;
2579 if (ItemIdent(seladd) == 0) return 0;
2580 csel->Add (seladd,atnum);
2581 return csel->NbInputs();
2582}
2583
2584
2585//=======================================================================
2586//function :
2587//purpose :
2588//=======================================================================
2589
2590Standard_Boolean IFSelect_WorkSession::CombineRemove
2591 (const Handle(IFSelect_Selection)& selcomb,
2592 const Handle(IFSelect_Selection)& selrem)
2593{
2594 DeclareAndCast(IFSelect_SelectCombine,csel,selcomb);
2595 if (ItemIdent(csel) == 0) return Standard_False;
2596 if (ItemIdent(selrem) == 0) return Standard_False;
2597 Standard_Integer nb = csel->NbInputs();
2598 for (Standard_Integer i = nb; i > 0; i --) {
2599 if (csel->Input(i) == selrem) {
2600 csel->Remove(i);
2601 return Standard_True;
2602 }
2603 }
2604 return Standard_True;
2605}
2606
2607
2608//=======================================================================
2609//function :
2610//purpose :
2611//=======================================================================
2612
2613Handle(IFSelect_Selection) IFSelect_WorkSession::NewSelectPointed
2614 (const Handle(TColStd_HSequenceOfTransient)& list,
2615 const Standard_CString name)
2616{
2617 Handle(IFSelect_SelectPointed) sel = new IFSelect_SelectPointed;
2618 if (!list.IsNull()) sel->AddList (list);
2619 if (AddNamedItem (name,sel) == 0) sel.Nullify();
2620 return sel;
2621}
2622
2623
2624//=======================================================================
2625//function :
2626//purpose :
2627//=======================================================================
2628
2629Standard_Boolean IFSelect_WorkSession::SetSelectPointed
2630 (const Handle(IFSelect_Selection)& sel,
2631 const Handle(TColStd_HSequenceOfTransient)& list,
2632 const Standard_Integer mode) const
2633{
2634 DeclareAndCast(IFSelect_SelectPointed,sp,sel);
2635 if (sp.IsNull() || list.IsNull()) return Standard_False;
2636 if (mode == 0) sp->Clear();
2637 if (mode >= 0) sp->AddList(list);
2638 else sp->RemoveList(list);
2639 return Standard_True;
2640}
2641
2642
2643// ###########################################################################
2644// .... Analyse d un CheckIterator par rapport a un graphe ....
2645
2646//=======================================================================
2647//function :
2648//purpose :
2649//=======================================================================
2650
2651static void IFSelect_QueryProp (Interface_IntList& list,
2652 TCollection_AsciiString& ana,
2653 const Standard_Integer num, const int quoi)
2654{
2655 list.SetNumber(num);
2656 Standard_Integer i, nb = list.Length();
2657 for (i = 1; i <= nb; i ++) {
2658 if (i > 1) list.SetNumber(num); // because recursive call + depth first
2659 Standard_Integer n = list.Value(i);
2660// y a t il lieu de propager ?
2661// 1 W/place 2 F/place 3 Wprop 4Wprop+W/place 5Wprop+F/place
2662// 6 Fprop 7 Fprop+W/place 8 Fprop+F/place
2663 char val = ana.Value(n);
2664 switch (val) {
2665 case ' ' : val = (quoi ? '3' : '6'); break;
2666 case '1' : val = (quoi ? '4' : '7'); break;
2667 case '2' : val = (quoi ? '5' : '8'); break;
2668 case '3' : val = (quoi ? ' ' : '6'); break;
2669 case '4' : val = (quoi ? ' ' : '7'); break;
2670 case '5' : val = (quoi ? ' ' : '8'); break;
2671 case '6' : val = ' '; break;
2672 case '7' : val = ' '; break;
2673 case '8' : val = ' '; break;
2674 default : val = ' '; break;
2675 }
2676 if (val == ' ') continue;
2677 ana.SetValue(n,val);
2678 IFSelect_QueryProp (list,ana,n,quoi);
2679 }
2680}
2681
2682
2683//=======================================================================
2684//function :
2685//purpose :
2686//=======================================================================
2687
2688void IFSelect_WorkSession::QueryCheckList (const Interface_CheckIterator& chl)
2689{
2690 if (!IsLoaded()) return;
7f56eba8 2691 Standard_Integer i,nb = myModel->NbEntities();
4e76d93b 2692 thecheckana = TCollection_AsciiString (nb+1,' ');
7fd59977 2693 for (chl.Start(); chl.More(); chl.Next()) {
2694 Standard_Integer num = chl.Number();
2695 const Handle(Interface_Check) ach = chl.Value();
2696 if (ach->HasFailed()) thecheckana.SetValue(num,'2');
2697 else if (ach->HasWarnings()) thecheckana.SetValue(num,'1');
2698 }
2699// analyse selon le graphe ... codes : blc = rien
2700// 1 W/place 2 F/place 3 Wprop 4Wprop+W/place 5Wprop+F/place
2701// 6 Fprop 7 Fprop+W/place 8 Fprop+F/place
bc650d41 2702 Interface_IntList list;// = thegraph->Graph().SharingNums(0);
7fd59977 2703// deux passes : d abord Warning, puis Fail
2704 for (i = 1; i <= nb; i ++) {
2705 char val = thecheckana.Value(i);
2706 int quoi = -1;
2707 if (val == '1' || val == '4' || val == '7') quoi = 0;
2708 if (quoi >= 0) IFSelect_QueryProp (list,thecheckana,i,quoi);
2709 }
2710 for (i = 1; i <= nb; i ++) {
2711 char val = thecheckana.Value(i);
2712 int quoi = -1;
2713 if (val == '2' || val == '5' || val == '8') quoi = 1;
2714 if (quoi >= 0) IFSelect_QueryProp (list,thecheckana,i,quoi);
2715 }
2716}
2717
2718
2719//=======================================================================
2720//function :
2721//purpose :
2722//=======================================================================
2723
2724Standard_Integer IFSelect_WorkSession::QueryCheckStatus
2725 (const Handle(Standard_Transient)& ent) const
2726{
2727 if (!IsLoaded()) return -1;
7f56eba8 2728 Standard_Integer num = myModel->Number(ent);
7fd59977 2729 if (num == 0) return -1;
2730 if (thecheckana.Length() < num) return -1;
2731 Standard_Character val = thecheckana.Value (num);
2732// codes : blc = rien -> 0
2733// 1 W/place -> 1 2 F/place -> 2
2734// 3 Wprop -> 10 4 Wprop+W/place -> 11 5 Wprop+F/place -> 12
2735// 6 Fprop -> 20 7 Fprop+W/place -> 21 8 Fprop+F/place -> 22
2736 if (val == ' ') return 0;
2737 if (val == '1') return 1;
2738 if (val == '2') return 2;
2739 if (val == '3') return 10;
2740 if (val == '4') return 11;
2741 if (val == '5') return 12;
2742 if (val == '6') return 20;
2743 if (val == '7') return 21;
2744 if (val == '8') return 22;
2745 return 0;
2746}
2747
2748
2749//=======================================================================
2750//function :
2751//purpose :
2752//=======================================================================
2753
2754Standard_Integer IFSelect_WorkSession::QueryParent
2755 (const Handle(Standard_Transient)& entdad,
2756 const Handle(Standard_Transient)& entson) const
2757{
2758 Standard_Integer ndad = StartingNumber(entdad);
2759 Standard_Integer nson = StartingNumber(entson);
2760 if (ndad < 1 || nson < 1) return -1;
2761 if (ndad == nson) return 0;
2762// on va calculer : pour chaque pere immediat, de <son>, status avec <dad> + 1
2763// nb : pas protege contre les boucles ...
2764 Handle(TColStd_HSequenceOfTransient) list =
2765 thegraph->Graph().Sharings(entson).Content();
2766 if (list.IsNull()) return -1;
2767 Standard_Integer i, nb = list->Length();
2768 for (i = 1; i <= nb; i ++) {
2769 if (list->Value(i) == entdad) return 1;
2770 Standard_Integer stat = QueryParent ( entdad,list->Value(i) );
2771 if (stat >= 0) return stat+1;
2772 }
7fd59977 2773 return -1; // not yet implemented ...
2774}
2775
2776// ###########################################################################
2777// .... Dumps et Evaluations, pas faciles a passer en arguments ....
2778
2779// #### #### #### #### #### #### #### #### ####
2780// .... DumpShare ....
2781
2782//=======================================================================
2783//function :
2784//purpose :
2785//=======================================================================
2786
2787void IFSelect_WorkSession::SetParams
7f56eba8 2788 (const NCollection_Vector<Handle(Standard_Transient)>& params,
2789 const NCollection_Vector<Standard_Integer>& uselist)
7fd59977 2790{
2791 Standard_Integer i, nbp = params.Length(), nbu = uselist.Length();
2792 Handle(IFSelect_ParamEditor) editor = new IFSelect_ParamEditor
2793 (nbp+nbu+50,"Parameter Editor");
3e64931d 2794 for (i = params.Lower(); i <= params.Upper(); i ++) {
7fd59977 2795 DeclareAndCast(Interface_TypedValue,val,params.Value(i));
2796 if (val.IsNull()) continue;
2797 editor->AddValue(val);
2798 }
2799 AddNamedItem("xst-params-edit",editor);
2800// Les EditForm
2801 Handle(IFSelect_EditForm) paramsall = editor->Form(Standard_False);
2802 AddNamedItem("xst-params-all",paramsall);
2803
2804// On attaque les EditForms partielles
2805 TColStd_SequenceOfInteger listgen,listload,listsend,listsplit,listread,listwrite;
3e64931d 2806 for (i = uselist.Lower(); i <= uselist.Upper(); i ++) {
7fd59977 2807 Standard_Integer use = uselist.Value(i);
2808 switch (use) {
2809 case 1 : listgen.Append(i); break;
2810 case 2 : listread.Append(i); break;
2811 case 3 : listsend.Append(i); break;
2812 case 4 : listsplit.Append(i); break;
2813 case 5 : listread.Append(i); break;
2814 case 6 : listwrite.Append(i); break;
2815 default : break;
2816 }
2817 }
2818 Handle(IFSelect_EditForm) paramsgen = new IFSelect_EditForm
2819 (editor,listgen ,Standard_False,Standard_True,"General Parameters");
2820 if (listgen.Length() > 0) AddNamedItem("xst-params-general",paramsgen);
2821 Handle(IFSelect_EditForm) paramsload = new IFSelect_EditForm
2822 (editor,listload,Standard_False,Standard_True,"Loading Parameters");
2823 if (listload.Length() > 0) AddNamedItem("xst-params-load", paramsload);
2824 Handle(IFSelect_EditForm) paramssend = new IFSelect_EditForm
2825 (editor,listsend,Standard_False,Standard_True,"Sending Parameters");
2826 if (listsend.Length() > 0) AddNamedItem("xst-params-send", paramssend);
2827 Handle(IFSelect_EditForm) paramsplit = new IFSelect_EditForm
2828 (editor,listsplit,Standard_False,Standard_True,"Split Parameters");
2829 if (listsplit.Length() > 0) AddNamedItem("xst-params-split", paramsplit);
2830 Handle(IFSelect_EditForm) paramsread = new IFSelect_EditForm
2831 (editor,listread,Standard_False,Standard_True,"Read(Transfer) Parameters");
2832 if (listread.Length() > 0) AddNamedItem("xst-params-read", paramsread);
2833 Handle(IFSelect_EditForm) paramswrite = new IFSelect_EditForm
2834 (editor,listwrite,Standard_False,Standard_True,"Write(Transfer) Parameters");
2835 if (listwrite.Length() > 0) AddNamedItem("xst-params-write", paramswrite);
2836}
2837
2838
2839//=======================================================================
2840//function :
2841//purpose :
2842//=======================================================================
2843
2844void IFSelect_WorkSession::TraceStatics
2845 (const Standard_Integer use, const Standard_Integer mode) const
2846{
2847 Handle(Message_Messenger) sout = Message::DefaultMessenger();
2848 if (use > 0) {
2849 if (mode == 0) sout<<"******************************************"<<endl;
2850 if (use == 1) {
2851 if (mode == 0) sout<<"***** General Parameters *****"<<endl;
2852 } else if (use == 2) {
2853 if (mode == 0) sout<<"***** Load File *****"<<endl;
2854 } else if (use == 3) {
2855 if (mode == 0) sout<<"***** Write File *****"<<endl;
2856 } else if (use == 4) {
2857 if (mode == 0) sout<<"***** Split File *****"<<endl;
2858 } else if (use == 5) {
2859 if (mode == 0) sout<<"***** Transfer (Read) *****"<<endl;
2860 } else if (use == 6) {
2861 if (mode == 0) sout<<"***** Transfer (Write) *****"<<endl;
2862 }
2863 if (mode == 0) sout<<"******************************************"<<endl<<endl;
2864 }
2865
2866// Echainements particuliers (use > 0)
2867 if (use == 5) {
2868 TraceStatics (-2,mode);
2869 if (mode == 0) sout<<endl;
2870 } else if (use == 4 || use == 6) {
2871 TraceStatics (-3,mode);
2872 if (mode == 0) sout<<endl;
2873 }
2874
2875// Valeurs particulieres
2876 if (use == 1 || use == -1) { // General : trace
2877 if (mode == 0) {
2878// sout << "Trace Level : "<<Message_PrinterOStream::Default()->GetTraceLevel()<<endl;
2879 }
2880 } else if (use == 4 || use == -4) { // Split : Prefix & cie
2881 if (mode == 0) {
2882 Handle(TCollection_HAsciiString) str = theshareout->Prefix();
2883 if (!str.IsNull()) sout << "Prefix : "<<str->ToCString()<<endl;
2884 else sout << "Prefix not Defined" << endl;
2885 str = theshareout->DefaultRootName();
2886 if (!str.IsNull()) sout << "Default Root : "<<str->ToCString()<<endl;
2887 else sout << "Default Root not Defined" << endl;
2888 str = theshareout->Extension();
2889 if (!str.IsNull()) sout << "Extension : "<<str->ToCString()<<endl;
2890 else sout << "Extension not defined" << endl;
2891 }
2892 }
2893
2894// LISTER LES STATICS
2895// Passer par les ParamEditor ...
2896
2897// Fin
2898 if (use > 0) {
2899 if (mode == 0) sout<<"******************************************"<<endl<<endl;
2900 }
2901}
2902
2903
2904//=======================================================================
2905//function :
2906//purpose :
2907//=======================================================================
2908
2909void IFSelect_WorkSession::DumpShare () const
2910{
2911 Handle(Message_Messenger) sout = Message::DefaultMessenger();
2912 sout<<" ********** Definition ShareOut (Complete) **********"<<endl;
2913
2914 Handle(TCollection_HAsciiString) str = theshareout->Prefix();
2915 if (!str.IsNull()) sout << "Prefix : " << str->ToCString() << endl;
2916 else sout << "Prefix not Defined" << endl;
2917 str = theshareout->DefaultRootName();
2918 if (!str.IsNull()) sout << "Default Root : " << str->ToCString() << endl;
2919 else sout << "Default Root not Defined" << endl;
2920 str = theshareout->Extension();
2921 if (!str.IsNull()) sout << "Extension : " << str->ToCString() << endl;
2922 else sout << "Extension not defined" << endl;
2923
2924 Standard_Integer lr = theshareout->LastRun();
2925 Standard_Integer nb = theshareout->NbDispatches();
2926 sout << "Nb Dispatches : " << nb <<" (Last Run : " << lr << ") : "<<endl;
2927 for (Standard_Integer i = 1; i <= nb; i ++) {
2928 Handle(IFSelect_Dispatch) disp = theshareout->Dispatch(i);
2929 sout << "Dispatch n0 " << i;
2930 if (HasName(disp)) sout << " Name:"<< Name(disp)->ToCString();
2931 sout << " Label:" << disp->Label() << endl;
2932 Handle(IFSelect_Selection) sel = disp->FinalSelection();
2933 if (sel.IsNull()) sout << " No Final Selection Defined" << endl;
2934 else if (HasName(sel)) sout << " Final Selection : Name:"
2935 << Name(sel)->ToCString() << " Label:" << sel->Label() << endl;
2936 else sout << " Final Selection : " << sel->Label() << endl;
2937 if (disp->HasRootName())
2938 sout<<" File Root Name : "<<disp->RootName()->ToCString()<<endl;
2939 else sout<<" No specific file root name (see Default Root)"<<endl;
2940 }
2941 Standard_Integer nbm = theshareout->NbModifiers(Standard_True);
2942 if (nbm > 0) sout<<
2943 " *** "<<nbm<<" active Model Modifiers : see ListModifiers ***"<<endl;
2944 Standard_Integer nbf = theshareout->NbModifiers(Standard_False);
2945 if (nbf > 0) sout<<
2946 " *** "<<nbf<<" active File Modifiers : see ListModifiers ***"<<endl;
2947 if (nbm+nbf == 0) sout<<" *** No active Modifiers ***"<<endl;
2948}
2949
2950// #### #### #### #### #### #### #### #### ####
2951// .... ListItems ....
2952
2953//=======================================================================
2954//function :
2955//purpose :
2956//=======================================================================
2957
2958void IFSelect_WorkSession::ListItems (const Standard_CString lab) const
2959{
2960 Handle(Message_Messenger) sout = Message::DefaultMessenger();
2961 sout<< " ********** Items in Session **********"<<endl;
2962 Standard_Integer nb = MaxIdent();
2963 Handle(TCollection_HAsciiString) str;
2964 if (lab[0] != '\0') str = new TCollection_HAsciiString (lab);
2965 for (Standard_Integer i = 1; i <= nb; i ++) {
2966 const Handle(Standard_Transient)& var = theitems.FindKey(i);
2967 Handle(TCollection_HAsciiString) label = ItemLabel(i);
2968 if (label.IsNull()) continue; // -> item supprime
2969 if (!str.IsNull()) { if (label->Location(str,1,label->Length()) == 0) continue; }
2970 sout<<"#"<<i;
2971 if (HasName(var)) sout<<" - Named : "<<Name(var)->ToCString()<<" - ";
2972 else sout<<" - (no name) - ";
2973 sout<<var->DynamicType()->Name()<<endl<<" "<<label->ToCString()<<endl;
2974 }
2975}
2976
2977// #### #### #### #### #### #### #### #### ####
2978// .... ListModifiers
2979
2980//=======================================================================
2981//function :
2982//purpose :
2983//=======================================================================
2984
2985void IFSelect_WorkSession::ListFinalModifiers
2986 (const Standard_Boolean formodel) const
2987{
2988 Handle(Message_Messenger) sout = Message::DefaultMessenger();
2989 Standard_Integer nb = theshareout->NbModifiers(formodel);
2990 sout<< " ********** Modifiers in Session ";
2991 sout<<(formodel ? "(For Model)" : "(For File)");
2992 sout<<": "<<nb<<" **********"<<endl;
2993 for (Standard_Integer i = 1; i <= nb; i ++) {
2994 Handle(IFSelect_GeneralModifier) modif =
2995 theshareout->GeneralModifier(formodel,i);
2996 if (!modif.IsNull()) sout<<"Modifier n0."<<i<<" : "<<modif->Label();
2997 if (HasName(modif)) sout << " Named as : " << Name(modif)->ToCString();
2998 sout<<endl;
2999 }
3000}
3001
3002// #### #### #### #### #### #### #### #### ####
3003// .... DumpSelection ....
3004
3005//=======================================================================
3006//function :
3007//purpose :
3008//=======================================================================
3009
3010void IFSelect_WorkSession::DumpSelection
3011 (const Handle(IFSelect_Selection)& sel) const
3012{
3013 Handle(Message_Messenger) sout = Message::DefaultMessenger();
3014 if (ItemIdent(sel) == 0) {
586db386 3015 sout << "Selection : Unknown"<<endl; //sout<<Handle
7fd59977 3016 return;
3017 }
3018 sout << " ********** Selection";
3019 if (HasName(sel)) sout << " , Name : " << Name(sel)->ToCString();
3020 sout <<" **********"<<endl;
3021 sout<< "Label : " << sel->Label() << " . Input(s) : "<< endl;
3022 Standard_Integer nb = 0;
3023 IFSelect_SelectionIterator iter; sel->FillIterator(iter);
3024 for (; iter.More(); iter.Next()) {
3025 nb ++;
3026 Handle(IFSelect_Selection) newsel = iter.Value();
3027 sout<<" -- "<<newsel->Label()<<endl;
3028 }
3029 sout << " Nb Inputs:"<<nb<<endl;
3030}
3031
3032
3033// ##########################################
3034// ######### Fonctions complementaires
3035// ##########################################
3036
3037// #### #### #### #### #### #### #### #### ####
3038// .... DumpModel ....
3039
3040//=======================================================================
3041//function :
3042//purpose :
3043//=======================================================================
3044
3045Handle(IFSelect_Selection) IFSelect_WorkSession::GiveSelection
3046 (const Standard_CString selname) const
3047{
3048 char nomsel[500];
3049 Standard_Integer np = -1, nf = -1, nivp = 0;
3050 for (Standard_Integer n = 0; selname[n] != '\0'; n ++) {
3051 nomsel[n] = selname[n]; nomsel[n+1] = '\0';
3052 if (selname[n] == '(') { np = n; nivp ++; }
3053 if (selname[n] == ')') { nivp --; if (nivp <= 0) nf = n; }
3054//// if (selname[n] == ' ') { nb = n; break; }
3055 }
3056
3057 Handle(IFSelect_Selection) sel;
c48e2889 3058 if (np >= 0)
3059 {
3060 nomsel[np] = 0;
3061 }
3062 if (nf >= 0)
3063 {
3064 nomsel[nf] = '\0';
3065 }
7fd59977 3066 Handle(Standard_Transient) item = NamedItem(nomsel);
3067
3068// Parentheses ? essayer Signature (plus tard : Selection parametree)
3069// NB : on compte les niveaux de parentheses (imbrications repercutees)
3070 if (np > 0 && nf > 0) {
3071 Handle(IFSelect_SelectSignature) selsign;
3072 Standard_Integer debsign = np+1;
3073
3074 DeclareAndCast(IFSelect_Signature,sign,item);
3075 DeclareAndCast(IFSelect_SignCounter,cnt,item);
3076 if (!sign.IsNull()) selsign =
3077 new IFSelect_SelectSignature (sign,&nomsel[debsign],Standard_False);
3078 else if (!cnt.IsNull()) selsign =
3079 new IFSelect_SelectSignature (cnt,&nomsel[debsign],Standard_False);
3080 else {
3081 cout<<selname<<" : neither Signature nor Counter"<<endl;
3082 return sel;
3083 }
3084
3085 selsign->SetInput (new IFSelect_SelectModelEntities); // par defaut
3086 sel = selsign;
3087 }
3088
3089 else sel = GetCasted(IFSelect_Selection,item);
3090
3091 return sel;
3092}
3093
3094
3095//=======================================================================
3096//function :
3097//purpose :
3098//=======================================================================
3099
3100Handle(TColStd_HSequenceOfTransient) IFSelect_WorkSession::GiveList
3101 (const Handle(Standard_Transient)& obj) const
3102{
3103// Deja une liste
3104 DeclareAndCast(TColStd_HSequenceOfTransient,list,obj);
3105 if (!list.IsNull()) return list;
3106
3107// Rien du tout : retourne rien du tout
3108 if (obj.IsNull()) return list;
3109
3110// Une selection : son resultat (standard)
3111 DeclareAndCast(IFSelect_Selection,sel,obj);
3112 if (!sel.IsNull()) {
3113 Interface_EntityIterator iter = EvalSelection(sel);
3114 return iter.Content();
3115 }
3116
3117// Le modele : son contenu
3118 list = new TColStd_HSequenceOfTransient();
7f56eba8 3119 if (obj == myModel) {
3120 Standard_Integer i, nb = myModel->NbEntities();
3121 for (i = 1; i <= nb; i ++) list->Append (myModel->Value(i));
7fd59977 3122 }
3123
3124// Une entite du modele : cette entite
3125 else if (StartingNumber(obj) > 0) list->Append (obj);
3126
3127// Un Texte : son interpretation
3128 else {
3129 DeclareAndCast(TCollection_HAsciiString,str,obj);
3130 if (!str.IsNull()) return GiveList (str->ToCString());
3131 }
3132
3133// Si c est pas tout ca : une liste vide
3134 return list;
3135}
3136
3137
3138//=======================================================================
3139//function :
3140//purpose :
3141//=======================================================================
3142
3143Handle(TColStd_HSequenceOfTransient) IFSelect_WorkSession::GiveList
3144 (const Standard_CString first, const Standard_CString second) const
3145{
3146 Handle(TColStd_HSequenceOfTransient) list;
3147 if (!first || first[0] == '\0') return list;
3148 if (first[0] == ' ') return GiveList (&first[1],second);
3149 if (second && second[0] == ' ') return GiveList (first,&second[1]);
3150
3151// list NULLE sera interpretee comme SelectionResult (selection toute crue)
3152// sinon comme SelectionResultFromList
3153 if (second && second[0] != '\0') list = GiveList (second,"");
3154
3155 list = GiveListFromList (first,list);
3156 return list;
3157}
3158
3159
3160//=======================================================================
3161//function :
3162//purpose :
3163//=======================================================================
3164
3165Handle(TColStd_HSequenceOfTransient) IFSelect_WorkSession::GiveListFromList
3166 (const Standard_CString selname, const Handle(Standard_Transient)& ent) const
3167{
3168 Handle(TColStd_HSequenceOfTransient) list;
3169 Standard_Integer num;
3170
3171// LISTE DEFINIE D OFFICE (en ce cas, la liste d entree est ignoree)
3172 if (selname[0] == '(') {
3173// liste d entites donnees a la queue leu leu : (ID,ID,ID...)
3174 char entid[50]; Standard_Integer i,j = 0;
3175 TColStd_MapOfInteger numap;
3176 list = new TColStd_HSequenceOfTransient();
3177 for (i = 1; selname[i] != '\0'; i ++) {
3178 if (selname[i] == ' ') continue;
3179 if (selname[i] == ',' || selname[i] == ')') {
3180 entid[j] = '\0';
c48e2889 3181 if (j == 0) continue;
3182 j = 0;
7fd59977 3183 num = NumberFromLabel (entid);
3184 if (num <= 0 || !numap.Add (num)) continue;
3185 Handle(Standard_Transient) anent = StartingEntity(num);
3186 if (!anent.IsNull()) list->Append (anent);
3187 if (selname[i] == ')') break;
3188 continue;
3189 }
3190 entid[j] = selname[i]; j ++;
3191 }
3192 return list;
3193 }
3194 num = NumberFromLabel (selname);
3195 if (num > 0) return GiveList(StartingEntity(num));
3196
3197// Autres cas : y atil une liste d entree.
3198// Si OUI -> SelectionResultFromList. Si NON -> SelectionResult
3199// Si une entite isolee -> on en fait une liste
3200
3201 list = GiveList(ent); // ent NULL -> list NULL sinon intreprete
3202
3203// Decomposition term1 term2 ...
3204
3205 char nomsel[500]; nomsel[0] = '\0';
3206 Standard_Integer n= 0 , nb = -1;
3207 for (n = 0; selname[n] != '\0'; n ++) {
3208 nomsel[n] = selname[n]; nomsel[n+1] = '\0';
3209// if (selname[n] == '(') { np = n; nivp ++; }
3210// if (selname[n] == ')') { nivp --; if (nivp <= 0) nf = n; }
3211 if (selname[n] == ' ') { nb = n; nomsel[n] = '\0'; break; }
3212 }
3213 if (nomsel[0] == '\0') return list;
3214
3215 Handle(IFSelect_Selection) sel = GiveSelection (nomsel);
3216 if (sel.IsNull()) {
3217 cout<<"Neither Entity Number/Label nor Selection :"<<nomsel<<endl;
3218 return list;
3219 }
3220
3221 if (nb > 0) list = GiveListFromList (&selname[nb+1],list);
3222
3223 if (list.IsNull()) list = SelectionResult (sel);
3224 else list = SelectionResultFromList (sel,list);
3225
3226 return list;
3227}
3228
3229
3230//=======================================================================
3231//function :
3232//purpose :
3233//=======================================================================
3234
3235Handle(TColStd_HSequenceOfTransient) IFSelect_WorkSession::GiveListCombined
3236 (const Handle(TColStd_HSequenceOfTransient)& l1,
3237 const Handle(TColStd_HSequenceOfTransient)& l2,
3238 const Standard_Integer mode) const
3239{
3240 Handle(TColStd_HSequenceOfTransient) list;
3241 if (l1.IsNull() || l2.IsNull()) return list;
3242
3243// mode < 0 l1-l2 = 0 l1&l2 > 0 l1|l2 (l1+l2)
3244 TColStd_MapOfTransient numap;
3245 Standard_Integer i,n = l2->Length();
3246 for (i = n; i > 0; i --) {
3247 Handle(Standard_Transient) ent = l2->Value(i);
3248 if (ent.IsNull()) continue;
3249 numap.Add (ent);
3250 if (mode > 0) list->Append(ent);
3251 }
3252
3253// ents de l1 pas deja dans l2
3254 n = l1->Length();
3255 for (i = n; i > 0; i --) {
3256 Handle(Standard_Transient) ent = l1->Value(i);
3257 if (ent.IsNull()) continue;
3258
3259 if (numap.Contains(ent)) {
3260// dans l1 et dans l2
3261 if (mode == 0) list->Append(ent);
3262 } else {
3263// dans l1 mais pas dans l2
3264 if (mode != 0) list->Append(ent);
3265 }
3266 }
3267
3268 list->Reverse();
3269 return list;
3270}
3271
3272
3273//=======================================================================
3274//function :
3275//purpose :
3276//=======================================================================
3277
3278void IFSelect_WorkSession::DumpModel
3279 (const Standard_Integer level, const Handle(Message_Messenger)& S)
3280{
3281 if (!IsLoaded())
3282 { S<< " *** Data for List not available ***"<<endl; return; }
3283 S << "\n *****************************************************************\n";
3284 if (theloaded.Length() > 0)
3285 S << " ******** Loaded File : "<<theloaded.ToCString()<<Interface_MSG::Blanks(32-theloaded.Length())<<" ********"<<endl;
3286 else S << " ******** No name for Loaded File"<<endl;
3287 if (level == 0) {
586db386 3288 S<<" ******** Short Dump of Header ********\n";
7fd59977 3289 S << " *****************************************************************\n\n";
7f56eba8 3290 myModel->DumpHeader(S); S<<endl;
7fd59977 3291 }
3292
7f56eba8 3293 Standard_Integer nbent = myModel->NbEntities();
7fd59977 3294 Standard_Integer nbr = 0;
3295 Interface_ShareFlags shar(thegraph->Graph());
3296
3297 for (Standard_Integer i = 1; i <= nbent; i ++) {
7f56eba8 3298 if (!shar.IsShared(myModel->Value(i))) nbr ++;
7fd59977 3299 }
3300 S << " *****************************************************************\n";
586db386 3301 S << " ******** Model : "<<nbent<<" Entities, of which "<<nbr<<" Root(s)\n";
7fd59977 3302 S << " *****************************************************************\n"<<endl;
3303
3304 if (level <= 0) return;
3305 else if (level == 1) {
3306 S<<" ******** Root Entities ******** ";
3307 ListEntities (shar.RootEntities(),1);
3308 } else if (level == 2) {
3309 S<<" ******** Complete List ******** ";
7f56eba8 3310 ListEntities (myModel->Entities(),1);
7fd59977 3311 } else if (level > 2) {
3312 IFSelect_PrintCount mode = IFSelect_ItemsByEntity;
3313 if (level == 5 || level == 8) mode = IFSelect_CountByItem;
3314 if (level == 6 || level == 9) mode = IFSelect_ListByItem;
3315 if (level == 7 || level == 10) mode = IFSelect_EntitiesByItem;
7fd59977 3316 PrintCheckList (ModelCheckList(),Standard_False, mode);
3317 } else {
3318 if (level == 3) S << " ******** Check Model (Fails) ********"<<endl;
3319 else S << " ******** Check Model (Complete) ********"<<endl;
3320 Interface_CheckTool CT (Graph());
3321 Interface_CheckIterator C;
3322 if (theerrhand) {
3323 try {
3324 OCC_CATCH_SIGNALS
3325 if (level == 3) C = CT.CheckList();
3326 else C = CT.CompleteCheckList();
3327 }
3328 catch (Standard_Failure) {
3329 Handle(Message_Messenger) sout = Message::DefaultMessenger();
3330 sout<<" **** Interruption DumpModel (Check) par Exception ****\n";
3331 S<<" ** ** Exception Raised during Check ! ** **\n";
3332 S<<" --> what could be determined is listed"<<endl;
3333 }
3334 }
3335 else if (level == 3) C = CT.CheckList();
3336 else C = CT.CompleteCheckList();
3337
3338// Check List : si vide (pas demandee), naturellement passee
3339 try {
3340 OCC_CATCH_SIGNALS
7f56eba8 3341 C.Print(S,myModel, (level == 3));
7fd59977 3342 }
9775fa61 3343 catch (Standard_Failure const& anException) {
7fd59977 3344 Handle(Message_Messenger) sout = Message::DefaultMessenger();
3345 sout<<" **** Interruption DumpModel par Exception : ****\n";
9775fa61 3346 sout<<anException.GetMessageString();
7fd59977 3347 sout<<"\n Abandon"<<endl;
3348 }
3349
3350 }
3351 S<<endl<<"There are "<<nbent<<" Entities, of which "<<nbr<<" Root(s)"<<endl;
3352}
3353
3354// .... TraceDumpModel .... (Model + CheckList)
3355
3356//=======================================================================
3357//function :
3358//purpose :
3359//=======================================================================
3360
3361void IFSelect_WorkSession::TraceDumpModel
3362 (const Standard_Integer mode)
3363{
3364 Handle(Message_Messenger) sout = Message::DefaultMessenger();
3365 DumpModel (mode,sout);
3366// if (mode <= 4) { DumpModel (mode,sout); return; }
3367
3368// else if (mode <= 7) PrintCheckList (ModelCheckList(),Standard_False, mode-5);
3369// else if (mode <=10) PrintCheckList (ModelCheckList(),Standard_True , mode-8);
3370}
3371
3372// .... DumpEntity ....
3373
3374//=======================================================================
3375//function :
3376//purpose :
3377//=======================================================================
3378
3379void IFSelect_WorkSession::DumpEntity
3380 (const Handle(Standard_Transient)& ent, const Standard_Integer level,
3381 const Handle(Message_Messenger)& S) const
3382{
3383 if (!IsLoaded())
3384 { S<< " *** Data for List not available ***"<<endl; return; }
7f56eba8 3385 Standard_Integer num = myModel->Number(ent);
7fd59977 3386 if (num == 0) { S<<" *** Entity to Dump not in the Model ***"<<endl; return; }
3387 if (thelibrary.IsNull()) { S<<" *** WorkLibrary not defined ***"<<endl; return; }
3388 S << " ******** Dumping Entity n0 "<<num
3389 <<" level:"<<level<<" ********"<<endl;
7f56eba8 3390 thelibrary->DumpEntity (myModel,theprotocol,ent,S,level);
7fd59977 3391}
3392
3393// .... DumpEntity ....
3394
3395//=======================================================================
3396//function :
3397//purpose :
3398//=======================================================================
3399
3400void IFSelect_WorkSession::TraceDumpEntity
3401 (const Handle(Standard_Transient)& ent, const Standard_Integer level) const
3402{
3403 Handle(Message_Messenger) sout = Message::DefaultMessenger();
3404 DumpEntity (ent,level,sout);
3405}
3406
3407// .... PrintEntityStatus ....
3408
3409//=======================================================================
3410//function :
3411//purpose :
3412//=======================================================================
3413
3414void IFSelect_WorkSession::PrintEntityStatus
3415 (const Handle(Standard_Transient)& ent, const Handle(Message_Messenger)& S)
3416{
3417 Standard_Integer i,nb;
3418 Standard_Integer num = StartingNumber(ent);
3419 if (num == 0) { cout<<" -- PrintEntityStatus : unknown"<<endl; return; }
3420
3421 S <<" Ent. n0/id: ";
7f56eba8 3422 myModel->Print(ent,S);
7fd59977 3423 Handle(TCollection_HAsciiString) hname = EntityName(ent);
3424 if (!hname.IsNull() && hname->Length() > 0) S<<" Name:"<<hname->ToCString();
3425 S<<endl;
3426 Handle(IFSelect_Signature) signtype = SignType();
3427 if (signtype.IsNull()) S<<" Type(CDL):"<<ent->DynamicType()->Name()<<endl;
7f56eba8 3428 else S <<" Type:"<<signtype->Value (ent,myModel)<<endl;
7fd59977 3429 S <<" Category : " <<CategoryName (ent)
3430 <<" Validity : " <<ValidityName (ent) << endl;
3431 Interface_CheckIterator chl = CheckOne (ent);
7f56eba8 3432 chl.Print (S,myModel,Standard_False,Standard_False);
7fd59977 3433
3434 Handle(TColStd_HSequenceOfTransient) list = Sharings(ent);
3435 if (list.IsNull()) S<<" Root"<<endl;
3436 else {
3437 nb = list->Length();
3438 if (nb == 0) S<<" Root";
3439 else S<<" Super-entities:"<<nb<<" : (n0/id):";
7f56eba8 3440 for (i = 1; i <= nb; i ++) { S<<" "; myModel->Print(list->Value(i),S); }
7fd59977 3441 S<<endl;
3442 }
3443 list = Shareds (ent);
3444 if (list.IsNull()) S<<" No sub-entity"<<endl;
3445 else {
3446 nb = list->Length();
3447 if (nb == 0) S<<" No sub-entity";
3448 else S<<" Sub-entities:"<<nb<<" , i.e. (n0/id):";
7f56eba8 3449 for (i = 1; i <= nb; i ++) { S<<" "; myModel->Print(list->Value(i),S); }
7fd59977 3450 S<<endl;
3451 }
3452}
3453
3454// .... PrintCheckList ....
3455
3456//=======================================================================
3457//function :
3458//purpose :
3459//=======================================================================
3460
3461void IFSelect_WorkSession::PrintCheckList
3462 (const Interface_CheckIterator& checklist,
3463 const Standard_Boolean failsonly, const IFSelect_PrintCount mode) const
3464{
3465// mode : 0 comptage 1 n0s entites 2 n0s+id ents
3466 Handle(Message_Messenger) sout = Message::DefaultMessenger();
7f56eba8 3467 if (mode == IFSelect_ItemsByEntity) checklist.Print (sout,myModel,failsonly);
7fd59977 3468 else {
3469 Interface_CheckIterator chks = checklist;
3470 Handle(IFSelect_CheckCounter) counter =
3471 new IFSelect_CheckCounter (mode>1 && mode != IFSelect_CountSummary);
7f56eba8 3472 counter->Analyse (chks,myModel,Standard_True,failsonly);
3473 counter->PrintList (sout,myModel,mode);
7fd59977 3474 }
3475}
3476
3477// .... PrintSignatureList ....
3478
3479//=======================================================================
3480//function :
3481//purpose :
3482//=======================================================================
3483
3484void IFSelect_WorkSession::PrintSignatureList
3485 (const Handle(IFSelect_SignatureList)& signlist,
3486 const IFSelect_PrintCount mode) const
3487{
3488 Handle(Message_Messenger) sout = Message::DefaultMessenger();
3489 if (signlist.IsNull()) return;
7f56eba8 3490 signlist->PrintList (sout,myModel,mode);
7fd59977 3491}
3492
3493// #### #### #### #### #### #### #### #### ####
3494// .... EvaluateSelection ....
3495
3496//=======================================================================
3497//function :
3498//purpose :
3499//=======================================================================
3500
3501void IFSelect_WorkSession::EvaluateSelection
3502 (const Handle(IFSelect_Selection)& sel) const
3503{
3504 Handle(Message_Messenger) sout = Message::DefaultMessenger();
3505 if (errhand) {
3506 errhand = Standard_False;
3507 try {
3508 OCC_CATCH_SIGNALS
3509 EvaluateSelection(sel); // appel normal (->code unique)
3510 }
9775fa61 3511 catch (Standard_Failure const& anException) {
7fd59977 3512 sout<<" **** Interruption EvaluateSelection par Exception **** Intitule\n";
9775fa61 3513 sout<<anException.GetMessageString();
7fd59977 3514 sout<<"\n Abandon"<<endl;
3515 }
3516 errhand = theerrhand;
3517 return;
3518 }
3519
3520 if (!IsLoaded())
3521 { sout<< " *** Data for Evaluation not available ***"<<endl; return; }
3522 if (ItemIdent(sel) == 0)
586db386 3523 { sout << " Selection : Unknown"<<endl; return; } //sout<<Handle
7fd59977 3524 Interface_EntityIterator iter = EvalSelection (sel);
3525 ListEntities (iter,1);
3526 sout << "**** (Unique) RootResult, Selection : "
3527 <<sel->Label()<<endl;
3528}
3529
3530
3531// #### #### #### #### #### #### #### #### ####
3532// .... EvaluateDispatch ....
3533
3534//=======================================================================
3535//function :
3536//purpose :
3537//=======================================================================
3538
3539void IFSelect_WorkSession::EvaluateDispatch
3540 (const Handle(IFSelect_Dispatch)& disp, const Standard_Integer mode) const
3541{
3542 Handle(Message_Messenger) sout = Message::DefaultMessenger();
3543 if (errhand) {
3544 errhand = Standard_False;
3545 try {
3546 OCC_CATCH_SIGNALS
3547 EvaluateDispatch(disp,mode); // appel normal (->code unique)