43 |
@since 09/02/2003 |
@since 09/02/2003 |
44 |
*) |
*) |
45 |
|
|
46 |
class ['a] initVisitor : |
open DefaultVisitor |
47 |
|
|
48 |
|
class virtual ['a] initVisitor : |
49 |
object |
object |
50 |
|
inherit ['a] defaultVisitor |
51 |
|
|
52 |
(** |
(** |
53 |
The generic visit method. |
The generic visit method. |
54 |
*) |
*) |
55 |
method visit : 'a -> unit |
method visit : 'a -> unit |
56 |
|
|
57 |
|
(** |
58 |
|
Inherited from defaultVisitor. |
59 |
|
*) |
60 |
|
method out : string -> int -> unit |
61 |
|
|
62 |
|
(** |
63 |
|
Inherited from defaultVisitor. |
64 |
|
*) |
65 |
|
method err : string -> int -> unit |
66 |
|
|
67 |
end |
end |