[occt.git] / src / IGESData / IGESData_IGESReaderTool.cxx

// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.


#include <IGESData_ColorEntity.hxx>
#include <IGESData_DirPart.hxx>
#include <IGESData_FileRecognizer.hxx>
#include <IGESData_IGESEntity.hxx>
#include <IGESData_IGESModel.hxx>
#include <IGESData_IGESReaderData.hxx>
#include <IGESData_IGESReaderTool.hxx>
#include <IGESData_LabelDisplayEntity.hxx>
#include <IGESData_LevelListEntity.hxx>
#include <IGESData_LineFontEntity.hxx>
#include <IGESData_ParamCursor.hxx>
#include <IGESData_ParamReader.hxx>
#include <IGESData_Protocol.hxx>
#include <IGESData_ReadWriteModule.hxx>
#include <IGESData_TransfEntity.hxx>
#include <IGESData_UndefinedEntity.hxx>
#include <IGESData_ViewKindEntity.hxx>
#include <Interface_Check.hxx>
#include <Interface_FileParameter.hxx>
#include <Interface_InterfaceModel.hxx>
#include <Interface_Macros.hxx>
#include <Interface_ParamList.hxx>
#include <Interface_ReaderModule.hxx>
#include <Message_Msg.hxx>
#include <Standard_Transient.hxx>
#include <TCollection_HAsciiString.hxx>

#include <stdio.h>
// MGE 17/06/98
// To use Msg class
IGESData_IGESReaderTool::IGESData_IGESReaderTool
  (const Handle(IGESData_IGESReaderData)& reader,
   const Handle(IGESData_Protocol)& protocol)
      : theglib(protocol) , therlib(protocol)
      {  SetData (reader,protocol);  }


//  ###########################################################################
//  ########                        PREPARATION                        ########

    void IGESData_IGESReaderTool::Prepare
  (const Handle(IGESData_FileRecognizer)& reco)
{
  DeclareAndCast(IGESData_IGESReaderData,igesdat,Data());
  igesdat->SetEntityNumbers();
  thereco = reco;
  SetEntities();
  thelist = igesdat->Params(0);
}


    Standard_Boolean IGESData_IGESReaderTool::Recognize
  (const Standard_Integer num, Handle(Interface_Check)& ach,
   Handle(Standard_Transient)& ent)
{
  DeclareAndCast(IGESData_IGESReaderData,igesdat,Data());
  thecnum = num;  thectyp = igesdat->DirType(num);
  Handle(IGESData_IGESEntity) anent;
  Standard_Boolean res = Standard_False;

//  Recognizer -> Liste limitative
  if (!thereco.IsNull()) res = thereco->Evaluate(thectyp,anent);
  if (res) ent = anent;
//  Sinon, Library
  else res = RecognizeByLib (num,theglib,therlib,ach,ent);
  return res;
}


//  ###########################################################################
//  ########                LECTURE  (Controle General)                ########

//    (Elements enchaines par la classe de base Interface_FileReaderTool)

    void IGESData_IGESReaderTool::BeginRead
  (const Handle(Interface_InterfaceModel)& amodel)
{
  DeclareAndCast(IGESData_IGESModel,amod,amodel);
  DeclareAndCast(IGESData_IGESReaderData,igesdat,Data());
  const IGESData_GlobalSection& gs = igesdat->GlobalSection();
  amod->SetStartSection  (igesdat->StartSection(),Standard_False);
  amod->SetGlobalSection (gs);
  Handle(Interface_Check) glob = amod->GlobalCheck();
  glob->GetMessages (igesdat->GlobalCheck());
  amod->SetGlobalCheck   (glob);
  themaxweight  = gs.MaxLineWeight();
  thegradweight = gs.LineWeightGrad();
  if (thegradweight > 0)
    { themaxweight = themaxweight/thegradweight; thegradweight = 1; }
  thedefweight = igesdat->DefaultLineWeight();
}


