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 2023-05-03 13:53:48 +01:00
parent 829edb6460
commit f192a99a35
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
cpdfcommand.ml
View File

@ -4468,7 +4468,9 @@ let go () =
if !tdeep <> 0 then error "Unmatched -bt / -et" else if !tdeep <> 0 then error "Unmatched -bt / -et" else
let pdf = get_single_pdf args.op false in let pdf = get_single_pdf args.op false in
let range = parse_pagespec_allow_empty pdf (get_pagespec ()) in let range = parse_pagespec_allow_empty pdf (get_pagespec ()) in
write_pdf false (Cpdfdraw.draw ~filename:args.original_filename ~bates:args.bates ~batespad:args.batespad args.fast range pdf (rev (Hashtbl.find drawops "_"))) write_pdf
false
(Cpdfdraw.draw ~filename:args.original_filename ~bates:args.bates ~batespad:args.batespad args.fast range pdf (rev (Hashtbl.find drawops "_")))
| Some (Composition json) -> | Some (Composition json) ->
let pdf = get_single_pdf args.op false in let pdf = get_single_pdf args.op false in
let filesize = let filesize =
@ -4574,7 +4576,8 @@ let go_withargv argv =
args.inputs <- rev (map addrange !output_pdfs) @ rev args.inputs; args.inputs <- rev (map addrange !output_pdfs) @ rev args.inputs;
output_pdfs := []; output_pdfs := [];
go (); go ();
Hashtbl.clear drawops Hashtbl.clear drawops;
Hashtbl.add drawops "_" []
) )
sets; sets;
flush stdout; (*r for Windows *) flush stdout; (*r for Windows *)

2
cpdfdraw.ml
View File

@ -189,7 +189,7 @@ let draw_single ~filename ~bates ~batespad fast range pdf drawops =
let pdf = ref pdf in let pdf = ref pdf in
iter2 iter2
(fun n s -> (fun n s ->
if mem n range then (Printf.printf "Adding ops to page %i\n" n; pdf := Cpdftweak.append_page_content s false fast [n] !pdf)) if mem n range then pdf := Cpdftweak.append_page_content s false fast [n] !pdf)
(ilist 1 endpage) (ilist 1 endpage)
ss; ss;
let pdf = !pdf in let pdf = !pdf in