UTF8 mode finished

2023-02-17 15:45:09 +00:00 · 2023-02-17 15:45:09 +00:00 · ddee219d5a
parent dc2a04d530
commit ddee219d5a
1 changed files with 4 additions and 0 deletions
--- a/cpdfjson.ml
+++ b/cpdfjson.ml
@ -217,6 +217,10 @@ and object_of_json = function
  | `Int n -> Pdf.Indirect n
  | `String s -> P.String s
  | `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 ["F", `Float f] -> P.Real f
  | `Assoc ["N", `String n] -> P.Name n