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