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

Back to compiling

This commit is contained in:
John Whitington 2021-10-05 18:28:28 +01:00
parent 6acae6e5ce
commit f9e58e6d7e
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Makefile
View File

@ -20,6 +20,10 @@ all : native-code native-code-library byte-code-library top htdoc
clean :: clean ::
rm -rf doc foo foo2 out.pdf out2.pdf *.cmt *.cmti *.json rm -rf doc foo foo2 out.pdf out2.pdf *.cmt *.cmti *.json
DOC_FILES = cpdferror.mli cpdfjson.mli cpdfstrftime.mli cpdfcoord.mli \
cpdfattach.mli cpdfpagespec.mli cpdfposition.mli cpdf.mli \
cpdfcommand.mli
LIBINSTALL_FILES = cpdf.a cpdf.cma cpdf.cmxa \ LIBINSTALL_FILES = cpdf.a cpdf.cma cpdf.cmxa \
$(foreach x,$(MODS),$x.mli) $(foreach x,$(MODS),$x.cmi) \ $(foreach x,$(MODS),$x.mli) $(foreach x,$(MODS),$x.cmi) \
$(foreach x,$(MODS),$x.cmx) $(foreach x,$(MODS),$x.cmti) $(foreach x,$(MODS),$x.cmx) $(foreach x,$(MODS),$x.cmti)

7
cpdfjson.ml
View File

@ -1,7 +1,7 @@
open Pdfutil open Pdfutil
open Cpdferror open Cpdferror
module J = Tjjson (*module J = Tjjson
module P = Pdf module P = Pdf
module O = Pdfops module O = Pdfops
@ -425,6 +425,9 @@ let to_output o parse_content no_stream_data decompress_streams pdf =
J.format formatter (json_of_pdf parse_content no_stream_data decompress_streams pdf); J.format formatter (json_of_pdf parse_content no_stream_data decompress_streams pdf);
Format.pp_print_flush formatter (); Format.pp_print_flush formatter ();
o.Pdfio.output_string (Buffer.contents b) o.Pdfio.output_string (Buffer.contents b)
*)
let to_output _ _ _ _ _ = ()
let example_pdf = let example_pdf =
let page = let page =
@ -438,5 +441,5 @@ let example_pdf =
(* FIXME Proper streaming to output / from input, rather than making a big string first. *) (* FIXME Proper streaming to output / from input, rather than making a big string first. *)
let of_input i = let of_input i =
(*pdf_of_json*) (*pdf_of_json*)
ignore (J.parse (Pdfio.string_of_bytes (Pdfio.bytes_of_input i 0 (i.Pdfio.in_channel_length)))); (*ignore (J.parse (Pdfio.string_of_bytes (Pdfio.bytes_of_input i 0 (i.Pdfio.in_channel_length))));*)
example_pdf example_pdf