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

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

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

revision 1.2 by srv89, Tue Aug 26 10:01:19 2003 UTC revision 1.3 by srv89, Fri Aug 29 08:32:32 2003 UTC
# Line 44  Line 44 
44  *)  *)
45    
46  open Nn  open Nn
 open DefaultVisitor  
47  open MlpNN  open MlpNN
48  open XmlVisitor  open XmlVisitor
49    
50  (**  (**
51    Creates a dump of a Multi Layer Perceptron as a XML file.    Dumps the Multi Layer Perceptron specific stuffs as XML.
52  *)        *)      
53  class xmlMlpnnVisitor =  class xmlMlpnnVisitor =
54  object  object
55    inherit [mlpNN] xmlVisitor as super    inherit ['a] xmlVisitor as super
56    
57    (**    (**
58      The method which creates the XML dump.      The method which dumps Multi Layer Perceptron specific stuffs.
59      @param network The Multi Layer Perceptron which is to be dumped.      @param network The Multi Layer Perceptron which is to be dumped.
60    *)    *)
61    method visit (network : mlpNN) =    method visit (network : mlpNN) =
62      (**      ()
63        Begin the XML dump.  (*    super#beginDump network;
     *)  
     super#xml_begin _filename;  
64    
     (**  
       Dump Multi Layer Perceptron specific stuffs.  
     *)  
       
     (**  
       End the XML dump.  
     *)  
     super#xml_end _filename  
65    
66        super#endDump network *)
67  end  end

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

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