// Manquent les procedures de reprise sur erreur en cours de route ...
    Standard_Boolean  IGESData_IGESReaderTool::AnalyseRecord
  (const Standard_Integer num, const Handle(Standard_Transient)& anent,
   Handle(Interface_Check)& ach)
{

  Handle(TCollection_HAsciiString) lab;

  DeclareAndCast(IGESData_IGESEntity,ent,anent);
  DeclareAndCast(IGESData_IGESReaderData,igesdat,Data());

//  Demarrage de la lecture : Faire Clear
  ent->Clear();

//  UndefinedEntity : une pre-analyse est faite
  DeclareAndCast(IGESData_UndefinedEntity,undent,ent);
  if (!undent.IsNull()) {
    IGESData_DirPart DP = igesdat->DirPart(num);    // qui le copie ...
    undent->ReadDir (igesdat,DP,ach);               // DP a pu etre modifie
    ReadDir (ent,igesdat,DP,ach);                   // Lecture avec ce DP
  }
  else ReadDir (ent,igesdat,igesdat->DirPart(num),ach);

  thestep = IGESData_ReadDir;

//   Liste de Parametres : controle de son entete
//  Handle(Interface_ParamList) list = Data()->Params(num);
  Standard_Integer nbpar = Data()->NbParams(num);
  Standard_Integer n0par = (num == 1 ? 1 : (Data()->ParamFirstRank(num-1) +1));
  if (nbpar < 1) {
//   Liste vide non admise, sauf si Undefined (par exemple type nul)
    if (!undent.IsNull()) return Standard_True;
    // Sending of message : DE : no parameter
    Message_Msg Msg27 ("XSTEP_27");
    Msg27.Arg(thecnum);
    ach->SendFail(Msg27);
    return Standard_False;
  }
  const Interface_FileParameter& FP = thelist->Value(n0par);
  if ((FP.ParamType() != Interface_ParamInteger) || (atoi(FP.CValue()) != ent->TypeNumber()))
    { 
     // Sending of message : DE : Incorrect type 
      Message_Msg Msg28 ("XSTEP_28");
      Msg28.Arg(thecnum);
      ach->SendFail(Msg28);  
      return Standard_False; 
    }

  IGESData_ParamReader PR (thelist,ach,n0par,nbpar,num);
  thestep = IGESData_ReadOwn;
  ReadOwnParams (ent,igesdat,PR);
  if ((thestep = PR.Stage()) == IGESData_ReadOwn) PR.NextStage();
  if (thestep == IGESData_ReadEnd) {
    if (!PR.IsCheckEmpty()) ach = PR.Check();
    return (!ach->HasFailed());
  }

  ReadAssocs (ent,igesdat,PR);
  if ((thestep = PR.Stage()) == IGESData_ReadAssocs) PR.NextStage();
  if (thestep == IGESData_ReadEnd) {
    if (!PR.IsCheckEmpty()) ach = PR.Check();
    return (!ach->HasFailed());
  }
  ReadProps (ent,igesdat,PR);
//  thestep = IGESData_ReadEnd;
  if   (!PR.IsCheckEmpty()) ach = PR.Check();
  return (!ach->HasFailed());
}

    void IGESData_IGESReaderTool::EndRead
  (const Handle(Interface_InterfaceModel)& /* amodel */)
{
/*
  DeclareAndCast(IGESData_IGESModel,amod,amodel);
  DeclareAndCast(IGESData_IGESReaderData,igesdat,Data());
  amod->SetLineWeights(igesdat->DefaultLineWeight());
*/
}


//  ###########################################################################
//  ########                        UNE  ENTITE                        ########

