23 lines
684 B
OCaml
23 lines
684 B
OCaml
open Expat
|
|
|
|
let xml_str = "
|
|
<Students>
|
|
<Student Name='April' Gender='F' DateOfBirth='1989-01-02' />
|
|
<Student Name='Bob' Gender='M' DateOfBirth='1990-03-04' />
|
|
<Student Name='Chad' Gender='M' DateOfBirth='1991-05-06' />
|
|
<Student Name='Dave' Gender='M' DateOfBirth='1992-07-08'>
|
|
<Pet Type='dog' Name='Rover' />
|
|
</Student>
|
|
<Student DateOfBirth='1993-09-10' Gender='F' Name='Émily' />
|
|
</Students>"
|
|
|
|
let () =
|
|
let p = parser_create None in
|
|
set_start_element_handler p
|
|
(fun tag attrs ->
|
|
if tag = "Student" then
|
|
List.iter (function ("Name", name) -> print_endline name | _ -> ()) attrs
|
|
);
|
|
parse p xml_str;
|
|
final p;
|