src/XmlMDataStd/XmlMDataStd_RealArrayDriver.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 <Message_Messenger.hxx>
  19 #include <NCollection_LocalArray.hxx>
  20 #include <Standard_ErrorHandler.hxx>
  21 #include <Standard_OutOfMemory.hxx>
  22 #include <Standard_Type.hxx>
  23 #include <TColStd_HArray1OfReal.hxx>
  24 #include <TDataStd_RealArray.hxx>
  25 #include <TDF_Attribute.hxx>
  26 #include <XmlMDataStd.hxx>
  27 #include <XmlMDataStd_RealArrayDriver.hxx>
  28 #include <XmlObjMgt.hxx>
  29 #include <XmlObjMgt_Persistent.hxx>
  30
  31 #include <stdio.h>
  32 IMPLEMENT_STANDARD_RTTIEXT(XmlMDataStd_RealArrayDriver,XmlMDF_ADriver)
  33 IMPLEMENT_DOMSTRING (FirstIndexString, "first")
  34 IMPLEMENT_DOMSTRING (LastIndexString, "last")
  35 IMPLEMENT_DOMSTRING (IsDeltaOn,       "delta")
  36 IMPLEMENT_DOMSTRING (AttributeIDString, "realarrattguid")
  37 //=======================================================================
  38 //function : XmlMDataStd_RealArrayDriver
  39 //purpose  : Constructor
  40 //=======================================================================
  41
  42 XmlMDataStd_RealArrayDriver::XmlMDataStd_RealArrayDriver
  43                         (const Handle(Message_Messenger)& theMsgDriver)
  44       : XmlMDF_ADriver (theMsgDriver, NULL)
  45 {}
  46
  47 //=======================================================================
  48 //function : NewEmpty
  49 //purpose  :
  50 //=======================================================================
  51 Handle(TDF_Attribute) XmlMDataStd_RealArrayDriver::NewEmpty() const
  52 {
  53   return (new TDataStd_RealArray());
  54 }
  55
  56 //=======================================================================
  57 //function : Paste
  58 //purpose  : persistent -> transient (retrieve)
  59 //=======================================================================
  60 Standard_Boolean XmlMDataStd_RealArrayDriver::Paste
  61                                         (const XmlObjMgt_Persistent&  theSource,
  62                                          const Handle(TDF_Attribute)& theTarget,
  63                                          XmlObjMgt_RRelocationTable&  theRelocTable) const
  64 {
  65
  66   Handle(TDataStd_RealArray) aRealArray = Handle(TDataStd_RealArray)::DownCast(theTarget);
  67   const XmlObjMgt_Element& anElement = theSource;
  68
  69   // attribute id
  70   Standard_GUID aGUID;
  71   XmlObjMgt_DOMString aGUIDStr = anElement.getAttribute(::AttributeIDString());
  72   if (aGUIDStr.Type() == XmlObjMgt_DOMString::LDOM_NULL)
  73     aGUID = TDataStd_RealArray::GetID(); //default case
  74   else
  75     aGUID = Standard_GUID(Standard_CString(aGUIDStr.GetString())); // user defined case
  76   aRealArray->SetID(aGUID);
  77
  78   Standard_Integer aFirstInd, aLastInd, ind;
  79
  80   // Read the FirstIndex; if the attribute is absent initialize to 1
  81   XmlObjMgt_DOMString aFirstIndex= anElement.getAttribute(::FirstIndexString());
  82   if (aFirstIndex == NULL)
  83     aFirstInd = 1;
  84   else if (!aFirstIndex.GetInteger(aFirstInd)) {
  85     TCollection_ExtendedString aMessageString =
  86       TCollection_ExtendedString("Cannot retrieve the first index"
  87                                  " for RealArray attribute as \"")
  88         + aFirstIndex + "\"";
  89     myMessageDriver->Send (aMessageString, Message_Fail);
  90     return Standard_False;
  91   }
  92
  93   // Read LastIndex; the attribute should be present
  94   if (!anElement.getAttribute(::LastIndexString()).GetInteger(aLastInd)) {
  95     TCollection_ExtendedString aMessageString =
  96       TCollection_ExtendedString("Cannot retrieve the last index"
  97                                  " for RealArray attribute as \"")
  98         + aFirstIndex + "\"";
  99     myMessageDriver->Send (aMessageString, Message_Fail);
 100     return Standard_False;
 101   }
 102
 103   aRealArray->Init(aFirstInd, aLastInd);
 104
 105   // Check the type of LDOMString
 106   const XmlObjMgt_DOMString& aString = XmlObjMgt::GetStringValue(anElement);
 107   if (aString.Type() == LDOMBasicString::LDOM_Integer) {
 108     if (aFirstInd == aLastInd) {
 109       Standard_Integer anIntValue;
 110       if (aString.GetInteger(anIntValue))
 111         aRealArray -> SetValue (aFirstInd, Standard_Real(anIntValue));
 112     } else {
 113       TCollection_ExtendedString aMessageString =
 114         TCollection_ExtendedString("Cannot retrieve array of real members"
 115                                    " for RealArray attribute from Integer \"")
 116         + aString + "\"";
 117       myMessageDriver->Send (aMessageString, Message_Fail);
 118       return Standard_False;
 119     }
 120   } else {
 121     Standard_Real aValue;
 122     Standard_CString aValueStr = Standard_CString(aString.GetString());
 123     for (ind = aFirstInd; ind <= aLastInd; ind++)
 124     {
 125       if (!XmlObjMgt::GetReal(aValueStr, aValue)) {
 126         TCollection_ExtendedString aMessageString =
 127           TCollection_ExtendedString("Cannot retrieve real member"
 128                                      " for RealArray attribute as \"")
 129             + aValueStr + "\"";
 130         myMessageDriver->Send (aMessageString, Message_Warning);
 131         // skip to the next space separator
 132         while (*aValueStr != 0 && ! IsSpace (*aValueStr)) ++aValueStr;
 133       }
 134       aRealArray->SetValue(ind, aValue);
 135     }
 136   }
 137   Standard_Boolean aDelta(Standard_False);
 138
 139   if(theRelocTable.GetHeaderData()->StorageVersion().IntegerValue() > 2) {
 140     Standard_Integer aDeltaValue;
 141     if (!anElement.getAttribute(::IsDeltaOn()).GetInteger(aDeltaValue))
 142       {
 143         TCollection_ExtendedString aMessageString =
 144           TCollection_ExtendedString("Cannot retrieve the isDelta value"
 145                                      " for RealArray attribute as \"")
 146                                      + aDeltaValue + "\"";
 147         myMessageDriver->Send (aMessageString, Message_Fail);
 148         return Standard_False;
 149       }
 150     else
 151       aDelta = aDeltaValue != 0;
 152   }
 153   aRealArray->SetDelta(aDelta);
 154
 155   return Standard_True;
 156 }
 157
 158 //=======================================================================
 159 //function : Paste
 160 //purpose  : transient -> persistent (store)
 161 //=======================================================================
 162 void XmlMDataStd_RealArrayDriver::Paste (const Handle(TDF_Attribute)& theSource,
 163                                          XmlObjMgt_Persistent&        theTarget,
 164                                          XmlObjMgt_SRelocationTable&  ) const
 165 {
 166   Handle(TDataStd_RealArray) aRealArray =
 167     Handle(TDataStd_RealArray)::DownCast(theSource);
 168   const Handle(TColStd_HArray1OfReal)& hRealArray = aRealArray->Array();
 169   const TColStd_Array1OfReal& realArray = hRealArray->Array1();
 170   Standard_Integer aL = realArray.Lower(), anU = realArray.Upper();
 171
 172   if (aL != 1) theTarget.Element().setAttribute(::FirstIndexString(), aL);
 173   theTarget.Element().setAttribute(::LastIndexString(), anU);
 174   theTarget.Element().setAttribute(::IsDeltaOn(), aRealArray->GetDelta() ? 1 : 0);
 175
 176   // Allocation of 25 chars for each double value including the space:
 177   // An example: -3.1512678732195273e+020
 178   Standard_Integer iChar = 0;
 179   NCollection_LocalArray<Standard_Character> str;
 180   if (realArray.Length())
 181   {
 182     try
 183     {
 184       OCC_CATCH_SIGNALS
 185       str.Allocate(25 * realArray.Length() + 1);
 186     }
 187     catch (Standard_OutOfMemory const&)
 188     {
 189       // If allocation of big space for the string of double array values failed,
 190       // try to calculate the necessary space more accurate and allocate it.
 191       // It may take some time... therefore it was not done initially and
 192       // an attempt to use a simple 25 chars for a double value was used.
 193       Standard_Character buf[25];
 194       Standard_Integer i(aL), nbChars(0);
 195       while (i <= anU)
 196       {
 197         nbChars += Sprintf(buf, "%.17g ", realArray.Value(i++)) + 1/*a space*/;
 198       }
 199       if (nbChars)
 200         str.Allocate(nbChars);
 201     }
 202   }
 203
 204   Standard_Integer i = aL;
 205   for (;;)
 206   {
 207     iChar += Sprintf(&(str[iChar]), "%.17g ", realArray.Value(i));
 208     if (i >= anU)
 209       break;
 210     ++i;
 211   }
 212
 213   // No occurrence of '&', '<' and other irregular XML characters
 214   if (realArray.Length())
 215   {
 216     str[iChar - 1] = '\0';
 217     XmlObjMgt::SetStringValue (theTarget, (Standard_Character*)str, Standard_True);
 218   }
 219   if(aRealArray->ID() != TDataStd_RealArray::GetID()) {
 220     //convert GUID
 221     Standard_Character aGuidStr [Standard_GUID_SIZE_ALLOC];
 222     Standard_PCharacter pGuidStr = aGuidStr;
 223     aRealArray->ID().ToCString (pGuidStr);
 224     theTarget.Element().setAttribute (::AttributeIDString(), aGuidStr);
 225   }
 226 }