49 |
object |
object |
50 |
|
|
51 |
(** |
(** |
52 |
|
The name of visitor's module. This name is mainly needed in order to |
53 |
|
handle verbosity. It must be set by the concrete visitor's constructors. |
54 |
|
*) |
55 |
|
val mutable _moduleName : string |
56 |
|
|
57 |
|
(** |
58 |
The generic visit method. |
The generic visit method. |
59 |
*) |
*) |
60 |
method virtual visit : 'a -> unit |
method virtual visit : 'a -> unit |
61 |
|
|
62 |
|
(** |
63 |
|
Displays a string on the output channel (shortcut to Env's `out' method). |
64 |
|
@param msg The message to be displayed. |
65 |
|
@param min_verbosity_level If _verbosity >= this parameter, the message |
66 |
|
is displayed. |
67 |
|
*) |
68 |
|
method out : string -> int -> unit |
69 |
|
|
70 |
|
(** |
71 |
|
Displays a string on the error channel (shortcut to Env's `err' method). |
72 |
|
@param msg The message to be displayed. |
73 |
|
@param min_verbosity_level If _verbosity >= this parameter, the message |
74 |
|
is displayed. |
75 |
|
*) |
76 |
|
method err : string -> int -> unit |
77 |
|
|
78 |
end |
end |