/[svn]/runtime/load_xml.ml
ViewVC logotype

Diff of /runtime/load_xml.ml

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

revision 466 by abate, Tue Jul 10 17:36:47 2007 UTC revision 467 by abate, Tue Jul 10 17:36:54 2007 UTC
# Line 72  Line 72 
72  let buflen = 1000  let buflen = 1000
73  let buf = String.create buflen  let buf = String.create buflen
74    
75    ifdef EXPAT then
76    
77  let load_expat s =  let load_expat s =
78    let p = Expat.parser_create "" in    let p = Expat.parser_create "" in
79    Expat.set_start_element_handler p    Expat.set_start_element_handler p
# Line 107  Line 109 
109        Expat.Expat_error e ->        Expat.Expat_error e ->
110          failwith ("Expat ("^s^"):"^Expat.xml_error_to_string e)          failwith ("Expat ("^s^"):"^Expat.xml_error_to_string e)
111    
112    else
113    
114    let load_expat s =
115      failwith "Expat support not included"
116    
117    
118    
119  let handle_event = function  let handle_event = function
120    | E_start_tag (name,att,_) ->    | E_start_tag (name,att,_) ->
Legend:
Removed from v.466  
changed lines
  Added in v.467
CVS Admin">CVS Admin
 ViewVC Help
Powered by ViewVC 1.1.5