diff --git a/cpdf.ml b/cpdf.ml index 1a16b9d..9a28179 100644 --- a/cpdf.ml +++ b/cpdf.ml @@ -2889,8 +2889,14 @@ let dc = "http://purl.org/dc/elements/1.1/" let rdf = "http://www.w3.org/1999/02/22-rdf-syntax-ns#" +(* For OCaml < 4.00 *) +let string_trim s = + implode + (dropwhile + Pdf.is_whitespace (rev (dropwhile Pdf.is_whitespace (explode s)))) + let combine_with_spaces strs = - String.trim + string_trim (fold_left (fun x y -> x ^ (if x <> "" then ", " else "") ^ y) "" strs) (* Collect all
  • elements inside a seq, bag, or alt. Combine with commas. If diff --git a/cpdfmanual.pdf b/cpdfmanual.pdf index d7bd75c..0ac3669 100644 Binary files a/cpdfmanual.pdf and b/cpdfmanual.pdf differ