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