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