/[svn]/schema/schema_xml.ml
ViewVC logotype

Diff of /schema/schema_xml.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 507 by abate, Tue Jul 10 17:40:14 2007 UTC revision 528 by abate, Tue Jul 10 17:41:47 2007 UTC
# Line 199  Line 199 
199    | E_position (entity, line, col) -> "E_position"    | E_position (entity, line, col) -> "E_position"
200    | E_error exn -> sprintf "E_error (%s)" (Pxp_types.string_of_exn exn)    | E_error exn -> sprintf "E_error (%s)" (Pxp_types.string_of_exn exn)
201    | E_end_of_stream -> "E_end_of_stream"    | E_end_of_stream -> "E_end_of_stream"
202      | _ -> assert false
203    
204  let rec dump_stream s =  let rec dump_stream s =
205    print_endline (string_of_pxp_event (Stream.next s));    print_endline (string_of_pxp_event (Stream.next s));
Legend:
Removed from v.507  
changed lines
  Added in v.528
CVS Admin">CVS Admin
 ViewVC Help
Powered by ViewVC 1.1.5