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 2022-09-11 15:19:59 +01:00
parent 64f0339b71
commit be828bd24d
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
cpdfembed.ml
View File

@ -21,7 +21,7 @@ let glyphlist_table = Pdfglyphlist.reverse_glyph_hashes ()
let encoding_table = Pdftext.reverse_table_of_encoding encoding let encoding_table = Pdftext.reverse_table_of_encoding encoding
let () = (*let () =
iter iter
(fun u -> (fun u ->
Printf.printf "unicode %i --> " u; Printf.printf "unicode %i --> " u;
@ -105,8 +105,9 @@ let fontfile =
{contents = {contents =
(Pdf.Dictionary [("/Length", Pdf.Integer len); ("/Length1", Pdf.Integer len)], (Pdf.Dictionary [("/Length", Pdf.Integer len); ("/Length1", Pdf.Integer len)],
Pdf.Got (Pdfio.bytes_of_string fontstr))} Pdf.Got (Pdfio.bytes_of_string fontstr))}
*)
let objects = (*let objects =
[(1, Pdfread.parse_single_object "<</Type/Catalog/Pages 2 0 R>>"); [(1, Pdfread.parse_single_object "<</Type/Catalog/Pages 2 0 R>>");
(2, Pdfread.parse_single_object "<</Type/Pages/Kids[3 0 R]/Count 1>>"); (2, Pdfread.parse_single_object "<</Type/Pages/Kids[3 0 R]/Count 1>>");
(3, Pdfread.parse_single_object "<</Type/Page/Resources<</Font <</TT1 5 0 R>>>>/Parent 2 0 R/MediaBox[0 0 595 842]/Rotate 0/Contents[4 0 R]>>"); (3, Pdfread.parse_single_object "<</Type/Page/Resources<</Font <</TT1 5 0 R>>>>/Parent 2 0 R/MediaBox[0 0 595 842]/Rotate 0/Contents[4 0 R]>>");
@ -141,4 +142,4 @@ let pdf =
pdf pdf
let () = let () =
Pdfwrite.pdf_to_file pdf "subset.pdf" Pdfwrite.pdf_to_file pdf "subset.pdf"*)