Parent Directory | Revision Log | Patch
revision 1.8 by matthieu, Thu Jul 10 21:55:33 2003 UTC | revision 1.9 by matthieu, Thu Jul 10 23:04:02 2003 UTC | |
---|---|---|
# | Line 44 | Line 44 |
44 | @since 06/08/2003 | @since 06/08/2003 |
45 | *) | *) |
46 | ||
47 | open Corpus | |
48 | open Pattern | |
49 | ||
50 | class virtual ['a] nn = | class virtual ['a] nn = |
51 | object | object |
52 | val mutable _step = 0 | val mutable _step = 0 |
53 | val mutable _corpus = new corpus [|[|0.0|]|] | |
54 | method virtual accept : 'a -> unit | method virtual accept : 'a -> unit |
55 | method virtual print : unit | |
56 | method addPattern pattern = _corpus#addPattern pattern | |
57 | end | end |
58 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |