src/Draw/Draw_Printer.cxx

   1 // Created on: 2007-07-31
   2 // Created by: OCC Team
   3 // Copyright (c) 2007-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 <Draw_Printer.hxx>
  18 #include <Standard_Type.hxx>
  19 #include <TCollection_AsciiString.hxx>
  20 #include <TCollection_ExtendedString.hxx>
  21
  22 IMPLEMENT_STANDARD_RTTIEXT(Draw_Printer,Message_Printer)
  23
  24 //=======================================================================
  25 //function : Draw_Printer
  26 //purpose  :
  27 //=======================================================================
  28 Draw_Printer::Draw_Printer (const Draw_Interpretor& theTcl)
  29 : myTcl((Standard_Address)&theTcl)
  30 {
  31 }
  32
  33 //=======================================================================
  34 //function : Send
  35 //purpose  :
  36 //=======================================================================
  37
  38 void Draw_Printer::Send (const TCollection_ExtendedString& theString,
  39                          const Message_Gravity             theGravity,
  40                          const Standard_Boolean            theToPutEol) const
  41 {
  42   if (!myTcl
  43    || theGravity < myTraceLevel)
  44   {
  45     return;
  46   }
  47
  48   (*(Draw_Interpretor*)myTcl) << theString;
  49   if (theToPutEol)
  50   {
  51     (*(Draw_Interpretor*)myTcl) << "\n";
  52   }
  53 }
  54
  55 //=======================================================================
  56 //function : Send
  57 //purpose  :
  58 //=======================================================================
  59
  60 void Draw_Printer::Send (const Standard_CString theString,
  61                          const Message_Gravity  theGravity,
  62                          const Standard_Boolean theToPutEol) const
  63 {
  64   if (!myTcl
  65    || theGravity < myTraceLevel)
  66   {
  67     return;
  68   }
  69
  70   (*(Draw_Interpretor*)myTcl) << theString;
  71   if (theToPutEol)
  72   {
  73     (*(Draw_Interpretor*)myTcl) << "\n";
  74   }
  75 }
  76
  77 //=======================================================================
  78 //function : Send
  79 //purpose  :
  80 //=======================================================================
  81
  82 void Draw_Printer::Send (const TCollection_AsciiString& theString,
  83                          const Message_Gravity          theGravity,
  84                          const Standard_Boolean         theToPutEol) const
  85 {
  86   if (!myTcl
  87    || theGravity < myTraceLevel)
  88   {
  89     return;
  90   }
  91
  92   (*(Draw_Interpretor*)myTcl) << theString;
  93   if (theToPutEol)
  94   {
  95     (*(Draw_Interpretor*)myTcl) << "\n";
  96   }
  97 }