+    di << "DDocStd_WriteReport : Error not enough argument\n";
+    return 1;

+  theCommands.Add ("WriteReport", 
+                   "WriteReport path",

+  TCollection_ExtendedString path (a[1]); 

+    std::cout << "Enable or disable report printer: " << a[0] << " {on|off}" << std::endl;

+  if (! strcmp (a[1], "on") && n == 2)

+      std::cout << "Report printer has been already activated." << std::endl;
+      return 1;

+  else {

+    Standard_Integer aMetricId = atoi (a [i]);

+  theCommands.Add("dprintreport", "dprintreport [messenger] \n Sending report content to default messenger or stream (if parameter is absent).\n",

-  static Handle(Message_Messenger) aMessenger = new Message_Messenger;
-  return aMessenger;
+static Handle(Message_Messenger) MyMessenger;

+    case Message_MetricType_MemHeapUsage:      theMemInfo = OSD_MemInfo::MemHeapUsage; break;
+    default: return Standard_False;

+  //! Sets default messenger for OCCT applications.
+  Standard_EXPORT static void SetDefaultMessenger (const Handle(Message_Messenger)& theMessenger);

+  //! @param theString string identifier
+  //! @param theType detected type of metric
+  //! @return TRUE if string identifier is known
+  Standard_EXPORT static Standard_Boolean MetricFromString (const Standard_CString theString,
+                                                            Message_MetricType& theType);

+Handle (Message_CompositeAlerts) Message_AlertExtended::CompositeAlerts (const Standard_Boolean isCreate)

+  for (int iGravity = Message_Trace; iGravity <= Message_Fail; ++iGravity)

+  virtual Standard_EXPORT Standard_CString GetMessageKey () const Standard_OVERRIDE;

+  // OCCT RTTI

+  Standard_EXPORT Message_Attribute (const TCollection_AsciiString& theName = TCollection_AsciiString())
+    : myName (theName) {}
...
+  Standard_EXPORT Message_CompositeAlerts() {}
...
+  Standard_EXPORT void SetReport (const Handle(Message_Report)& theReport) { myReport = theReport; }
...
+  Standard_EXPORT void Clear() { myValue.Clear(); }

+Standard_Boolean Message_AttributeMeter::HasMetric (const Message_MetricType& theMetric) const

+  return fabs (StartValue (theMetric) - UndefinedMetricValue()) > Precision::Confusion() &&

+  return myMetrics.Find (theMetric).first;

+  //! Returns default value of the metric when it is not defined
+  //! @return undefined value
+  static Standard_Real UndefinedMetricValue() { return -1.0; }

+  Handle(Standard_Transient) Object() const { return myObject; }

+//=======================================================================
+//function : Merge
+//purpose  : 
+//=======================================================================
+Standard_Boolean Message_CompositeAlerts::RemoveAlert (Message_Gravity theGravity, const Handle(Message_Alert)& theAlert)

+  if (!anAlerts.Contains (theAlert))
+      return Standard_False;
+
+  anAlerts.Remove (theAlert);
+  return Standard_True;

+  Message_ListOfAlert myAlerts[Message_Fail + 1]; //!< container of child alert for each type of gravity
...
+  for (int iGravity = Message_Trace; iGravity <= Message_Fail; ++iGravity)

+//=======================================================================
+//function : Destructor
+//purpose  :
+//=======================================================================
+Message_Level::Message_Level()

+  OSD_MemInfo aMemInfo (Standard_False);
+  //aMemInfo.SetActiveCounters (aCounters);

+  Handle(Message_AlertExtended) RootAlert() const { return myRootAlert; }

+  void setAlertMetrics (const Handle(Message_AlertExtended)& theAlert,
+                        const Standard_Boolean theStartValue);

+  Message_Gravity myOutputGravity; //!< gavity used in operator <<

+enum Message_MetricType
+{

+  Standard_EXPORT virtual void Send (const Standard_SStream& theStream, const Message_Gravity theGravity, const Standard_Boolean theToPutEol) const;
...
+  Standard_EXPORT virtual void Send (const Handle(Standard_Transient)& theObject, const Message_Gravity theGravity, const Standard_Boolean theToPutEol) const;

+++ b/src/Message/Message_PrinterToReport.cxx
@@ -0,0 +1,119 @@
+// Created on: 2001-01-06
+// Created by: OCC Team
+// Copyright (c) 2001-2014 OPEN CASCADE SAS

+  TCollection_AsciiString Value() const { return myValue; }

+// HAsciiString
+inline const Handle(Message_Messenger)& operator<< (const Handle(Message_Messenger)& theMessenger,

-         "Doc filename [mode]"
+         "Doc filename [mode] [-traceLevel level]"

+const Handle(TDocStd_Application)& GetApplication()

+       puts "There is not ${aFile} file; WriteReport command: Error"
+       return

   Standard_EXPORT virtual void Send (const TCollection_AsciiString& theString,
                                      const Message_Gravity theGravity) const;
 
+  //! Send a string message with specified trace level.
+  //! Stream is converted to string value.
+  //! Default implementation calls first method Send().
+  Standard_EXPORT virtual void Send (const Standard_SStream& theStream, const Message_Gravity theGravity) const;
+
+  //! Send a string message with specified trace level.
+  //! The object is converted to string in format: <object kind> : <object pointer>.
+  //! Default implementation calls first method Send().
+  Standard_EXPORT virtual void Send (const Handle(Standard_Transient)& theObject, const Message_Gravity theGravity) const;

void Draw::MessageCommands(Draw_Interpretor& theCommands)
{
  static Standard_Boolean Done = Standard_False;
  if (Done) return;
  Done = Standard_True;

  std::ios::sync_with_stdio();

SendMessage processing a text message in report information message error message warning message
Tcl Exception: invalid command name "WriteMessageReport"

+  NCollection_DataMap<Message_MetricType, StartToStopValue> myMetrics; //!< computed metrics
...
+  const NCollection_Map<Message_MetricType>& anActiveMetrics = aReport->ActiveMetrics();
...
+  NCollection_Map<OSD_MemInfo::Counter> aCounters;

+}
+//=======================================================================

+++ b/src/Message/Message_AttributeStream.hxx
+#include <NCollection_Vector.hxx>

+  static Message_Level* MyLevel = 0;

+  //! Assures stopping upon destruction
+  Standard_EXPORT ~Message_Level();
+
...
+protected:
+  //! Remove the current level from the report. It stops metric collecting for the last and the root alerts.
+  Standard_EXPORT void remove();

-XmlDrivers_DocumentStorageDriver.hxx
+XmlDrivers_DocumentStorageDriver.hxx
\ No newline at end of file

+  Message_MetricType_UserTimeCPU,       //!< the current CPU user time in seconds
+  Message_MetricType_SystemTimeInfo,    //!< the current CPU system time in seconds
...
+    OSD_Chronometer::GetProcessCPU (aUserSeconds, aSystemSeconds);

0029451: Information Message Alert to debug an algorithm or object functionality

+  //std::cout << GetName() << ": " << theValue << " (start)" << std::endl;

+  if (!HasMetric (theMetric))
+  {
+    myMetrics.Bind (theMetric, std::make_pair (theValue, UndefinedMetricValue()));
+  }
+  myMetrics.ChangeFind (theMetric).first = theValue;