fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

UTF8 mode finished

This commit is contained in:
John Whitington 2023-02-17 15:45:09 +00:00
parent dc2a04d530
commit ddee219d5a
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cpdfjson.ml
View File

@ -217,6 +217,10 @@ and object_of_json = function
| `Int n -> Pdf.Indirect n | `Int n -> Pdf.Indirect n
| `String s -> P.String s | `String s -> P.String s
| `List objs -> P.Array (map object_of_json objs) | `List objs -> P.Array (map object_of_json objs)
| `Assoc ["U", `String u] ->
begin try P.String (Pdftext.pdfdocstring_of_utf8 u) with
_ -> Printf.eprintf "Could not read UTF8 string %S\n" u; P.String u
end
| `Assoc ["I", `Int i] -> P.Integer i | `Assoc ["I", `Int i] -> P.Integer i
| `Assoc ["F", `Float f] -> P.Real f | `Assoc ["F", `Float f] -> P.Real f
| `Assoc ["N", `String n] -> P.Name n | `Assoc ["N", `String n] -> P.Name n