0031007: Coding - eliminate warnings issued while compiling with -pedantic flag
[occt.git] / src / IGESData / IGESData_IGESReaderTool.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
15 #include <IGESData_ColorEntity.hxx>
16 #include <IGESData_DirPart.hxx>
17 #include <IGESData_FileRecognizer.hxx>
18 #include <IGESData_IGESEntity.hxx>
19 #include <IGESData_IGESModel.hxx>
20 #include <IGESData_IGESReaderData.hxx>
21 #include <IGESData_IGESReaderTool.hxx>
22 #include <IGESData_LabelDisplayEntity.hxx>
23 #include <IGESData_LevelListEntity.hxx>
24 #include <IGESData_LineFontEntity.hxx>
25 #include <IGESData_ParamCursor.hxx>
26 #include <IGESData_ParamReader.hxx>
27 #include <IGESData_Protocol.hxx>
28 #include <IGESData_ReadWriteModule.hxx>
29 #include <IGESData_TransfEntity.hxx>
30 #include <IGESData_UndefinedEntity.hxx>
31 #include <IGESData_ViewKindEntity.hxx>
32 #include <Interface_Check.hxx>
33 #include <Interface_FileParameter.hxx>
34 #include <Interface_InterfaceModel.hxx>
35 #include <Interface_Macros.hxx>
36 #include <Interface_ParamList.hxx>
37 #include <Interface_ReaderModule.hxx>
38 #include <Message_Msg.hxx>
39 #include <Standard_Transient.hxx>
40 #include <TCollection_HAsciiString.hxx>
41
42 #include <stdio.h>
43 // MGE 17/06/98
44 // To use Msg class
45 IGESData_IGESReaderTool::IGESData_IGESReaderTool
46   (const Handle(IGESData_IGESReaderData)& reader,
47    const Handle(IGESData_Protocol)& protocol)
48       : theglib(protocol) , therlib(protocol)
49       {  SetData (reader,protocol);  }
50
51
52 //  ###########################################################################
53 //  ########                        PREPARATION                        ########
54
55     void IGESData_IGESReaderTool::Prepare
56   (const Handle(IGESData_FileRecognizer)& reco)
57 {
58   DeclareAndCast(IGESData_IGESReaderData,igesdat,Data());
59   igesdat->SetEntityNumbers();
60   thereco = reco;
61   SetEntities();
62   thelist = igesdat->Params(0);
63 }
64
65
66     Standard_Boolean IGESData_IGESReaderTool::Recognize
67   (const Standard_Integer num, Handle(Interface_Check)& ach,
68    Handle(Standard_Transient)& ent)
69 {
70   DeclareAndCast(IGESData_IGESReaderData,igesdat,Data());
71   thecnum = num;  thectyp = igesdat->DirType(num);
72   Handle(IGESData_IGESEntity) anent;
73   Standard_Boolean res = Standard_False;
74
75 //  Recognizer -> Liste limitative
76   if (!thereco.IsNull()) res = thereco->Evaluate(thectyp,anent);
77   if (res) ent = anent;
78 //  Sinon, Library
79   else res = RecognizeByLib (num,theglib,therlib,ach,ent);
80   return res;
81 }
82
83
84 //  ###########################################################################
85 //  ########                LECTURE  (Controle General)                ########
86
87 //    (Elements enchaines par la classe de base Interface_FileReaderTool)
88
89     void IGESData_IGESReaderTool::BeginRead
90   (const Handle(Interface_InterfaceModel)& amodel)
91 {
92   DeclareAndCast(IGESData_IGESModel,amod,amodel);
93   DeclareAndCast(IGESData_IGESReaderData,igesdat,Data());
94   const IGESData_GlobalSection& gs = igesdat->GlobalSection();
95   amod->SetStartSection  (igesdat->StartSection(),Standard_False);
96   amod->SetGlobalSection (gs);
97   Handle(Interface_Check) glob = amod->GlobalCheck();
98   glob->GetMessages (igesdat->GlobalCheck());
99   amod->SetGlobalCheck   (glob);
100   themaxweight  = gs.MaxLineWeight();
101   thegradweight = gs.LineWeightGrad();
102   if (thegradweight > 0)
103     { themaxweight = themaxweight/thegradweight; thegradweight = 1; }
104   thedefweight = igesdat->DefaultLineWeight();
105 }
106
107
108 // Manquent les procedures de reprise sur erreur en cours de route ...
109     Standard_Boolean  IGESData_IGESReaderTool::AnalyseRecord
110   (const Standard_Integer num, const Handle(Standard_Transient)& anent,
111    Handle(Interface_Check)& ach)
112 {
113
114   Handle(TCollection_HAsciiString) lab;
115
116   DeclareAndCast(IGESData_IGESEntity,ent,anent);
117   DeclareAndCast(IGESData_IGESReaderData,igesdat,Data());
118
119 //  Demarrage de la lecture : Faire Clear
120   ent->Clear();
121
122 //  UndefinedEntity : une pre-analyse est faite
123   DeclareAndCast(IGESData_UndefinedEntity,undent,ent);
124   if (!undent.IsNull()) {
125     IGESData_DirPart DP = igesdat->DirPart(num);    // qui le copie ...
126     undent->ReadDir (igesdat,DP,ach);               // DP a pu etre modifie
127     ReadDir (ent,igesdat,DP,ach);                   // Lecture avec ce DP
128   }
129   else ReadDir (ent,igesdat,igesdat->DirPart(num),ach);
130
131   thestep = IGESData_ReadDir;
132
133 //   Liste de Parametres : controle de son entete
134 //  Handle(Interface_ParamList) list = Data()->Params(num);
135   Standard_Integer nbpar = Data()->NbParams(num);
136   Standard_Integer n0par = (num == 1 ? 1 : (Data()->ParamFirstRank(num-1) +1));
137   if (nbpar < 1) {
138 //   Liste vide non admise, sauf si Undefined (par exemple type nul)
139     if (!undent.IsNull()) return Standard_True;
140     // Sending of message : DE : no parameter
141     Message_Msg Msg27 ("XSTEP_27");
142     Msg27.Arg(thecnum);
143     ach->SendFail(Msg27);
144     return Standard_False;
145   }
146   const Interface_FileParameter& FP = thelist->Value(n0par);
147   if ((FP.ParamType() != Interface_ParamInteger) || (atoi(FP.CValue()) != ent->TypeNumber()))
148     { 
149      // Sending of message : DE : Incorrect type 
150       Message_Msg Msg28 ("XSTEP_28");
151       Msg28.Arg(thecnum);
152       ach->SendFail(Msg28);  
153       return Standard_False; 
154     }
155
156   IGESData_ParamReader PR (thelist,ach,n0par,nbpar,num);
157   thestep = IGESData_ReadOwn;
158   ReadOwnParams (ent,igesdat,PR);
159   if ((thestep = PR.Stage()) == IGESData_ReadOwn) PR.NextStage();
160   if (thestep == IGESData_ReadEnd) {
161     if (!PR.IsCheckEmpty()) ach = PR.Check();
162     return (!ach->HasFailed());
163   }
164
165   ReadAssocs (ent,igesdat,PR);
166   if ((thestep = PR.Stage()) == IGESData_ReadAssocs) PR.NextStage();
167   if (thestep == IGESData_ReadEnd) {
168     if (!PR.IsCheckEmpty()) ach = PR.Check();
169     return (!ach->HasFailed());
170   }
171   ReadProps (ent,igesdat,PR);
172 //  thestep = IGESData_ReadEnd;
173   if   (!PR.IsCheckEmpty()) ach = PR.Check();
174   return (!ach->HasFailed());
175 }
176
177     void IGESData_IGESReaderTool::EndRead
178   (const Handle(Interface_InterfaceModel)& /* amodel */)
179 {
180 /*
181   DeclareAndCast(IGESData_IGESModel,amod,amodel);
182   DeclareAndCast(IGESData_IGESReaderData,igesdat,Data());
183   amod->SetLineWeights(igesdat->DefaultLineWeight());
184 */
185 }
186
187
188
189 //  ###########################################################################
190 //  ########                        UNE  ENTITE                        ########
191
192 //  ########                      Directory  Part                      ########
193
194     void  IGESData_IGESReaderTool::ReadDir
195   (const Handle(IGESData_IGESEntity)& ent,
196    const Handle(IGESData_IGESReaderData)& IR,
197    const IGESData_DirPart& DP, Handle(Interface_Check)& ach) const 
198
199     
200   Standard_Integer v[17];
201   Standard_Character nom[9]; Standard_Character snum[9], theRes1[9],theRes2[9];
202   //char mess[50]; //szv#4:S4163:12Mar99 unused
203
204   DP.Values(v[0],v[1],v[2],v[3],v[4],v[5],v[6],v[7],v[8],v[9],v[10],v[11],
205             v[12],v[13],v[14],v[15],v[16],theRes1,theRes2,nom,snum);
206
207   ent->InitTypeAndForm (v[0] , v[16]);
208   Handle(IGESData_IGESEntity) fieldent, Structure, fieldlab;
209   if (v[2] <  0) Structure  = GetCasted
210     (IGESData_IGESEntity,          IR->BoundEntity( (1-v[2])/2 ));
211
212   Handle(IGESData_LineFontEntity) Lnf;
213   if (v[3] <  0) {
214     fieldent = GetCasted(IGESData_IGESEntity, IR->BoundEntity( (1-v[3])/2 ));
215     Lnf = GetCasted(IGESData_LineFontEntity, fieldent);
216     if (Lnf.IsNull()) {
217       // Sending of message : Incorrect Line Font Pattern
218       Message_Msg Msg29 ("XSTEP_29");
219       Msg29.Arg(thecnum);
220       Msg29.Arg(thectyp.Type());
221       ach->SendWarning(Msg29);
222       ent->InitDirFieldEntity(4,fieldent);
223     }
224     else ent->InitLineFont (Lnf);
225   }
226   else ent->InitLineFont(Lnf,v[3]);    // ici Lnf Null
227
228   Handle(IGESData_LevelListEntity) Lvs;
229   if (v[4] <  0) {
230     fieldent = GetCasted(IGESData_IGESEntity, IR->BoundEntity( (1-v[4])/2 ));
231     Lvs = GetCasted(IGESData_LevelListEntity, fieldent);
232     if (Lvs.IsNull()) {
233       // Sending of message : Incorrect Line Font Pattern
234       Message_Msg Msg30 ("XSTEP_30");
235       Msg30.Arg(thecnum);
236       Msg30.Arg(thectyp.Type());
237       ach->SendWarning(Msg30);
238       ent->InitDirFieldEntity(5,fieldent);
239     }
240     else ent->InitLevel(Lvs,-1);
241   }
242   else ent->InitLevel(Lvs,v[4]);       // ici Lvs Null
243
244   if (v[5] != 0) {
245     fieldent = GetCasted(IGESData_IGESEntity,IR->BoundEntity( (1+v[5])/2 ));
246     DeclareAndCast(IGESData_ViewKindEntity,View,fieldent);
247     if (View.IsNull()) {
248       // Sending of message : Incorrect View 
249       Message_Msg Msg31 ("XSTEP_31");
250       Msg31.Arg(thecnum);
251       Msg31.Arg(thectyp.Type());
252       ach->SendWarning(Msg31);
253       ent->InitDirFieldEntity(6,fieldent);
254     }
255     else ent->InitView(View);
256   }
257
258   if (v[6] != 0) {
259     fieldent = GetCasted(IGESData_IGESEntity,IR->BoundEntity( (1+v[6])/2 ));
260     DeclareAndCast(IGESData_TransfEntity,Transf,fieldent);
261     if (Transf.IsNull()) {
262       // Sending of message : Incorrect Transformation Matrix 
263       Message_Msg Msg32 ("XSTEP_32");
264       Msg32.Arg(thecnum);
265       Msg32.Arg(thectyp.Type());
266       ach->SendWarning(Msg32);
267       ent->InitDirFieldEntity(7,fieldent);
268     }
269     else ent->InitTransf(Transf);
270   }
271
272   Handle(IGESData_LabelDisplayEntity) Lbd;
273   if (v[7] != 0) {
274     fieldlab = GetCasted(IGESData_IGESEntity,IR->BoundEntity( (1+v[7])/2 ));
275     Lbd = GetCasted(IGESData_LabelDisplayEntity,fieldent);
276     if (Lbd.IsNull()) {
277       // Sending of message : Incorrect Label Display 
278       Message_Msg Msg33 ("XSTEP_33");
279       Msg33.Arg(thecnum);
280       Msg33.Arg(thectyp.Type());
281       ach->SendWarning(Msg33);
282     }
283   }
284
285   ent->InitStatus (v[8] , v[9] , v[10] , v[11]);
286
287   Standard_Integer LWeightNum  = v[13];
288
289   Handle(IGESData_ColorEntity) Color;
290   if (v[14] <  0) {
291     fieldent = GetCasted(IGESData_IGESEntity,IR->BoundEntity( (1-v[14])/2 ));
292     Color = GetCasted(IGESData_ColorEntity, fieldent);
293     if (Color.IsNull()) {
294       // Sending of message : Incorrect Color Number 
295       Message_Msg Msg34 ("XSTEP_34");
296       Msg34.Arg(thecnum);
297       Msg34.Arg(thectyp.Type());
298       ach->SendWarning(Msg34);
299       ent->InitDirFieldEntity(13,fieldent);
300     }
301     else ent->InitColor(Color);
302   }
303   else ent->InitColor(Color,v[14]);
304
305   ent->InitMisc (Structure,Lbd,LWeightNum);
306   ent->InitDirFieldEntity(8,fieldlab);
307
308 // ignores : 1(type),2(ptrPsect),13(type),16(lignesPsect),17(form)
309 // type et forme sont lus directement du DirPart; autres infos recalculees
310
311 //    Restent a analyser nom (short label) et snum (subscript number)
312   Handle(TCollection_HAsciiString) ShortLabel;
313   Standard_Integer SubScriptN = -1;
314   Standard_Integer iacar = 0;
315   Standard_Integer i; // svv Jan11 2000 : porting on DEC
316   for (i = 0; i < 8; i ++) { if (nom[i] > ' ') iacar = 1;  }
317   if (iacar > 0) ShortLabel = new TCollection_HAsciiString(nom);
318   iacar = 0;
319   for (i = 0; i < 8; i ++)
320     {  if (snum[i] > ' ') iacar = 1; if(snum[i] == 0) break;  }
321   if (iacar > 0) SubScriptN = atoi(snum);
322   ent->SetLabel(ShortLabel,SubScriptN);
323
324 //    Enfin, SetLineWeight, tenant compte du defaut
325   ent->SetLineWeight (IR->DefaultLineWeight(),themaxweight,thegradweight);
326 }
327
328
329 //  ########                     Partie Specifique                     ########
330
331     void  IGESData_IGESReaderTool::ReadOwnParams
332   (const Handle(IGESData_IGESEntity)& ent,
333    const Handle(IGESData_IGESReaderData)& IR,
334    IGESData_ParamReader& PR) const 
335 {
336   Handle(Interface_Check) ach = new Interface_Check();
337   Handle(Interface_ReaderModule) imodule;
338   Standard_Integer CN;
339   
340 //  Les Modules font tout
341   if (therlib.Select(ent,imodule,CN))
342   {
343     Handle(IGESData_ReadWriteModule) module =
344       Handle(IGESData_ReadWriteModule)::DownCast (imodule);
345     module->ReadOwnParams(CN,ent,IR,PR);
346   }
347   else if (ent.IsNull()) {
348 //  Pas trouve dutout
349     // Sending of message : Null Entity
350     Message_Msg Msg35 ("XSTEP_35");
351     Msg35.Arg(thecnum);
352     ach->SendFail(Msg35);
353 //  Cas de UndefinedEntity
354   } else if (ent->IsKind(STANDARD_TYPE(IGESData_UndefinedEntity))) {
355     DeclareAndCast(IGESData_UndefinedEntity,undent,ent);
356     undent->ReadOwnParams(IR,PR);
357 //    IGESEntity creee puis non reconnue ... (bizarre, non ?)
358   } else {
359 //    IGESData_IGESType DT = ent->IGESType();
360     // Sending of message : Unknown Entity
361     Message_Msg Msg36 ("XSTEP_36");
362     Msg36.Arg(thecnum);
363     ach->SendFail(Msg36);
364   }
365 }
366
367
368 //  ########                        Proprietes                         ########
369
370     void  IGESData_IGESReaderTool::ReadProps
371   (const Handle(IGESData_IGESEntity)& ent,
372    const Handle(IGESData_IGESReaderData)& IR,
373    IGESData_ParamReader& PR) const 
374 {
375  // MGE 17/06/98
376  // Building of Messages
377  //=====================================
378  Message_Msg Msg38 ("XSTEP_38");
379  //Message_Msg Msg221 ("XSTEP_221");
380  //=====================================
381  Handle(Interface_Check) ach = new Interface_Check;
382   Msg38.Arg(thecnum);
383   Msg38.Arg(thectyp.Type());
384  if (PR.Stage() != IGESData_ReadProps) ach->SendFail(Msg38);
385   Standard_Integer ncur = PR.CurrentNumber();
386   Standard_Integer nbp  = PR.NbParams();
387   if (ncur == nbp + 1) {  PR.EndAll();  return;  }
388   else if (ncur > nbp || ncur == 0) ach->SendWarning(Msg38);
389
390   Standard_Integer nbprops = 0;
391   if (!PR.DefinedElseSkip()) return;
392   if (!PR.ReadInteger(ncur,nbprops)) {
393     Message_Msg Msg221 ("XSTEP_221");
394     PR.SendFail(Msg221);
395     return;
396   }
397   if (nbprops == 0)
398   {
399     return;
400   }
401
402   ++ncur;
403   Interface_EntityList props;
404   if (PR.ReadEntList
405       (IR,PR.CurrentList(nbprops),Msg38, props,Standard_False) )
406     ent->LoadProperties(props);
407 }
408
409
410 //  ########                      Associativites                       ########
411
412     void  IGESData_IGESReaderTool::ReadAssocs
413   (const Handle(IGESData_IGESEntity)& ent,
414    const Handle(IGESData_IGESReaderData)& IR,
415    IGESData_ParamReader& PR) const 
416 {
417   // MGE 17/06/98
418   // Building of Messages
419   //=====================================
420   Message_Msg Msg37 ("XSTEP_37");
421 //  Message_Msg Msg220 ("XSTEP_220");
422   //=====================================
423   Msg37.Arg(thecnum);
424   Msg37.Arg(thectyp.Type());
425   Handle(Interface_Check) ach = new Interface_Check;
426   if (PR.Stage() != IGESData_ReadAssocs) ach->SendFail(Msg37);
427   Standard_Integer ncur = PR.CurrentNumber(); 
428   Standard_Integer nbp  = PR.NbParams();
429   if (ncur == nbp + 1) {  PR.EndAll();  return;  }
430   else if (ncur > nbp || ncur == 0) ach->SendWarning(Msg37);
431
432   Standard_Integer nbassocs = 0;
433   if (!PR.DefinedElseSkip()) return;
434   if (!PR.ReadInteger(PR.Current(),nbassocs)){
435   Message_Msg Msg220 ("XSTEP_220");
436   PR.SendFail(Msg220);
437   return;
438 }
439   if (nbassocs == 0) return;
440   Interface_EntityList assocs;
441   if (PR.ReadEntList
442       (IR,PR.CurrentList(nbassocs),Msg37, assocs,Standard_False) )
443     ent->LoadAssociativities(assocs);
444 }