/[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.4 by srv89, Mon Sep 1 13:08:35 2003 UTC revision 1.5 by srv89, Mon Sep 1 20:43:52 2003 UTC
# Line 75  object (this) Line 75  object (this)
75      whithin a XML file.      whithin a XML file.
76    *)    *)
77    val _header =    val _header =
78      "<!--  This file was generated by LibNN  -->      "<?xml version=\"1.0\"?>
79    <!--  This file was generated by LibNN  -->
80  <!--          http://libnn.org          -->  <!--          http://libnn.org          -->
81    
   
 <?xml version=\"1.0\"?>  
   
   
82  <!-- The DTD -->  <!-- The DTD -->
83  <!DOCTYPE nn [  <!DOCTYPE nn [
84    
# Line 93  object (this) Line 90  object (this)
90  <!-- Multi Layer Perceptron (`mlpNN' class) -->  <!-- Multi Layer Perceptron (`mlpNN' class) -->
91  <!ELEMENT mlpnn (mlpnn_output_activation,mlpnn_input_sum,mlpnn_error,  <!ELEMENT mlpnn (mlpnn_output_activation,mlpnn_input_sum,mlpnn_error,
92  mlpnn_weights,mlpnn_gradients,layer_nb,mlpnn_neurons_per_layer)>  mlpnn_weights,mlpnn_gradients,layer_nb,mlpnn_neurons_per_layer)>
93  <!ELEMENT mlpnn_output_activation (3d_array)>  <!ELEMENT mlpnn_output_activation (_3d_array)>
94  <!ELEMENT mlpnn_input_sum (3d_array)>  <!ELEMENT mlpnn_input_sum (_3d_array)>
95  <!ELEMENT mlpnn_error (3d_array)>  <!ELEMENT mlpnn_error (_3d_array)>
96  <!ELEMENT mlpnn_weights (4d_array)>  <!ELEMENT mlpnn_weights (_4d_array)>
97  <!ELEMENT mlpnn_gradients (4d_array)>  <!ELEMENT mlpnn_gradients (_4d_array)>
98  <!ELEMENT mlpnn_neurons_per_layer (2d_array)>  <!ELEMENT mlpnn_neurons_per_layer (_2d_array)>
99  <!-- Time Delay Neural Network (`tdNNN' class) -->  <!-- Time Delay Neural Network (`tdNNN' class) -->
100  <!ELEMENT tdnn (tdnn_output_activation,tdnn_input_sum,tdnn_error,  <!ELEMENT tdnn (tdnn_output_activation,tdnn_input_sum,tdnn_error,
101  tdnn_weights,tdnn_gradients,layer_nb,tdnn_delay,tdnn_features_nb,  tdnn_weights,tdnn_gradients,layer_nb,tdnn_delay,tdnn_features_nb,
102  tdnn_time_nb,tdnn_field_size)>  tdnn_time_nb,tdnn_field_size)>
103  <!ELEMENT tdnn_output_activation (4d_array)>  <!ELEMENT tdnn_output_activation (_4d_array)>
104  <!ELEMENT tdnn_input_sum (4d_array)>  <!ELEMENT tdnn_input_sum (_4d_array)>
105  <!ELEMENT tdnn_error (4d_array)>  <!ELEMENT tdnn_error (_4d_array)>
106  <!ELEMENT tdnn_weights (5d_array)>  <!ELEMENT tdnn_weights (_5d_array)>
107  <!ELEMENT tdnn_gradients (5d_array)>  <!ELEMENT tdnn_gradients (_5d_array)>
108  <!ELEMENT tdnn_delay (2d_array)>  <!ELEMENT tdnn_delay (_2d_array)>
109  <!ELEMENT tdnn_features_nb (2d_array)>  <!ELEMENT tdnn_features_nb (_2d_array)>
110  <!ELEMENT tdnn_time_nb (2d_array)>  <!ELEMENT tdnn_time_nb (_2d_array)>
111  <!ELEMENT tdnn_field_size (2d_array)>  <!ELEMENT tdnn_field_size (_2d_array)>
112    
113  <!-- Common stuffs -->  <!-- Common stuffs -->
114  <!-- Corpus (`corpus' class) -->  <!-- Corpus (`corpus' class) -->
115  <!ELEMENT corpus (pattern*)>  <!ELEMENT corpus (pattern*)>
116  <!-- Pattern (`pattern' class) -->  <!-- Pattern (`pattern' class) -->
117  <!ELEMENT pattern (input,output)>  <!ELEMENT pattern (input,output)>
118  <!ELEMENT input (2d_array)>  <!ELEMENT input (_2d_array)>
119  <!ELEMENT output (2d_array)>  <!ELEMENT output (_2d_array)>
120  <!-- Environment (`env' class) -->  <!-- Environment (`env' class) -->
121  <!ELEMENT env (verbosity,randlimit,channel)>  <!ELEMENT env (verbosity,randlimit,channel)>
122  <!ELEMENT verbosity (#CDATA)>  <!ELEMENT verbosity (#PCDATA)>
123  <!ELEMENT randlimit (#CDATA)>  <!ELEMENT randlimit (#PCDATA)>
124  <!ELEMENT channel (#CDATA)>  <!ELEMENT channel (#PCDATA)>
125  <!-- Arrays -->  <!-- Arrays -->
126  <!ELEMENT 2d_array ((x,y,value)*)>  <!ELEMENT _2d_array ((x,y,value)*)>
127  <!ELEMENT 3d_array ((x,y,z,value)*)>  <!ELEMENT _3d_array ((x,y,z,value)*)>
128  <!ELEMENT 4d_array ((x,y,z,t,value)*)>  <!ELEMENT _4d_array ((x,y,z,t,value)*)>
129  <!ELEMENT 5d_array ((x,y,z,t,u,value)*)>  <!ELEMENT _5d_array ((x,y,z,t,u,value)*)>
130  <!ELEMENT x (#CDATA)>  <!ELEMENT x (#PCDATA)>
131  <!ELEMENT y (#CDATA)>  <!ELEMENT y (#PCDATA)>
132  <!ELEMENT z (#CDATA)>  <!ELEMENT z (#PCDATA)>
133  <!ELEMENT t (#CDATA)>  <!ELEMENT t (#PCDATA)>
134  <!ELEMENT u (#CDATA)>  <!ELEMENT u (#PCDATA)>
135  <!ELEMENT value (#CDATA)>  <!ELEMENT value (#PCDATA)>
136  <!-- Others -->  <!-- Others -->
137  <!ELEMENT step (#CDATA)>  <!ELEMENT step (#PCDATA)>
138  <!ELEMENT layer_nb (#CDATA)>  <!ELEMENT layer_nb (#PCDATA)>
139    
140  ]>  ]>
141    
# Line 230  tdnn_time_nb,tdnn_field_size)> Line 227  tdnn_time_nb,tdnn_field_size)>
227      @param array The array which is to be dumped.      @param array The array which is to be dumped.
228    *)    *)
229    method private dump2dArray a_array string_of_a =    method private dump2dArray a_array string_of_a =
230      this#openTag "2d_array";      this#openTag "_2d_array";
231      for x = 0 to (Array.length a_array - 1) do      for x = 0 to (Array.length a_array - 1) do
232        this#write ("<x>" ^ (string_of_int x) ^        this#write ("<x>" ^ (string_of_int x) ^
233                    "</x><value>" ^                    "</x><value>" ^
234                    (string_of_a a_array.(x)) ^                    (string_of_a a_array.(x)) ^
235                    "</value>")                    "</value>")
236      done;      done;
237      this#closeTag "2d_array"      this#closeTag "_2d_array"
238                
239    (**    (**
240      Dumps a 3d array.      Dumps a 3d array.
241      @param array The array which is to be dumped.      @param array The array which is to be dumped.
242    *)    *)
243    method private dump3dArray a_array string_of_a =    method private dump3dArray a_array string_of_a =
244      this#openTag "3d_array";      this#openTag "_3d_array";
245      for x = 0 to (Array.length a_array - 1) do      for x = 0 to (Array.length a_array - 1) do
246        for y = 0 to (Array.length a_array.(x) - 1) do        for y = 0 to (Array.length a_array.(x) - 1) do
247          this#write ("<x>" ^ (string_of_int x) ^          this#write ("<x>" ^ (string_of_int x) ^
# Line 254  tdnn_time_nb,tdnn_field_size)> Line 251  tdnn_time_nb,tdnn_field_size)>
251                      "</value>")                      "</value>")
252        done        done
253      done;      done;
254      this#closeTag "3d_array"      this#closeTag "_3d_array"
255    
256    (**    (**
257      Dumps a 4d array.      Dumps a 4d array.
258      @param array The array which is to be dumped.      @param array The array which is to be dumped.
259    *)    *)
260    method private dump4dArray a_array string_of_a =    method private dump4dArray a_array string_of_a =
261      this#openTag "4d_array";      this#openTag "_4d_array";
262      for x = 0 to (Array.length a_array - 1) do      for x = 0 to (Array.length a_array - 1) do
263        for y = 0 to (Array.length a_array.(x) - 1) do        for y = 0 to (Array.length a_array.(x) - 1) do
264          for z = 0 to (Array.length a_array.(x).(y) - 1) do          for z = 0 to (Array.length a_array.(x).(y) - 1) do
# Line 274  tdnn_time_nb,tdnn_field_size)> Line 271  tdnn_time_nb,tdnn_field_size)>
271          done          done
272        done        done
273      done;      done;
274      this#closeTag "4d_array"      this#closeTag "_4d_array"
275                
276    (**    (**
277      Dumps a 5d array.      Dumps a 5d array.
278      @param array The array which is to be dumped.      @param array The array which is to be dumped.
279    *)    *)
280    method private dump5dArray a_array string_of_a =    method private dump5dArray a_array string_of_a =
281      this#openTag "5d_array";      this#openTag "_5d_array";
282      for x = 0 to (Array.length a_array - 1) do      for x = 0 to (Array.length a_array - 1) do
283        for y = 0 to (Array.length a_array.(x) - 1) do        for y = 0 to (Array.length a_array.(x) - 1) do
284          for z = 0 to (Array.length a_array.(x).(y) - 1) do          for z = 0 to (Array.length a_array.(x).(y) - 1) do
# Line 297  tdnn_time_nb,tdnn_field_size)> Line 294  tdnn_time_nb,tdnn_field_size)>
294          done          done
295        done        done
296      done;      done;
297      this#closeTag "5d_array"      this#closeTag "_5d_array"
298                
299    (**    (**
300      The method which creates the XML file with its embedded DTD, and dump      The method which creates the XML file with its embedded DTD, and dump

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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