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