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 |
(** |
(** |