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

Account for CamlPDF comment changes

This commit is contained in:
John Whitington 2024-09-20 17:22:12 +01:00
parent 12af6510d3
commit 77e33792b4
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
cpdfcommand.ml
View File

@ -1899,7 +1899,8 @@ let expand_namespace = function
let setreadableops () = let setreadableops () =
Pdfops.whitespace := "\n"; Pdfops.whitespace := "\n";
Pdfops.always_add_whitespace := true Pdfops.always_add_whitespace := true;
Pdfops.write_comments := true
let specs = let specs =
[("-version", [("-version",

1
cpdfjson.ml
View File

@ -448,6 +448,7 @@ let json_of_op utf8 pdf no_stream_data = function
| O.Op_MP s -> `List [`String s; `String "MP"] | O.Op_MP s -> `List [`String s; `String "MP"]
| O.Op_BMC s -> `List [`String s; `String "BMC"] | O.Op_BMC s -> `List [`String s; `String "BMC"]
| O.Op_Unknown s -> `List [`String s; `String "Unknown"] | O.Op_Unknown s -> `List [`String s; `String "Unknown"]
| O.Op_Comment s -> `List [`String s; `String "Comment"]
| O.Op_SCNName (s, fs) -> | O.Op_SCNName (s, fs) ->
`List (map (fun x -> mkfloat x) fs @ [`String s; `String "SCNName"]) `List (map (fun x -> mkfloat x) fs @ [`String s; `String "SCNName"])
| O.Op_scnName (s, fs) -> | O.Op_scnName (s, fs) ->