X-Git-Url: http://git.dev.opencascade.org/gitweb/?p=occt.git;a=blobdiff_plain;f=src%2FTDataStd%2FTDataStd_ReferenceList.cxx;h=c341779d5f774e2c5e03ff42dfc3602b48cba13d;hb=bc73b00672a218a1301520a3562ece96f72a679c;hpb=00ea7f2676893c9dd9b31cf1f0a8bcad61416a6a

diff --git a/src/TDataStd/TDataStd_ReferenceList.cxx b/src/TDataStd/TDataStd_ReferenceList.cxx
index ef19775a4d..c341779d5f 100644
--- a/src/TDataStd/TDataStd_ReferenceList.cxx
+++ b/src/TDataStd/TDataStd_ReferenceList.cxx
@@ -13,15 +13,17 @@
 // Alternatively, this file may be used under the terms of Open CASCADE
 // commercial license or contractual agreement.
 
+#include <TDataStd_ReferenceList.hxx>
 
+#include <Standard_Dump.hxx>
 #include <Standard_GUID.hxx>
 #include <Standard_Type.hxx>
-#include <TDataStd_ReferenceList.hxx>
 #include <TDF_Attribute.hxx>
 #include <TDF_DataSet.hxx>
 #include <TDF_Label.hxx>
 #include <TDF_ListIteratorOfLabelList.hxx>
 #include <TDF_RelocationTable.hxx>
+#include <TDF_Tool.hxx>
 
 IMPLEMENT_STANDARD_RTTIEXT(TDataStd_ReferenceList,TDF_Attribute)
 
@@ -383,3 +385,24 @@ Standard_OStream& TDataStd_ReferenceList::Dump (Standard_OStream& anOS) const
   anOS << std::endl;
   return anOS;
 }
+
+//=======================================================================
+//function : DumpJson
+//purpose  : 
+//=======================================================================
+void TDataStd_ReferenceList::DumpJson (Standard_OStream& theOStream, Standard_Integer theDepth) const
+{
+  OCCT_DUMP_TRANSIENT_CLASS_BEGIN (theOStream)
+
+  OCCT_DUMP_BASE_CLASS (theOStream, theDepth, TDF_Attribute)
+
+  TCollection_AsciiString aLabel;
+  for (TDF_LabelList::Iterator aListIt (myList); aListIt.More(); aListIt.Next())
+  {
+    aLabel.Clear();
+    TDF_Tool::Entry (aListIt.Value(), aLabel);
+    OCCT_DUMP_FIELD_VALUE_STRING (theOStream, aLabel)
+  }
+
+  OCCT_DUMP_FIELD_VALUE_GUID (theOStream, myID)
+}