src/Draw/Draw_Printer.cdl

   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 class Printer from Draw inherits Printer from Message
  17
  18     ---Purpose: Implementation of Printer class with output directed to Draw_Interpretor
  19
  20 uses
  21
  22     Interpretor from Draw,
  23     Gravity from Message,
  24     AsciiString from TCollection,
  25     ExtendedString from TCollection
  26
  27 is
  28
  29     Create (theTcl : Interpretor from Draw);
  30         ---Purpose: Creates a printer connected to the interpretor.
  31
  32     Send (me; theString: ExtendedString from TCollection;
  33               theGravity: Gravity from Message;
  34               putEndl: Boolean) is redefined;
  35         ---Purpose: Send a string message with specified trace level.
  36         --          The parameter putEndl specified whether end-of-line
  37         --          should be added to the end of the message.
  38         --          This method must be redefined in descentant.
  39
  40     Send (me; theString: CString; theGravity: Gravity from Message;
  41               putEndl: Boolean) is redefined;
  42         ---Purpose: Send a string message with specified trace level.
  43         --          The parameter putEndl specified whether end-of-line
  44         --          should be added to the end of the message.
  45         --          Default implementation calls first method Send().
  46
  47     Send (me; theString: AsciiString from TCollection;
  48               theGravity: Gravity from Message;
  49               putEndl: Boolean) is redefined;
  50         ---Purpose: Send a string message with specified trace level.
  51         --          The parameter putEndl specified whether end-of-line
  52         --          should be added to the end of the message.
  53         --          Default implementation calls first method Send().
  54
  55 fields
  56
  57     myTcl : Address from Standard; -- pointer to interpretor
  58
  59 end Printer;