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

more

This commit is contained in:
John Whitington 2021-06-20 17:30:14 +01:00
parent a5053f1e3c
commit 1a952619c9
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Changes
View File

@ -5,10 +5,11 @@ o Optional Content Groups now preserved when merging / stamping pages
o Listing, coalescing and modfying Optional Content Groups. o Listing, coalescing and modfying Optional Content Groups.
o New -labels-progress option to improve page labels interface o New -labels-progress option to improve page labels interface
o New options -output-json et al. to export PDF files in JSON format o New options -output-json et al. to export PDF files in JSON format
o New options to manipulate Optional Content Groups
o New option -stamp-as-xobject to add one PDF as an xobject in another o New option -stamp-as-xobject to add one PDF as an xobject in another
o No longer depends on Bigarray or Unix modules o No longer depends on Bigarray or Unix modules
o Appearance streams transformed when transforming annotations o Appearance streams transformed when transforming annotations
o Bookmark desitination positions transformed when transforming pages o Bookmark destination positions transformed when transforming pages
Version 2.3 (patchlevel 1, December 2019) Version 2.3 (patchlevel 1, December 2019)

3
cpdfwriteJSON.ml
View File

@ -187,6 +187,9 @@ let json_of_pdf parse_content no_stream_data pdf =
iter (fun n -> Pdfcodec.decode_pdfstream_until_unknown pdf (P.lookup_obj pdf n)) !content_streams; iter (fun n -> Pdfcodec.decode_pdfstream_until_unknown pdf (P.lookup_obj pdf n)) !content_streams;
let pairs_parsed = let pairs_parsed =
if not parse_content then pairs else if not parse_content then pairs else
(* FIXME. Here we must combine all the streams together, using a new
object number. This is so that the parsing can parse things split
across streams. *)
map map
(fun (objnum, obj) -> (fun (objnum, obj) ->
if mem objnum !content_streams then if mem objnum !content_streams then