/[marvin]/marvin/src/libnn/Corpus.ml
ViewVC logotype

Diff of /marvin/src/libnn/Corpus.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by matthieu, Tue Jul 8 20:51:27 2003 UTC revision 1.4 by srv89, Tue Jul 8 21:28:26 2003 UTC
# Line 5  Copyright (C) 2002 - 2003  LAGACHERIE Ma Line 5  Copyright (C) 2002 - 2003  LAGACHERIE Ma
5  This program is free software; you can redistribute it and/or  This program is free software; you can redistribute it and/or
6  modify it under the terms of the GNU General Public License  modify it under the terms of the GNU General Public License
7  as published by the Free Software Foundation; either version 2  as published by the Free Software Foundation; either version 2
8  of the License, or (at your option) any later version. This  of the License, or (at your option) any later version. This
9  program is distributed in the hope that it will be useful,  program is distributed in the hope that it will be useful,
10  but WITHOUT ANY WARRANTY; without even the implied warranty of  but WITHOUT ANY WARRANTY; without even the implied warranty of
11  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12  GNU General Public License for more details. You should have  GNU General Public License for more details. You should have
13  received a copy of the GNU General Public License  received a copy of the GNU General Public License
14  along with this program; if not, write to the Free Software  along with this program; if not, write to the Free Software
15  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307,  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307,
16  USA.  USA.
17    
18  Author:  Author:
19  LAGACHERIE Matthieu  LAGACHERIE Matthieu
20  Paper mail : 7 rue Delescluzes 94280 LE KREMLIN BICETRE, FRANCE  Paper mail : 7 rue Delescluzes 94280 LE KREMLIN BICETRE, FRANCE
21  E-mail : matthieu@marvinproject.org  E-mail : matthieu@marvinproject.org
22    
23  RICORDEAU Olivier  RICORDEAU Olivier
24  Paper mail : 69 avenue d'Italie 75013 PARIS, FRANCE  Paper mail : 69 avenue d'Italie 75013 PARIS, FRANCE
# Line 28  E-mail : olivier@marvinproject.org Line 28  E-mail : olivier@marvinproject.org
28    
29    
30  (** The class Corpus of the LibNN  (** The class Corpus of the LibNN
31      
32    @author Matthieu Lagacherie    @author Matthieu Lagacherie
33    @author Olivier Ricordeau    @author Olivier Ricordeau
34      
35  *)  *)
36    
37  class corpus =  class ['a] corpus =
38  object  object
39    val mutable _patterns = []    val mutable _patterns = []
40    
41    method getPatterns = _patterns    method getPatterns = _patterns
42    
43    method getPattern index = List.nth _patterns index    method getPattern index = List.nth _patterns index
44    
45    method getPatternNumber = List.length _patterns    method getPatternNumber = List.length _patterns
46    
47      method addPattern (pattern : 'a) = List.append _patterns pattern
48    
49  end  end

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26