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