//  ########                      Directory  Part                      ########

    void  IGESData_IGESReaderTool::ReadDir
  (const Handle(IGESData_IGESEntity)& ent,
   const Handle(IGESData_IGESReaderData)& IR,
   const IGESData_DirPart& DP, Handle(Interface_Check)& ach) const 
{ 
    
  Standard_Integer v[17] = {};
  Standard_Character nom[9] = {}; Standard_Character snum[9] = {}, theRes1[9] = {}, theRes2[9] = {};
  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],
	    v[12],v[13],v[14],v[15],v[16],theRes1,theRes2,nom,snum);

  ent->InitTypeAndForm (v[0] , v[16]);
  Handle(IGESData_IGESEntity) fieldent, Structure, fieldlab;
  if (v[2] <  0) Structure  = GetCasted
    (IGESData_IGESEntity,          IR->BoundEntity( (1-v[2])/2 ));

  Handle(IGESData_LineFontEntity) Lnf;
  if (v[3] <  0) {
    fieldent = GetCasted(IGESData_IGESEntity, IR->BoundEntity( (1-v[3])/2 ));
    Lnf = GetCasted(IGESData_LineFontEntity, fieldent);
    if (Lnf.IsNull()) {
      // Sending of message : Incorrect Line Font Pattern
      Message_Msg Msg29 ("XSTEP_29");
      Msg29.Arg(thecnum);
      Msg29.Arg(thectyp.Type());
      ach->SendWarning(Msg29);
      ent->InitDirFieldEntity(4,fieldent);
    }
    else ent->InitLineFont (Lnf);
  }
  else ent->InitLineFont(Lnf,v[3]);    // ici Lnf Null

  Handle(IGESData_LevelListEntity) Lvs;
  if (v[4] <  0) {
    fieldent = GetCasted(IGESData_IGESEntity, IR->BoundEntity( (1-v[4])/2 ));
    Lvs = GetCasted(IGESData_LevelListEntity, fieldent);
    if (Lvs.IsNull()) {
      // Sending of message : Incorrect Line Font Pattern
      Message_Msg Msg30 ("XSTEP_30");
      Msg30.Arg(thecnum);
      Msg30.Arg(thectyp.Type());
      ach->SendWarning(Msg30);
      ent->InitDirFieldEntity(5,fieldent);
    }
    else ent->InitLevel(Lvs,-1);
  }
  else ent->InitLevel(Lvs,v[4]);       // ici Lvs Null

  if (v[5] != 0) {
    fieldent = GetCasted(IGESData_IGESEntity,IR->BoundEntity( (1+v[5])/2 ));
    DeclareAndCast(IGESData_ViewKindEntity,View,fieldent);
    if (View.IsNull()) {
      // Sending of message : Incorrect View 
      Message_Msg Msg31 ("XSTEP_31");
      Msg31.Arg(thecnum);
      Msg31.Arg(thectyp.Type());
      ach->SendWarning(Msg31);
      ent->InitDirFieldEntity(6,fieldent);
    }
    else ent->InitView(View);
  }

  if (v[6] != 0) {
    fieldent = GetCasted(IGESData_IGESEntity,IR->BoundEntity( (1+v[6])/2 ));
    DeclareAndCast(IGESData_TransfEntity,Transf,fieldent);
    if (Transf.IsNull()) {
      // Sending of message : Incorrect Transformation Matrix 
      Message_Msg Msg32 ("XSTEP_32");
      Msg32.Arg(thecnum);
      Msg32.Arg(thectyp.Type());
      ach->SendWarning(Msg32);
      ent->InitDirFieldEntity(7,fieldent);
    }
    else ent->InitTransf(Transf);
  }

  Handle(IGESData_LabelDisplayEntity) Lbd;
  if (v[7] != 0) {
    fieldlab = GetCasted(IGESData_IGESEntity,IR->BoundEntity( (1+v[7])/2 ));
    Lbd = GetCasted(IGESData_LabelDisplayEntity,fieldent);
    if (Lbd.IsNull()) {
      // Sending of message : Incorrect Label Display 
      Message_Msg Msg33 ("XSTEP_33");
      Msg33.Arg(thecnum);
      Msg33.Arg(thectyp.Type());
      ach->SendWarning(Msg33);
    }
  }

  ent->InitStatus (v[8] , v[9] , v[10] , v[11]);

  Standard_Integer LWeightNum  = v[13];

  Handle(IGESData_ColorEntity) Color;
  if (v[14] <  0) {
    fieldent = GetCasted(IGESData_IGESEntity,IR->BoundEntity( (1-v[14])/2 ));
    Color = GetCasted(IGESData_ColorEntity, fieldent);
    //an entity that is not a color entity and has a number corresponding 
    //to the color field should not be considered erroneous
    if (Color.IsNull()) {
      // Sending of message : Incorrect Color Number 
      Message_Msg Msg34 ("XSTEP_34");
      Msg34.Arg(thecnum);
      Msg34.Arg(thectyp.Type());
      ach->SendWarning(Msg34);
      ent->InitDirFieldEntity(13,Color);
    }
    else ent->InitColor(Color);
  }
  else ent->InitColor(Color,v[14]);

  ent->InitMisc (Structure,Lbd,LWeightNum);
  ent->InitDirFieldEntity(8,fieldlab);

// ignores : 1(type),2(ptrPsect),13(type),16(lignesPsect),17(form)
// type et forme sont lus directement du DirPart; autres infos recalculees

