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

Report openaction in -info[-json]

This commit is contained in:
John Whitington 2024-11-07 18:23:07 +00:00
parent d7f8e6548b
commit 0831013474
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
cpdfmetadata.ml
View File

@ -213,7 +213,26 @@ let get_markinfo_item name pdf =
2. A /GoTo action with a /D destination - return the destination with number changed; 2. A /GoTo action with a /D destination - return the destination with number changed;
3. Something else - return the whole thing with no changes; 3. Something else - return the whole thing with no changes;
4. Not there - return `Null. *) 4. Not there - return `Null. *)
let get_open_action pdf = `Null let get_open_action pdf =
let rewrite_page a =
match a with
| Pdf.Array (Pdf.Indirect i::more) as x->
begin match position_1 i (Pdf.page_reference_numbers pdf) with
| Some i' -> Pdf.Array (Pdf.Integer i'::more)
| None -> x
end
| x -> x
in
let convert = Cpdfjson.json_of_object ~utf8:true pdf (fun _ -> ()) ~no_stream_data:true ~parse_content:false in
match Pdf.lookup_chain pdf pdf.Pdf.trailerdict ["/Root"; "/OpenAction"] with
| Some (Pdf.Array a) -> convert (rewrite_page (Pdf.Array a))
| Some (Pdf.Dictionary d) ->
begin match Pdf.lookup_direct pdf "/D" (Pdf.Dictionary d) with
| Some (Pdf.Array a) -> convert (rewrite_page (Pdf.Array a))
| _ -> convert (Pdf.Dictionary d)
end
| Some x -> convert x
| None -> `Null
let get_open_action_string pdf = let get_open_action_string pdf =
match get_open_action pdf with match get_open_action pdf with