mirror of
https://github.com/johnwhitington/cpdf-source.git
synced 2025-04-02 04:40:38 +02:00
Fixed string_trim, updated xmlm.ml
This commit is contained in:
parent
26647cdbd3
commit
a69d4ee835
4
cpdf.ml
4
cpdf.ml
@ -3227,8 +3227,8 @@ 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))))
|
||||
(rev (dropwhile
|
||||
Pdf.is_whitespace (rev (dropwhile Pdf.is_whitespace (explode s)))))
|
||||
|
||||
let combine_with_spaces strs =
|
||||
string_trim
|
||||
|
Loading…
x
Reference in New Issue
Block a user