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

Working on recrypting for -split

This commit is contained in:
John Whitington 2014-11-03 19:19:12 +00:00
parent 410954b4f7
commit 492a4e9542
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
cpdfcommand.ml
View File

@ -2097,9 +2097,7 @@ let stem s =
(neq '.') (rev (explode (Filename.basename s)))))) (neq '.') (rev (explode (Filename.basename s))))))
let fast_write_split_pdfs let fast_write_split_pdfs
enc splitlevel enc splitlevel original_filename sq nobble spec main_pdf pagenums pdf_pages
original_filename linearize ?(cpdflin = None) preserve_objstm
create_objstm sq nobble spec main_pdf pagenums pdf_pages
= =
let marks = Pdfmarks.read_bookmarks main_pdf in let marks = Pdfmarks.read_bookmarks main_pdf in
iter2 iter2
@ -2128,8 +2126,7 @@ let bookmark_pages level pdf =
(Pdfmarks.read_bookmarks pdf)) (Pdfmarks.read_bookmarks pdf))
let split_at_bookmarks let split_at_bookmarks
enc original_filename linearize enc original_filename ~squeeze nobble level spec pdf
~cpdflin ~preserve_objstm ~create_objstm ~squeeze nobble level spec pdf
= =
let pdf_pages = Pdfpage.pages_of_pagetree pdf in let pdf_pages = Pdfpage.pages_of_pagetree pdf in
let points = bookmark_pages level pdf in let points = bookmark_pages level pdf in
@ -2138,8 +2135,7 @@ let split_at_bookmarks
in in
let pts = splitat points (indx pdf_pages) in let pts = splitat points (indx pdf_pages) in
fast_write_split_pdfs fast_write_split_pdfs
enc level original_filename linearize preserve_objstm enc level original_filename squeeze nobble spec pdf pts pdf_pages
create_objstm squeeze nobble spec pdf pts pdf_pages
let split_pdf let split_pdf
enc original_filename enc original_filename
@ -2148,8 +2144,8 @@ let split_pdf
= =
let pdf_pages = Pdfpage.pages_of_pagetree pdf in let pdf_pages = Pdfpage.pages_of_pagetree pdf in
fast_write_split_pdfs fast_write_split_pdfs
enc 0 original_filename linearize preserve_objstm create_objstm enc 0 original_filename squeeze nobble spec pdf
squeeze nobble spec pdf (splitinto chunksize (indx pdf_pages)) pdf_pages (splitinto chunksize (indx pdf_pages)) pdf_pages
let get_pagespec () = let get_pagespec () =
match args.inputs with match args.inputs with
@ -3188,6 +3184,7 @@ let go () =
Pdfwrite.user_password = args.user; Pdfwrite.user_password = args.user;
Pdfwrite.permissions = banlist_of_args ()} Pdfwrite.permissions = banlist_of_args ()}
in in
args.create_objstm <- args.preserve_objstm;
split_pdf split_pdf
enc args.original_filename args.chunksize args.linearize args.cpdflin enc args.original_filename args.chunksize args.linearize args.cpdflin
args.preserve_objstm args.preserve_objstm (*yes--always create if preserving *) args.preserve_objstm args.preserve_objstm (*yes--always create if preserving *)
@ -3217,9 +3214,9 @@ let go () =
Pdfwrite.user_password = args.user; Pdfwrite.user_password = args.user;
Pdfwrite.permissions = banlist_of_args ()} Pdfwrite.permissions = banlist_of_args ()}
in in
args.create_objstm <- args.preserve_objstm;
split_at_bookmarks split_at_bookmarks
enc args.original_filename args.linearize args.cpdflin args.preserve_objstm enc args.original_filename args.squeeze nobble level output_spec pdf
(* Yes *)args.preserve_objstm args.squeeze nobble level 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"
end end