mirror of
https://github.com/johnwhitington/cpdf-source.git
synced 2025-05-23 05:54:25 +02:00
Correct behaviour when splitting with object streams
This commit is contained in:
parent
beb41aa957
commit
ba987b9daa
@ -3482,7 +3482,7 @@ let split_at_bookmarks
|
|||||||
|
|
||||||
let split_pdf
|
let split_pdf
|
||||||
enc original_filename
|
enc original_filename
|
||||||
chunksize linearize ~cpdflin ~preserve_objstm ~create_objstm ~squeeze
|
chunksize linearize ~cpdflin ~squeeze
|
||||||
spec pdf
|
spec pdf
|
||||||
=
|
=
|
||||||
let pdf_pages = Pdfpage.pages_of_pagetree pdf in
|
let pdf_pages = Pdfpage.pages_of_pagetree pdf in
|
||||||
@ -4231,10 +4231,9 @@ let go () =
|
|||||||
| [(f, ranges, _, _, _, _)], File output_spec ->
|
| [(f, ranges, _, _, _, _)], File output_spec ->
|
||||||
let pdf = get_single_pdf args.op true in
|
let pdf = get_single_pdf args.op true in
|
||||||
let enc = build_enc () in
|
let enc = build_enc () in
|
||||||
args.create_objstm <- args.preserve_objstm;
|
if args.preserve_objstm then args.create_objstm <- true; (* For split, always create if preserving *)
|
||||||
split_pdf
|
split_pdf
|
||||||
enc args.original_filename args.chunksize args.linearize ~cpdflin:args.cpdflin
|
enc args.original_filename args.chunksize args.linearize ~cpdflin:args.cpdflin
|
||||||
~preserve_objstm:args.preserve_objstm ~create_objstm:args.preserve_objstm (*yes--always create if preserving *)
|
|
||||||
~squeeze:args.squeeze output_spec pdf
|
~squeeze:args.squeeze output_spec pdf
|
||||||
| _, Stdout -> error "Can't split to standard output"
|
| _, Stdout -> error "Can't split to standard output"
|
||||||
| _, NoOutputSpecified -> error "Split: No output format specified"
|
| _, NoOutputSpecified -> error "Split: No output format specified"
|
||||||
|
Loading…
x
Reference in New Issue
Block a user