src/XmlMDataStd/XmlMDataStd_IntegerArrayDriver.cxx

   1 // Created on: 2001-08-24
   2 // Created by: Alexnder GRIGORIEV
   3 // Copyright (c) 2001-2014 OPEN CASCADE SAS
   4 //
   5 // This file is part of Open CASCADE Technology software library.
   6 //
   7 // This library is free software; you can redistribute it and/or modify it under
   8 // the terms of the GNU Lesser General Public License version 2.1 as published
   9 // by the Free Software Foundation, with special exception defined in the file
  10 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
  11 // distribution for complete text of the license and disclaimer of any warranty.
  12 //
  13 // Alternatively, this file may be used under the terms of Open CASCADE
  14 // commercial license or contractual agreement.
  15
  16 //AGV 150202: Changed prototype XmlObjMgt::SetStringValue()
  17
  18 #include <CDM_MessageDriver.hxx>
  19 #include <NCollection_LocalArray.hxx>
  20 #include <Standard_Type.hxx>
  21 #include <TDataStd_IntegerArray.hxx>
  22 #include <TDF_Attribute.hxx>
  23 #include <XmlMDataStd.hxx>
  24 #include <XmlMDataStd_IntegerArrayDriver.hxx>
  25 #include <XmlObjMgt.hxx>
  26 #include <XmlObjMgt_Persistent.hxx>
  27
  28 IMPLEMENT_STANDARD_RTTIEXT(XmlMDataStd_IntegerArrayDriver,XmlMDF_ADriver)
  29 IMPLEMENT_DOMSTRING (FirstIndexString, "first")
  30 IMPLEMENT_DOMSTRING (LastIndexString,  "last")
  31 IMPLEMENT_DOMSTRING (IsDeltaOn,        "delta")
  32 IMPLEMENT_DOMSTRING (AttributeIDString, "intarrattguid")
  33
  34 //=======================================================================
  35 //function : XmlMDataStd_IntegerArrayDriver
  36 //purpose  : Constructor
  37 //=======================================================================
  38
  39 XmlMDataStd_IntegerArrayDriver::XmlMDataStd_IntegerArrayDriver
  40                         (const Handle(CDM_MessageDriver)& theMsgDriver)
  41       : XmlMDF_ADriver (theMsgDriver, NULL)
  42 {}
  43
  44 //=======================================================================
  45 //function : NewEmpty
  46 //purpose  :
  47 //=======================================================================
  48 Handle(TDF_Attribute) XmlMDataStd_IntegerArrayDriver::NewEmpty() const
  49 {
  50   return (new TDataStd_IntegerArray());
  51 }
  52
  53 //=======================================================================
  54 //function : Paste
  55 //purpose  : persistent -> transient (retrieve)
  56 //=======================================================================
  57 Standard_Boolean XmlMDataStd_IntegerArrayDriver::Paste
  58                                 (const XmlObjMgt_Persistent&  theSource,
  59                                  const Handle(TDF_Attribute)& theTarget,
  60                                  XmlObjMgt_RRelocationTable&  ) const
  61 {
  62   Standard_Integer aFirstInd, aLastInd, aValue, ind;
  63   const XmlObjMgt_Element& anElement = theSource;
  64
  65   // Read the FirstIndex; if the attribute is absent initialize to 1
  66   XmlObjMgt_DOMString aFirstIndex= anElement.getAttribute(::FirstIndexString());
  67   if (aFirstIndex == NULL)
  68     aFirstInd = 1;
  69   else if (!aFirstIndex.GetInteger(aFirstInd)) {
  70     TCollection_ExtendedString aMessageString =
  71       TCollection_ExtendedString("Cannot retrieve the first index"
  72                                  " for IntegerArray attribute as \"")
  73         + aFirstIndex + "\"";
  74     WriteMessage (aMessageString);
  75     return Standard_False;
  76   }
  77
  78   // Read the LastIndex; the attribute should be present
  79   if (!anElement.getAttribute(::LastIndexString()).GetInteger(aLastInd)) {
  80     TCollection_ExtendedString aMessageString =
  81       TCollection_ExtendedString("Cannot retrieve the last index"
  82                                  " for IntegerArray attribute as \"")
  83         + aFirstIndex + "\"";
  84     WriteMessage (aMessageString);
  85     return Standard_False;
  86   }
  87
  88   Handle(TDataStd_IntegerArray) anIntArray =
  89     Handle(TDataStd_IntegerArray)::DownCast(theTarget);
  90   anIntArray->Init(aFirstInd, aLastInd);
  91
  92   if(aFirstInd == aLastInd) {
  93     Standard_Integer anInteger;
  94     if(!XmlObjMgt::GetStringValue(anElement).GetInteger( anInteger)) {
  95       TCollection_ExtendedString aMessageString =
  96         TCollection_ExtendedString("Cannot retrieve integer member"
  97                                    " for IntegerArray attribute as \"");
  98       WriteMessage (aMessageString);
  99       return Standard_False;
 100     }
 101     anIntArray->SetValue(aFirstInd, anInteger);
 102
 103   }
 104   else {
 105     // Warning: check implementation of XmlObjMgt_DOMString !! For LDOM this is OK
 106     Standard_CString aValueStr =
 107       Standard_CString(XmlObjMgt::GetStringValue(anElement).GetString());
 108
 109     for (ind = aFirstInd; ind <= aLastInd; ind++)
 110     {
 111       if (!XmlObjMgt::GetInteger(aValueStr, aValue)) {
 112         TCollection_ExtendedString aMessageString =
 113           TCollection_ExtendedString("Cannot retrieve integer member"
 114                                      " for IntegerArray attribute as \"")
 115             + aValueStr + "\"";
 116         WriteMessage (aMessageString);
 117         return Standard_False;
 118       }
 119       anIntArray->SetValue(ind, aValue);
 120     }
 121   }
 122   Standard_Boolean aDelta(Standard_False);
 123
 124   if(XmlMDataStd::DocumentVersion() > 2) {
 125     Standard_Integer aDeltaValue;
 126     if (!anElement.getAttribute(::IsDeltaOn()).GetInteger(aDeltaValue))
 127       {
 128         TCollection_ExtendedString aMessageString =
 129           TCollection_ExtendedString("Cannot retrieve the isDelta value"
 130                                      " for IntegerArray attribute as \"")
 131                                      + aDeltaValue + "\"";
 132         WriteMessage (aMessageString);
 133         return Standard_False;
 134       }
 135     else
 136       aDelta = aDeltaValue != 0;
 137   }
 138 #ifdef OCCT_DEBUG
 139   else if(XmlMDataStd::DocumentVersion() == -1)
 140     cout << "Current DocVersion field is not initialized. "  <<endl;
 141 #endif
 142   anIntArray->SetDelta(aDelta);
 143
 144   // attribute id
 145   Standard_GUID aGUID;
 146   XmlObjMgt_DOMString aGUIDStr = anElement.getAttribute(::AttributeIDString());
 147   if (aGUIDStr.Type() == XmlObjMgt_DOMString::LDOM_NULL)
 148     aGUID = TDataStd_IntegerArray::GetID(); //default case
 149   else
 150     aGUID = Standard_GUID(Standard_CString(aGUIDStr.GetString())); // user defined case
 151
 152   anIntArray->SetID(aGUID);
 153
 154   return Standard_True;
 155 }
 156
 157 //=======================================================================
 158 //function : Paste
 159 //purpose  : transient -> persistent (store)
 160 //=======================================================================
 161 void XmlMDataStd_IntegerArrayDriver::Paste
 162                                 (const Handle(TDF_Attribute)& theSource,
 163                                  XmlObjMgt_Persistent&        theTarget,
 164                                  XmlObjMgt_SRelocationTable&  ) const
 165 {
 166   Handle(TDataStd_IntegerArray) anIntArray =
 167     Handle(TDataStd_IntegerArray)::DownCast(theSource);
 168   const Handle(TColStd_HArray1OfInteger)& hIntArray = anIntArray->Array();
 169   const TColStd_Array1OfInteger& intArray = hIntArray->Array1();
 170   Standard_Integer aL = intArray.Lower(), anU = intArray.Upper();
 171
 172   if (aL != 1)
 173     theTarget.Element().setAttribute(::FirstIndexString(), aL);
 174   theTarget.Element().setAttribute(::LastIndexString(), anU);
 175   theTarget.Element().setAttribute(::IsDeltaOn(), anIntArray->GetDelta() ? 1 : 0);
 176
 177   // Allocation of 12 chars for each integer including the space.
 178   // An example: -2 147 483 648
 179   Standard_Integer iChar = 0;
 180   NCollection_LocalArray<Standard_Character> str;
 181   if (intArray.Length())
 182     str.Allocate(12 * intArray.Length() + 1);
 183
 184   Standard_Integer i = aL;
 185   for (;;)
 186   {
 187     iChar += Sprintf(&(str[iChar]), "%d ", intArray.Value(i));
 188     if (i >= anU)
 189       break;
 190     ++i;
 191   }
 192
 193   if (intArray.Length())
 194   {
 195     // No occurrence of '&', '<' and other irregular XML characters
 196     str[iChar - 1] = '\0';
 197     XmlObjMgt::SetStringValue (theTarget, (Standard_Character*)str, Standard_True);
 198   }
 199   if(anIntArray->ID() != TDataStd_IntegerArray::GetID()) {
 200     //convert GUID
 201     Standard_Character aGuidStr [Standard_GUID_SIZE_ALLOC];
 202     Standard_PCharacter pGuidStr = aGuidStr;
 203     anIntArray->ID().ToCString (pGuidStr);
 204     theTarget.Element().setAttribute (::AttributeIDString(), aGuidStr);
 205   }
 206 }