0026936: Drawbacks of inlining in new type system in OCCT 7.0 -- automatic
[occt.git] / src / Draw / Draw_Printer.cxx
CommitLineData
b311480e 1// Created on: 2007-07-31
2// Created by: OCC Team
973c2be1 3// Copyright (c) 2007-2014 OPEN CASCADE SAS
b311480e 4//
973c2be1 5// This file is part of Open CASCADE Technology software library.
b311480e 6//
d5f74e42 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
973c2be1 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.
b311480e 12//
973c2be1 13// Alternatively, this file may be used under the terms of Open CASCADE
14// commercial license or contractual agreement.
7fd59977 15
7fd59977 16
42cf5bc1 17#include <Draw_Printer.hxx>
18#include <Standard_Type.hxx>
7fd59977 19#include <TCollection_AsciiString.hxx>
20#include <TCollection_ExtendedString.hxx>
21
92efcf78 22IMPLEMENT_STANDARD_RTTIEXT(Draw_Printer,Message_Printer)
23
7fd59977 24//=======================================================================
25//function : Draw_Printer
26//purpose :
27//=======================================================================
7fd59977 28Draw_Printer::Draw_Printer (const Draw_Interpretor& theTcl)
29: myTcl((Standard_Address)&theTcl)
30{
31}
32
33//=======================================================================
34//function : Send
785a9540 35//purpose :
7fd59977 36//=======================================================================
37
38void Draw_Printer::Send (const TCollection_ExtendedString& theString,
785a9540 39 const Message_Gravity theGravity,
40 const Standard_Boolean theToPutEol) const
7fd59977 41{
785a9540 42 if (!myTcl
43 || theGravity < myTraceLevel)
44 {
7fd59977 45 return;
785a9540 46 }
47
7fd59977 48 (*(Draw_Interpretor*)myTcl) << theString;
785a9540 49 if (theToPutEol)
50 {
fa350ff0 51 (*(Draw_Interpretor*)myTcl) << "\n";
52 }
7fd59977 53}
54
55//=======================================================================
56//function : Send
785a9540 57//purpose :
7fd59977 58//=======================================================================
59
60void Draw_Printer::Send (const Standard_CString theString,
785a9540 61 const Message_Gravity theGravity,
62 const Standard_Boolean theToPutEol) const
7fd59977 63{
785a9540 64 if (!myTcl
65 || theGravity < myTraceLevel)
66 {
7fd59977 67 return;
785a9540 68 }
69
7fd59977 70 (*(Draw_Interpretor*)myTcl) << theString;
785a9540 71 if (theToPutEol)
72 {
fa350ff0 73 (*(Draw_Interpretor*)myTcl) << "\n";
74 }
7fd59977 75}
76
77//=======================================================================
78//function : Send
785a9540 79//purpose :
7fd59977 80//=======================================================================
81
82void Draw_Printer::Send (const TCollection_AsciiString& theString,
785a9540 83 const Message_Gravity theGravity,
84 const Standard_Boolean theToPutEol) const
7fd59977 85{
785a9540 86 if (!myTcl
87 || theGravity < myTraceLevel)
88 {
7fd59977 89 return;
785a9540 90 }
91
7fd59977 92 (*(Draw_Interpretor*)myTcl) << theString;
785a9540 93 if (theToPutEol)
94 {
fa350ff0 95 (*(Draw_Interpretor*)myTcl) << "\n";
96 }
7fd59977 97}