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

more

This commit is contained in:
John Whitington 2023-05-08 15:48:18 +01:00
parent 2f81039cba
commit 8032a96053
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
cpdfdraw.ml
View File

@ -80,6 +80,12 @@ let resstack =
let res () = let res () =
hd !resstack hd !resstack
let respush () =
resstack := (res ())::!resstack
let respop () =
resstack := tl !resstack
let fresh_name s = let fresh_name s =
(res ()).num <- (res ()).num + 1; (res ()).num <- (res ()).num + 1;
s ^ string_of_int (res ()).num s ^ string_of_int (res ()).num
@ -192,10 +198,8 @@ let rec ops_of_drawop pdf endpage filename bates batespad num page = function
and ops_of_drawops pdf endpage filename bates batespad num page drawops = and ops_of_drawops pdf endpage filename bates batespad num page drawops =
flatten (map (ops_of_drawop pdf endpage filename bates batespad num page) drawops) flatten (map (ops_of_drawop pdf endpage filename bates batespad num page) drawops)
(* 1. We want resources to be created locally to the xobject, not on the page so it may be shared between pages.
a. make sure none are added to the page
b. make sure we collect them and add them to the xobject *)
and create_form_xobject a b c d pdf endpage filename bates batespad num page n ops = and create_form_xobject a b c d pdf endpage filename bates batespad num page n ops =
respush ();
let data = let data =
Pdfio.bytes_of_string (Pdfops.string_of_ops (ops_of_drawops pdf endpage filename bates batespad num page ops)) Pdfio.bytes_of_string (Pdfops.string_of_ops (ops_of_drawops pdf endpage filename bates batespad num page ops))
in in
@ -209,7 +213,8 @@ and create_form_xobject a b c d pdf endpage filename bates batespad num page n o
], ],
Pdf.Got data)} Pdf.Got data)}
in in
Hashtbl.add (res ()).form_xobjects n (fresh_name "/Fm", (Pdf.addobj pdf obj)) Hashtbl.add (res ()).form_xobjects n (fresh_name "/Fm", (Pdf.addobj pdf obj));
respop ()
let read_resource pdf n p = let read_resource pdf n p =
match Pdf.lookup_direct pdf n p.Pdfpage.resources with match Pdf.lookup_direct pdf n p.Pdfpage.resources with