/[mldonkey]/mldonkey/src/utils/xml-light/xml_lexer.mll
ViewVC logotype

Diff of /mldonkey/src/utils/xml-light/xml_lexer.mll

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

revision 1.1 by mldonkey, Thu Jul 29 10:25:34 2004 UTC revision 1.2 by spiralvoice, Sat Nov 19 17:19:45 2005 UTC
# Line 402  and dtd_item = parse Line 402  and dtd_item = parse
402    | "<!"    | "<!"
403        {        {
404        ignore_spaces lexbuf;        ignore_spaces lexbuf;
405        Printf.printf "?????"; print_newline ();        (* Printf.printf "?????"; print_newline (); *)
406        let t = dtd_item_type lexbuf in        let t = dtd_item_type lexbuf in
407        let name = (try ident_name lexbuf with Error EIdentExpected -> raise (DTDError EInvalidDTDDecl)) in        let name = (try ident_name lexbuf with Error EIdentExpected -> raise (DTDError EInvalidDTDDecl)) in
408        ignore_spaces lexbuf;        ignore_spaces lexbuf;
# Line 606  and dtd_attr_string = parse Line 606  and dtd_attr_string = parse
606      }      }
607    | _ | eof    | _ | eof
608        { dtd_error lexbuf EInvalidDTDAttribute }        { dtd_error lexbuf EInvalidDTDAttribute }
       
609        

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26