fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

string_trim replaces String.trim for OCaml < 4.00

Browse Source
This commit is contained in:
John Whitington
2015-06-02 19:32:36 +01:00
parent d8cdc572bc
commit d81c17b6c5
2 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
cpdf.ml
View File

@@ -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#" 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 = let combine_with_spaces strs =
String.trim string_trim
(fold_left (fun x y -> x ^ (if x <> "" then ", " else "") ^ y) "" strs) (fold_left (fun x y -> x ^ (if x <> "" then ", " else "") ^ y) "" strs)
(* Collect all <li> elements inside a seq, bag, or alt. Combine with commas. If (* Collect all <li> elements inside a seq, bag, or alt. Combine with commas. If

BIN
cpdfmanual.pdf
View File

Binary file not shown.