fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

Plumb through -preserve-actions

Browse Source
This commit is contained in:
John Whitington
2025-03-14 18:58:05 +00:00
parent ad2aeaa3d5
commit b167d59d80
3 changed files with 13 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
cpdfbookmarks.ml
View File

@ -218,8 +218,8 @@ let process_string encoding s =
| Cpdfmetadata.Raw -> s
(* List the bookmarks in the given range to the given output *)
let list_bookmarks ~json encoding range pdf output =
let bookmarks = Pdfmarks.read_bookmarks ~preserve_actions:false pdf in
let list_bookmarks ~json ~json_preserve_actions encoding range pdf output =
let bookmarks = Pdfmarks.read_bookmarks ~preserve_actions:(json && json_preserve_actions) pdf in
let refnums = Pdf.page_reference_numbers pdf in
let rangetable = hashset_of_list range in
let range_is_all = range = ilist 1 (Pdfpage.endpage pdf) in

2
cpdfbookmarks.mli
View File

@ -12,7 +12,7 @@ val add_bookmarks : json:bool -> bool -> Pdfio.input -> Pdf.t -> Pdf.t
(** [list_bookmarks encoding range pdf output] lists the bookmarks to the given
output in the format specified in cpdfmanual.pdf. In the new JSON format if
chosen. *)
val list_bookmarks : json:bool -> Cpdfmetadata.encoding -> int list -> Pdf.t -> Pdfio.output -> unit
val list_bookmarks : json:bool -> json_preserve_actions:bool -> Cpdfmetadata.encoding -> int list -> Pdf.t -> Pdfio.output -> unit
(** Get bookmarks in JSON format. *)
val get_bookmarks_json : Pdf.t -> Pdfio.bytes

14
cpdfcommand.ml
View File

@ -576,7 +576,8 @@ type args =
mutable rast_downsample : bool;
mutable replace_stream_with : string;
mutable output_unit : Pdfunits.t;
mutable dot_leader : bool}
mutable dot_leader : bool;
mutable preserve_actions : bool}
let args =
{op = None;
@ -726,7 +727,8 @@ let args =
rast_downsample = false;
replace_stream_with = "";
output_unit = Pdfunits.PdfPoint;
dot_leader = false}
dot_leader = false;
preserve_actions = false}
(* Do not reset original_filename or cpdflin or was_encrypted or
was_decrypted_with_owner or recrypt or producer or creator or path_to_* or
@ -862,7 +864,8 @@ let reset_arguments () =
args.rast_downsample <- false;
args.replace_stream_with <- "";
args.output_unit <- Pdfunits.PdfPoint;
args.dot_leader <- false
args.dot_leader <- false;
args.preserve_actions <- false
(* Prefer a) the one given with -cpdflin b) a local cpdflin, c) otherwise assume
installed at a system place *)
@ -2281,6 +2284,9 @@ let specs =
("-list-bookmarks-json",
Arg.Unit setlistbookmarksjson,
" List Bookmarks in JSON format");
("-preserve-actions",
Arg.Unit (fun () -> args.preserve_actions <- true),
" Preserve actions when listing bookmarks");
("-remove-bookmarks",
Arg.Unit (setop RemoveBookmarks),
" Remove bookmarks from a file");
@ -3985,7 +3991,7 @@ let go () =
| (_, pagespec, _, _, _, _)::_, _ ->
let pdf = get_single_pdf args.op true in
let range = parse_pagespec_allow_empty pdf pagespec in
Cpdfbookmarks.list_bookmarks ~json:args.format_json args.encoding range pdf (Pdfio.output_of_channel stdout);
Cpdfbookmarks.list_bookmarks ~json:args.format_json ~json_preserve_actions:args.preserve_actions args.encoding range pdf (Pdfio.output_of_channel stdout);
flush stdout
| _ -> error "list-bookmarks: bad command line"
end