//    Restent a analyser nom (short label) et snum (subscript number)
  Handle(TCollection_HAsciiString) ShortLabel;
  Standard_Integer SubScriptN = -1;
  Standard_Integer iacar = 0;
  Standard_Integer i; // svv Jan11 2000 : porting on DEC
  for (i = 0; i < 8; i ++) { if (nom[i] > ' ') iacar = 1;  }
  if (iacar > 0) ShortLabel = new TCollection_HAsciiString(nom);
  iacar = 0;
  for (i = 0; i < 8; i ++)
    {  if (snum[i] > ' ') iacar = 1; if(snum[i] == 0) break;  }
  if (iacar > 0) SubScriptN = atoi(snum);
  ent->SetLabel(ShortLabel,SubScriptN);

//    Enfin, SetLineWeight, tenant compte du defaut
  ent->SetLineWeight (IR->DefaultLineWeight(),themaxweight,thegradweight);
}


//  ########                     Partie Specifique                     ########

    void  IGESData_IGESReaderTool::ReadOwnParams
  (const Handle(IGESData_IGESEntity)& ent,
   const Handle(IGESData_IGESReaderData)& IR,
   IGESData_ParamReader& PR) const 
{
  Handle(Interface_Check) ach = new Interface_Check();
  Handle(Interface_ReaderModule) imodule;
  Standard_Integer CN;
  
//  Les Modules font tout
  if (therlib.Select(ent,imodule,CN))
  {
    Handle(IGESData_ReadWriteModule) module =
      Handle(IGESData_ReadWriteModule)::DownCast (imodule);
    module->ReadOwnParams(CN,ent,IR,PR);
  }
  else if (ent.IsNull()) {
//  Pas trouve dutout
    // Sending of message : Null Entity
    Message_Msg Msg35 ("XSTEP_35");
    Msg35.Arg(thecnum);
    ach->SendFail(Msg35);
//  Cas de UndefinedEntity
  } else if (ent->IsKind(STANDARD_TYPE(IGESData_UndefinedEntity))) {
    DeclareAndCast(IGESData_UndefinedEntity,undent,ent);
    undent->ReadOwnParams(IR,PR);
//    IGESEntity creee puis non reconnue ... (bizarre, non ?)
  } else {
//    IGESData_IGESType DT = ent->IGESType();
    // Sending of message : Unknown Entity
    Message_Msg Msg36 ("XSTEP_36");
    Msg36.Arg(thecnum);
    ach->SendFail(Msg36);
  }
}


//  ########                        Proprietes                         ########

    void  IGESData_IGESReaderTool::ReadProps
  (const Handle(IGESData_IGESEntity)& ent,
   const Handle(IGESData_IGESReaderData)& IR,
   IGESData_ParamReader& PR) const 
{
 // MGE 17/06/98
 // Building of Messages
 //=====================================
 Message_Msg Msg38 ("XSTEP_38");
 //Message_Msg Msg221 ("XSTEP_221");
 //=====================================
 Handle(Interface_Check) ach = new Interface_Check;
  Msg38.Arg(thecnum);
  Msg38.Arg(thectyp.Type());
 if (PR.Stage() != IGESData_ReadProps) ach->SendFail(Msg38);
  Standard_Integer ncur = PR.CurrentNumber();
  Standard_Integer nbp  = PR.NbParams();
  if (ncur == nbp + 1) {  PR.EndAll();  return;  }
  else if (ncur > nbp || ncur == 0) ach->SendWarning(Msg38);

  Standard_Integer nbprops = 0;
  if (!PR.DefinedElseSkip()) return;
  if (!PR.ReadInteger(ncur,nbprops)) {
    Message_Msg Msg221 ("XSTEP_221");
    PR.SendFail(Msg221);
    return;
  }
  if (nbprops == 0)
  {
    return;
  }

  ++ncur;
  Interface_EntityList props;
  if (PR.ReadEntList
      (IR,PR.CurrentList(nbprops),Msg38, props,Standard_False) )
    ent->LoadProperties(props);
}


