2 * ----------------------------------------------------------------------
11 let error_happened = ref false;;
13 let rec print_error e =
14 print_endline (string_of_exn e)
20 print_endline ("WARNING: " ^ w)
24 let parse debug wf iso88591 filename =
29 debugging_mode = debug;
30 encoding = if iso88591 then `Enc_iso88591 else `Enc_utf8;
35 if wf then parse_wfdocument_entity
37 let index = new hash_index in
40 ~id_index:(index :> 'ext index)
48 print_endline "Parsed without error";
51 error_happened := true;
57 let debug = ref false in
59 let iso88591 = ref false in
62 [ "-d", Arg.Set debug, "turn debugging mode on";
63 "-wf", Arg.Set wf, "check only on well-formedness";
64 "-iso-8859-1", Arg.Set iso88591, "use ISO-8859-1 as internal encoding instead of UTF-8";
66 (fun x -> files := x :: !files)
68 usage: test_negative [options] file ...
71 files := List.rev !files;
72 List.iter (parse !debug !wf !iso88591) !files;
77 if !error_happened then exit(1);;
79 (* ======================================================================
83 * Revision 1.1 2000/11/17 09:57:33 lpadovan
86 * Revision 1.6 2000/07/14 14:57:12 gerd
89 * Revision 1.5 2000/07/14 14:20:11 gerd
90 * Updated because of PXP interface changes.
92 * Revision 1.4 2000/07/09 01:49:09 gerd
93 * Updated because of PXP interface changes.
95 * Revision 1.3 2000/06/04 20:31:21 gerd
96 * Updates because of renamed PXP modules.
98 * Revision 1.2 2000/05/28 17:23:22 gerd
101 * Revision 1.1 2000/05/01 15:58:50 gerd