/[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.13 by srv89, Mon Sep 15 13:50:59 2003 UTC revision 1.14 by vishnou, Tue Sep 16 16:37:52 2003 UTC
# Line 632  tdnn_time_nb,tdnn_field_size)> Line 632  tdnn_time_nb,tdnn_field_size)>
632        let config =        let config =
633          { default_config with warner = new warner }          { default_config with warner = new warner }
634        in        in
635            this#out ("Loading neural network from `" ^ _fileName ^ "\' ...") 3;
636          this#out ("Parsing `" ^ _fileName ^ "\' ...") 5;          this#out ("Parsing `" ^ _fileName ^ "\' ...") 5;
637          try          try
638            parse_document_entity config (from_file _fileName) default_spec            parse_document_entity config (from_file _fileName) default_spec
# Line 641  tdnn_time_nb,tdnn_field_size)> Line 642  tdnn_time_nb,tdnn_field_size)>
642                raise ParseError                raise ParseError
643      in      in
644        this#out ("Successfully parsed `" ^ _fileName ^ "\'.") 5;        this#out ("Successfully parsed `" ^ _fileName ^ "\'.") 5;
645        nn_of_document doc        let res = nn_of_document doc
646          in
647            this#out ("Successfully loaded neural network from  `" ^ _fileName
648                    ^ "\'.") 3;
649            res
650    
651                        
652    (**    (**
653      The generic visit method.      The generic visit method.

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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