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

Clean up duplicated ppstub

Browse Source
This commit is contained in:
John Whitington
2021-12-27 15:20:07 +00:00
parent 187ef76262
commit b6c5439829
3 changed files with 4 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
cpdfannot.ml
View File

@@ -1,9 +1,5 @@
open Pdfutil
(* 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)
(* \section{List annotations} *)
let get_annotation_string encoding pdf annot =
match Pdf.lookup_direct pdf "/Contents" annot with
@@ -185,4 +181,4 @@ let remove_annotations range pdf =
else
page
in
Cpdfpage.process_pages (ppstub remove_annotations_page) pdf range
Cpdfpage.process_pages (Cpdfutil.ppstub remove_annotations_page) pdf range