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

Scaffolding for -draft-remove-only

This commit is contained in:
John Whitington 2019-07-09 16:31:45 +01:00
parent 5c7dcfcf30
commit cdf0950af1
3 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cpdf.ml
View File

@ -3988,7 +3988,7 @@ and remove_images_page boxes pdf page =
Pdfpage.resources = resources'}, pdf Pdfpage.resources = resources'}, pdf
(* Remove images from all pages in a document. *) (* Remove images from all pages in a document. *)
let draft boxes range pdf = let draft onlyremove boxes range pdf =
let pages = Pdfpage.pages_of_pagetree pdf in let pages = Pdfpage.pages_of_pagetree pdf in
let pagenums = indx pages in let pagenums = indx pages in
let pdf = ref pdf let pdf = ref pdf

2
cpdf.mli
View File

@ -421,7 +421,7 @@ val blacklines : float * float * float -> int list -> Pdf.t -> Pdf.t
val blackfills : float * float * float -> int list -> Pdf.t -> Pdf.t val blackfills : float * float * float -> int list -> Pdf.t -> Pdf.t
(** Remove images from a PDF, optionally adding crossed boxes. *) (** Remove images from a PDF, optionally adding crossed boxes. *)
val draft : bool -> int list -> Pdf.t -> Pdf.t val draft : string option -> bool -> int list -> Pdf.t -> Pdf.t
(** Squeeze a PDF *) (** Squeeze a PDF *)
val squeeze : ?logto:string -> Pdf.t -> unit val squeeze : ?logto:string -> Pdf.t -> unit

17
cpdfcommand.ml
View File

@ -420,7 +420,8 @@ type args =
mutable merge_add_bookmarks : bool; mutable merge_add_bookmarks : bool;
mutable merge_add_bookmarks_use_titles : bool; mutable merge_add_bookmarks_use_titles : bool;
mutable createpdf_pages : int; mutable createpdf_pages : int;
mutable createpdf_pagesize : Pdfpaper.t} mutable createpdf_pagesize : Pdfpaper.t;
mutable removeonly : string option}
let args = let args =
{op = None; {op = None;
@ -513,7 +514,8 @@ let args =
merge_add_bookmarks = false; merge_add_bookmarks = false;
merge_add_bookmarks_use_titles = false; merge_add_bookmarks_use_titles = false;
createpdf_pages = 1; createpdf_pages = 1;
createpdf_pagesize = Pdfpaper.a4} createpdf_pagesize = Pdfpaper.a4;
removeonly = None}
let reset_arguments () = let reset_arguments () =
args.op <- None; args.op <- None;
@ -596,7 +598,8 @@ let reset_arguments () =
args.merge_add_bookmarks <- false; args.merge_add_bookmarks <- false;
args.merge_add_bookmarks_use_titles <- false; args.merge_add_bookmarks_use_titles <- false;
args.createpdf_pages <- 1; args.createpdf_pages <- 1;
args.createpdf_pagesize <- Pdfpaper.a4 args.createpdf_pagesize <- Pdfpaper.a4;
args.removeonly <- None
(* Do not reset original_filename or cpdflin or was_encrypted or (* Do not reset original_filename or cpdflin or was_encrypted or
* was_decrypted_with_owner or recrypt or producer or creator or * was_decrypted_with_owner or recrypt or producer or creator or
* path_to_ghostscript or gs_malformed, since we want these to work across * path_to_ghostscript or gs_malformed, since we want these to work across
@ -1659,6 +1662,9 @@ let setcreatepdfpapersize s =
let w, h = parse_coordinate (Pdf.empty ()) s in let w, h = parse_coordinate (Pdf.empty ()) s in
Pdfpaper.make Pdfunits.PdfPoint w h Pdfpaper.make Pdfunits.PdfPoint w h
let setdraftremoveonly s =
args.removeonly <- Some s
(* Parse a control file, make an argv, and then make Arg parse it. *) (* Parse a control file, make an argv, and then make Arg parse it. *)
let rec make_control_argv_and_parse filename = let rec make_control_argv_and_parse filename =
control_args := !control_args @ parse_control_file filename control_args := !control_args @ parse_control_file filename
@ -2190,6 +2196,9 @@ and specs =
("-draft", ("-draft",
Arg.Unit (setop Draft), Arg.Unit (setop Draft),
" Remove images from the file"); " Remove images from the file");
("-draft-remove-only",
Arg.String setdraftremoveonly,
" Only remove named image");
("-boxes", ("-boxes",
Arg.Unit setboxes, Arg.Unit setboxes,
" Add crossed boxes to -draft option"); " Add crossed boxes to -draft option");
@ -4218,7 +4227,7 @@ let go () =
| Some Draft -> | Some Draft ->
let pdf = get_single_pdf args.op false in let pdf = get_single_pdf args.op false in
let range = parse_pagespec pdf (get_pagespec ()) in let range = parse_pagespec pdf (get_pagespec ()) in
write_pdf false (Cpdf.draft args.boxes range pdf) write_pdf false (Cpdf.draft args.removeonly args.boxes range pdf)
| Some (AddText text) -> | Some (AddText text) ->
let pdf = get_single_pdf args.op false in let pdf = get_single_pdf args.op false in
let range = parse_pagespec pdf (get_pagespec ()) in let range = parse_pagespec pdf (get_pagespec ()) in