Commit ce360bef authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2005-01-11 06:01:33 by afrisch] Empty log message

Original author: afrisch
Date: 2005-01-11 06:01:33+00:00
parent c8cf2704
...@@ -32,10 +32,13 @@ let load_expat s = ...@@ -32,10 +32,13 @@ let load_expat s =
with Expat.Expat_error e -> with Expat.Expat_error e ->
let line = Expat.get_current_line_number p let line = Expat.get_current_line_number p
and col = Expat.get_current_column_number p in and col = Expat.get_current_column_number p in
let src = match s with
| Url.Url s -> ""
| Url.Filename s -> Printf.sprintf " file \"%s\"," s in
let msg = let msg =
Printf.sprintf Printf.sprintf
"load_xml, file \"%s\", at line %i, column %i: %s" "load_xml,%s at line %i, column %i: %s"
s src
(Expat.get_current_line_number p) (Expat.get_current_line_number p)
(Expat.get_current_column_number p) (Expat.get_current_column_number p)
(Expat.xml_error_to_string e) (Expat.xml_error_to_string e)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment