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
15 #include <Interface_Check.hxx>
16 #include <Message.hxx>
17 #include <Message_Messenger.hxx>
18 #include <Message_Msg.hxx>
19 #include <Standard_OutOfRange.hxx>
20 #include <Standard_Transient.hxx>
21 #include <Standard_Type.hxx>
22 #include <TCollection_HAsciiString.hxx>
23
IMPLEMENT_STANDARD_RTTIEXT(Interface_Check,Standard_Transient)24 IMPLEMENT_STANDARD_RTTIEXT(Interface_Check,Standard_Transient)
25
26 // Un Check est cree au depart sans liste de message : celle ci est creee
27 // seulement si au moins une erreur doit y etre enregitree (Fail-Warning)
28 //=======================================================================
29 //function : Interface_Check
30 //purpose :
31 //=======================================================================
32 Interface_Check::Interface_Check()
33 {
34 } // construit a vide
35
36
37 //=======================================================================
38 //function : Interface_Check
39 //purpose :
40 //=======================================================================
41
Interface_Check(const Handle (Standard_Transient)& anentity)42 Interface_Check::Interface_Check(const Handle(Standard_Transient)& anentity)
43 {
44 theent = anentity;
45 }
46
47 // .... Ajout de message d Erreur vraie (Fail)
48
49
50 //=======================================================================
51 //function : SendFail
52 //purpose :
53 //=======================================================================
54
SendFail(const Message_Msg & amsg)55 void Interface_Check::SendFail(const Message_Msg& amsg)
56 {
57 AddFail (amsg);
58 }
59
60
61 //=======================================================================
62 //function : AddFail
63 //purpose :
64 //=======================================================================
65
AddFail(const Handle (TCollection_HAsciiString)& mess)66 void Interface_Check::AddFail (const Handle(TCollection_HAsciiString)& mess)
67 {
68 if (thefails.IsNull()) thefails = new TColStd_HSequenceOfHAsciiString();
69 if (thefailo.IsNull()) thefailo = new TColStd_HSequenceOfHAsciiString();
70 thefails->Append(mess); thefailo->Append(mess);
71 }
72
73
74 //=======================================================================
75 //function : AddFail
76 //purpose :
77 //=======================================================================
78
AddFail(const Handle (TCollection_HAsciiString)& mess,const Handle (TCollection_HAsciiString)& orig)79 void Interface_Check::AddFail(const Handle(TCollection_HAsciiString)& mess,
80 const Handle(TCollection_HAsciiString)& orig)
81 {
82 if (thefails.IsNull()) thefails = new TColStd_HSequenceOfHAsciiString();
83 if (thefailo.IsNull()) thefailo = new TColStd_HSequenceOfHAsciiString();
84 thefails->Append(mess); thefailo->Append(orig);
85 }
86
87
88 //=======================================================================
89 //function : AddFail
90 //purpose :
91 //=======================================================================
92
AddFail(const Standard_CString amess,const Standard_CString orig)93 void Interface_Check::AddFail(const Standard_CString amess,
94 const Standard_CString orig)
95 {
96 if (amess[0] == '\0') return;
97 if (!orig || orig[0] == '\0') AddFail (new TCollection_HAsciiString(amess));
98 else AddFail (new TCollection_HAsciiString(amess),
99 new TCollection_HAsciiString(orig) );
100 }
101
102
103 //=======================================================================
104 //function : AddFail
105 //purpose :
106 //=======================================================================
107
AddFail(const Message_Msg & amsg)108 void Interface_Check::AddFail(const Message_Msg& amsg)
109 {
110 if (amsg.IsEdited()) AddFail (new TCollection_HAsciiString(TCollection_AsciiString(amsg.Value())),
111 new TCollection_HAsciiString(TCollection_AsciiString(amsg.Original())));
112 else AddFail (new TCollection_HAsciiString(TCollection_AsciiString(amsg.Value())));
113 }
114
115
116 //=======================================================================
117 //function : HasFailed
118 //purpose :
119 //=======================================================================
120
HasFailed() const121 Standard_Boolean Interface_Check::HasFailed () const
122 {
123 return (!thefails.IsNull());
124 }
125
126
127 //=======================================================================
128 //function : NbFails
129 //purpose :
130 //=======================================================================
131
NbFails() const132 Standard_Integer Interface_Check::NbFails () const
133 {
134 return (thefails.IsNull() ? 0 : thefails->Length());
135 }
136
137
138 //=======================================================================
139 //function : Fail
140 //purpose :
141 //=======================================================================
142
Handle(TCollection_HAsciiString)143 const Handle(TCollection_HAsciiString)& Interface_Check::Fail
144 (const Standard_Integer num, const Standard_Boolean final) const
145 {
146 if (thefails.IsNull()) throw Standard_OutOfRange();
147 return (final ? thefails->Value(num) : thefailo->Value(num));
148 }
149
150
151 //=======================================================================
152 //function : CFail
153 //purpose :
154 //=======================================================================
155
CFail(const Standard_Integer num,const Standard_Boolean final) const156 Standard_CString Interface_Check::CFail(const Standard_Integer num,
157 const Standard_Boolean final) const
158 {
159 return Fail(num,final)->ToCString();
160 }
161
162
163 //=======================================================================
164 //function : Fails
165 //purpose :
166 //=======================================================================
167
Handle(TColStd_HSequenceOfHAsciiString)168 Handle(TColStd_HSequenceOfHAsciiString) Interface_Check::Fails
169 (const Standard_Boolean final) const
170 {
171 if (thefails.IsNull()) return new TColStd_HSequenceOfHAsciiString();
172 return (final ? thefails : thefailo);
173 }
174
175 // .... Ajout de message de Warning
176
177
178 //=======================================================================
179 //function : SendWarning
180 //purpose :
181 //=======================================================================
182
SendWarning(const Message_Msg & amsg)183 void Interface_Check::SendWarning(const Message_Msg& amsg)
184 {
185 AddWarning (amsg);
186 }
187
188
189 //=======================================================================
190 //function : AddWarning
191 //purpose :
192 //=======================================================================
193
AddWarning(const Handle (TCollection_HAsciiString)& mess)194 void Interface_Check::AddWarning (const Handle(TCollection_HAsciiString)& mess)
195 {
196 if (thewarns.IsNull()) thewarns = new TColStd_HSequenceOfHAsciiString();
197 if (thewarno.IsNull()) thewarno = new TColStd_HSequenceOfHAsciiString();
198 thewarns->Append(mess); thewarno->Append(mess);
199 }
200
201
202 //=======================================================================
203 //function : AddWarning
204 //purpose :
205 //=======================================================================
206
AddWarning(const Handle (TCollection_HAsciiString)& mess,const Handle (TCollection_HAsciiString)& orig)207 void Interface_Check::AddWarning(const Handle(TCollection_HAsciiString)& mess,
208 const Handle(TCollection_HAsciiString)& orig)
209 {
210 if (thewarns.IsNull()) thewarns = new TColStd_HSequenceOfHAsciiString();
211 if (thewarno.IsNull()) thewarno = new TColStd_HSequenceOfHAsciiString();
212 thewarns->Append(mess); thewarno->Append(orig);
213 }
214
215
216 //=======================================================================
217 //function : AddWarning
218 //purpose :
219 //=======================================================================
220
AddWarning(const Standard_CString amess,const Standard_CString orig)221 void Interface_Check::AddWarning(const Standard_CString amess,
222 const Standard_CString orig)
223 {
224 if (amess[0] == '\0') return;
225 if (!orig || orig[0] == '\0') AddWarning (new TCollection_HAsciiString(amess));
226 else AddWarning (new TCollection_HAsciiString(amess),
227 new TCollection_HAsciiString(orig) );
228 }
229
230
231 //=======================================================================
232 //function : AddWarning
233 //purpose :
234 //=======================================================================
235
AddWarning(const Message_Msg & amsg)236 void Interface_Check::AddWarning(const Message_Msg& amsg)
237 {
238 if (amsg.IsEdited()) AddWarning (new TCollection_HAsciiString(TCollection_AsciiString(amsg.Value())),
239 new TCollection_HAsciiString(TCollection_AsciiString(amsg.Original())));
240 else AddWarning (new TCollection_HAsciiString(TCollection_AsciiString(amsg.Value())));
241 }
242
243
244 //=======================================================================
245 //function : HasWarnings
246 //purpose :
247 //=======================================================================
248
HasWarnings() const249 Standard_Boolean Interface_Check::HasWarnings () const
250 {
251 return (!thewarns.IsNull());
252 }
253
254
255 //=======================================================================
256 //function : NbWarnings
257 //purpose :
258 //=======================================================================
259
NbWarnings() const260 Standard_Integer Interface_Check::NbWarnings () const
261 {
262 return (thewarns.IsNull() ? 0 : thewarns->Length());
263 }
264
265
266 //=======================================================================
267 //function : Warning
268 //purpose :
269 //=======================================================================
270
Handle(TCollection_HAsciiString)271 const Handle(TCollection_HAsciiString)& Interface_Check::Warning
272 (const Standard_Integer num, const Standard_Boolean final) const
273 {
274 if (thewarns.IsNull()) throw Standard_OutOfRange();
275 return (final ? thewarns->Value(num) : thewarno->Value(num));
276 }
277
278
279 //=======================================================================
280 //function : CWarning
281 //purpose :
282 //=======================================================================
283
CWarning(const Standard_Integer num,const Standard_Boolean final) const284 Standard_CString Interface_Check::CWarning(const Standard_Integer num,
285 const Standard_Boolean final) const
286 {
287 return Warning(num,final)->ToCString();
288 }
289
290
291 //=======================================================================
292 //function : Warnings
293 //purpose :
294 //=======================================================================
295
Handle(TColStd_HSequenceOfHAsciiString)296 Handle(TColStd_HSequenceOfHAsciiString) Interface_Check::Warnings
297 (const Standard_Boolean final) const
298 {
299 if (thewarns.IsNull()) return new TColStd_HSequenceOfHAsciiString();
300 return (final ? thewarns : thewarno);
301 }
302
303
304 // .... Ajout de message d Info simple (not yet completed)
305
306
307 //=======================================================================
308 //function : SendMsg
309 //purpose :
310 //=======================================================================
311
SendMsg(const Message_Msg & amsg)312 void Interface_Check::SendMsg (const Message_Msg& amsg)
313 {
314 Handle(TCollection_HAsciiString) mess =
315 new TCollection_HAsciiString (amsg.Value());
316 Handle(TCollection_HAsciiString) orig = mess;
317 if (amsg.IsEdited()) orig = new TCollection_HAsciiString (amsg.Original());
318
319 if (theinfos.IsNull()) theinfos = new TColStd_HSequenceOfHAsciiString();
320 if (theinfoo.IsNull()) theinfoo = new TColStd_HSequenceOfHAsciiString();
321 theinfos->Append(mess); theinfoo->Append(mess);
322 }
323
324
325 //=======================================================================
326 //function : NbInfoMsgs
327 //purpose :
328 //=======================================================================
329
NbInfoMsgs() const330 Standard_Integer Interface_Check::NbInfoMsgs () const
331 {
332 return (theinfos.IsNull() ? 0 : theinfos->Length());
333 }
334
335
336 //=======================================================================
337 //function : InfoMsg
338 //purpose :
339 //=======================================================================
340
Handle(TCollection_HAsciiString)341 const Handle(TCollection_HAsciiString)& Interface_Check::InfoMsg
342 (const Standard_Integer num, const Standard_Boolean final) const
343 {
344 if (theinfos.IsNull()) throw Standard_OutOfRange();
345 return (final ? theinfos->Value(num) : theinfoo->Value(num));
346 }
347
348
349 //=======================================================================
350 //function : CInfoMsg
351 //purpose :
352 //=======================================================================
353
CInfoMsg(const Standard_Integer num,const Standard_Boolean final) const354 Standard_CString Interface_Check::CInfoMsg
355 (const Standard_Integer num, const Standard_Boolean final) const
356 {
357 return InfoMsg(num,final)->ToCString();
358 }
359
360
361 //=======================================================================
362 //function : InfoMsgs
363 //purpose :
364 //=======================================================================
365
Handle(TColStd_HSequenceOfHAsciiString)366 Handle(TColStd_HSequenceOfHAsciiString) Interface_Check::InfoMsgs
367 (const Standard_Boolean final) const
368 {
369 if (theinfos.IsNull()) return new TColStd_HSequenceOfHAsciiString();
370 return (final ? theinfos : theinfoo);
371 }
372
373
374 // .... Gestion generale
375
376
377 //=======================================================================
378 //function : Status
379 //purpose :
380 //=======================================================================
381
Status() const382 Interface_CheckStatus Interface_Check::Status () const
383 {
384 if (!thefails.IsNull()) return Interface_CheckFail;
385 if (!thewarns.IsNull()) return Interface_CheckWarning;
386 return Interface_CheckOK;
387 }
388
389
390 //=======================================================================
391 //function : Complies
392 //purpose :
393 //=======================================================================
394
Complies(const Interface_CheckStatus status) const395 Standard_Boolean Interface_Check::Complies(const Interface_CheckStatus status) const
396 {
397 Standard_Boolean now = thewarns.IsNull();
398 Standard_Boolean nof = thefails.IsNull();
399 switch (status) {
400 case Interface_CheckOK : return ( nof && now);
401 case Interface_CheckWarning : return ( nof && !now);
402 case Interface_CheckFail : return !nof;
403 case Interface_CheckAny : return Standard_True;
404 case Interface_CheckMessage : return (!nof || !now);
405 case Interface_CheckNoFail : return nof;
406 default : break;
407 }
408 return Standard_False;
409 }
410
411
412 //=======================================================================
413 //function : Complies
414 //purpose :
415 //=======================================================================
416
Complies(const Handle (TCollection_HAsciiString)& mess,const Standard_Integer incl,const Interface_CheckStatus status) const417 Standard_Boolean Interface_Check::Complies(const Handle(TCollection_HAsciiString)& mess,
418 const Standard_Integer incl,
419 const Interface_CheckStatus status) const
420 {
421 if (mess.IsNull()) return Standard_False;
422 Standard_Integer lng = mess->Length();
423 if (status == Interface_CheckWarning || status == Interface_CheckAny) {
424 Standard_Integer i, nb = NbWarnings();
425 for (i = nb; i > 0; i --) {
426 Handle(TCollection_HAsciiString) ames = Warning(i);
427 if (incl == 0) { if (mess->IsSameString (ames)) return Standard_True; }
428 if (incl < 0) { if (ames->Location(mess,1,ames->Length()) > 0) return Standard_True; }
429 if (incl < 0) { if (mess->Location(mess,1,lng) > 0) return Standard_True; }
430 }
431 }
432 if (status == Interface_CheckFail || status == Interface_CheckAny) {
433 Standard_Integer i, nb = NbWarnings();
434 for (i = nb; i > 0; i --) {
435 Handle(TCollection_HAsciiString) ames = Warning(i);
436 if (incl == 0) { if (mess->IsSameString (ames)) return Standard_True; }
437 if (incl < 0) { if (ames->Location(mess,1,ames->Length()) > 0) return Standard_True; }
438 if (incl < 0) { if (mess->Location(mess,1,lng) > 0) return Standard_True; }
439 }
440 }
441 return Standard_False;
442 }
443
444
445 //=======================================================================
446 //function : HasEntity
447 //purpose :
448 //=======================================================================
449
HasEntity() const450 Standard_Boolean Interface_Check::HasEntity () const
451 {
452 return (!theent.IsNull());
453 }
454
455
456 //=======================================================================
457 //function : Entity
458 //purpose :
459 //=======================================================================
460
Handle(Standard_Transient)461 const Handle(Standard_Transient)& Interface_Check::Entity () const
462 {
463 return theent;
464 }
465
466
467 //=======================================================================
468 //function : Clear
469 //purpose :
470 //=======================================================================
471
Clear()472 void Interface_Check::Clear ()
473 {
474 thefails.Nullify(); thefailo.Nullify();
475 thewarns.Nullify(); thewarno.Nullify();
476 theinfos.Nullify(); theinfoo.Nullify();
477 theent.Nullify();
478 }
479
480
481 //=======================================================================
482 //function : ClearFails
483 //purpose :
484 //=======================================================================
485
ClearFails()486 void Interface_Check::ClearFails ()
487 {
488 thefails.Nullify();
489 thefailo.Nullify();
490 }
491
492
493 //=======================================================================
494 //function : ClearWarnings
495 //purpose :
496 //=======================================================================
497
ClearWarnings()498 void Interface_Check::ClearWarnings ()
499 {
500 thewarns.Nullify();
501 thewarno.Nullify();
502 }
503
504
505 //=======================================================================
506 //function : ClearInfoMsgs
507 //purpose :
508 //=======================================================================
509
ClearInfoMsgs()510 void Interface_Check::ClearInfoMsgs ()
511 {
512 theinfos.Nullify();
513 theinfoo.Nullify();
514 }
515
516
517
518 //=======================================================================
519 //function : Remove
520 //purpose :
521 //=======================================================================
522
Remove(const Handle (TCollection_HAsciiString)& mess,const Standard_Integer incl,const Interface_CheckStatus status)523 Standard_Boolean Interface_Check::Remove(const Handle(TCollection_HAsciiString)& mess,
524 const Standard_Integer incl,
525 const Interface_CheckStatus status)
526 {
527 if (mess.IsNull()) return Standard_False;
528 Standard_Boolean res = Standard_False;
529 Standard_Integer lng = mess->Length();
530 if (status == Interface_CheckWarning || status == Interface_CheckAny) {
531 Standard_Integer i, nb = NbWarnings();
532 for (i = nb; i > 0; i --) {
533 Standard_Boolean rem = Standard_False;
534 Handle(TCollection_HAsciiString) ames = Warning(i);
535 if (incl == 0) rem = mess->IsSameString (ames);
536 if (incl < 0) rem = (ames->Location(mess,1,ames->Length()) > 0);
537 if (incl < 0) rem = (mess->Location(mess,1,lng) > 0);
538 if (rem) { thewarns->Remove(i); thewarno->Remove(i); res = rem; }
539 }
540 }
541 if (status == Interface_CheckFail || status == Interface_CheckAny) {
542 Standard_Integer i, nb = NbWarnings();
543 for (i = nb; i > 0; i --) {
544 Standard_Boolean rem = Standard_False;
545 Handle(TCollection_HAsciiString) ames = Warning(i);
546 if (incl == 0) rem = mess->IsSameString (ames);
547 if (incl < 0) rem = (ames->Location(mess,1,ames->Length()) > 0);
548 if (incl < 0) rem = (mess->Location(mess,1,lng) > 0);
549 if (rem) { thefails->Remove(i); thefailo->Remove(i); res = rem; }
550 }
551 }
552 return res;
553 }
554
555
556 //=======================================================================
557 //function : Mend
558 //purpose :
559 //=======================================================================
560
Mend(const Standard_CString pref,const Standard_Integer num)561 Standard_Boolean Interface_Check::Mend(const Standard_CString pref,
562 const Standard_Integer num)
563 {
564 Standard_Integer i, n1 = num, n2 = num;
565 if (pref && pref[2] == '\0') {
566 if (pref[0] == 'F' && pref[1] == 'M') return Mend ("Mended",num);
567 if (pref[0] == 'C' && pref[1] == 'A') { Clear(); return Standard_True; }
568 if (pref[0] == 'C' && pref[1] == 'W') {
569 if (num == 0) { ClearWarnings(); return Standard_True; }
570 if (num < 0 || num > NbWarnings()) return Standard_False;
571 thewarns->Remove(num); thewarno->Remove(num);
572 return Standard_True;
573 }
574 if (pref[0] == 'C' && pref[1] == 'F') {
575 if (num == 0) { ClearFails(); return Standard_True; }
576 if (num < 0 || num > NbFails()) return Standard_False;
577 thefails->Remove(num); thefailo->Remove(num);
578 return Standard_True;
579 }
580 }
581 // Cas courant
582 if (num == 0) {
583 n1 = 1; n2 = NbFails();
584 for (i = n2; i >= n1; i --) Mend (pref,i);
585 return Standard_True;
586 }
587 else if (num < 0 || num > NbFails()) return Standard_False;
588 // Un message
589 Handle(TCollection_HAsciiString) strf = thefails->Value(num);
590 Handle(TCollection_HAsciiString) stro = thefailo->Value(num);
591 if (pref && pref[0] != '\0') {
592 strf->Insert (1," : "); strf->Insert (1,pref);
593 if (stro != strf) { stro->Insert (1," : "); stro->Insert (1,pref); }
594 }
595 thefails->Remove(num); thefailo->Remove(num);
596 if (stro == strf) AddFail (strf);
597 else AddFail (strf,stro);
598 return Standard_True;
599 }
600
601
602 //=======================================================================
603 //function : SetEntity
604 //purpose :
605 //=======================================================================
606
SetEntity(const Handle (Standard_Transient)& anentity)607 void Interface_Check::SetEntity(const Handle(Standard_Transient)& anentity)
608 {
609 theent = anentity;
610 }
611
612
613 //=======================================================================
614 //function : GetEntity
615 //purpose :
616 //=======================================================================
617
GetEntity(const Handle (Standard_Transient)& anentity)618 void Interface_Check::GetEntity(const Handle(Standard_Transient)& anentity)
619 {
620 if (theent.IsNull()) SetEntity(anentity);
621 }
622
623 // .. GetMessages, reprend les messages en les cumulant aux siens propres
624 // .. GetAsWarning, reprend les messages en les cumulant et en les
625 // considerant tous comme "Warning" . En outre, selon <failsonly>
626 // failsonly True : ne pas reprendre les Warnings originaux
627 // failsonly False : les prendre aussi
628
629
630 //=======================================================================
631 //function : GetMessages
632 //purpose :
633 //=======================================================================
634
GetMessages(const Handle (Interface_Check)& other)635 void Interface_Check::GetMessages (const Handle(Interface_Check)& other)
636 {
637 Standard_Integer nb,i;
638 if ( (nb = other->NbFails()) != 0) {
639 if (thefails.IsNull()) thefails = new TColStd_HSequenceOfHAsciiString();
640 if (thefailo.IsNull()) thefailo = new TColStd_HSequenceOfHAsciiString();
641 for (i = 1; i <= nb; i ++) thefails->Append(other->Fail(i,Standard_True));
642 for (i = 1; i <= nb; i ++) thefailo->Append(other->Fail(i,Standard_False));
643 }
644 if ( (nb = other->NbWarnings()) != 0) {
645 if (thewarns.IsNull()) thewarns = new TColStd_HSequenceOfHAsciiString();
646 if (thewarno.IsNull()) thewarno = new TColStd_HSequenceOfHAsciiString();
647 for (i = 1; i <= nb; i ++) thewarns->Append(other->Warning(i,Standard_True));
648 for (i = 1; i <= nb; i ++) thewarno->Append(other->Warning(i,Standard_False));
649 }
650 if ( (nb = other->NbInfoMsgs()) != 0) {
651 if (theinfos.IsNull()) theinfos = new TColStd_HSequenceOfHAsciiString();
652 if (theinfoo.IsNull()) theinfoo = new TColStd_HSequenceOfHAsciiString();
653 for (i = 1; i <= nb; i ++) theinfos->Append(other->InfoMsg(i,Standard_True));
654 for (i = 1; i <= nb; i ++) theinfoo->Append(other->InfoMsg(i,Standard_False));
655 }
656 }
657
658
659 //=======================================================================
660 //function : GetAsWarning
661 //purpose :
662 //=======================================================================
663
GetAsWarning(const Handle (Interface_Check)& other,const Standard_Boolean failsonly)664 void Interface_Check::GetAsWarning(const Handle(Interface_Check)& other,
665 const Standard_Boolean failsonly)
666 {
667 Standard_Integer nb,i;
668 if ( (nb = other->NbFails()) != 0) {
669 if (thewarns.IsNull()) thewarns = new TColStd_HSequenceOfHAsciiString();
670 if (thewarno.IsNull()) thewarno = new TColStd_HSequenceOfHAsciiString();
671 for (i = 1; i <= nb; i ++) thewarns->Append(other->Fail(i,Standard_True));
672 for (i = 1; i <= nb; i ++) thewarno->Append(other->Fail(i,Standard_False));
673 }
674 if ( (nb = other->NbWarnings()) != 0 || !failsonly) {
675 if (thewarns.IsNull()) thewarns = new TColStd_HSequenceOfHAsciiString();
676 if (thewarno.IsNull()) thewarno = new TColStd_HSequenceOfHAsciiString();
677 for (i = 1; i <= nb; i ++) thewarns->Append(other->Warning(i,Standard_True));
678 for (i = 1; i <= nb; i ++) thewarno->Append(other->Warning(i,Standard_False));
679 }
680 }
681
682
683 //=======================================================================
684 //function : Print
685 //purpose :
686 //=======================================================================
687
Print(Standard_OStream & S,const Standard_Integer level,const Standard_Integer final) const688 void Interface_Check::Print(Standard_OStream& S, const Standard_Integer level,
689 const Standard_Integer final) const
690 {
691 Standard_Integer j, nb = NbFails();
692
693 if (level >= 1) {
694 nb = NbFails();
695 // if (nb > 0) S<<" --> Fails : "<<nb<<std::endl;
696 for (j = 1; j <= nb; j ++) {
697 if (final >= 0)
698 S <<CFail(j,Standard_True)<<"\n";
699 else
700 S <<CFail(j,Standard_False)<<"\n";
701 // if (final == 0)
702 // if (Fail(j,Standard_True) != Fail(j,Standard_False))
703 // S<<"[original:"<<CFail(j,Standard_False)<<"]\n";
704 }
705 }
706
707 if (level >= 2) {
708 nb = NbWarnings();
709 // if (nb > 0) S<<" --> Warnings : "<<nb<<std::endl;
710 for (j = 1; j <= nb; j ++) {
711 if (final >= 0)
712 S <<CWarning(j,Standard_True)<<"\n";
713 else
714 S <<CWarning(j,Standard_False)<<"\n";
715 // if (final == 0)
716 // if (Warning(j,Standard_True) != Warning(j,Standard_False))
717 // S<<"[original:"<<CWarning(j,Standard_False)<<"]\n";
718 }
719 }
720
721 // InfoMsg : regle causant (user message)
722 if (level >= 0) {
723 nb = NbInfoMsgs();
724 // if (nb > 0) S<<" --> Infos : "<<nb<<std::endl;
725 for (j = 1; j <= nb; j ++) {
726 if (final >= 0)
727 S <<CInfoMsg(j,Standard_True)<<"\n";
728 else
729 S <<CInfoMsg(j,Standard_False)<<"\n";
730 // if (final == 0)
731 // if (InfoMsg(j,Standard_True) != InfoMsg(j,Standard_False))
732 // S<<"[original:"<<CInfoMsg(j,Standard_False)<<"]\n";
733 }
734 }
735
736 }
737
738
739 //=======================================================================
740 //function : Trace
741 //purpose :
742 //=======================================================================
743
Trace(const Standard_Integer level,const Standard_Integer final) const744 void Interface_Check::Trace(const Standard_Integer level,
745 const Standard_Integer final) const
746 {
747 Message_Messenger::StreamBuffer sout = Message::SendInfo(); // shouldn't it be changed to SendTrace()?
748 Print (sout, level, final);
749 }
750