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

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

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

revision 1.2 by srv89, Tue Sep 9 15:58:23 2003 UTC revision 1.3 by srv89, Wed Sep 10 11:27:43 2003 UTC
# Line 60  let _ = Line 60  let _ =
60    write " + Creating an empty TDNN, and dumping it as `tdnn.xml'.";    write " + Creating an empty TDNN, and dumping it as `tdnn.xml'.";
61    let empty_mlpnn = new mlpNN and    let empty_mlpnn = new mlpNN and
62      mlpnnvis = new xmlMlpnnVisitor and      mlpnnvis = new xmlMlpnnVisitor and
63      verbosity = 4      verbosity = 5
64    in    in
65      (Env.getEnv())#setVerbosity verbosity;      (Env.getEnv())#setVerbosity verbosity;
66      mlpnnvis#setOverwriteFile true;      mlpnnvis#setOverwriteFile true;
# Line 82  let _ = Line 82  let _ =
82          (Env.getEnv())#setVerbosity verbosity;          (Env.getEnv())#setVerbosity verbosity;
83          mlpnnvis#setFileName "mlpnn.xml";          mlpnnvis#setFileName "mlpnn.xml";
84          let extracted_mlpnn = mlpnnvis#xml2Nn in          let extracted_mlpnn = mlpnnvis#xml2Nn in
           ();  
85            write " + validating `mlpnn.xml'.";            write " + validating `mlpnn.xml'.";
86            let tdnn = new tdNN and            let tdnn = new tdNN and
87              tdnnvis = new xmlTdnnVisitor in              tdnnvis = new xmlTdnnVisitor in

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