src/RWStepFEA/RWStepFEA_RWFreedomsList.cxx

   1 // File:        RWStepFEA_RWFreedomsList.cxx
   2 // Created:     Sat Dec 14 11:02:06 2002
   3 // Author:      data exchange team
   4 // Generator:   ExpToCas (EXPRESS -> CASCADE/XSTEP Translator) V1.2
   5 // Copyright:   Open CASCADE 2002
   6
   7 #include <RWStepFEA_RWFreedomsList.ixx>
   8 #include <StepFEA_HArray1OfDegreeOfFreedom.hxx>
   9 #include <StepFEA_DegreeOfFreedom.hxx>
  10
  11 //=======================================================================
  12 //function : RWStepFEA_RWFreedomsList
  13 //purpose  :
  14 //=======================================================================
  15
  16 RWStepFEA_RWFreedomsList::RWStepFEA_RWFreedomsList ()
  17 {
  18 }
  19
  20 //=======================================================================
  21 //function : ReadStep
  22 //purpose  :
  23 //=======================================================================
  24
  25 void RWStepFEA_RWFreedomsList::ReadStep (const Handle(StepData_StepReaderData)& data,
  26                                          const Standard_Integer num,
  27                                          Handle(Interface_Check)& ach,
  28                                          const Handle(StepFEA_FreedomsList) &ent) const
  29 {
  30   // Check number of parameters
  31   if ( ! data->CheckNbParams(num,1,ach,"freedoms_list") ) return;
  32
  33   // Own fields of FreedomsList
  34
  35   Handle(StepFEA_HArray1OfDegreeOfFreedom) aFreedoms;
  36   Standard_Integer sub1 = 0;
  37   if ( data->ReadSubList (num, 1, "freedoms", ach, sub1) ) {
  38     Standard_Integer nb0 = data->NbParams(sub1);
  39     aFreedoms = new StepFEA_HArray1OfDegreeOfFreedom (1, nb0);
  40     Standard_Integer num2 = sub1;
  41     for ( Standard_Integer i0=1; i0 <= nb0; i0++ ) {
  42       StepFEA_DegreeOfFreedom anIt0;
  43       data->ReadEntity (num2, i0, "degree_of_freedom", ach, anIt0);
  44       aFreedoms->SetValue(i0, anIt0);
  45     }
  46   }
  47
  48   // Initialize entity
  49   ent->Init(aFreedoms);
  50 }
  51
  52 //=======================================================================
  53 //function : WriteStep
  54 //purpose  :
  55 //=======================================================================
  56
  57 void RWStepFEA_RWFreedomsList::WriteStep (StepData_StepWriter& SW,
  58                                           const Handle(StepFEA_FreedomsList) &ent) const
  59 {
  60
  61   // Own fields of FreedomsList
  62
  63   SW.OpenSub();
  64   for (Standard_Integer i0=1; i0 <= ent->Freedoms()->Length(); i0++ ) {
  65     StepFEA_DegreeOfFreedom Var0 = ent->Freedoms()->Value(i0);
  66     SW.Send (Var0.Value());
  67   }
  68   SW.CloseSub();
  69 }
  70
  71 //=======================================================================
  72 //function : Share
  73 //purpose  :
  74 //=======================================================================
  75
  76 void RWStepFEA_RWFreedomsList::Share (const Handle(StepFEA_FreedomsList) &ent,
  77                                       Interface_EntityIterator& iter) const
  78 {
  79
  80   // Own fields of FreedomsList
  81
  82   for (Standard_Integer i1=1; i1 <= ent->Freedoms()->Length(); i1++ ) {
  83     StepFEA_DegreeOfFreedom Var0 = ent->Freedoms()->Value(i1);
  84     iter.AddItem (Var0.Value());
  85   }
  86 }