/[marvin]/marvin/src/libnn/misc/pattern.ml
ViewVC logotype

Diff of /marvin/src/libnn/misc/pattern.ml

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

revision 1.2 by srv89, Fri Aug 29 08:21:22 2003 UTC revision 1.3 by srv89, Sun Sep 7 19:13:12 2003 UTC
# Line 60  object Line 60  object
60    *)    *)
61    val mutable _outputs = outputVector    val mutable _outputs = outputVector
62    
   (*  initializer match (inputVector, outputVector) with  
     a, b when Array.length a != 0 && Array.length b != 0 -> ()  
     | _, _ -> (Env.getEnv())#toChannel "Class Pattern : The input and output are empty.\n" *)  
                             
63    (**    (**
64      A get*.      A get*.
65      @return the input vector.      @return the input vector.
# Line 75  object Line 71  object
71      @return the output vector.      @return the output vector.
72    *)    *)
73    method getOutputs = _outputs    method getOutputs = _outputs
74                            
75      (*  initializer match (inputVector, outputVector) with
76        a, b when Array.length a != 0 && Array.length b != 0 -> ()
77        | _, _ -> (Env.getEnv())#toChannel "Class Pattern : The input and output are empty.\n" *)
78                              
79    (**    (**
80      A get*.      A get*.
81      @return the input which corresponds to the "index" parameter.      @return the input which corresponds to the "index" parameter.

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

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