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; |
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 |