util.ml 1.3 KB

123456789101112131415161718192021222324252627282930313233
  1. (*
  2. * Copyright (c) 2014, OCaml.org project
  3. * Copyright (c) 2015 KC Sivaramakrishnan <sk826@cl.cam.ac.uk>
  4. *
  5. * Permission to use, copy, modify, and distribute this software for any
  6. * purpose with or without fee is hereby granted, provided that the above
  7. * copyright notice and this permission notice appear in all copies.
  8. *
  9. * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  10. * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  11. * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
  12. * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  13. * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  14. * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
  15. * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  16. *)
  17. open Syndic
  18. (* Remove all tags *)
  19. let rec syndic_to_buffer b = function
  20. | XML.Node (_, _, subs) -> List.iter (syndic_to_buffer b) subs
  21. | XML.Data (_, d) -> Buffer.add_string b d
  22. let syndic_to_string x =
  23. let b = Buffer.create 1024 in
  24. List.iter (syndic_to_buffer b) x;
  25. Buffer.contents b
  26. let string_of_text_construct : Atom.text_construct -> string = function
  27. (* FIXME: we probably would like to parse the HTML and remove the tags *)
  28. | Atom.Text s | Atom.Html (_, s) -> s
  29. | Atom.Xhtml (_, x) -> syndic_to_string x