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

Allow embed-std14 to work in cpdflib

This commit is contained in:
John Whitington 2023-10-05 16:45:11 +01:00
parent b21d90f000
commit 82cec86527
3 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
cpdfcommand.ml
View File

@ -1566,6 +1566,9 @@ let setstayonerror () =
let setembedstd14 s = let setembedstd14 s =
args.embedstd14 <- Some s args.embedstd14 <- Some s
let _ =
Cpdfdrawcontrol.setembedstd14 := (fun b dir -> if b then args.embedstd14 <- Some dir else args.embedstd14 <- None)
let sethardbox box = let sethardbox box =
detect_duplicate_op (HardBox box); detect_duplicate_op (HardBox box);
args.op <- Some (HardBox box) args.op <- Some (HardBox box)

9
cpdfdrawcontrol.ml
View File

@ -3,12 +3,13 @@ open Pdfutil
open Cpdferror open Cpdferror
let embed_font = ref (fun () -> Printf.printf "BAD *\n%!"; Cpdfembed.ExistingNamedFont) let embed_font = ref (fun () -> Printf.printf "BAD *\n%!"; Cpdfembed.ExistingNamedFont)
let setdrawing = ref (fun () -> Printf.printf "BAD **\n%!"; ()) let setdrawing = ref (fun () -> Printf.printf "BAD **\n%!")
let getfontname = ref (fun () -> Printf.printf "BAD ***\n%!"; "") let getfontname = ref (fun () -> Printf.printf "BAD ***\n%!"; "")
let getfontsize = ref (fun () -> Printf.printf "BAD ****\n%!"; 0.) let getfontsize = ref (fun () -> Printf.printf "BAD ****\n%!"; 0.)
let setfontname = ref (fun _ -> Printf.printf "BAD *****\n%!"; ()) let setfontname = ref (fun _ -> Printf.printf "BAD *****\n%!")
let setfontsize = ref (fun _ -> Printf.printf "BAD ******\n%!"; ()) let setfontsize = ref (fun _ -> Printf.printf "BAD ******\n%!")
let loadttf = ref (fun _ -> Printf.printf "BAD *******\n%!"; ()) let loadttf = ref (fun _ -> Printf.printf "BAD *******\n%!")
let setembedstd14 = ref (fun _ _ -> Printf.printf "BAD ********\n%!")
let ttfs = null_hash () let ttfs = null_hash ()

1
cpdfdrawcontrol.mli
View File

@ -4,6 +4,7 @@ val getfontsize : (unit -> float) ref
val setfontname : (string -> unit) ref val setfontname : (string -> unit) ref
val setfontsize : (float -> unit) ref val setfontsize : (float -> unit) ref
val setdrawing : (unit -> unit) ref val setdrawing : (unit -> unit) ref
val setembedstd14 : (bool -> string -> unit) ref
val ttfs : (string, (string * Cpdfembed.cpdffont)) Hashtbl.t val ttfs : (string, (string * Cpdfembed.cpdffont)) Hashtbl.t
val loadttf : (string -> unit) ref val loadttf : (string -> unit) ref
val loadttfseparate : string -> string -> unit val loadttfseparate : string -> string -> unit