src/XmlMDataStd/XmlMDataStd_IntegerDriver.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
  17 #include <Message_Messenger.hxx>
  18 #include <Standard_Type.hxx>
  19 #include <TDataStd_Integer.hxx>
  20 #include <TDF_Attribute.hxx>
  21 #include <XmlMDataStd_IntegerDriver.hxx>
  22 #include <XmlObjMgt.hxx>
  23 #include <XmlObjMgt_Persistent.hxx>
  24
  25 IMPLEMENT_STANDARD_RTTIEXT(XmlMDataStd_IntegerDriver,XmlMDF_ADriver)
  26 IMPLEMENT_DOMSTRING (AttributeIDString, "intattguid")
  27 //=======================================================================
  28 //function : XmlMDataStd_IntegerDriver
  29 //purpose  : Constructor
  30 //=======================================================================
  31 XmlMDataStd_IntegerDriver::XmlMDataStd_IntegerDriver
  32                         (const Handle(Message_Messenger)& theMsgDriver)
  33       : XmlMDF_ADriver (theMsgDriver, NULL)
  34 {}
  35
  36 //=======================================================================
  37 //function : NewEmpty
  38 //purpose  :
  39 //=======================================================================
  40 Handle(TDF_Attribute) XmlMDataStd_IntegerDriver::NewEmpty() const
  41 {
  42   return (new TDataStd_Integer());
  43 }
  44
  45 //=======================================================================
  46 //function : Paste
  47 //purpose  : persistent -> transient (retrieve)
  48 //=======================================================================
  49 Standard_Boolean XmlMDataStd_IntegerDriver::Paste
  50                                 (const XmlObjMgt_Persistent&  theSource,
  51                                  const Handle(TDF_Attribute)& theTarget,
  52                                  XmlObjMgt_RRelocationTable&  ) const
  53 {
  54   Standard_Integer aValue;
  55   XmlObjMgt_DOMString anIntStr= XmlObjMgt::GetStringValue(theSource);
  56
  57   if (anIntStr.GetInteger(aValue) == Standard_False) {
  58     TCollection_ExtendedString aMessageString =
  59       TCollection_ExtendedString("Cannot retrieve Integer attribute from \"")
  60         + anIntStr + "\"";
  61     myMessageDriver->Send (aMessageString, Message_Warning);
  62     aValue = 0;
  63   }
  64
  65   Handle(TDataStd_Integer) anInt= Handle(TDataStd_Integer)::DownCast(theTarget);
  66   anInt->Set(aValue);
  67
  68   // attribute id
  69   Standard_GUID aGUID;
  70   const XmlObjMgt_Element& anElement = theSource;
  71   XmlObjMgt_DOMString aGUIDStr = anElement.getAttribute(::AttributeIDString());
  72   if (aGUIDStr.Type() == XmlObjMgt_DOMString::LDOM_NULL)
  73     aGUID = TDataStd_Integer::GetID(); //default case
  74   else
  75     aGUID = Standard_GUID(Standard_CString(aGUIDStr.GetString())); // user defined case
  76
  77   Handle(TDataStd_Integer)::DownCast(theTarget)->SetID(aGUID);
  78
  79   return Standard_True;
  80 }
  81
  82 //=======================================================================
  83 //function : Paste
  84 //purpose  : transient -> persistent (store)
  85 //=======================================================================
  86 void XmlMDataStd_IntegerDriver::Paste (const Handle(TDF_Attribute)& theSource,
  87                                        XmlObjMgt_Persistent&        theTarget,
  88                                        XmlObjMgt_SRelocationTable&  ) const
  89 {
  90   Handle(TDataStd_Integer) anInt= Handle(TDataStd_Integer)::DownCast(theSource);
  91   XmlObjMgt::SetStringValue (theTarget, anInt->Get());
  92   if(anInt->ID() != TDataStd_Integer::GetID()) {
  93     //convert GUID
  94     Standard_Character aGuidStr [Standard_GUID_SIZE_ALLOC];
  95     Standard_PCharacter pGuidStr = aGuidStr;
  96     anInt->ID().ToCString (pGuidStr);
  97     theTarget.Element().setAttribute (::AttributeIDString(), aGuidStr);
  98   }
  99 }