diff --git a/Makefile b/Makefile index 377de83..2f4836a 100644 --- a/Makefile +++ b/Makefile @@ -20,6 +20,10 @@ all : native-code native-code-library byte-code-library top htdoc clean :: 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 \ $(foreach x,$(MODS),$x.mli) $(foreach x,$(MODS),$x.cmi) \ $(foreach x,$(MODS),$x.cmx) $(foreach x,$(MODS),$x.cmti) diff --git a/cpdfjson.ml b/cpdfjson.ml index 998d6d8..ba037af 100644 --- a/cpdfjson.ml +++ b/cpdfjson.ml @@ -1,7 +1,7 @@ open Pdfutil open Cpdferror -module J = Tjjson +(*module J = Tjjson module P = Pdf 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); Format.pp_print_flush formatter (); o.Pdfio.output_string (Buffer.contents b) +*) + +let to_output _ _ _ _ _ = () let example_pdf = let page = @@ -438,5 +441,5 @@ let example_pdf = (* FIXME Proper streaming to output / from input, rather than making a big string first. *) let of_input i = (*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