6 print_endline ("WARNING: " ^ w) ;
7 (raise Warnings : unit)
13 let annotate filename ids_to_targets =
14 let module Y = Pxp_yacc in
17 let config = {Y.default_config with Y.warner = new warner} in
18 Y.parse_document_entity config
19 (*PXP (Y.ExtID (Pxp_types.System filename,
20 new Pxp_reader.resolve_as_file ~url_of_id ()))
21 *) (PxpUriResolver.from_file filename)
25 AnnotationParser2.annotate ids_to_targets d#root
28 print_endline (Pxp_types.string_of_exn e) ;