/[marvin]/marvin/src/libnn/xml/xmlVisitor.ml
ViewVC logotype

Diff of /marvin/src/libnn/xml/xmlVisitor.ml

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

revision 1.6 by srv89, Sun Sep 7 19:13:12 2003 UTC revision 1.7 by matthieu, Sun Sep 7 22:10:04 2003 UTC
# Line 71  class virtual ['a] xmlVisitor = Line 71  class virtual ['a] xmlVisitor =
71  object (this)  object (this)
72    inherit ['a] defaultVisitor    inherit ['a] defaultVisitor
73    
   constraint 'a = nn  
   
74    (**    (**
75      The XML file's header. Contains the DTD.      The XML file's header. Contains the DTD.
76      @see <http://www.w3schools.com/dtd/dtd_intro.asp> How to get a DTD      @see <http://www.w3schools.com/dtd/dtd_intro.asp> How to get a DTD
# Line 203  tdnn_time_nb,tdnn_field_size)> Line 201  tdnn_time_nb,tdnn_field_size)>
201      Dumps a 2d array.      Dumps a 2d array.
202      @param array The array which is to be dumped.      @param array The array which is to be dumped.
203    *)    *)
204    method private dump2dArray a_array string_of_a =    method private dump2dArray (a_array : int array) string_of_a =
205      this#openTag "_2d_array";      this#openTag "_2d_array";
206      for x = 0 to (Array.length a_array - 1) do      for x = 0 to (Array.length a_array - 1) do
207        this#write ("<x>" ^ (string_of_int x) ^        this#write ("<x>" ^ (string_of_int x) ^
# Line 217  tdnn_time_nb,tdnn_field_size)> Line 215  tdnn_time_nb,tdnn_field_size)>
215      Dumps a 3d array.      Dumps a 3d array.
216      @param array The array which is to be dumped.      @param array The array which is to be dumped.
217    *)    *)
218    method private dump3dArray a_array string_of_a =    method private dump3dArray (a_array : float array array) string_of_a =
219      this#openTag "_3d_array";      this#openTag "_3d_array";
220      for x = 0 to (Array.length a_array - 1) do      for x = 0 to (Array.length a_array - 1) do
221        for y = 0 to (Array.length a_array.(x) - 1) do        for y = 0 to (Array.length a_array.(x) - 1) do
# Line 234  tdnn_time_nb,tdnn_field_size)> Line 232  tdnn_time_nb,tdnn_field_size)>
232      Dumps a 4d array.      Dumps a 4d array.
233      @param array The array which is to be dumped.      @param array The array which is to be dumped.
234    *)    *)
235    method private dump4dArray a_array string_of_a =    method private dump4dArray (a_array : float array array array) string_of_a =
236      this#openTag "_4d_array";      this#openTag "_4d_array";
237      for x = 0 to (Array.length a_array - 1) do      for x = 0 to (Array.length a_array - 1) do
238        for y = 0 to (Array.length a_array.(x) - 1) do        for y = 0 to (Array.length a_array.(x) - 1) do
# Line 254  tdnn_time_nb,tdnn_field_size)> Line 252  tdnn_time_nb,tdnn_field_size)>
252      Dumps a 5d array.      Dumps a 5d array.
253      @param array The array which is to be dumped.      @param array The array which is to be dumped.
254    *)    *)
255    method private dump5dArray a_array string_of_a =    method private dump5dArray (a_array : float array array array array) string_of_a =
256      this#openTag "_5d_array";      this#openTag "_5d_array";
257      for x = 0 to (Array.length a_array - 1) do      for x = 0 to (Array.length a_array - 1) do
258        for y = 0 to (Array.length a_array.(x) - 1) do        for y = 0 to (Array.length a_array.(x) - 1) do
# Line 334  tdnn_time_nb,tdnn_field_size)> Line 332  tdnn_time_nb,tdnn_field_size)>
332        this#write _header;        this#write _header;
333        (**        (**
334          Dump stuffs inherited from the `nn' class.          Dump stuffs inherited from the `nn' class.
335             FIXME
336        *)        *)
337        let step = "<step>" ^ (string_of_float network#getStep) ^ "</step>        let step = "<step>" ^ (*(string_of_float network#getStep) ^*) "</step>
338  " in  " in
339          this#write step;          this#write step;
340          dumpCorpus network#getCorpus;  (*      dumpCorpus network#getCorpus;*)
341          this#write "";          this#write "";
342          dumpEnv (Env.getEnv());          dumpEnv (Env.getEnv());
343          this#write ""            this#write ""  

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