//  ########                      Associativites                       ########

    void  IGESData_IGESReaderTool::ReadAssocs
  (const Handle(IGESData_IGESEntity)& ent,
   const Handle(IGESData_IGESReaderData)& IR,
   IGESData_ParamReader& PR) const 
{
  // MGE 17/06/98
  // Building of Messages
  //=====================================
  Message_Msg Msg37 ("XSTEP_37");
//  Message_Msg Msg220 ("XSTEP_220");
  //=====================================
  Msg37.Arg(thecnum);
  Msg37.Arg(thectyp.Type());
  Handle(Interface_Check) ach = new Interface_Check;
  if (PR.Stage() != IGESData_ReadAssocs) ach->SendFail(Msg37);
  Standard_Integer ncur = PR.CurrentNumber(); 
  Standard_Integer nbp  = PR.NbParams();
  if (ncur == nbp + 1) {  PR.EndAll();  return;  }
  else if (ncur > nbp || ncur == 0) ach->SendWarning(Msg37);

  Standard_Integer nbassocs = 0;
  if (!PR.DefinedElseSkip()) return;
  if (!PR.ReadInteger(PR.Current(),nbassocs)){
  Message_Msg Msg220 ("XSTEP_220");
  PR.SendFail(Msg220);
  return;
}
  if (nbassocs == 0) return;
  Interface_EntityList assocs;
  if (PR.ReadEntList
      (IR,PR.CurrentList(nbassocs),Msg37, assocs,Standard_False) )
    ent->LoadAssociativities(assocs);
}
Commit	Line	Data
973c2be1	1	// Copyright (c) 1999-2014 OPEN CASCADE SAS
b311480e	2	//
973c2be1	3	// This file is part of Open CASCADE Technology software library.
b311480e	4	//
d5f74e42	5	// This library is free software; you can redistribute it and/or modify it under
d5f74e42	6	// the terms of the GNU Lesser General Public License version 2.1 as published
973c2be1	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.
b311480e	10	//
973c2be1	11	// Alternatively, this file may be used under the terms of Open CASCADE
973c2be1	12	// commercial license or contractual agreement.
b311480e	13
42cf5bc1	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>
7fd59977	20	#include <IGESData_IGESReaderData.hxx>
42cf5bc1	21	#include <IGESData_IGESReaderTool.hxx>
	22	#include <IGESData_LabelDisplayEntity.hxx>
	23	#include <IGESData_LevelListEntity.hxx>
	24	#include <IGESData_LineFontEntity.hxx>
7fd59977	25	#include <IGESData_ParamCursor.hxx>
42cf5bc1	26	#include <IGESData_ParamReader.hxx>
42cf5bc1	27	#include <IGESData_Protocol.hxx>
7fd59977	28	#include <IGESData_ReadWriteModule.hxx>
42cf5bc1	29	#include <IGESData_TransfEntity.hxx>
7fd59977	30	#include <IGESData_UndefinedEntity.hxx>
4f953fa9	31	#include <IGESData_ViewKindEntity.hxx>
42cf5bc1	32	#include <Interface_Check.hxx>
7fd59977	33	#include <Interface_FileParameter.hxx>
42cf5bc1	34	#include <Interface_InterfaceModel.hxx>
42cf5bc1	35	#include <Interface_Macros.hxx>
7fd59977	36	#include <Interface_ParamList.hxx>
42cf5bc1	37	#include <Interface_ReaderModule.hxx>
	38	#include <Message_Msg.hxx>
	39	#include <Standard_Transient.hxx>
7fd59977	40	#include <TCollection_HAsciiString.hxx>
7fd59977	41
42cf5bc1	42	#include <stdio.h>
7fd59977	43	// MGE 17/06/98
7fd59977	44	// To use Msg class
b311480e	45	IGESData_IGESReaderTool::IGESData_IGESReaderTool
7fd59977	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
b04cd5d5	200	Standard_Integer v[17] = {};
b04cd5d5	201	Standard_Character nom[9] = {}; Standard_Character snum[9] = {}, theRes1[9] = {}, theRes2[9] = {};
7fd59977	202	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],
	203	v[12],v[13],v[14],v[15],v[16],theRes1,theRes2,nom,snum);
	204
	205	ent->InitTypeAndForm (v[0] , v[16]);
	206	Handle(IGESData_IGESEntity) fieldent, Structure, fieldlab;
	207	if (v[2] < 0) Structure = GetCasted
	208	(IGESData_IGESEntity, IR->BoundEntity( (1-v[2])/2 ));
	209
	210	Handle(IGESData_LineFontEntity) Lnf;
	211	if (v[3] < 0) {
	212	fieldent = GetCasted(IGESData_IGESEntity, IR->BoundEntity( (1-v[3])/2 ));
	213	Lnf = GetCasted(IGESData_LineFontEntity, fieldent);
	214	if (Lnf.IsNull()) {
	215	// Sending of message : Incorrect Line Font Pattern
	216	Message_Msg Msg29 ("XSTEP_29");
	217	Msg29.Arg(thecnum);
	218	Msg29.Arg(thectyp.Type());
	219	ach->SendWarning(Msg29);
	220	ent->InitDirFieldEntity(4,fieldent);
	221	}
	222	else ent->InitLineFont (Lnf);
	223	}
	224	else ent->InitLineFont(Lnf,v[3]); // ici Lnf Null
	225
	226	Handle(IGESData_LevelListEntity) Lvs;
	227	if (v[4] < 0) {
	228	fieldent = GetCasted(IGESData_IGESEntity, IR->BoundEntity( (1-v[4])/2 ));
	229	Lvs = GetCasted(IGESData_LevelListEntity, fieldent);
	230	if (Lvs.IsNull()) {
	231	// Sending of message : Incorrect Line Font Pattern
	232	Message_Msg Msg30 ("XSTEP_30");
	233	Msg30.Arg(thecnum);
	234	Msg30.Arg(thectyp.Type());
	235	ach->SendWarning(Msg30);
	236	ent->InitDirFieldEntity(5,fieldent);
	237	}
	238	else ent->InitLevel(Lvs,-1);
	239	}
	240	else ent->InitLevel(Lvs,v[4]); // ici Lvs Null
	241
	242	if (v[5] != 0) {
	243	fieldent = GetCasted(IGESData_IGESEntity,IR->BoundEntity( (1+v[5])/2 ));
	244	DeclareAndCast(IGESData_ViewKindEntity,View,fieldent);
	245	if (View.IsNull()) {
	246	// Sending of message : Incorrect View
	247	Message_Msg Msg31 ("XSTEP_31");
	248	Msg31.Arg(thecnum);
	249	Msg31.Arg(thectyp.Type());
	250	ach->SendWarning(Msg31);
	251	ent->InitDirFieldEntity(6,fieldent);
	252	}
	253	else ent->InitView(View);
	254	}
	255
	256	if (v[6] != 0) {
	257	fieldent = GetCasted(IGESData_IGESEntity,IR->BoundEntity( (1+v[6])/2 ));
	258	DeclareAndCast(IGESData_TransfEntity,Transf,fieldent);
	259	if (Transf.IsNull()) {
	260	// Sending of message : Incorrect Transformation Matrix
	261	Message_Msg Msg32 ("XSTEP_32");
	262	Msg32.Arg(thecnum);
	263	Msg32.Arg(thectyp.Type());
	264	ach->SendWarning(Msg32);
	265	ent->InitDirFieldEntity(7,fieldent);
266	}
267	else ent->InitTransf(Transf);
268	}
269
270	Handle(IGESData_LabelDisplayEntity) Lbd;
271	if (v[7] != 0) {
272	fieldlab = GetCasted(IGESData_IGESEntity,IR->BoundEntity( (1+v[7])/2 ));
273	Lbd = GetCasted(IGESData_LabelDisplayEntity,fieldent);
274	if (Lbd.IsNull()) {
275	// Sending of message : Incorrect Label Display
276	Message_Msg Msg33 ("XSTEP_33");
277	Msg33.Arg(thecnum);
278	Msg33.Arg(thectyp.Type());
279	ach->SendWarning(Msg33);
280	}
281	}
282
283	ent->InitStatus (v[8] , v[9] , v[10] , v[11]);
284
285	Standard_Integer LWeightNum = v[13];
286
287	Handle(IGESData_ColorEntity) Color;
288	if (v[14] < 0) {
289	fieldent = GetCasted(IGESData_IGESEntity,IR->BoundEntity( (1-v[14])/2 ));
290	Color = GetCasted(IGESData_ColorEntity, fieldent);
809a2e13	291	//an entity that is not a color entity and has a number corresponding
809a2e13	292	//to the color field should not be considered erroneous
7fd59977	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);
809a2e13	299	ent->InitDirFieldEntity(13,Color);
7fd59977	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	{
8c2d3314	336	Handle(Interface_Check) ach = new Interface_Check();
aa00364d	337	Handle(Interface_ReaderModule) imodule;
aa00364d	338	Standard_Integer CN;
7fd59977	339
7fd59977	340	// Les Modules font tout
aa00364d	341	if (therlib.Select(ent,imodule,CN))
	342	{
	343	Handle(IGESData_ReadWriteModule) module =
	344	Handle(IGESData_ReadWriteModule)::DownCast (imodule);
7fd59977	345	module->ReadOwnParams(CN,ent,IR,PR);
aa00364d	346	}
7fd59977	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	}
c48e2889	397	if (nbprops == 0)
	398	{
	399	return;
	400	}
	401
	402	++ncur;
7fd59977	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	}