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

Font paths for -print-font-table

Browse Source
This commit is contained in:
John Whitington
2024-11-21 15:50:11 +00:00
parent 3bb5019c46
commit 7428bde280
1 changed files with 55 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
cpdffont.ml
View File

@ -144,25 +144,36 @@ let missing_fonts_return pdf range =
missing_fonts ~l pdf range; missing_fonts ~l pdf range;
!l !l
let font_from_name pdf fontname pagenumber =
try
let resources = ref (select pagenumber (Pdfpage.pages_of_pagetree pdf)).Pdfpage.resources in
let chain = ref (tl (String.split_on_char '/' fontname)) in
let font = ref Pdf.Null in
while !chain <> [] do
match !chain with
| [f] ->
font := unopt (Pdf.lookup_chain pdf !resources ["/Font"; ("/" ^ f)]);
chain := []
| x::xs ->
resources := unopt (Pdf.lookup_chain pdf !resources ["/XObject"; "/" ^ x; "/Resources"]);
chain := xs
| [] -> ()
done;
!font
with
_ -> Pdfe.log (Printf.sprintf "Not found: font %s on page %i\n" fontname pagenumber); Pdf.Null
let print_font_table pdf fontname pagenumber = let print_font_table pdf fontname pagenumber =
let page = try List.nth (Pdfpage.pages_of_pagetree pdf) (pagenumber - 1) with e -> error "page not found" in let fontdict = font_from_name pdf fontname pagenumber in
match Pdf.lookup_direct pdf "/Font" page.Pdfpage.resources with
| Some fontdict ->
let font =
begin match Pdf.lookup_direct pdf fontname fontdict with
| Some font -> font
| None ->
(* For each item in the fontdict, follow its value and find the basename. If it matches, return that font *) (* For each item in the fontdict, follow its value and find the basename. If it matches, return that font *)
let font = ref None in let font = ref (Some fontdict) in
iter iter
(fun (k, v) -> (fun (k, v) ->
match Pdf.lookup_direct pdf "/BaseFont" v with match Pdf.lookup_direct pdf "/BaseFont" v with
| Some (Pdf.Name n) when n = fontname -> font := Some v | Some (Pdf.Name n) when n = fontname -> font := Some v
| _ -> ()) | _ -> ())
(match fontdict with Pdf.Dictionary d -> d | _ -> []); (match fontdict with Pdf.Dictionary d -> d | _ -> []);
match !font with Some f -> f | None -> failwith (Printf.sprintf "print_font_encoding: font %s not found" fontname) let font = match !font with Some f -> f | None -> failwith (Printf.sprintf "print_font_encoding: font %s not found" fontname) in
end
in
let pdftextfont = Pdftext.read_font pdf font in let pdftextfont = Pdftext.read_font pdf font in
let charset = let charset =
match pdftextfont with match pdftextfont with
@ -206,26 +217,6 @@ let print_font_table pdf fontname pagenumber =
Printf.printf Printf.printf
"%i = U+%s (%s - %s) = %s\n" x unicodenumber utf8 unicodename glyphnames "%i = U+%s (%s - %s) = %s\n" x unicodenumber utf8 unicodename glyphnames
done done
| _ -> failwith "addtext: font not found for width"
let font_from_name pdf fontname pagenumber =
try
let resources = ref (select pagenumber (Pdfpage.pages_of_pagetree pdf)).Pdfpage.resources in
let chain = ref (tl (String.split_on_char '/' fontname)) in
let font = ref Pdf.Null in
while !chain <> [] do
match !chain with
| [f] ->
font := unopt (Pdf.lookup_chain pdf !resources ["/Font"; ("/" ^ f)]);
chain := []
| x::xs ->
resources := unopt (Pdf.lookup_chain pdf !resources ["/XObject"; "/" ^ x; "/Resources"]);
chain := xs
| [] -> ()
done;
!font
with
_ -> Pdfe.log (Printf.sprintf "Not found: font %s on page %i\n" fontname pagenumber); Pdf.Null
let extract_fontfile pagenumber fontname filename pdf = let extract_fontfile pagenumber fontname filename pdf =
match Pdftext.read_font pdf (font_from_name pdf fontname pagenumber) with match Pdftext.read_font pdf (font_from_name pdf fontname pagenumber) with