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

Beginnings of support for transforming bookmark destinations

This commit is contained in:
John Whitington 2021-05-27 17:31:12 +01:00
parent d57602e5e5
commit 3073c74367
4 changed files with 57 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Changes
View File

@ -3,12 +3,12 @@ Version 2.4 (June 2021)
o New operation -extract-images o New operation -extract-images
o Optional Content Groups now preserved when merging / stamping pages 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 Vendored in tiny_json from Yoshihiro Imai via Jan Furuse
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 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
Version 2.3 (patchlevel 1, December 2019) Version 2.3 (patchlevel 1, December 2019)

79
cpdf.ml
View File

@ -590,15 +590,20 @@ let expand_date = function
| "now" -> Cpdfstrftime.strftime "D:%Y%m%d%H%M%S" | "now" -> Cpdfstrftime.strftime "D:%Y%m%d%H%M%S"
| x -> x | x -> x
(* For uses of process_pages which don't need to deal with matrices, this
function transforms into one which returns the identity matrix *)
let ppstub f n p = (f n p, n, Pdftransform.i_matrix)
let process_pages f pdf range = let process_pages f pdf range =
let pages = Pdfpage.pages_of_pagetree pdf in let pages = Pdfpage.pages_of_pagetree pdf in
let pages' = let pages', pagenumbers, matrices = (* new page objects, page number, matrix *)
map2 split3
(fun n p -> if mem n range then f n p else p) (map2
(ilist 1 (length pages)) (fun n p -> if mem n range then f n p else (p, n, Pdftransform.i_matrix))
pages (ilist 1 (length pages))
pages)
in in
Pdfpage.change_pages true pdf pages' Pdfpage.change_pages ~matrices:(combine pagenumbers matrices) true pdf pages'
let iter_pages f pdf range = let iter_pages f pdf range =
let pages = Pdfpage.pages_of_pagetree pdf in let pages = Pdfpage.pages_of_pagetree pdf in
@ -1923,7 +1928,7 @@ let addtext
if metrics then if metrics then
(ignore (iter_pages (fun a b -> ignore (addtext_page a b)) pdf pages); pdf) (ignore (iter_pages (fun a b -> ignore (addtext_page a b)) pdf pages); pdf)
else else
process_pages addtext_page pdf pages process_pages (ppstub addtext_page) pdf pages
(* Prev is a list of lists of characters *) (* Prev is a list of lists of characters *)
let split_at_newline t = let split_at_newline t =
@ -2059,7 +2064,7 @@ let removetext range pdf =
let ops = Pdfops.parse_operators pdf page.Pdfpage.resources page.Pdfpage.content in let ops = Pdfops.parse_operators pdf page.Pdfpage.resources page.Pdfpage.content in
[Pdfops.stream_of_ops (remove_stamps [] ops)]} [Pdfops.stream_of_ops (remove_stamps [] ops)]}
in in
process_pages removetext_page pdf range process_pages (ppstub removetext_page) pdf range
(* \section{Padding with blank pages.} *) (* \section{Padding with blank pages.} *)
let insert_after pos page pages = let insert_after pos page pages =
@ -2388,7 +2393,7 @@ let shift_page ?(fast=false) dxdylist pdf pnum page =
Pdfpage.prepend_operators pdf [transform_op] ~fast page Pdfpage.prepend_operators pdf [transform_op] ~fast page
let shift_pdf ?(fast=false) dxdylist pdf range = let shift_pdf ?(fast=false) dxdylist pdf range =
process_pages (shift_page ~fast dxdylist pdf) pdf range process_pages (ppstub (shift_page ~fast dxdylist pdf)) pdf range
(* Change a page's media box so its minimum x and y are 0, making other (* Change a page's media box so its minimum x and y are 0, making other
operations simpler to think about. Any shift that is done is reflected in operations simpler to think about. Any shift that is done is reflected in
@ -2420,14 +2425,14 @@ let vflip_pdf ?(fast=false) pdf range =
Pdftransform.matrix_of_op Pdftransform.matrix_of_op
(Pdftransform.Scale ((0., ((miny +. maxy) /. 2.)), 1., -.1.)) (Pdftransform.Scale ((0., ((miny +. maxy) /. 2.)), 1., -.1.))
in in
process_pages (flip_page ~fast transform_op pdf) pdf range process_pages (ppstub (flip_page ~fast transform_op pdf)) pdf range
let hflip_pdf ?(fast=false) pdf range = let hflip_pdf ?(fast=false) pdf range =
let transform_op minx _ maxx _ = let transform_op minx _ maxx _ =
Pdftransform.matrix_of_op Pdftransform.matrix_of_op
(Pdftransform.Scale (((minx +. maxx) /. 2., 0.), -.1., 1.)) (Pdftransform.Scale (((minx +. maxx) /. 2., 0.), -.1., 1.))
in in
process_pages (flip_page ~fast transform_op pdf) pdf range process_pages (ppstub (flip_page ~fast transform_op pdf)) pdf range
let stamp_shift_of_position topline midline sw sh w h p = let stamp_shift_of_position topline midline sw sh w h p =
let half x = x /. 2. let half x = x /. 2.
@ -2806,7 +2811,7 @@ let set_mediabox xywhlist pdf range =
[Pdf.Real x; Pdf.Real y; [Pdf.Real x; Pdf.Real y;
Pdf.Real (x +. w); Pdf.Real (y +. h)])} Pdf.Real (x +. w); Pdf.Real (y +. h)])}
in in
process_pages crop_page pdf range process_pages (ppstub crop_page) pdf range
(* Just used by cpdflib for historical reasons *) (* Just used by cpdflib for historical reasons *)
let setBox box minx maxx miny maxy pdf range = let setBox box minx maxx miny maxy pdf range =
@ -2817,7 +2822,7 @@ let setBox box minx maxx miny maxy pdf range =
page.Pdfpage.rest box page.Pdfpage.rest box
(Pdf.Array [Pdf.Real minx; Pdf.Real miny; Pdf.Real maxx; Pdf.Real maxy])} (Pdf.Array [Pdf.Real minx; Pdf.Real miny; Pdf.Real maxx; Pdf.Real maxy])}
in in
process_pages set_box_page pdf range process_pages (ppstub set_box_page) pdf range
(* \section{Cropping} *) (* \section{Cropping} *)
let crop_pdf ?(box="/CropBox") xywhlist pdf range = let crop_pdf ?(box="/CropBox") xywhlist pdf range =
@ -2832,7 +2837,7 @@ let crop_pdf ?(box="/CropBox") xywhlist pdf range =
[Pdf.Real x; Pdf.Real y; [Pdf.Real x; Pdf.Real y;
Pdf.Real (x +. w); Pdf.Real (y +. h)])))} Pdf.Real (x +. w); Pdf.Real (y +. h)])))}
in in
process_pages crop_page pdf range process_pages (ppstub crop_page) pdf range
(* Clip a page to one of its boxes, or the media box if that box is not (* Clip a page to one of its boxes, or the media box if that box is not
* present. This is a hard clip, done by using a clipping rectangle, so that * present. This is a hard clip, done by using a clipping rectangle, so that
@ -2840,7 +2845,7 @@ let crop_pdf ?(box="/CropBox") xywhlist pdf range =
* *) * *)
let hard_box pdf range boxname mediabox_if_missing fast = let hard_box pdf range boxname mediabox_if_missing fast =
process_pages process_pages
(fun pagenum page -> (ppstub (fun pagenum page ->
let minx, miny, maxx, maxy = let minx, miny, maxx, maxy =
if boxname = "/MediaBox" then if boxname = "/MediaBox" then
Pdf.parse_rectangle page.Pdfpage.mediabox Pdf.parse_rectangle page.Pdfpage.mediabox
@ -2853,7 +2858,7 @@ let hard_box pdf range boxname mediabox_if_missing fast =
else error (Printf.sprintf "hard_box: box %s not found" boxname) else error (Printf.sprintf "hard_box: box %s not found" boxname)
in in
let ops = [Pdfops.Op_re (minx, miny, maxx -. minx, maxy -. miny); Pdfops.Op_W; Pdfops.Op_n] in let ops = [Pdfops.Op_re (minx, miny, maxx -. minx, maxy -. miny); Pdfops.Op_W; Pdfops.Op_n] in
Pdfpage.prepend_operators pdf ops ~fast:fast page) Pdfpage.prepend_operators pdf ops ~fast:fast page))
pdf pdf
range range
@ -2863,7 +2868,7 @@ let remove_cropping_pdf pdf range =
Pdfpage.rest = Pdfpage.rest =
(Pdf.remove_dict_entry page.Pdfpage.rest "/CropBox")} (Pdf.remove_dict_entry page.Pdfpage.rest "/CropBox")}
in in
process_pages remove_cropping_page pdf range process_pages (ppstub remove_cropping_page) pdf range
let remove_trim_pdf pdf range = let remove_trim_pdf pdf range =
let remove_trim_page _ page = let remove_trim_page _ page =
@ -2871,7 +2876,7 @@ let remove_trim_pdf pdf range =
Pdfpage.rest = Pdfpage.rest =
(Pdf.remove_dict_entry page.Pdfpage.rest "/TrimBox")} (Pdf.remove_dict_entry page.Pdfpage.rest "/TrimBox")}
in in
process_pages remove_trim_page pdf range process_pages (ppstub remove_trim_page) pdf range
let remove_art_pdf pdf range = let remove_art_pdf pdf range =
let remove_art_page _ page = let remove_art_page _ page =
@ -2879,7 +2884,7 @@ let remove_art_pdf pdf range =
Pdfpage.rest = Pdfpage.rest =
(Pdf.remove_dict_entry page.Pdfpage.rest "/ArtBox")} (Pdf.remove_dict_entry page.Pdfpage.rest "/ArtBox")}
in in
process_pages remove_art_page pdf range process_pages (ppstub remove_art_page) pdf range
let remove_bleed_pdf pdf range = let remove_bleed_pdf pdf range =
let remove_bleed_page _ page = let remove_bleed_page _ page =
@ -2887,7 +2892,7 @@ let remove_bleed_pdf pdf range =
Pdfpage.rest = Pdfpage.rest =
(Pdf.remove_dict_entry page.Pdfpage.rest "/BleedBox")} (Pdf.remove_dict_entry page.Pdfpage.rest "/BleedBox")}
in in
process_pages remove_bleed_page pdf range process_pages (ppstub remove_bleed_page) pdf range
(* \section{Rotating pages} *) (* \section{Rotating pages} *)
let rotate_pdf r pdf range = let rotate_pdf r pdf range =
@ -2895,14 +2900,14 @@ let rotate_pdf r pdf range =
{page with Pdfpage.rotate = {page with Pdfpage.rotate =
Pdfpage.rotation_of_int r} Pdfpage.rotation_of_int r}
in in
process_pages rotate_page pdf range process_pages (ppstub rotate_page) pdf range
let rotate_pdf_by r pdf range = let rotate_pdf_by r pdf range =
let rotate_page_by _ page = let rotate_page_by _ page =
{page with Pdfpage.rotate = {page with Pdfpage.rotate =
Pdfpage.rotation_of_int ((Pdfpage.int_of_rotation page.Pdfpage.rotate + r) mod 360)} Pdfpage.rotation_of_int ((Pdfpage.int_of_rotation page.Pdfpage.rotate + r) mod 360)}
in in
process_pages rotate_page_by pdf range process_pages (ppstub rotate_page_by) pdf range
let rotate_page_contents ~fast rotpoint r pdf _ page = let rotate_page_contents ~fast rotpoint r pdf _ page =
let rotation_point = let rotation_point =
@ -2925,7 +2930,7 @@ let rotate_page_contents ~fast rotpoint r pdf _ page =
Pdfpage.prepend_operators pdf [transform_op] ~fast page Pdfpage.prepend_operators pdf [transform_op] ~fast page
let rotate_contents ?(fast=false) r pdf range = let rotate_contents ?(fast=false) r pdf range =
process_pages (rotate_page_contents ~fast None r pdf) pdf range process_pages (ppstub (rotate_page_contents ~fast None r pdf)) pdf range
(* Return the pages from the pdf in the range, unordered. *) (* Return the pages from the pdf in the range, unordered. *)
let select_pages range pdf = let select_pages range pdf =
@ -2976,7 +2981,7 @@ let upright ?(fast=false) range pdf =
let page = transform_contents ~fast tr pdf page in let page = transform_contents ~fast tr pdf page in
rectify_boxes ~fast pdf {page with Pdfpage.rotate = Pdfpage.Rotate0} rectify_boxes ~fast pdf {page with Pdfpage.rotate = Pdfpage.Rotate0}
in in
process_pages (upright_page pdf) pdf range process_pages (ppstub (upright_page pdf)) pdf range
(* \section{Scale page data} *) (* \section{Scale page data} *)
let scale_pdf ?(fast=false) sxsylist pdf range = let scale_pdf ?(fast=false) sxsylist pdf range =
@ -2995,7 +3000,7 @@ let scale_pdf ?(fast=false) sxsylist pdf range =
transform_annotations pdf matrix page.Pdfpage.rest; transform_annotations pdf matrix page.Pdfpage.rest;
Pdfpage.prepend_operators pdf ~fast [transform_op] page Pdfpage.prepend_operators pdf ~fast [transform_op] page
in in
process_pages scale_page pdf range process_pages (ppstub scale_page) pdf range
(* Scale to fit page of size x * y *) (* Scale to fit page of size x * y *)
let scale_to_fit_pdf ?(fast=false) position input_scale xylist op pdf range = let scale_to_fit_pdf ?(fast=false) position input_scale xylist op pdf range =
@ -3036,7 +3041,7 @@ let scale_to_fit_pdf ?(fast=false) position input_scale xylist op pdf range =
Pdfpage.prepend_operators pdf [Pdfops.Op_cm matrix] ~fast Pdfpage.prepend_operators pdf [Pdfops.Op_cm matrix] ~fast
(change_pattern_matrices_page pdf (Pdftransform.matrix_invert matrix) page) (change_pattern_matrices_page pdf (Pdftransform.matrix_invert matrix) page)
in in
process_pages scale_page_to_fit pdf range process_pages (ppstub scale_page_to_fit) pdf range
(* Scale contents *) (* Scale contents *)
@ -3072,7 +3077,7 @@ let scale_page_contents ?(fast=false) scale position pdf _ page =
Pdfpage.prepend_operators pdf [transform_op] ~fast page Pdfpage.prepend_operators pdf [transform_op] ~fast page
let scale_contents ?(fast=false) position scale pdf range = let scale_contents ?(fast=false) position scale pdf range =
process_pages (scale_page_contents ~fast scale position pdf) pdf range process_pages (ppstub (scale_page_contents ~fast scale position pdf)) pdf range
(* \section{List annotations} *) (* \section{List annotations} *)
let get_annotation_string encoding pdf annot = let get_annotation_string encoding pdf annot =
@ -3941,7 +3946,7 @@ let blacktext (r, g, b) range pdf =
process_xobjects pdf page (blacktext_ops (r, g, b)); process_xobjects pdf page (blacktext_ops (r, g, b));
{page with Pdfpage.content = content'} {page with Pdfpage.content = content'}
in in
process_pages blacktext_page pdf range process_pages (ppstub blacktext_page) pdf range
(* \section{Blacken lines} *) (* \section{Blacken lines} *)
let blacklines_ops (r, g, b) pdf resources content = let blacklines_ops (r, g, b) pdf resources content =
@ -3967,7 +3972,7 @@ let blacklines (r, g, b) range pdf =
process_xobjects pdf page (blacklines_ops (r, g, b)); process_xobjects pdf page (blacklines_ops (r, g, b));
{page with Pdfpage.content = content'} {page with Pdfpage.content = content'}
in in
process_pages blacklines_page pdf range process_pages (ppstub blacklines_page) pdf range
(* \section{Blacken Fills} *) (* \section{Blacken Fills} *)
let blackfills_ops (r, g, b) pdf resources content = let blackfills_ops (r, g, b) pdf resources content =
@ -3993,7 +3998,7 @@ let blackfills (r, g, b) range pdf =
process_xobjects pdf page (blackfills_ops (r, g, b)); process_xobjects pdf page (blackfills_ops (r, g, b));
{page with Pdfpage.content = content'} {page with Pdfpage.content = content'}
in in
process_pages blackfills_page pdf range process_pages (ppstub blackfills_page) pdf range
(* \section{Set a minimum line width to avoid dropout} *) (* \section{Set a minimum line width to avoid dropout} *)
let thinlines range width pdf = let thinlines range width pdf =
@ -4068,7 +4073,7 @@ let thinlines range width pdf =
let content' = [Pdfops.stream_of_ops operators] in let content' = [Pdfops.stream_of_ops operators] in
{page with Pdfpage.content = content'} {page with Pdfpage.content = content'}
in in
process_pages thinpage pdf range process_pages (ppstub thinpage) pdf range
(* \section{Remove annotations} *) (* \section{Remove annotations} *)
let remove_annotations range pdf = let remove_annotations range pdf =
@ -4081,7 +4086,7 @@ let remove_annotations range pdf =
else else
page page
in in
process_pages remove_annotations_page pdf range process_pages (ppstub remove_annotations_page) pdf range
(* \section{Making draft documents} *) (* \section{Making draft documents} *)
@ -4283,7 +4288,7 @@ let custom_csp1_page pdf _ page =
Pdfpage.rest = Pdf.add_dict_entry page.Pdfpage.rest "/CropBox" new_mediabox} Pdfpage.rest = Pdf.add_dict_entry page.Pdfpage.rest "/CropBox" new_mediabox}
let custom_csp1 pdf = let custom_csp1 pdf =
process_pages (custom_csp1_page pdf) pdf (ilist 1 (Pdfpage.endpage pdf)) process_pages (ppstub (custom_csp1_page pdf)) pdf (ilist 1 (Pdfpage.endpage pdf))
let custom_csp2 f pdf = let custom_csp2 f pdf =
let page = hd (Pdfpage.pages_of_pagetree pdf) in let page = hd (Pdfpage.pages_of_pagetree pdf) in
@ -4373,7 +4378,7 @@ let append_page_content_page fast s before pdf n page =
pdf ops ~fast page pdf ops ~fast page
let append_page_content s before fast range pdf = let append_page_content s before fast range pdf =
process_pages (append_page_content_page fast s before pdf) pdf range process_pages (ppstub (append_page_content_page fast s before pdf)) pdf range
(* 1. Get list of indirects of all OCGs from the /OCProperties, and their textual names (* 1. Get list of indirects of all OCGs from the /OCProperties, and their textual names
@ -4547,7 +4552,7 @@ let show_boxes_page fast pdf _ page =
Pdfpage.postpend_operators pdf ops ~fast page Pdfpage.postpend_operators pdf ops ~fast page
let show_boxes ?(fast=false) pdf range = let show_boxes ?(fast=false) pdf range =
process_pages (show_boxes_page fast pdf) pdf range process_pages (ppstub (show_boxes_page fast pdf)) pdf range
let allowance = 9. let allowance = 9.
@ -4577,7 +4582,7 @@ let trim_marks_page fast pdf n page =
| _, _ -> Printf.eprintf "warning: no /TrimBox found on page %i\n" n; page | _, _ -> Printf.eprintf "warning: no /TrimBox found on page %i\n" n; page
let trim_marks ?(fast=false) pdf range = let trim_marks ?(fast=false) pdf range =
process_pages (trim_marks_page fast pdf) pdf range process_pages (ppstub (trim_marks_page fast pdf)) pdf range
let rec remove_all_text_ops pdf resources content = let rec remove_all_text_ops pdf resources content =
let is_textop = function let is_textop = function
@ -4641,7 +4646,7 @@ let remove_clipping pdf range =
process_xobjects pdf page remove_clipping_ops; process_xobjects pdf page remove_clipping_ops;
{page with Pdfpage.content = content'} {page with Pdfpage.content = content'}
in in
process_pages remove_clipping_page pdf range process_pages (ppstub remove_clipping_page) pdf range
(* Image resolution *) (* Image resolution *)
type xobj = type xobj =

3
cpdf.mli
View File

@ -44,7 +44,8 @@ val endpage_io : ?revision:int -> Pdfio.input -> string option -> string option
(** Given a function from page number and page to page, a document, and a list (** Given a function from page number and page to page, a document, and a list
of page numbers to apply it to, apply the function to all those pages. *) of page numbers to apply it to, apply the function to all those pages. *)
val process_pages : (int -> Pdfpage.t -> Pdfpage.t) -> Pdf.t -> int list -> Pdf.t val process_pages : (int -> Pdfpage.t -> Pdfpage.t * int * Pdftransform.transform_matrix) ->
Pdf.t -> int list -> Pdf.t
(** Same as [process_pages], but iterate rather than map. *) (** Same as [process_pages], but iterate rather than map. *)
val iter_pages : (int -> Pdfpage.t -> unit) -> Pdf.t -> int list -> unit val iter_pages : (int -> Pdfpage.t -> unit) -> Pdf.t -> int list -> unit

22
cpdfcommand.ml
View File

@ -43,7 +43,6 @@ let optstring = function
| "" -> None | "" -> None
| x -> Some x | x -> Some x
(* To prevent problems when piping on Windows *)
let _ = let _ =
set_binary_mode_in stdin true; set_binary_mode_in stdin true;
set_binary_mode_out stdout true set_binary_mode_out stdout true
@ -782,9 +781,12 @@ let rec decrypt_if_necessary (_, _, user_pw, owner_pw, was_dec_with_owner, _) op
if args.debugcrypt then Printf.printf "Failed to decrypt with user password: raising soft_error"; if args.debugcrypt then Printf.printf "Failed to decrypt with user password: raising soft_error";
soft_error "Failed to decrypt file: wrong password?" soft_error "Failed to decrypt file: wrong password?"
(* Duplicated from cpdf.ml -> fix *)
let ppstub f n p = (f n p, n, Pdftransform.i_matrix)
let nobble pdf = let nobble pdf =
if not demo then pdf else if not demo then pdf else
Cpdf.process_pages (Cpdf.nobble_page pdf) pdf (ilist 1 (Pdfpage.endpage pdf)) Cpdf.process_pages (ppstub (Cpdf.nobble_page pdf)) pdf (ilist 1 (Pdfpage.endpage pdf))
(* Output Page Count *) (* Output Page Count *)
let output_page_count pdf = let output_page_count pdf =
@ -2237,7 +2239,7 @@ and specs =
] ]
and usage_msg = and usage_msg =
"Syntax: cpdf <op> <op-specific arguments> [-o <output file>] <input files>\n\n\ "Syntax: cpdf [<operation>] <input files> [-o <output file>]\n\n\
This is a copyrighted, commercial program, and may NOT be freely copied.\n\n\ This is a copyrighted, commercial program, and may NOT be freely copied.\n\n\
Version " ^ string_of_int major_version ^ "." ^ string_of_int minor_version ^ " " ^ version_date ^ "\n\n\ Version " ^ string_of_int major_version ^ "." ^ string_of_int minor_version ^ " " ^ version_date ^ "\n\n\
To buy, visit http://www.coherentpdf.com/\n\n\ To buy, visit http://www.coherentpdf.com/\n\n\
@ -2975,10 +2977,10 @@ let getencryption pdf =
(* If a cropbox exists, make it the mediabox. If not, change nothing. *) (* If a cropbox exists, make it the mediabox. If not, change nothing. *)
let copy_cropbox_to_mediabox pdf range = let copy_cropbox_to_mediabox pdf range =
Cpdf.process_pages Cpdf.process_pages
(fun _ page -> (ppstub (fun _ page ->
match Pdf.lookup_direct pdf "/CropBox" page.Pdfpage.rest with match Pdf.lookup_direct pdf "/CropBox" page.Pdfpage.rest with
| Some pdfobject -> {page with Pdfpage.mediabox = Pdf.direct pdf pdfobject} | Some pdfobject -> {page with Pdfpage.mediabox = Pdf.direct pdf pdfobject}
| None -> page) | None -> page))
pdf pdf
range range
@ -3146,7 +3148,7 @@ the contents of the mediabox will be used if the from fox is not available. If
mediabox_is_missing is false, the page is unaltered. *) mediabox_is_missing is false, the page is unaltered. *)
let copy_box f t mediabox_if_missing pdf range = let copy_box f t mediabox_if_missing pdf range =
Cpdf.process_pages Cpdf.process_pages
(fun _ page -> (ppstub (fun _ page ->
if f = "/MediaBox" then if f = "/MediaBox" then
{page with Pdfpage.rest = {page with Pdfpage.rest =
(Pdf.add_dict_entry page.Pdfpage.rest t (page.Pdfpage.mediabox))} (Pdf.add_dict_entry page.Pdfpage.rest t (page.Pdfpage.mediabox))}
@ -3161,7 +3163,7 @@ let copy_box f t mediabox_if_missing pdf range =
| None -> | None ->
if mediabox_if_missing if mediabox_if_missing
then {page with Pdfpage.rest = Pdf.add_dict_entry page.Pdfpage.rest t page.Pdfpage.mediabox} then {page with Pdfpage.rest = Pdf.add_dict_entry page.Pdfpage.rest t page.Pdfpage.mediabox}
else page) else page))
pdf pdf
range range
@ -3280,7 +3282,7 @@ let remove_unused_resources_page pdf n page =
{page with Pdfpage.resources = Pdf.add_dict_entry page.Pdfpage.resources "/XObject" xobjdict} {page with Pdfpage.resources = Pdf.add_dict_entry page.Pdfpage.resources "/XObject" xobjdict}
let remove_unused_resources pdf = let remove_unused_resources pdf =
Cpdf.process_pages (remove_unused_resources_page pdf) pdf (ilist 1 (Pdfpage.endpage pdf)) Cpdf.process_pages (ppstub (remove_unused_resources_page pdf)) pdf (ilist 1 (Pdfpage.endpage pdf))
(* Extracts font to font.dat in CWD. *) (* Extracts font to font.dat in CWD. *)
let extract_fontfile pagenumber fontname pdf = let extract_fontfile pagenumber fontname pdf =
@ -3382,7 +3384,7 @@ let addrectangle
then Pdfpage.prepend_operators pdf ops ~fast:fast page then Pdfpage.prepend_operators pdf ops ~fast:fast page
else Pdfpage.postpend_operators pdf ops ~fast:fast page else Pdfpage.postpend_operators pdf ops ~fast:fast page
in in
Cpdf.process_pages addrectangle_page pdf range Cpdf.process_pages (ppstub addrectangle_page) pdf range
let print_spot_colour n s = let print_spot_colour n s =
Printf.printf "%i %s\n" n s Printf.printf "%i %s\n" n s
@ -3448,7 +3450,7 @@ let write_json output pdf =
| Stdout -> | Stdout ->
CpdfwriteJSON.write stdout args.jsonparsecontentstreams args.jsonnostreamdata pdf CpdfwriteJSON.write stdout args.jsonparsecontentstreams args.jsonnostreamdata pdf
| File filename -> | File filename ->
let f = open_out_bin filename in let f = open_out filename in
CpdfwriteJSON.write f args.jsonparsecontentstreams args.jsonnostreamdata pdf; CpdfwriteJSON.write f args.jsonparsecontentstreams args.jsonnostreamdata pdf;
close_out f close_out f