src/SALOMEDS/SALOMEDS_AttributeSequenceOfInteger_i.cxx

   1 //  SALOME SALOMEDS : data structure of SALOME and sources of Salome data server
   2 //
   3 //  Copyright (C) 2003  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
   4 //  CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
   5 //
   6 //  This library is free software; you can redistribute it and/or
   7 //  modify it under the terms of the GNU Lesser General Public
   8 //  License as published by the Free Software Foundation; either
   9 //  version 2.1 of the License.
  10 //
  11 //  This library is distributed in the hope that it will be useful,
  12 //  but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 //  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14 //  Lesser General Public License for more details.
  15 //
  16 //  You should have received a copy of the GNU Lesser General Public
  17 //  License along with this library; if not, write to the Free Software
  18 //  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  19 //
  20 //  See http://www.opencascade.org/SALOME/ or email : webmaster.salome@opencascade.org
  21 //
  22 //
  23 //
  24 //  File   : SALOMEDS_AttributeSequenceOfInteger_i.cxx
  25 //  Author : Yves FRICAUD
  26 //  Module : SALOME
  27 //  $Header$
  28
  29 #include "SALOMEDS_AttributeSequenceOfInteger_i.hxx"
  30 #include <TColStd_HSequenceOfInteger.hxx>
  31
  32 using namespace std;
  33
  34 void SALOMEDS_AttributeSequenceOfInteger_i::Assign(const SALOMEDS::LongSeq& other)
  35 {
  36   CheckLocked();
  37   Handle(TColStd_HSequenceOfInteger) CasCadeSeq = new TColStd_HSequenceOfInteger;
  38   for (int i = 0; i < other.length(); i++) {
  39     CasCadeSeq->Append(other[i]);
  40   }
  41   Handle(SALOMEDS_SequenceOfIntegerAttribute)::DownCast(_myAttr)->Assign(CasCadeSeq);
  42 }
  43
  44 SALOMEDS::LongSeq* SALOMEDS_AttributeSequenceOfInteger_i::CorbaSequence()
  45 {
  46   SALOMEDS::LongSeq_var CorbaSeq = new SALOMEDS::LongSeq;
  47   Handle(SALOMEDS_SequenceOfIntegerAttribute) CasCadeSeq = Handle(SALOMEDS_SequenceOfIntegerAttribute)::DownCast(_myAttr);
  48   CorbaSeq->length(CasCadeSeq->Length());
  49   for (int i = 0; i < CasCadeSeq->Length(); i++) {
  50     CorbaSeq[i] = CasCadeSeq->Value(i+1);;
  51   }
  52   return CorbaSeq._retn();
  53 }
  54
  55 void SALOMEDS_AttributeSequenceOfInteger_i::Add(CORBA::Long value)
  56 {
  57   CheckLocked();
  58   Handle(SALOMEDS_SequenceOfIntegerAttribute)::DownCast(_myAttr)->Add(value);
  59 }
  60
  61 void SALOMEDS_AttributeSequenceOfInteger_i::Remove(CORBA::Long index)
  62 {
  63   CheckLocked();
  64   Handle(SALOMEDS_SequenceOfIntegerAttribute)::DownCast(_myAttr)->Remove(index);
  65 }
  66
  67 void SALOMEDS_AttributeSequenceOfInteger_i::ChangeValue(CORBA::Long index, CORBA::Long value)
  68 {
  69   CheckLocked();
  70   Handle(SALOMEDS_SequenceOfIntegerAttribute)::DownCast(_myAttr)->ChangeValue(index, value);
  71 }
  72
  73 CORBA::Long SALOMEDS_AttributeSequenceOfInteger_i::Value(CORBA::Short index)
  74 {
  75   return Handle(SALOMEDS_SequenceOfIntegerAttribute)::DownCast(_myAttr)->Value(index);
  76 }
  77
  78 CORBA::Long SALOMEDS_AttributeSequenceOfInteger_i::Length()
  79 {
  80   return Handle(SALOMEDS_SequenceOfIntegerAttribute)::DownCast(_myAttr)->Length();
  81 }
  82
  83 char* SALOMEDS_AttributeSequenceOfInteger_i::Store() {
  84   Handle(SALOMEDS_SequenceOfIntegerAttribute) CasCadeSeq = Handle(SALOMEDS_SequenceOfIntegerAttribute)::DownCast(_myAttr);
  85   Standard_Integer aLength = CasCadeSeq->Length();
  86   char* aResult = new char[aLength * 25];
  87   aResult[0] = 0;
  88   Standard_Integer aPosition = 0;
  89   for (int i = 1; i <= aLength; i++) {
  90     sprintf(aResult + aPosition , "%d ", CasCadeSeq->Value(i));
  91     aPosition += strlen(aResult + aPosition);
  92   }
  93   return aResult;
  94 }
  95
  96 void SALOMEDS_AttributeSequenceOfInteger_i::Restore(const char* value) {
  97   Handle(TColStd_HSequenceOfInteger) CasCadeSeq = new TColStd_HSequenceOfInteger;
  98
  99   char* aCopy = strdup(value);
 100   char* adr = strtok(aCopy, " ");
 101   while (adr) {
 102     CORBA::Long l =  atol(adr);
 103     CasCadeSeq->Append(l);
 104     adr = strtok(NULL, " ");
 105   }
 106   free(aCopy);
 107   Handle(SALOMEDS_SequenceOfIntegerAttribute)::DownCast(_myAttr)->Assign(CasCadeSeq);
 108 }