blob: 08e951ac72bf4ca9f00194a9af4daff16c6000c5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
-- File: Message_Printer.cdl
-- Created: Sat Jan 6 19:12:06 2001
-- Author: OCC Team
---Copyright: Open CASCADE S.A. 2005
deferred class Printer from Message inherits TShared from MMgt
---Purpose: Abstract interface class defining printer as output context for
-- text messages
--
-- The message, besides being text string, has associated gravity
-- level, which can be used by printer to decide either to process
-- a message or ignore it.
uses
Gravity from Message,
AsciiString from TCollection,
ExtendedString from TCollection
is
Send (me; theString: ExtendedString from TCollection;
theGravity: Gravity from Message;
putEndl: Boolean) is deferred;
---Purpose: Send a string message with specified trace level.
-- The parameter putEndl specified whether end-of-line
-- should be added to the end of the message.
-- This method must be redefined in descentant.
Send (me; theString: CString; theGravity: Gravity from Message;
putEndl: Boolean) is virtual;
---Purpose: Send a string message with specified trace level.
-- The parameter putEndl specified whether end-of-line
-- should be added to the end of the message.
-- Default implementation calls first method Send().
Send (me; theString: AsciiString from TCollection;
theGravity: Gravity from Message;
putEndl: Boolean) is virtual;
---Purpose: Send a string message with specified trace level.
-- The parameter putEndl specified whether end-of-line
-- should be added to the end of the message.
-- Default implementation calls first method Send().
end Printer;
|
