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

-add-text now only a single caller to Cpdfembed

This commit is contained in:
John Whitington 2023-07-10 14:13:45 +01:00
parent 566b4ba304
commit 6cbfc84150
2 changed files with 103 additions and 124 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

224
cpdfaddtext.ml
View File

@ -2,13 +2,6 @@
open Pdfutil open Pdfutil
open Cpdferror open Cpdferror
(* Keep a record of charcodes used for font subsetting. *)
let used = null_hash ()
(* If we have used a TTF font, put its name and object number here. Then we
know we put it there, and can avoid writing it anew across ANDS. *)
let glob_pdfobjnum = null_hash ()
type color = type color =
Grey of float Grey of float
| RGB of float * float * float | RGB of float * float * float
@ -58,32 +51,24 @@ let colour_op_stroke = function
| CYMK (c, y, m, k) -> Pdfops.Op_K (c, y, m, k) | CYMK (c, y, m, k) -> Pdfops.Op_K (c, y, m, k)
let ops fontname longest_w x y rotate hoffset voffset outline linewidth unique_fontname unique_extgstatename colour fontsize text = let ops fontname longest_w x y rotate hoffset voffset outline linewidth unique_fontname unique_extgstatename colour fontsize text =
begin match Hashtbl.find used fontname with [Pdfops.Op_q;
| exception Not_found -> Pdfops.Op_BMC "/CPDFSTAMP";
let thisused = null_hash () in Pdfops.Op_cm
String.iter (fun x -> Hashtbl.replace thisused x ()) text; (Pdftransform.matrix_of_transform
Hashtbl.add used fontname thisused [Pdftransform.Translate (x -. hoffset, y -. voffset);
| thisused -> Pdftransform.Rotate ((0., 0.), rotate)]);
String.iter (fun x -> Hashtbl.replace thisused x ()) text; Pdfops.Op_BT;
end; ] @
[Pdfops.Op_q; (if outline then [Pdfops.Op_w linewidth; Pdfops.Op_Tr 1] else [Pdfops.Op_Tr 0]) @
Pdfops.Op_BMC "/CPDFSTAMP"; [colour_op colour; colour_op_stroke colour]
Pdfops.Op_cm @
(Pdftransform.matrix_of_transform (match unique_extgstatename with None -> [] | Some n -> [Pdfops.Op_gs n])
[Pdftransform.Translate (x -. hoffset, y -. voffset); @
Pdftransform.Rotate ((0., 0.), rotate)]); [Pdfops.Op_Tf (unique_fontname, fontsize);
Pdfops.Op_BT; Pdfops.Op_Tj text;
] @ Pdfops.Op_ET;
(if outline then [Pdfops.Op_w linewidth; Pdfops.Op_Tr 1] else [Pdfops.Op_Tr 0]) @ Pdfops.Op_EMC;
[colour_op colour; colour_op_stroke colour] Pdfops.Op_Q]
@
(match unique_extgstatename with None -> [] | Some n -> [Pdfops.Op_gs n])
@
[Pdfops.Op_Tf (unique_fontname, fontsize);
Pdfops.Op_Tj text;
Pdfops.Op_ET;
Pdfops.Op_EMC;
Pdfops.Op_Q]
type justification = LeftJustify | CentreJustify | RightJustify type justification = LeftJustify | CentreJustify | RightJustify
@ -234,6 +219,16 @@ let replace_pairs pdf endpage extract_text_font_size filename bates batespad num
then numstring then numstring
else implode (many '0' (w - String.length numstring)) ^ numstring))] else implode (many '0' (w - String.length numstring)) ^ numstring))]
let expand_lines text time pdf endpage extract_text_font_size filename bates batespad num page lines =
let expanded_lines =
map
(function text ->
process_text time text (replace_pairs pdf endpage extract_text_font_size filename bates batespad num page))
lines
in
(* process URLs for justification too *)
map (fun line -> fst (get_urls_line line)) expanded_lines
let addtext let addtext
time lines linewidth outline fast colour fontname encoding bates batespad time lines linewidth outline fast colour fontname encoding bates batespad
fontsize font fontpdfobj underneath position hoffset voffset text pages fontsize font fontpdfobj underneath position hoffset voffset text pages
@ -264,79 +259,70 @@ let addtext
| None -> Pdf.Dictionary [] | None -> Pdf.Dictionary []
| Some d -> d | Some d -> d
in in
let calc_textwidth text = let calc_textwidth text =
match font with match font with
| Some (Pdftext.StandardFont (f, _)) -> | Some (Pdftext.StandardFont (f, _)) ->
let rawwidth = let rawwidth =
Pdfstandard14.textwidth false encoding f text Pdfstandard14.textwidth false encoding f text
in
(float rawwidth *. fontsize) /. 1000.
| Some font ->
let rawwidth = width_of_text font text in
(rawwidth *. fontsize) /. 1000.
| None ->
let font =
match Pdf.lookup_direct pdf "/Font" page.Pdfpage.resources with
| Some fontdict ->
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 *)
let font = ref None in
iter
(fun (k, v) ->
match Pdf.lookup_direct pdf "/BaseFont" v with
| Some (Pdf.Name n) when n = fontname -> font := Some v
| _ -> ())
(match fontdict with Pdf.Dictionary d -> d | _ -> []);
match !font with Some f -> f | None -> failwith (Printf.sprintf "addtext: font %s not found" fontname)
end
| _ -> failwith "addtext: font not found for width"
in
let rawwidth = width_of_text (Pdftext.read_font pdf font) text in
(rawwidth *. fontsize) /. 1000.
in in
(float rawwidth *. fontsize) /. 1000.
| Some font ->
let rawwidth = width_of_text font text in
(rawwidth *. fontsize) /. 1000.
| None ->
let font =
match Pdf.lookup_direct pdf "/Font" page.Pdfpage.resources with
| Some fontdict ->
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 *)
let font = ref None in
iter
(fun (k, v) ->
match Pdf.lookup_direct pdf "/BaseFont" v with
| Some (Pdf.Name n) when n = fontname -> font := Some v
| _ -> ())
(match fontdict with Pdf.Dictionary d -> d | _ -> []);
match !font with Some f -> f | None -> failwith (Printf.sprintf "addtext: font %s not found" fontname)
end
| _ -> failwith "addtext: font not found for width"
in
let rawwidth = width_of_text (Pdftext.read_font pdf font) text in
(rawwidth *. fontsize) /. 1000.
in
let unique_fontname = Pdf.unique_key "F" fontdict in let unique_fontname = Pdf.unique_key "F" fontdict in
let ops, urls, x, y, hoffset, voffset, text, joffset = let ops, urls, x, y, hoffset, voffset, text, joffset =
let text = process_text time text (replace_pairs pdf endpage extract_text_font_size filename bates batespad num page) in let text = process_text time text (replace_pairs pdf endpage extract_text_font_size filename bates batespad num page) in
let text, urls = get_urls_line text in let text, urls = get_urls_line text in
let expanded_lines = expand_lines text time pdf endpage extract_text_font_size filename bates batespad num page lines in
let expanded_lines = let textwidth = calc_textwidth text
map and allwidths = map calc_textwidth expanded_lines in
(function text -> let longest_w = last (sort compare allwidths) in
process_text time text (replace_pairs pdf endpage extract_text_font_size filename bates batespad num page)) let joffset = find_justification_offsets longest_w textwidth position justification in
lines let mediabox =
in if cropbox then
let expanded_lines = (* process URLs for justification too *) match Pdf.lookup_direct pdf "/CropBox" page.Pdfpage.rest with
map (fun line -> fst (get_urls_line line)) expanded_lines | Some pdfobject -> Pdf.parse_rectangle pdf (Pdf.direct pdf pdfobject)
in | None -> Pdf.parse_rectangle pdf page.Pdfpage.mediabox
let textwidth = calc_textwidth text else
and allwidths = map calc_textwidth expanded_lines in Pdf.parse_rectangle pdf page.Pdfpage.mediabox
let longest_w = last (sort compare allwidths) in in
let joffset = find_justification_offsets longest_w textwidth position justification in let x, y, rotate = Cpdfposition.calculate_position false textwidth mediabox position in
let mediabox = let hoffset, voffset =
if cropbox then if position = Diagonal || position = ReverseDiagonal
match Pdf.lookup_direct pdf "/CropBox" page.Pdfpage.rest with then -. (cos ((pi /. 2.) -. rotate) *. voffset), sin ((pi /. 2.) -. rotate) *. voffset
| Some pdfobject -> Pdf.parse_rectangle pdf (Pdf.direct pdf pdfobject) else hoffset, voffset
| None -> Pdf.parse_rectangle pdf page.Pdfpage.mediabox
else
Pdf.parse_rectangle pdf page.Pdfpage.mediabox
in in
let x, y, rotate = Cpdfposition.calculate_position false textwidth mediabox position in match font with
let hoffset, voffset = | Some f ->
if position = Diagonal || position = ReverseDiagonal ops fontname longest_w (x +. shift_x) (y +. shift_y) rotate (hoffset +. joffset) voffset outline linewidth
then -. (cos ((pi /. 2.) -. rotate) *. voffset), sin ((pi /. 2.) -. rotate) *. voffset unique_fontname unique_extgstatename colour fontsize text,
else hoffset, voffset urls, x, y, hoffset, voffset, text, joffset
in | None ->
match font with ops fontname longest_w (x +. shift_x) (y +. shift_y) rotate (hoffset +. joffset) voffset outline linewidth
| Some f -> fontname None colour fontsize text,
ops fontname longest_w (x +. shift_x) (y +. shift_y) rotate (hoffset +. joffset) voffset outline linewidth urls, x, y, hoffset, voffset, text, joffset
unique_fontname unique_extgstatename colour fontsize text,
urls, x, y, hoffset, voffset, text, joffset
| None ->
ops fontname longest_w (x +. shift_x) (y +. shift_y) rotate (hoffset +. joffset) voffset outline linewidth
fontname None colour fontsize text,
urls, x, y, hoffset, voffset, text, joffset
in in
let newresources = let newresources =
match font with match font with
@ -426,8 +412,19 @@ let
justification midline topline filename extract_text_font_size shift justification midline topline filename extract_text_font_size shift
?(raw=false) pdf ?(raw=false) pdf
= =
let time = Cpdfstrftime.current_time () in
if pages = [] then error "addtexts: empty page range" else if pages = [] then error "addtexts: empty page range" else
let time = Cpdfstrftime.current_time () in
let endpage = Pdfpage.endpage pdf in
let ps = Pdfpage.pages_of_pagetree pdf in
let used = null_hash () in
let lines = map unescape_string (split_at_newline text) in
iter2
(fun num page ->
let expanded_lines = expand_lines text time pdf endpage extract_text_font_size filename bates batespad num page lines in
let codepoints = map Pdftext.codepoints_of_utf8 expanded_lines in
iter (iter (fun x -> Hashtbl.replace used x ())) codepoints)
pages
(map (fun x -> List.nth ps (x - 1)) pages);
let realfontname = ref fontname in let realfontname = ref fontname in
let font = let font =
match cpdffont with match cpdffont with
@ -436,7 +433,7 @@ let
Some (hd (fst f)) Some (hd (fst f))
| Cpdfembed.EmbedInfo {fontfile; fontname; encoding} -> | Cpdfembed.EmbedInfo {fontfile; fontname; encoding} ->
(*Printf.printf "Cpdfaddtext.addtexts: EmbedInfo\n";*) (*Printf.printf "Cpdfaddtext.addtexts: EmbedInfo\n";*)
let embedded = Cpdfembed.embed_truetype pdf ~fontfile ~fontname ~codepoints:[] ~encoding in let embedded = Cpdfembed.embed_truetype pdf ~fontfile ~fontname ~codepoints:(map fst (list_of_hashtbl used)) ~encoding in
Some (hd (fst embedded)) Some (hd (fst embedded))
| Cpdfembed.ExistingNamedFont -> None | Cpdfembed.ExistingNamedFont -> None
in in
@ -445,13 +442,7 @@ let
| Some (Pdftext.StandardFont _ as font) -> | Some (Pdftext.StandardFont _ as font) ->
Pdf.Indirect (Pdftext.write_font pdf font) Pdf.Indirect (Pdftext.write_font pdf font)
| Some f -> | Some f ->
begin match Hashtbl.find glob_pdfobjnum fontname with Pdf.Indirect (Pdftext.write_font pdf f)
| exception Not_found ->
let i = Pdftext.write_font pdf f in
Hashtbl.add glob_pdfobjnum fontname i; Pdf.Indirect i
| i ->
Pdf.Indirect i
end
| None -> | None ->
let firstpage = let firstpage =
List.nth (Pdfpage.pages_of_pagetree pdf) (hd pages - 1) List.nth (Pdfpage.pages_of_pagetree pdf) (hd pages - 1)
@ -532,23 +523,14 @@ let
!pdf; !pdf;
voffset := !voffset +. (linespacing *. fontsize)) voffset := !voffset +. (linespacing *. fontsize))
lines; lines;
begin match cpdffont with (*begin match cpdffont with
| Cpdfembed.EmbedInfo {fontfile; fontname; encoding} -> | Cpdfembed.EmbedInfo {fontfile; fontname; encoding} ->
let charcodes = let codepoints = map fst (list_of_hashtbl used) in
match Hashtbl.find used fontname with
| exception Not_found -> []
| thisused -> map fst (list_of_hashtbl thisused)
in
let encoding_table = Pdftext.table_of_encoding encoding in
let glyphlist_table = Pdfglyphlist.glyph_hashes () in
let codepoints =
map (fun c -> unicode_codepoint_of_pdfcode encoding_table glyphlist_table (int_of_char c)) charcodes
in
let objnum = match fontpdfobj with Pdf.Indirect i -> i | _ -> failwith "bad fontpdfobj" in let objnum = match fontpdfobj with Pdf.Indirect i -> i | _ -> failwith "bad fontpdfobj" in
let font = hd (fst (Cpdfembed.embed_truetype !pdf ~fontfile ~fontname ~codepoints ~encoding)) in let font = hd (fst (Cpdfembed.embed_truetype !pdf ~fontfile ~fontname ~codepoints ~encoding)) in
ignore (Pdftext.write_font ~objnum !pdf font) ignore (Pdftext.write_font ~objnum !pdf font)
| _ -> () | _ -> ()
end; end;*)
!pdf !pdf

3
cpdftruetype.ml
View File

@ -2,9 +2,6 @@
open Pdfutil open Pdfutil
open Pdfio open Pdfio
(* FIXME Make sure -add-text calls subset once only *)
(* FIXME Make it work with -draw *)
(* FIXME Check proper use of fontpacks and maximal sharing in -toc -typeset -add-text -draw *)
(* FIXME Proper widths for .notdef, and warn on .notdef being produced *) (* FIXME Proper widths for .notdef, and warn on .notdef being produced *)
(* FIXME Add suport for composite glyphs *) (* FIXME Add suport for composite glyphs *)
(* FIXME Make sure -embed-std14 works for all commands *) (* FIXME Make sure -embed-std14 works for all commands *)