0024023: Revamp the OCCT Handle -- general
[occt.git] / src / IGESData / IGESData_IGESDumper.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 #include <IGESData_IGESDumper.ixx>
15 #include <Interface_InterfaceError.hxx>
16 #include <Interface_Macros.hxx>
17 #include <Interface_MSG.hxx>
18 #include <Interface_EntityIterator.hxx>
19 #include <IGESData_SpecificLib.hxx>
20 #include <IGESData_SpecificModule.hxx>
21 #include <IGESData_TransfEntity.hxx>
22 #include <IGESData_ViewKindEntity.hxx>
23 #include <IGESData_LineFontEntity.hxx>
24 #include <IGESData_LevelListEntity.hxx>
25 #include <IGESData_LabelDisplayEntity.hxx>
26 #include <IGESData_ColorEntity.hxx>
27 #include <TCollection_HAsciiString.hxx>
28 #include <Message_Messenger.hxx>
29
30 IGESData_IGESDumper::IGESData_IGESDumper
31   (const Handle(IGESData_IGESModel)& model,
32    const Handle(IGESData_Protocol)& protocol)
33       : thelib (protocol)
34       {  themodel = model;  }
35
36
37     void  IGESData_IGESDumper::PrintDNum
38   (const Handle(IGESData_IGESEntity)& ent, const Handle(Message_Messenger)& S) const 
39 {
40 //   Affichage garanti sur  12 caracteres 12345/D24689
41   Standard_Integer num = 0;
42   if (!ent.IsNull()) {
43     if (themodel.IsNull())                          S<<"    D???    ";
44     else if ( (num = themodel->Number(ent)) == 0)   S<<"    0:D?????";
45 // Interface_InterfaceError::Raise  ("IGESDumper : PrintDNum");
46     else {
47       S<<Interface_MSG::Blanks(num,9)<<num<<":D"<<2*num-1<<Interface_MSG::Blanks(2*num-1,9);
48     }
49   }
50   else                                              S<<"  D0(Null)  ";
51 }
52
53     void  IGESData_IGESDumper::PrintShort
54   (const Handle(IGESData_IGESEntity)& ent, const Handle(Message_Messenger)& S) const 
55 {
56 //  PrintDNum(ent,S);
57   if (!ent.IsNull()) {
58     Standard_Integer num = 0;
59     if (!themodel.IsNull()) num = themodel->Number(ent);
60     if (num > 0) S<<num<<":D"<<2*num-1;
61     S << "  Type:" << ent->TypeNumber() << "  Form:" << ent->FormNumber()
62       << Interface_MSG::Blanks (ent->FormNumber(),3)
63       << " Class:"<< Interface_InterfaceModel::ClassName(ent->DynamicType()->Name());
64   }
65 }
66
67
68     void  IGESData_IGESDumper::Dump
69   (const Handle(IGESData_IGESEntity)& ent, const Handle(Message_Messenger)& S,
70    const Standard_Integer own, const Standard_Integer attached) const 
71 {
72   Standard_Integer att = attached;
73   Standard_Integer diratt = 1;
74   if (own < 3) diratt = own - 1;
75   if (att == 0)  att = diratt;  // -1 signifie : ne rien sortir
76
77   if (own < 0) return;
78   if (own > 1) S<<"\n";
79   if (ent.IsNull())  {  S<<"(Null)";  if (own > 1) S<<"\n";  return;  }
80   if (own == 0)  {  PrintDNum  (ent,S);  return;  }    // affichage auxiliaire
81   if (own == 1)  {  PrintShort (ent,S);  return;  }    // affichage auxiliaire
82
83   if (own > 0) S<<"****    Dump IGES, level "<<own<<" ( ";
84   switch (own) {
85   case 0 :    break;
86   case 1 :    S<<"D.E. Number + Type + Name";  break;
87   case 2 :    S<<"D.E. Number + Type, Name + Transf, View";  break;
88   case 3 :    S<<"Complete Directory Part";  break;
89   case 4 :    S<<"Directory Part + Parameters, no Arrays";  break;
90   case 5 :    S<<"Complete";  break;
91   default :   S<<"Complete + Transformed Values";  break;
92   }
93   S<<" )    ****"<<endl;
94
95 // ****    Entity 1234:D2467  **  Type:102 Form:56  **  CompositeCurve  **
96   S<<"\n"<<"****    Entity ";  PrintShort (ent,S);  S<<endl;
97
98   S<<"              Directory Part"<<"\n";
99 // **      Status :   Blank:1    Subordinate:2    UseFlag:3    Hierarchy:4
100   if (own >= 2)
101     S <<"**      Status Number :   Blank:"<<ent->BlankStatus()
102       <<"    Subordinate:"<<ent->SubordinateStatus()
103       <<"    UseFlag:"<<ent->UseFlag()
104       <<"    Hierarchy:"<<ent->HierarchyStatus()<<"\n";
105   if (own >= 1) {
106     if (ent->HasShortLabel()) S<<"****    Label         :"<<ent->ShortLabel()->ToCString();
107     if (ent->HasSubScriptNumber()) S<<"    SubScript:"<<ent->SubScriptNumber();
108     if (ent->HasShortLabel())  S<<endl;
109
110     if (ent->HasTransf())
111       {  S<<"**      Transf.Matrix :";  PrintDNum(ent->Transf(),S); S<<"\n"; }
112     IGESData_DefList  viewkind = ent->DefView();
113     if (viewkind == IGESData_DefOne)
114       {  S<<"**      View          :";  PrintDNum (ent->View(),S);  S<<"\n"; }
115     if (viewkind == IGESData_DefSeveral)
116       {  S<<"**      View (List)   :";  PrintDNum (ent->ViewList(),S);  S<<"\n"; }
117      
118   }
119
120   if (own >= 2) {
121
122     if (ent->HasStructure())
123       {  S<<"**      Structure     :"; PrintDNum (ent->Structure(),S);  S<<"\n";  }
124
125     S<<"\n"<<"              Graphic Attributes"<<"\n";
126     if (ent->DefLineFont() == IGESData_DefValue)
127       {  S<<"**      LineFont Value:"<<ent->RankLineFont()<<"\n"; }
128     else if (ent->DefLineFont() == IGESData_DefReference)
129       {  S<<"**      LineFont Ref  :";  PrintDNum (ent->LineFont(),S);  S<<"\n"; }
130
131     if (ent->Level() > 0)  S<<"**      Level Value   :"<<ent->Level()<<"\n";
132     else if (ent->Level() < 0)
133       {  S<<"**      Level List    :";  PrintDNum(ent->LevelList(),S);  S<<"\n"; }
134
135     if (ent->HasLabelDisplay())
136       {  S<<"**      Label Display :";  PrintDNum (ent->LabelDisplay(),S);  S<<"\n"; }
137     if (ent->LineWeightNumber() != 0) {
138       S   <<"**      LineWeight Num:"<<ent->LineWeightNumber();
139       if (diratt > 0) S<<"    ->  Value:"<<ent->LineWeight();
140       S<<endl;
141     }
142     if (ent->DefColor() == IGESData_DefValue)
143       {  S<<"**      Color Value   :"<<ent->RankColor();  }
144     else if (ent->DefColor() == IGESData_DefReference)
145       {  S<<"**      Color Ref     :";  PrintDNum (ent->Color(),S); }
146     S<<endl;
147
148     if (own > 3) {
149       S<<"****             Own Data             ****"<<"\n\n";
150       OwnDump(ent,S,own);
151     }
152   }
153
154 //   Donnees attachees : Properties, Associativities, et Sharings
155   if (att < 0) return;
156   Interface_EntityIterator iter = ent->Properties();
157   Standard_Integer nb = iter.NbEntities();
158   Standard_Boolean iasuit = (nb > 0);
159   if (nb > 0) {
160     S<<"\n"<<"****     Properties (nb:"<<nb<<")          ****"<<"\n";
161     for (;iter.More(); iter.Next()) {
162       DeclareAndCast(IGESData_IGESEntity,ent2,iter.Value());
163       Dump (ent2,S,att,-1);
164     }
165   }
166   iter = ent->Associativities();
167   nb = iter.NbEntities();
168   if (nb > 0) iasuit = Standard_True;
169   if (nb > 0) {
170     S<<"\n"<<"****   Associativities (nb:"<<nb<<")        ****"<<"\n";
171     for (;iter.More(); iter.Next()) {
172       DeclareAndCast(IGESData_IGESEntity,ent2,iter.Value());
173       Dump(ent2,S,att,-1);
174     }
175   }
176   if (iasuit) {  if (att <= 1) S << "\n";  }
177   S<<"\n"<<"****             End of Dump          ****"<<"\n"<<endl;
178 }
179
180
181
182     void  IGESData_IGESDumper::OwnDump
183   (const Handle(IGESData_IGESEntity)& ent, const Handle(Message_Messenger)& S,
184    const Standard_Integer own) const 
185 {
186   Handle(IGESData_SpecificModule) module;  Standard_Integer CN;
187   if (thelib.Select(ent,module,CN))
188     module->OwnDump(CN,ent,*this,S,own);
189   else if (themodel.IsNull())
190     S <<"  ****  Dump impossible. Type "<<ent->DynamicType()->Name()<<endl;
191   else
192     S <<"  ****  Dump Impossible, n0:id:"<<themodel->Number(ent)<<":D"
193       <<themodel->DNum(ent)<<" Type "<<ent->DynamicType()->Name()<<endl;
194 }