Parent Directory | Revision Log | Patch
revision 1.9 by matthieu, Thu Jul 10 23:04:02 2003 UTC | revision 1.10 by matthieu, Wed Jul 16 14:42:18 2003 UTC | |
---|---|---|
# | Line 54 object | Line 54 object |
54 | method virtual accept : 'a -> unit | method virtual accept : 'a -> unit |
55 | method virtual print : unit | method virtual print : unit |
56 | method addPattern pattern = _corpus#addPattern pattern | method addPattern pattern = _corpus#addPattern pattern |
57 | method getCorpus = _corpus | |
58 | method getLearnPos = _corpus#getLearnPos | |
59 | method getLearnVector = let vector = _corpus#getLearnVector _corpus#getLearnPos in | |
60 | _corpus#learnPosInc; vector | |
61 | end | end |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |