[r2004-10-19 08:47:40 by afrisch] Give line for type/element loop error message

Original author: afrisch
Date: 2004-10-19 08:47:40+00:00

schema/schema_parser.ml

@@ -596,8 +596,10 @@ class lazy_resolver =
     method see (n: pxp_node) =
       debug_print "lazy_resolver.see";
       if NodeSet.mem n seen_nodes then
-        validation_error "Types/Elements loop";
-      seen_nodes <- NodeSet.add n seen_nodes
+	let line = match n#position with (_,l,_) -> l in
+        validation_error (sprintf "Types/Elements loop (line: %d)" line)
+      else
+	seen_nodes <- NodeSet.add n seen_nodes
 
     method private find_global_component tag_pred name =
       let basename = snd (Ns.split_qname name) in