fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2024-12-22 15:05:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

warning 39

Browse Source
This commit is contained in:
John Whitington 2024-02-27 15:57:31 +00:00
parent e7bdd33e2e
commit 7b43c87458
4 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cpdfcommand.ml
View File

@ -924,7 +924,7 @@ let operation_allowed pdf banlist op =
if args.debugcrypt then Printf.printf "Permissions: %s\n" (getpermissions pdf);
not (banned banlist op)
let rec decrypt_if_necessary (_, _, user_pw, owner_pw, was_dec_with_owner, _) op pdf =
let decrypt_if_necessary (_, _, user_pw, owner_pw, was_dec_with_owner, _) op pdf =
if args.debugcrypt then
begin match op with
None -> flprint "decrypt_if_necessary: op = None\n"
@ -3286,7 +3286,7 @@ let rec split_max_search pdf s b p q =
then split_max_search pdf s b (half + 1) q
else split_max_search pdf s b p half
let rec split_max enc original_filename ~squeeze output_spec s pdf =
let split_max enc original_filename ~squeeze output_spec s pdf =
let outs = ref [] in
let p = ref 1 in
let endpage = Pdfpage.endpage pdf in

2
cpdfimage.ml
View File

@ -136,7 +136,7 @@ let extract_images_inner ~raw ?path_to_p2p ?path_to_im encoding serial pdf resou
in
iter2 (write_image ~raw ?path_to_p2p ?path_to_im pdf resources) names images
let rec extract_images_form_xobject ~raw ?path_to_p2p ?path_to_im encoding dedup dedup_per_page pdf serial stem pnum form =
let extract_images_form_xobject ~raw ?path_to_p2p ?path_to_im encoding dedup dedup_per_page pdf serial stem pnum form =
let resources =
match Pdf.lookup_direct pdf "/Resources" form with
Some (Pdf.Dictionary d) -> Pdf.Dictionary d

2
cpdfremovetext.ml
View File

@ -28,7 +28,7 @@ let removetext range pdf =
in
Cpdfpage.process_pages (Pdfpage.ppstub removetext_page) pdf range
let rec remove_all_text_ops pdf resources content =
let remove_all_text_ops pdf resources content =
let is_textop = function
Pdfops.Op_Tj _ | Pdfops.Op_' _ | Pdfops.Op_'' _ | Pdfops.Op_TJ _ -> true
| _ -> false

2
cpdftexttopdf.ml
View File

@ -1,6 +1,6 @@
open Pdfutil
let rec of_utf8_with_newlines fontpack fontsize t =
let of_utf8_with_newlines fontpack fontsize t =
let items = ref [] in
let currfont = ref ~-1 in
let codepoints = Pdftext.codepoints_of_utf8 t in