equal
deleted
inserted
replaced
31 val output_markup_elem: Markup.T -> (string * string) * string |
31 val output_markup_elem: Markup.T -> (string * string) * string |
32 val parse_body: string -> XML.body |
32 val parse_body: string -> XML.body |
33 val parse_body_bytes: Bytes.T -> XML.body |
33 val parse_body_bytes: Bytes.T -> XML.body |
34 val parse: string -> XML.tree |
34 val parse: string -> XML.tree |
35 val parse_bytes: Bytes.T -> XML.tree |
35 val parse_bytes: Bytes.T -> XML.tree |
36 val content_of: string -> string |
|
37 val is_wellformed: string -> bool |
36 val is_wellformed: string -> bool |
38 end; |
37 end; |
39 |
38 |
40 structure YXML: YXML = |
39 structure YXML: YXML = |
41 struct |
40 struct |
168 val parse = parse' o split_string; |
167 val parse = parse' o split_string; |
169 val parse_bytes = parse' o split_bytes; |
168 val parse_bytes = parse' o split_bytes; |
170 |
169 |
171 end; |
170 end; |
172 |
171 |
173 val content_of = parse_body #> XML.content_of; |
|
174 |
|
175 fun is_wellformed s = string_of_body (parse_body s) = s |
172 fun is_wellformed s = string_of_body (parse_body s) = s |
176 handle Fail _ => false; |
173 handle Fail _ => false; |
177 |
174 |
178 end; |
175 end; |