src/Pure/PIDE/yxml.ML
changeset 80820 db114ec720cb
parent 80563 36da6a3c79d6
child 80821 eb383d50564b
equal deleted inserted replaced
80819:84e886792536 80820:db114ec720cb
    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;