Parent Directory | Revision Log | Patch
revision 1.1 by srv89, Thu Jul 31 02:03:29 2003 UTC | revision 1.2 by srv89, Sun Sep 7 19:13:12 2003 UTC | |
---|---|---|
# | Line 45 | Line 45 |
45 | ||
46 | open DefaultVisitor | open DefaultVisitor |
47 | ||
48 | class virtual ['a] inputVisitor = | class ['a] inputVisitor = |
49 | object | object |
50 | inherit ['a] defaultVisitor | inherit ['a] defaultVisitor |
51 | ||
52 | (** | |
53 | The generic visit method. | |
54 | //FIXME: add instanciation of an inheriting visitor depending on the | |
55 | nn's dynamic type. | |
56 | *) | |
57 | method visit (nn : 'a) = | |
58 | () | |
59 | ||
60 | end | end |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |