/[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.1 by srv89, Thu Jul 31 02:02:33 2003 UTC revision 1.2 by srv89, Mon Sep 1 13:08:35 2003 UTC
# Line 52  Line 52 
52    
53  class type environmentType =  class type environmentType =
54  object  object
55    
56    (**    (**
57      Displays a string on _channel.      Displays a string on _channel.
58    *)    *)
# Line 63  object Line 64  object
64      //FIXME Make a detailed description of what each verbosity level (i.e.      //FIXME Make a detailed description of what each verbosity level (i.e.
65      value of the int) is supposed to do.      value of the int) is supposed to do.
66    *)    *)
67    method setVerbosity : int-> unit    method setVerbosity : int -> unit
68    
69    (**    (**
70      A set*.      A get*.
71      Sets the random limit for the weights generation      Gets the current verbosity level.
72    *)    *)
73      method getVerbosity : int
74        
75        (**
76          A set*.
77          Sets the random limit for the weights generation
78        *)
79    method setRandLimit : float -> unit    method setRandLimit : float -> unit
80    
81    (**    (**
# Line 76  object Line 83  object
83      Gets the random limit for the weights generation      Gets the random limit for the weights generation
84    *)    *)
85    method getRandLimit : float    method getRandLimit : float
86        
87        (**
88          A set*.
89          Sets the current output channel.
90        *)
91      method setChannel : out_channel -> unit
92    
93      (**
94        A get*.
95        Gets the current output channel.
96      *)
97      method getChannel : out_channel
98    
99  end  end
100    
101  (**  (**
# Line 102  object Line 122  object
122    (**    (**
123      Displays a string on _channel.      Displays a string on _channel.
124    *)    *)
125    method toChannel str = Printf.fprintf _channel "%s\n" str    method toChannel str =
126        Printf.fprintf _channel "%s\n" str
127    
128    (**    (**
129      Sets the current verbosity level.      Sets the current verbosity level.
130    *)    *)
131    method setVerbosity newval = _verbosity <- newval    method setVerbosity newval =
132        _verbosity <- newval
133    
134    (**    (**
135      Sets the current random limit.      Gets the current verbosity level.
136    *)    *)
137    method setRandLimit newval = _randLimit <- newval    method getVerbosity =
138        _verbosity
139    
140    (**    (**
141        Sets the current random limit.
142      *)
143      method setRandLimit newval =
144        _randLimit <- newval
145          
146      (**
147      Gets the current random limit.      Gets the current random limit.
148    *)    *)
149    method getRandLimit = _randLimit    method getRandLimit =
150        _randLimit
151    
152      (**
153        Sets the current output channel.
154      *)
155      method setChannel newval =
156        _channel <- newval
157          
158      (**
159        Gets the current output channel.
160      *)
161      method getChannel =
162        _channel
163    
164  end  end
165    
166  let env : environmentType option ref = ref None  let env : environmentType option ref = ref None

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

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