0031501: Foundation Classes, Message_Printer - remove theToPutEndl argument -- prepar...
[occt.git] / src / Interface / Interface_InterfaceModel.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 //szv#4 S4163  
15 //svv#1 11.01.00 : porting on DEC
16 //svv#2 21.02.00 : porting on SIL
17 //smh#14 17.03.2000 : FRA62479 Clearing of gtool.
18
19 #include <Interface_Check.hxx>
20 #include <Interface_CheckIterator.hxx>
21 #include <Interface_EntityIterator.hxx>
22 #include <Interface_GeneralLib.hxx>
23 #include <Interface_GeneralModule.hxx>
24 #include <Interface_GTool.hxx>
25 #include <Interface_InterfaceMismatch.hxx>
26 #include <Interface_InterfaceModel.hxx>
27 #include <Interface_Protocol.hxx>
28 #include <Interface_ReportEntity.hxx>
29 #include <Interface_SignType.hxx>
30 #include <Standard_NoSuchObject.hxx>
31 #include <Standard_OutOfRange.hxx>
32 #include <Standard_Transient.hxx>
33 #include <Standard_Type.hxx>
34 #include <TCollection_HAsciiString.hxx>
35 #include <TColStd_Array1OfInteger.hxx>
36 #include <TColStd_Array1OfTransient.hxx>
37 #include <TColStd_DataMapIteratorOfDataMapOfIntegerTransient.hxx>
38
39 IMPLEMENT_STANDARD_RTTIEXT(Interface_InterfaceModel, Standard_Transient)
40
41 // Un Modele d`Interface est un ensemble ferme d`Entites d`interface : chacune
42 // est dans un seul modele a la fois; elle y a un numero (Number) qui permet de
43 // verifier qu`une entite est bien dans un seul modele, de definir des Map tres
44 // performantes, de fournir un identifieur numerique
45 // Il est a meme d`etre utilise dans des traitements de Graphe
46 // STATICS : les TEMPLATES
47 static NCollection_DataMap<TCollection_AsciiString, Handle(Standard_Transient)> atemp;
48
49 static const Handle(Standard_Type)& typerep()
50 {
51   static  Handle(Standard_Type) tr = STANDARD_TYPE(Interface_ReportEntity);
52   return tr;
53 }
54
55
56 static const Handle(Interface_Check)& nulch()
57 {
58   static Handle(Interface_Check) anulch = new Interface_Check;
59   return anulch;
60 }
61
62
63 //=======================================================================
64 //function : Interface_InterfaceModel
65 //purpose  : 
66 //=======================================================================
67
68 Interface_InterfaceModel::Interface_InterfaceModel ()
69      : haschecksem (Standard_False), isdispatch (Standard_False)
70 {
71   thecheckstx = new Interface_Check;
72   thechecksem = new Interface_Check;
73 }
74
75
76 //=======================================================================
77 //function : Destroy
78 //purpose  : 
79 //=======================================================================
80
81 void Interface_InterfaceModel::Destroy ()  // on fait un mimumum
82 {
83 //   Moins que Clear que, lui, est adapte a chaque norme
84   ClearEntities();
85   thecheckstx->Clear();
86   thechecksem->Clear();
87   thecategory.Nullify();
88 }
89
90
91 //=======================================================================
92 //function : SetProtocol
93 //purpose  : 
94 //=======================================================================
95
96 void Interface_InterfaceModel::SetProtocol(const Handle(Interface_Protocol)& proto)
97 {
98   thegtool = new Interface_GTool(proto);
99 }
100
101
102 //=======================================================================
103 //function : Protocol
104 //purpose  : 
105 //=======================================================================
106
107 Handle(Interface_Protocol) Interface_InterfaceModel::Protocol () const
108 {
109   Handle(Interface_Protocol) proto;
110   if (!thegtool.IsNull()) return thegtool->Protocol();
111   return proto;
112 }
113
114
115 //=======================================================================
116 //function : SetGTool
117 //purpose  : 
118 //=======================================================================
119
120 void Interface_InterfaceModel::SetGTool(const Handle(Interface_GTool)& gtool)
121 {
122   thegtool = gtool;
123 }
124
125
126 //=======================================================================
127 //function : GTool
128 //purpose  : 
129 //=======================================================================
130
131 Handle(Interface_GTool) Interface_InterfaceModel::GTool () const
132 {
133   return thegtool;
134 }
135
136
137 //=======================================================================
138 //function : Clear
139 //purpose  : 
140 //=======================================================================
141
142 void Interface_InterfaceModel::Clear ()
143 {
144   ClearEntities();
145   thecheckstx->Clear();
146   thechecksem->Clear();
147   ClearHeader();
148   ClearLabels();
149   thecategory.Nullify();
150 }
151
152
153 //=======================================================================
154 //function : DispatchStatus
155 //purpose  : 
156 //=======================================================================
157
158 Standard_Boolean& Interface_InterfaceModel::DispatchStatus ()
159 {
160   return isdispatch;
161 }
162
163
164 //=======================================================================
165 //function : ClearEntities
166 //purpose  : 
167 //=======================================================================
168
169 void Interface_InterfaceModel::ClearEntities ()
170 {
171   thereports.Clear();
172   therepch.Clear();
173   haschecksem = Standard_False;
174
175   if (!thegtool.IsNull()) {
176 // WhenDeleteCase is not applicable    
177 /*    Handle(Interface_GeneralModule) module;  Standard_Integer CN;
178     Standard_Integer nb = NbEntities();
179     for (Standard_Integer i = 1; i <= nb ; i ++) {
180       Handle(Standard_Transient) anent = Value(i);
181       if (thegtool->Select (anent,module,CN))
182         module->WhenDeleteCase (CN,anent,isdispatch);
183     }*/
184     thegtool->ClearEntities(); //smh#14 FRA62479
185   }
186   isdispatch = Standard_False;
187   theentities.Clear();
188 }
189
190
191 //  ....                ACCES AUX ENTITES                ....
192
193
194 //=======================================================================
195 //function : NbEntities
196 //purpose  : 
197 //=======================================================================
198
199 Standard_Integer Interface_InterfaceModel::NbEntities () const
200 {
201   return theentities.Extent();
202 }
203
204
205 //=======================================================================
206 //function : Contains
207 //purpose  : 
208 //=======================================================================
209
210 Standard_Boolean Interface_InterfaceModel::Contains
211   (const Handle(Standard_Transient)& anentity) const
212 {
213   if (theentities.Contains(anentity)) return Standard_True;
214   Handle(Interface_ReportEntity) rep =
215     Handle(Interface_ReportEntity)::DownCast(anentity);
216   if (!rep.IsNull()) return Contains(rep->Concerned());
217   return Standard_False;
218 }
219
220
221 //=======================================================================
222 //function : Number
223 //purpose  : 
224 //=======================================================================
225
226 Standard_Integer Interface_InterfaceModel::Number
227   (const Handle(Standard_Transient)& anentity) const
228 {
229   if (anentity.IsNull()) return 0;
230   Standard_Integer num = theentities.FindIndex(anentity);
231   if (num > 0) return num;
232   if (anentity->IsKind(typerep())) {
233     Handle(Interface_ReportEntity) rep =
234       Handle(Interface_ReportEntity)::DownCast(anentity);
235     if (!rep.IsNull()) return Number(rep->Concerned());
236   }
237   return 0;
238 }
239
240 /*
241 Standard_Integer Interface_InterfaceModel::DENumber
242                  (const Handle(Standard_Transient)& anentity) const
243 {
244   if (anentity.IsNull()) return 0;
245   Standard_Integer num = theentities.FindIndex(anentity);
246   if (num > 0) return (2*num-1);
247   if (anentity->IsKind(typerep())) {
248     Handle(Interface_ReportEntity) rep =
249       Handle(Interface_ReportEntity)::DownCast(anentity);
250     if (!rep.IsNull()) return (Number(rep->Concerned())*2-1);
251   }
252   return 0;
253 }
254 */
255
256 //  ..                Acces Speciaux (Report, etc...)                ..
257
258
259 //=======================================================================
260 //function : Value
261 //purpose  : 
262 //=======================================================================
263
264 const Handle(Standard_Transient)& Interface_InterfaceModel::Value
265        (const Standard_Integer num) const
266 {
267   return theentities.FindKey(num);
268 }
269
270
271 //=======================================================================
272 //function : NbTypes
273 //purpose  : 
274 //=======================================================================
275
276 Standard_Integer Interface_InterfaceModel::NbTypes
277   (const Handle(Standard_Transient)& ent) const
278 {
279   if (Protocol().IsNull()) return 1;
280   return  Protocol()->NbTypes(ent);
281 }
282
283
284 //=======================================================================
285 //function : Type
286 //purpose  : 
287 //=======================================================================
288
289 Handle(Standard_Type) Interface_InterfaceModel::Type
290   (const Handle(Standard_Transient)& ent, const Standard_Integer nt) const
291 {
292   if (Protocol().IsNull()) return ent->DynamicType();
293   return  Protocol()->Type(ent,nt);
294 }
295
296
297 //=======================================================================
298 //function : TypeName
299 //purpose  : 
300 //=======================================================================
301
302 Standard_CString Interface_InterfaceModel::TypeName
303   (const Handle(Standard_Transient)& ent, const Standard_Boolean complet) const
304 {
305   if (!thegtool.IsNull()) return thegtool->SignValue (ent,this);
306   Standard_CString tn = ent->DynamicType()->Name();
307   if (complet) return tn;
308   return Interface_InterfaceModel::ClassName(tn);
309 }
310
311
312 //=======================================================================
313 //function : ClassName
314 //purpose  : 
315 //=======================================================================
316
317 Standard_CString Interface_InterfaceModel::ClassName(const Standard_CString typnam)
318 {
319   return Interface_SignType::ClassName (typnam);
320 }
321
322
323 //=======================================================================
324 //function : EntityState
325 //purpose  : 
326 //=======================================================================
327
328 Interface_DataState Interface_InterfaceModel::EntityState
329   (const Standard_Integer num) const
330 {
331   Handle(Interface_ReportEntity) rep;
332   if (!thereports.IsBound(num)) {
333     if (!therepch.IsBound(num)) return Interface_StateOK;
334     rep = Handle(Interface_ReportEntity)::DownCast(therepch.Find(num));
335     if (rep->IsError()) return Interface_DataFail;
336     return Interface_DataWarning;
337   }
338   rep = Handle(Interface_ReportEntity)::DownCast(thereports.Find(num));
339   if (rep.IsNull()) return Interface_StateUnknown;
340   if (rep->IsUnknown()) return Interface_StateUnknown;
341   if (rep->HasNewContent()) return Interface_StateUnloaded;
342   if (rep->IsError()) return Interface_LoadFail;
343
344   if (!therepch.IsBound(num)) return Interface_LoadWarning;
345   rep = Handle(Interface_ReportEntity)::DownCast(therepch.Find(num));
346   if (rep->IsError()) return Interface_DataFail;
347   return Interface_DataWarning;
348 }
349
350
351 //=======================================================================
352 //function : IsReportEntity
353 //purpose  : 
354 //=======================================================================
355
356 Standard_Boolean Interface_InterfaceModel::IsReportEntity
357   (const Standard_Integer num, const Standard_Boolean semantic) const
358 {
359   return (semantic ? therepch.IsBound(num) : thereports.IsBound(num));
360 }
361
362
363 //=======================================================================
364 //function : ReportEntity
365 //purpose  : 
366 //=======================================================================
367
368 Handle(Interface_ReportEntity) Interface_InterfaceModel::ReportEntity
369        (const Standard_Integer num, const Standard_Boolean semantic) const
370 {
371   Handle(Interface_ReportEntity) rep;
372   if (!IsReportEntity(num,semantic)) return rep;
373   if (semantic) rep = Handle(Interface_ReportEntity)::DownCast(therepch.Find(num));
374   else rep = Handle(Interface_ReportEntity)::DownCast(thereports.Find(num));
375   return rep;
376 }
377
378
379 //=======================================================================
380 //function : IsErrorEntity
381 //purpose  : 
382 //=======================================================================
383
384 Standard_Boolean Interface_InterfaceModel::IsErrorEntity
385   (const Standard_Integer num) const
386 {
387   Handle(Interface_ReportEntity) rep = ReportEntity(num);
388   if (rep.IsNull()) return Standard_False;
389   return rep->IsError();
390 }
391
392
393 //=======================================================================
394 //function : IsRedefinedContent
395 //purpose  : 
396 //=======================================================================
397
398 Standard_Boolean Interface_InterfaceModel::IsRedefinedContent
399   (const Standard_Integer num) const
400 {
401   Handle(Interface_ReportEntity) rep = ReportEntity(num);
402   if (rep.IsNull()) return Standard_False;
403   return rep->HasNewContent();
404 }
405
406
407 //=======================================================================
408 //function : ClearReportEntity
409 //purpose  : 
410 //=======================================================================
411
412 Standard_Boolean Interface_InterfaceModel::ClearReportEntity
413   (const Standard_Integer num)
414 {
415   if (!thereports.IsBound(num)) return Standard_False;
416   thereports.UnBind (num);
417   return Standard_True;
418 }
419
420
421 //=======================================================================
422 //function : SetReportEntity
423 //purpose  : 
424 //=======================================================================
425
426 Standard_Boolean Interface_InterfaceModel::SetReportEntity
427   (const Standard_Integer num, const Handle(Interface_ReportEntity)& rep)
428 {
429   Standard_Integer nm = num;
430   Handle(Standard_Transient) ent;
431   if (num > 0) {
432     ent = Value(nm);
433     if (! (ent == rep->Concerned()) ) throw Interface_InterfaceMismatch("InterfaceModel : SetReportEntity");
434   } else if (num < 0) {
435     nm = -num;
436     ent = Value(nm);
437     if (! (ent == rep->Concerned()) ) throw Interface_InterfaceMismatch("InterfaceModel : SetReportEntity");
438   } else {
439     ent = rep->Concerned();
440     nm = Number (ent);
441     if (nm == 0)  throw Interface_InterfaceMismatch("InterfaceModel : SetReportEntity");
442   }
443   if (!thereports.IsBound(nm)) {
444     Standard_Integer maxrep = thereports.NbBuckets();
445     if (thereports.Extent() > maxrep - 10) thereports.ReSize(maxrep*3/2);
446   }
447   if (nm <= 0) return Standard_False;
448   return thereports.Bind (nm,rep);
449 }
450
451
452 //=======================================================================
453 //function : AddReportEntity
454 //purpose  : 
455 //=======================================================================
456
457 Standard_Boolean Interface_InterfaceModel::AddReportEntity
458   (const Handle(Interface_ReportEntity)& rep, const Standard_Boolean semantic)
459 {
460   if (rep.IsNull()) return Standard_False;
461   Handle(Standard_Transient) ent = rep->Concerned();
462   if (ent.IsNull()) return Standard_False;
463   Standard_Integer num = Number(ent);
464   if (num == 0) return Standard_False;
465   if (semantic) return thereports.Bind (num,rep);
466   else          return therepch.Bind (num,rep);
467 }
468
469
470 //=======================================================================
471 //function : IsUnknownEntity
472 //purpose  : 
473 //=======================================================================
474
475 Standard_Boolean Interface_InterfaceModel::IsUnknownEntity
476   (const Standard_Integer num) const
477 {
478   Handle(Interface_ReportEntity) rep = ReportEntity(num);
479   if (rep.IsNull()) return Standard_False;
480   return rep->IsUnknown();
481 }
482
483
484 //  ....              Checks semantiques                ....  //
485
486
487 //=======================================================================
488 //function : FillSemanticChecks
489 //purpose  : 
490 //=======================================================================
491
492 void Interface_InterfaceModel::FillSemanticChecks
493   (const Interface_CheckIterator& checks, const Standard_Boolean clear)
494 {
495   if (!checks.Model().IsNull()) {
496     Handle(Standard_Transient) t1 = checks.Model();
497     Handle(Standard_Transient) t2 = this;
498     if (t2 != t1) return;
499   }
500   if (clear) {  therepch.Clear();  thechecksem->Clear();  }
501   Standard_Integer nb = 0;
502   for (checks.Start(); checks.More(); checks.Next())  nb ++;
503   therepch.ReSize (therepch.Extent() + nb + 2);
504   for (checks.Start(); checks.More(); checks.Next()) {
505     const Handle(Interface_Check) ach = checks.Value();
506     Standard_Integer num = checks.Number();
507 //    global check : ok si MEME MODELE
508     if (num == 0) thechecksem->GetMessages(ach);
509     else {
510       Handle(Standard_Transient) ent = Value(num);
511       Handle(Interface_ReportEntity) rep = new Interface_ReportEntity(ach,ent);
512       therepch.Bind (num,rep);
513     }
514   }
515   haschecksem = Standard_True;
516 }
517
518
519 //=======================================================================
520 //function : HasSemanticChecks
521 //purpose  : 
522 //=======================================================================
523
524 Standard_Boolean Interface_InterfaceModel::HasSemanticChecks () const
525 {
526   return haschecksem;
527 }
528
529
530 //=======================================================================
531 //function : Check
532 //purpose  : 
533 //=======================================================================
534
535 const Handle(Interface_Check)& Interface_InterfaceModel::Check
536   (const Standard_Integer num, const Standard_Boolean syntactic) const
537 {
538   if (num == 0) {
539     if (syntactic) return thecheckstx;
540     else return thechecksem;
541   }
542   if (! (syntactic ? thereports.IsBound(num) : therepch.IsBound(num)) )
543     return nulch();
544   Handle(Standard_Transient) trep;
545   if (syntactic) trep = thereports.Find(num);
546   else trep = therepch.Find(num);
547   Handle(Interface_ReportEntity) rep = Handle(Interface_ReportEntity)::DownCast(trep);
548   if (rep.IsNull()) return nulch();
549   return rep->Check();
550 }
551
552
553 //  ....              Chargement des donnees du Modele                ....  //
554
555
556 //=======================================================================
557 //function : Reservate
558 //purpose  : 
559 //=======================================================================
560
561 void Interface_InterfaceModel::Reservate (const Standard_Integer nbent)
562 {
563   if (nbent > theentities.NbBuckets()) theentities.ReSize (nbent);
564   if (nbent < -thereports.NbBuckets()) thereports.ReSize (-nbent);
565 }
566
567
568 //=======================================================================
569 //function : AddEntity
570 //purpose  : 
571 //=======================================================================
572
573 void Interface_InterfaceModel::AddEntity(const Handle(Standard_Transient)& anentity)
574 {
575   //Standard_Integer newnum; svv #2
576   if (!anentity->IsKind(typerep())) theentities.Add(anentity);
577 //  Report : Ajouter Concerned, mais noter presence Report et sa valeur
578   else {
579     Handle(Interface_ReportEntity) rep =
580       Handle(Interface_ReportEntity)::DownCast(anentity);
581     AddEntity(rep->Concerned());
582     Standard_Integer maxrep = thereports.NbBuckets();
583     if (thereports.Extent() > maxrep - 10) thereports.ReSize(maxrep*3/2);
584     thereports.Bind (Number(rep->Concerned()),rep);
585   }
586 }
587
588
589 //  AddWithRefs itere sur les Entities referencees pour charger une Entite
590 //  au complet, avec tout ce dont elle a besoin
591
592
593 //=======================================================================
594 //function : AddWithRefs
595 //purpose  : 
596 //=======================================================================
597
598 void Interface_InterfaceModel::AddWithRefs(const Handle(Standard_Transient)& anent,
599                                            const Handle(Interface_Protocol)& proto,
600                                            const Standard_Integer level,
601                                            const Standard_Boolean listall)
602 {
603   if (anent.IsNull()) return;
604   if (theentities.FindIndex(anent) != 0) {
605     if (!listall) return;
606   }
607   Interface_GeneralLib lib(proto);
608   AddWithRefs (anent,lib,level,listall);
609   if (Protocol().IsNull() && !proto.IsNull()) SetProtocol(proto);
610 }
611
612
613 //=======================================================================
614 //function : AddWithRefs
615 //purpose  : 
616 //=======================================================================
617
618 void Interface_InterfaceModel::AddWithRefs(const Handle(Standard_Transient)& anent,
619                                            const Standard_Integer level,
620                                            const Standard_Boolean listall)
621 {
622   Handle(Interface_Protocol) proto = Protocol();
623   if (proto.IsNull()) throw Interface_InterfaceMismatch("InterfaceModel : AddWithRefs");
624   AddWithRefs (anent,proto,level,listall);
625 }
626
627
628 //=======================================================================
629 //function : AddWithRefs
630 //purpose  : 
631 //=======================================================================
632
633 void Interface_InterfaceModel::AddWithRefs(const Handle(Standard_Transient)& anent,
634                                            const Interface_GeneralLib& lib,
635                                            const Standard_Integer level,
636                                            const Standard_Boolean listall)
637 {
638   if (anent.IsNull()) return;
639   if (theentities.FindIndex(anent) != 0) {
640     if (!listall) return;
641   }
642   else AddEntity(anent);
643
644   Interface_EntityIterator iter;
645   Handle(Interface_GeneralModule) module;  Standard_Integer CN;
646   if (lib.Select (anent,module,CN)) {
647     module->FillSharedCase  (CN,anent,iter);
648 //    FillShared tout court : supposerait que le modele soit deja pret
649 //    or justement, on est en train de le construire ...
650     module->ListImpliedCase (CN,anent,iter);
651   }
652   Standard_Integer lev1 = level-1;
653   if (lev1 == 0) return;  // level = 0 -> tous niveaux; sinon encore n-1
654   for (iter.Start(); iter.More(); iter.Next())
655     AddWithRefs(iter.Value(),lib,lev1,listall);
656 }
657
658
659 //=======================================================================
660 //function : ReplaceEntity
661 //purpose  : 
662 //=======================================================================
663
664 void Interface_InterfaceModel::ReplaceEntity(const Standard_Integer nument,
665                                              const Handle(Standard_Transient)& anent)
666 {
667   theentities.Substitute(nument,anent);
668 }
669
670 //  ReverseOrders permet de mieux controler la numeration des Entites :
671 //  Souvent, les fichiers mettent les racines en fin, tandis que AddWithRefs
672 //  les met en tete.
673
674
675 //=======================================================================
676 //function : ReverseOrders
677 //purpose  : 
678 //=======================================================================
679
680 void Interface_InterfaceModel::ReverseOrders (const Standard_Integer after)
681 {
682   Standard_Integer nb = NbEntities();  //Standard_Integer num; svv #2
683   if (nb < 2 || after >= nb) return;
684   TColStd_Array1OfTransient ents(1,nb);
685   Standard_Integer i; // svv #1
686   for (i = 1; i <= nb; i ++)
687     ents.SetValue (i, theentities.FindKey(i));
688 //    On va vider la Map, puis la recharger : dans l ordre jusqua after
689 //        en ordre inverse apres
690   theentities.Clear();
691   Reservate (nb);
692   for (i = 1;  i <= after; i ++) theentities.Add (ents(i));// svv #2
693   for (i = nb; i >  after; i --) theentities.Add (ents(i));
694 //    Faudra aussi s occuper des Reports
695   for (i = nb; i >  after; i --) {
696     Standard_Integer i2 = nb+after-i;
697     Handle(Standard_Transient) rep1,rep2;
698     if (thereports.IsBound(i))  rep1 = thereports.Find(i);
699     if (thereports.IsBound(i2)) rep2 = thereports.Find(i2);
700     if (!rep1.IsNull()) thereports.Bind (i2,rep1);
701     else                thereports.UnBind (i2);
702     if (!rep2.IsNull()) thereports.Bind (i,rep2);
703     else                thereports.UnBind (i);
704   }
705 }
706
707
708 //=======================================================================
709 //function : ChangeOrder
710 //purpose  : 
711 //=======================================================================
712
713 void Interface_InterfaceModel::ChangeOrder(const Standard_Integer oldnum,
714                                            const Standard_Integer newnum,
715                                            const Standard_Integer cnt) //szv#4:S4163:12Mar99 `count` hid one from this
716 {
717   Standard_Integer nb = NbEntities();  Standard_Integer i; //, num; svv #2 
718   if (nb < 2 || newnum >= nb || cnt<= 0) return;
719   TColStd_Array1OfTransient ents(1,nb);
720   //  On va preparer le changement
721   Standard_Integer minum  = (oldnum > newnum ? newnum : oldnum);
722   Standard_Integer mxnum  = (oldnum < newnum ? newnum : oldnum);
723   Standard_Integer kount  = (oldnum > newnum ? cnt  : -cnt);
724   if (cnt <= 0 || cnt > mxnum - minum) throw Interface_InterfaceMismatch("InterfaceModel : ChangeOrder, Overlap");
725   for (i = 1; i < minum; i ++)  ents.SetValue (i,theentities.FindKey(i));
726   for (i = mxnum+cnt; i <= nb; i ++) ents.SetValue (i,theentities.FindKey(i));
727   for (i = minum; i < mxnum; i ++)
728     ents.SetValue( i + kount, theentities.FindKey(i) );
729   for (i = oldnum; i < oldnum+cnt; i ++)
730     ents.SetValue( i + (newnum-oldnum), theentities.FindKey(i) );
731
732   theentities.Clear();
733   Reservate (nb);
734   for (i = 1;  i <= nb; i ++)  theentities.Add (ents(i)); // svv #2
735
736   Standard_Integer difnum = mxnum - minum;
737   for (i = minum; i < minum+cnt; i ++) {
738     Handle(Standard_Transient) rep1, rep2;
739     if (thereports.IsBound(i)) rep1 = thereports.Find(i);
740     if (thereports.IsBound(i+difnum)) rep1 = thereports.Find(i+difnum);
741     if (!rep1.IsNull()) thereports.Bind (i+difnum,rep1);
742     else                thereports.UnBind (i+difnum);
743     if (!rep2.IsNull()) thereports.Bind (i,rep2);
744     else                thereports.UnBind (i);
745   }
746 }
747
748
749 //  GetFromTransfer permet de recuperer un resultat prepare par ailleurs
750 //  Le Modele demarre a zero. Les entites doivent etre libres (cf AddEntity)
751
752
753 //=======================================================================
754 //function : GetFromTransfer
755 //purpose  : 
756 //=======================================================================
757
758 void Interface_InterfaceModel::GetFromTransfer
759   (const Interface_EntityIterator& aniter)
760 {
761   theentities.Clear();  theentities.ReSize (aniter.NbEntities());
762   for (aniter.Start(); aniter.More(); aniter.Next()) {
763     Handle(Standard_Transient) ent = aniter.Value();    AddEntity(ent);
764   }
765 }
766
767
768 //  ....                       Interrogations                        ....  //
769
770
771 //=======================================================================
772 //function : SetCategoryNumber
773 //purpose  : 
774 //=======================================================================
775
776 Standard_Boolean Interface_InterfaceModel::SetCategoryNumber
777   (const Standard_Integer num, const Standard_Integer val)
778 {
779   Standard_Integer i,nb = NbEntities();
780   if (num < 1 || num > nb) return Standard_False;
781   if (thecategory.IsNull()) thecategory = new TCollection_HAsciiString(nb,' ');
782   else if (thecategory->Length() < nb) {
783     Handle(TCollection_HAsciiString) c =  new TCollection_HAsciiString(nb,' ');
784     for (i = thecategory->Length(); i > 0; i --)
785       c->SetValue(i,thecategory->Value(i));
786     thecategory = c;
787   }
788   Standard_Character cval = (Standard_Character)(val + 32);
789   thecategory->SetValue(num,cval);
790   return Standard_True;
791 }
792
793
794 //=======================================================================
795 //function : CategoryNumber
796 //purpose  : 
797 //=======================================================================
798
799 Standard_Integer Interface_InterfaceModel::CategoryNumber
800   (const Standard_Integer num) const
801 {
802   if (thecategory.IsNull()) return 0;
803   if (num < 1 || num > thecategory->Length()) return 0;
804   Standard_Integer val = thecategory->Value(num);
805   return val-32;
806 }
807
808
809 //=======================================================================
810 //function : FillIterator
811 //purpose  : 
812 //=======================================================================
813
814 void Interface_InterfaceModel::FillIterator(Interface_EntityIterator& iter) const
815 {
816   Standard_Integer nb = NbEntities();
817   for (Standard_Integer i = 1; i <= nb; i ++)
818     iter.GetOneItem (theentities.FindKey(i));
819 }
820
821
822 //=======================================================================
823 //function : Entities
824 //purpose  : 
825 //=======================================================================
826
827 Interface_EntityIterator Interface_InterfaceModel::Entities () const
828 {
829   Interface_EntityIterator iter;
830   FillIterator(iter);
831   return iter;
832 }
833
834
835 //=======================================================================
836 //function : Reports
837 //purpose  : 
838 //=======================================================================
839
840 Interface_EntityIterator Interface_InterfaceModel::Reports
841   (const Standard_Boolean semantic) const
842 {
843   Interface_EntityIterator iter;
844   if (semantic) {
845     TColStd_DataMapIteratorOfDataMapOfIntegerTransient itmap (therepch);
846     for (; itmap.More(); itmap.Next()) iter.AddItem (itmap.Value());
847   } else {
848     TColStd_DataMapIteratorOfDataMapOfIntegerTransient itmap (thereports);
849     for (; itmap.More(); itmap.Next()) iter.AddItem (itmap.Value());
850   }
851   return iter;
852 }
853
854
855 //=======================================================================
856 //function : Redefineds
857 //purpose  : 
858 //=======================================================================
859
860 Interface_EntityIterator Interface_InterfaceModel::Redefineds () const
861 {
862   Interface_EntityIterator iter;
863   TColStd_DataMapIteratorOfDataMapOfIntegerTransient itmap (thereports);
864   for (; itmap.More(); itmap.Next()) {
865     Handle(Interface_ReportEntity) rep =
866       Handle(Interface_ReportEntity)::DownCast(itmap.Value());
867     if (rep.IsNull()) continue;
868     if (!rep->HasNewContent()) continue;
869     iter.AddItem (rep);
870   }
871   return iter;
872 }
873
874 //#include <limits.h>
875 //#include <TColStd_MapTransientHasher.hxx>
876
877
878 //=======================================================================
879 //function : GlobalCheck
880 //purpose  : 
881 //=======================================================================
882
883 const Handle(Interface_Check)& Interface_InterfaceModel::GlobalCheck
884   (const Standard_Boolean syntactic) const
885 {
886   if (syntactic) return thecheckstx;
887   else return thechecksem;
888 }
889
890
891 //=======================================================================
892 //function : SetGlobalCheck
893 //purpose  : 
894 //=======================================================================
895
896 void Interface_InterfaceModel::SetGlobalCheck(const Handle(Interface_Check)& ach)
897 {
898   thecheckstx = ach;
899 }
900
901
902 //=======================================================================
903 //function : VerifyCheck
904 //purpose  : 
905 //=======================================================================
906
907 void Interface_InterfaceModel::VerifyCheck (Handle(Interface_Check)& /*ach*/) const
908 {
909 }
910
911
912 //=======================================================================
913 //function : Print
914 //purpose  : 
915 //=======================================================================
916
917 void Interface_InterfaceModel::Print(const Handle(Standard_Transient)& ent,
918                                      Standard_OStream& S,
919                                      const Standard_Integer mode) const
920
921   if (ent.IsNull())  {  S << "NULL" ;  return;  }
922   Standard_Integer num = Number(ent);
923   if (mode <= 0) S <<num;
924   if (mode == 0) S <<":";
925   if (mode >= 0) {
926     if (num > 0) 
927       PrintToLog(ent,S);
928 //      PrintLabel (ent,S);
929     else S <<"??";
930   }
931 }
932
933
934 //=======================================================================
935 //function : PrintToLog
936 //purpose  : 
937 //=======================================================================
938
939 void Interface_InterfaceModel::PrintToLog(const Handle(Standard_Transient)& ent,
940                                           Standard_OStream& S) const
941 {
942   PrintLabel (ent,S);
943 }
944
945
946 //  ....                       TEMPLATES                        ....  //
947
948
949 //=======================================================================
950 //function : NextNumberForLabel
951 //purpose  : 
952 //=======================================================================
953
954 Standard_Integer Interface_InterfaceModel::NextNumberForLabel
955   (const Standard_CString label, const Standard_Integer fromnum,
956    const Standard_Boolean exact) const
957 {
958   Standard_Integer n = NbEntities();
959   Handle(TCollection_HAsciiString) labs = new TCollection_HAsciiString(label);
960   Standard_Integer lnb = labs->Length();
961   labs->LowerCase();
962
963   Standard_Integer i; // svv #1
964   for (i = fromnum+1; i <= n; i ++) {
965     Handle(TCollection_HAsciiString) lab = StringLabel (Value(i));
966     if (lab.IsNull()) continue;
967     if (exact) {
968       if (lab->IsSameString(labs,Standard_False)) return i;
969     } else {
970       if (lab->Length() < lnb) continue;
971       lab->LowerCase();
972       if (lab->SearchFromEnd(labs) == lab->Length() - lnb + 1) return i;
973     }
974   }
975
976 //   En "non exact", on admet de recevoir le numero entre 1 et n
977   if (exact) return 0;
978   i = 0;
979   if (labs->IsIntegerValue()) i = atoi (labs->ToCString());
980   if (i <= 0 || i > n) i = 0;
981   return i;
982 }
983
984
985 //=======================================================================
986 //function : HasTemplate
987 //purpose  : 
988 //=======================================================================
989
990 Standard_Boolean Interface_InterfaceModel::HasTemplate
991   (const Standard_CString name)
992 {
993   return atemp.IsBound(name);
994 }
995
996
997 //=======================================================================
998 //function : Template
999 //purpose  : 
1000 //=======================================================================
1001
1002 Handle(Interface_InterfaceModel) Interface_InterfaceModel::Template
1003        (const Standard_CString name)
1004 {
1005   Handle(Interface_InterfaceModel) model,newmod;
1006   if (!HasTemplate(name)) return model;
1007   model = Handle(Interface_InterfaceModel)::DownCast(atemp.ChangeFind(name));
1008   newmod = model->NewEmptyModel();
1009   newmod->GetFromAnother (model);
1010   return newmod;
1011 }
1012
1013
1014 //=======================================================================
1015 //function : SetTemplate
1016 //purpose  : 
1017 //=======================================================================
1018
1019 Standard_Boolean Interface_InterfaceModel::SetTemplate
1020   (const Standard_CString name, const Handle(Interface_InterfaceModel)& model)
1021 {
1022   return atemp.Bind(name, model);
1023 }
1024
1025
1026 //=======================================================================
1027 //function : ListTemplates
1028 //purpose  : 
1029 //=======================================================================
1030
1031 Handle(TColStd_HSequenceOfHAsciiString) Interface_InterfaceModel::ListTemplates ()
1032 {
1033   Handle(TColStd_HSequenceOfHAsciiString) list = new
1034     TColStd_HSequenceOfHAsciiString();
1035   if (atemp.IsEmpty()) return list;
1036   NCollection_DataMap<TCollection_AsciiString, Handle(Standard_Transient)>::Iterator iter(atemp);
1037   for (; iter.More(); iter.Next()) {
1038     list->Append (new TCollection_HAsciiString (iter.Key()) );
1039   }
1040   return list;
1041 }