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

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

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

revision 1.6 by srv89, Wed Sep 10 11:28:03 2003 UTC revision 1.7 by matthieu, Wed Sep 10 18:36:32 2003 UTC
# Line 69  Line 69 
69    document about Design Patterns and OCaml.    document about Design Patterns and OCaml.
70  *)  *)
71    
 class type environmentType =  
 object  
   
   (**  
     A set*.  
     Sets the verbosity level in LibNN.  
     //FIXME Make a detailed description of what each verbosity level (i.e.  
     value of the int) is supposed to do.  
   *)  
   method setVerbosity : int -> unit  
   
   (**  
     A get*.  
     Gets the current verbosity level.  
   *)  
   method getVerbosity : int  
       
   (**  
     A set*.  
     Sets the random limit for the weights generation  
   *)  
   method setRandLimit : float -> unit  
       
   (**  
     A get*.  
     Gets the random limit for the weights generation  
   *)  
   method getRandLimit : float  
       
   (**  
     A set*.  
     Sets the current output channel.  
   *)  
   method setOutChannel : out_channel -> unit  
       
   (**  
     A get*.  
     Gets the current output channel.  
   *)  
   method getOutChannel : out_channel  
   
   (**  
     Displays a string on _outChannel.  
     @param module_name  
     The name of the module who is speaking (displayed in the output).  
     @param msg The message to be displayed.  
     @param min_verbosity_level If _verbosity >= this parameter, the message  
     is displayed.  
   *)  
   method out : string -> string -> int -> unit  
   
   (**  
       A set*.  
       Sets the current error channel.  
     *)  
   method setErrChannel : out_channel -> unit  
   
   (**  
     A get*.  
     Gets the current error channel.  
   *)  
   method getErrChannel : out_channel  
   
   (**  
     Displays a string on _errChannel.  
     @param module_name  
     The name of the module who is speaking (displayed in the output).  
     @param msg The message to be displayed.  
     @param min_verbosity_level If _verbosity >= this parameter, the message  
     is displayed.  
   *)  
   method err : string -> string -> int -> unit  
       
 (**  
   Converts an otuput channel to a string (useful for dumping the current  
   output channel as xml...).  
   @param channel The channel to convert in string.  
 *)  
   method string_of_channel : out_channel -> string  
   
 end  
   
72  (**  (**
73    The environment itself.    The environment class.
74  *)  *)
75  class environment : environmentType =  class environment =
76  object(this)  object(this)
77    
78    (**    (**

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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