Parent Directory | Revision Log | Patch
revision 1.2 by srv89, Thu Jul 10 21:36:21 2003 UTC | revision 1.3 by matthieu, Thu Jul 10 21:55:33 2003 UTC | |
---|---|---|
# | Line 48 open DefaultVisitor | Line 48 open DefaultVisitor |
48 | ||
49 | class commonNN = | class commonNN = |
50 | object (self : 'a) | object (self : 'a) |
51 | inherit [('a) defaultVisitor] mlpNN | inherit [('a) computeVisitor] mlpNN |
52 | method accept (visitor : ('a) defaultVisitor) = visitor#visitCommon self | method accept (visitor : ('a) computeVisitor) = visitor#visitCommon self |
method print = Printf.printf "ca marche...\n"; flush stdout | ||
53 | end | end |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |