src/XSControl/XSControl_Reader.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 // pdn 26.02.99 added initializing of compound in function OneShape
  15 //:   gka 14.04.99: S4136: apply scaling
  16
  17 #include <BRep_Builder.hxx>
  18 #include <IFSelect_Functions.hxx>
  19 #include <Interface_Check.hxx>
  20 #include <Interface_InterfaceModel.hxx>
  21 #include <Interface_ShareFlags.hxx>
  22 #include <Interface_Static.hxx>
  23 #include <Message.hxx>
  24 #include <Message_Messenger.hxx>
  25 #include <Message_ProgressSentry.hxx>
  26 #include <ShapeExtend_Explorer.hxx>
  27 #include <Standard_Transient.hxx>
  28 #include <TopoDS_Compound.hxx>
  29 #include <TopoDS_Shape.hxx>
  30 #include <Transfer_Binder.hxx>
  31 #include <Transfer_IteratorOfProcessForTransient.hxx>
  32 #include <Transfer_TransientProcess.hxx>
  33 #include <XSControl_Controller.hxx>
  34 #include <XSControl_Reader.hxx>
  35 #include <XSControl_TransferReader.hxx>
  36 #include <XSControl_WorkSession.hxx>
  37
  38 //#include <ShapeCustom.hxx>
  39 //#include <ShapeAlgo.hxx>
  40 //#include <ShapeAlgo_AlgoContainer.hxx>
  41 //=======================================================================
  42 //function : XSControl_Reader
  43 //purpose  :
  44 //=======================================================================
  45 XSControl_Reader::XSControl_Reader ()
  46 {
  47   SetWS (new XSControl_WorkSession);
  48 }
  49
  50
  51 //=======================================================================
  52 //function : XSControl_Reader
  53 //purpose  :
  54 //=======================================================================
  55
  56 XSControl_Reader::XSControl_Reader (const Standard_CString norm)
  57 {
  58   SetNorm (norm);
  59 }
  60
  61
  62 //=======================================================================
  63 //function : XSControl_Reader
  64 //purpose  :
  65 //=======================================================================
  66
  67 XSControl_Reader::XSControl_Reader(const Handle(XSControl_WorkSession)& WS,
  68                                    const Standard_Boolean scratch)
  69 {
  70   SetWS (WS,scratch);
  71 }
  72
  73
  74 //=======================================================================
  75 //function : SetNorm
  76 //purpose  :
  77 //=======================================================================
  78
  79 Standard_Boolean  XSControl_Reader::SetNorm (const Standard_CString norm)
  80 {
  81   if (thesession.IsNull()) SetWS (new XSControl_WorkSession);
  82   Standard_Boolean stat = thesession->SelectNorm (norm);
  83   if (stat) {
  84     thesession->InitTransferReader(0);
  85     thesession->InitTransferReader(4);
  86   }
  87   return stat;
  88 }
  89
  90
  91 //=======================================================================
  92 //function : SetWS
  93 //purpose  :
  94 //=======================================================================
  95
  96 void XSControl_Reader::SetWS(const Handle(XSControl_WorkSession)& WS,
  97                              const Standard_Boolean scratch)
  98 {
  99   therootsta = Standard_False;
 100   theroots.Clear();
 101   thesession = WS;
 102   //  Il doit y avoir un Controller ...  Sinon onverra plus tard (apres SetNorm)
 103   if (thesession->NormAdaptor().IsNull()) return;
 104   Handle(Interface_InterfaceModel) model = thesession->Model ();
 105   if (scratch || model.IsNull())   model = thesession->NewModel ();
 106   thesession->InitTransferReader(0);
 107   thesession->InitTransferReader(4);
 108 }
 109
 110
 111 //=======================================================================
 112 //function : WS
 113 //purpose  :
 114 //=======================================================================
 115
 116 Handle(XSControl_WorkSession) XSControl_Reader::WS () const
 117 {
 118   return thesession;
 119 }
 120
 121
 122 //=======================================================================
 123 //function : ReadFile
 124 //purpose  :
 125 //=======================================================================
 126
 127 IFSelect_ReturnStatus  XSControl_Reader::ReadFile
 128   (const Standard_CString filename)
 129 {
 130   IFSelect_ReturnStatus stat = thesession->ReadFile(filename);
 131   thesession->InitTransferReader(4);
 132   return stat;
 133 }
 134
 135
 136 Handle(Interface_InterfaceModel) XSControl_Reader::Model () const
 137 {
 138   return thesession->Model();
 139 }
 140
 141
 142 //=======================================================================
 143 //function : GiveList
 144 //purpose  :
 145 //=======================================================================
 146
 147 Handle(TColStd_HSequenceOfTransient)  XSControl_Reader::GiveList
 148        (const Standard_CString first, const Standard_CString second)
 149 {
 150   if (first && first[0] != '\0') {
 151     return thesession->GiveList (first,second);
 152   }
 153
 154   Handle(TColStd_HSequenceOfTransient) list = new TColStd_HSequenceOfTransient();
 155   Standard_Integer i,nbr = NbRootsForTransfer();
 156   for (i = 1; i <= nbr; i ++) list->Append (RootForTransfer(i));
 157   return list;
 158 }
 159
 160
 161 //=======================================================================
 162 //function : GiveList
 163 //purpose  :
 164 //=======================================================================
 165
 166 Handle(TColStd_HSequenceOfTransient)  XSControl_Reader::GiveList
 167        (const Standard_CString first, const Handle(Standard_Transient)& list)
 168 {
 169   return thesession->GiveListFromList (first,list);
 170 }
 171
 172
 173 //=======================================================================
 174 //function : NbRootsForTransfer
 175 //purpose  :
 176 //=======================================================================
 177
 178 Standard_Integer  XSControl_Reader::NbRootsForTransfer ()
 179 {
 180   if (therootsta) return theroots.Length();
 181   therootsta = Standard_True;
 182   Interface_ShareFlags sf (thesession->Graph());
 183   Standard_Integer i, nbr = sf.NbRoots();
 184   for (i = 1; i <= nbr; i ++) {
 185     //    on filtre les racines qu on sait transferer
 186     Handle(Standard_Transient) start = sf.Root(i);
 187     if (thesession->TransferReader()->Recognize(start)) theroots.Append(start);
 188   }
 189   return theroots.Length();
 190 }
 191
 192
 193 //=======================================================================
 194 //function : RootForTransfer
 195 //purpose  :
 196 //=======================================================================
 197
 198 Handle(Standard_Transient)  XSControl_Reader::RootForTransfer
 199   (const Standard_Integer num)
 200 {
 201   Handle(Standard_Transient) voidroot;
 202   Standard_Integer nbr = NbRootsForTransfer();
 203   if (num < 1 || num > nbr) return voidroot;
 204   return theroots.Value(num);
 205 }
 206
 207
 208 //  ####        TRANSFERT        ####
 209
 210
 211 //=======================================================================
 212 //function : TransferOneRoot
 213 //purpose  :
 214 //=======================================================================
 215
 216 Standard_Boolean  XSControl_Reader::TransferOneRoot(const Standard_Integer num)
 217 {
 218   return TransferEntity (RootForTransfer (num));
 219 }
 220
 221
 222 //=======================================================================
 223 //function : TransferOne
 224 //purpose  :
 225 //=======================================================================
 226
 227 Standard_Boolean  XSControl_Reader::TransferOne(const Standard_Integer num)
 228 {
 229   return TransferEntity (thesession->StartingEntity (num));
 230 }
 231
 232
 233 //=======================================================================
 234 //function : TransferEntity
 235 //purpose  :
 236 //=======================================================================
 237
 238 Standard_Boolean  XSControl_Reader::TransferEntity
 239   (const Handle(Standard_Transient)& start)
 240 {
 241   if (start.IsNull()) return Standard_False;
 242   const Handle(XSControl_TransferReader) &TR = thesession->TransferReader();
 243   TR->BeginTransfer();
 244   if (TR->TransferOne (start) == 0) return Standard_False;
 245   TopoDS_Shape sh = TR->ShapeResult(start);
 246   //ShapeExtend_Explorer STU;
 247   //SMH May 00: allow empty shapes (STEP CAX-IF, external references)
 248   //if (STU.ShapeType(sh,Standard_True) == TopAbs_SHAPE) return Standard_False;  // nulle-vide
 249   theshapes.Append(sh);
 250   return Standard_True;
 251 }
 252
 253
 254 //=======================================================================
 255 //function : TransferList
 256 //purpose  :
 257 //=======================================================================
 258
 259 Standard_Integer  XSControl_Reader::TransferList
 260   (const Handle(TColStd_HSequenceOfTransient)& list)
 261 {
 262   if (list.IsNull()) return 0;
 263   Standard_Integer nbt = 0;
 264   Standard_Integer i, nb = list->Length();
 265   const Handle(XSControl_TransferReader) &TR = thesession->TransferReader();
 266   TR->BeginTransfer();
 267   ClearShapes();
 268   ShapeExtend_Explorer STU;
 269   for (i = 1; i <= nb; i ++) {
 270     Handle(Standard_Transient) start = list->Value(i);
 271     if (TR->TransferOne (start) == 0) continue;
 272     TopoDS_Shape sh = TR->ShapeResult(start);
 273     if (STU.ShapeType(sh,Standard_True) == TopAbs_SHAPE) continue;  // nulle-vide
 274     theshapes.Append(sh);
 275     nbt ++;
 276   }
 277   return nbt;
 278 }
 279
 280
 281 //=======================================================================
 282 //function : TransferRoots
 283 //purpose  :
 284 //=======================================================================
 285
 286 Standard_Integer  XSControl_Reader::TransferRoots ()
 287 {
 288   NbRootsForTransfer();
 289   Standard_Integer nbt = 0;
 290   Standard_Integer i, nb = theroots.Length();
 291   const Handle(XSControl_TransferReader) &TR = thesession->TransferReader();
 292
 293   TR->BeginTransfer();
 294   ClearShapes();
 295   ShapeExtend_Explorer STU;
 296   const Handle(Transfer_TransientProcess) &proc = thesession->TransferReader()->TransientProcess();
 297   Message_ProgressSentry PS ( proc->GetProgress(), "Root", 0, nb, 1 );
 298   for (i = 1; i <= nb && PS.More(); i ++,PS.Next()) {
 299     Handle(Standard_Transient) start = theroots.Value(i);
 300     if (TR->TransferOne (start) == 0) continue;
 301     TopoDS_Shape sh = TR->ShapeResult(start);
 302     if (STU.ShapeType(sh,Standard_True) == TopAbs_SHAPE) continue;  // nulle-vide
 303     theshapes.Append(sh);
 304     nbt ++;
 305   }
 306   return nbt;
 307 }
 308
 309
 310 //=======================================================================
 311 //function : ClearShapes
 312 //purpose  :
 313 //=======================================================================
 314
 315 void  XSControl_Reader::ClearShapes ()
 316 {
 317   theshapes.Clear();
 318 }
 319
 320
 321 //=======================================================================
 322 //function : NbShapes
 323 //purpose  :
 324 //=======================================================================
 325
 326 Standard_Integer  XSControl_Reader::NbShapes () const
 327 {
 328   return theshapes.Length();
 329 }
 330
 331
 332 //=======================================================================
 333 //function : Shapes
 334 //purpose  :
 335 //=======================================================================
 336
 337 TopTools_SequenceOfShape& XSControl_Reader::Shapes()
 338 {
 339   return theshapes;
 340 }
 341
 342
 343 //=======================================================================
 344 //function : Shape
 345 //purpose  :
 346 //=======================================================================
 347
 348 TopoDS_Shape  XSControl_Reader::Shape (const Standard_Integer num) const
 349 {
 350   return theshapes.Value(num);
 351 }
 352
 353
 354 //=======================================================================
 355 //function : OneShape
 356 //purpose  :
 357 //=======================================================================
 358
 359 TopoDS_Shape  XSControl_Reader::OneShape () const
 360 {
 361   TopoDS_Shape sh;
 362   Standard_Integer i,nb = theshapes.Length();
 363   if (nb == 0) return sh;
 364   if (nb == 1) return theshapes.Value(1);
 365   TopoDS_Compound C;
 366   BRep_Builder B;
 367   //pdn 26.02.99 testing S4133
 368   B.MakeCompound(C);
 369   for (i = 1; i <= nb; i ++)  B.Add (C,theshapes.Value(i));
 370   return C;
 371 }
 372
 373 //=======================================================================
 374 //function : PrintCheckLoad
 375 //purpose  :
 376 //=======================================================================
 377 void  XSControl_Reader::PrintCheckLoad (Standard_OStream& theStream,
 378                                         const Standard_Boolean failsonly,
 379                                         const IFSelect_PrintCount mode) const
 380 {
 381   thesession->PrintCheckList (theStream, thesession->ModelCheckList(),failsonly, mode);
 382 }
 383
 384 //=======================================================================
 385 //function : PrintCheckLoad
 386 //purpose  :
 387 //=======================================================================
 388 void  XSControl_Reader::PrintCheckLoad (const Standard_Boolean failsonly,
 389                                         const IFSelect_PrintCount mode) const
 390 {
 391   Message_Messenger::StreamBuffer aBuffer = Message::SendInfo();
 392   PrintCheckLoad (aBuffer, failsonly, mode);
 393 }
 394
 395 //=======================================================================
 396 //function : PrintCheckTransfer
 397 //purpose  :
 398 //=======================================================================
 399 void XSControl_Reader::PrintCheckTransfer(Standard_OStream& theStream,
 400                                           const Standard_Boolean failsonly,
 401                                           const IFSelect_PrintCount mode) const
 402 {
 403   thesession->PrintCheckList (theStream, thesession->TransferReader()->LastCheckList(), failsonly, mode);
 404 }
 405
 406 //=======================================================================
 407 //function : PrintCheckTransfer
 408 //purpose  :
 409 //=======================================================================
 410 void XSControl_Reader::PrintCheckTransfer(const Standard_Boolean failsonly,
 411                                           const IFSelect_PrintCount mode) const
 412 {
 413   Message_Messenger::StreamBuffer aBuffer = Message::SendInfo();
 414   PrintCheckTransfer(aBuffer, failsonly, mode);
 415 }
 416
 417 //=======================================================================
 418 //function : PrintStatsTransfer
 419 //purpose  :
 420 //=======================================================================
 421 void XSControl_Reader::PrintStatsTransfer (Standard_OStream& theStream,
 422                                            const Standard_Integer what,
 423                                            const Standard_Integer mode) const
 424 {
 425   thesession->TransferReader()->PrintStats (theStream, what,mode);
 426 }
 427
 428 //=======================================================================
 429 //function : PrintStatsTransfer
 430 //purpose  :
 431 //=======================================================================
 432 void XSControl_Reader::PrintStatsTransfer (const Standard_Integer what,
 433                                            const Standard_Integer mode) const
 434 {
 435   Message_Messenger::StreamBuffer aBuffer = Message::SendInfo();
 436   PrintStatsTransfer (aBuffer, what, mode);
 437 }
 438
 439 //=======================================================================
 440 //function : GetStatsTransfer
 441 //purpose  :
 442 //=======================================================================
 443
 444 void XSControl_Reader::GetStatsTransfer (const Handle(TColStd_HSequenceOfTransient)& list,
 445                                          Standard_Integer& nbMapped,
 446                                          Standard_Integer& nbWithResult,
 447                                          Standard_Integer& nbWithFail) const
 448 {
 449   const Handle(Transfer_TransientProcess) &TP = thesession->TransferReader()->TransientProcess();
 450   Transfer_IteratorOfProcessForTransient itrp(Standard_True);
 451   itrp = TP->CompleteResult(Standard_True);
 452   if(!list.IsNull()) itrp.Filter (list);
 453   nbMapped = nbWithFail = nbWithResult = 0;
 454
 455   for (itrp.Start(); itrp.More(); itrp.Next()) {
 456     Handle(Transfer_Binder) binder = itrp.Value();
 457     Handle(Standard_Transient) ent = itrp.Starting();
 458     nbMapped++;
 459     if (binder.IsNull())  nbWithFail++;
 460     else
 461       if(!binder->HasResult()) nbWithFail++;
 462       else
 463         {
 464           Interface_CheckStatus cst = binder->Check()->Status();
 465           if ((cst == Interface_CheckOK)||(cst == Interface_CheckWarning))
 466             nbWithResult++;
 467           else
 468             nbWithFail++;
 469         }
 470   }
 471 }
 472