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

Decompress and keep colourspace functions

This commit is contained in:
John Whitington 2020-02-06 17:06:36 +00:00
parent 36ad2c6eb1
commit b33864548a
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
cpdfwriteJSON.ml
View File

@ -23,11 +23,17 @@ let rec json_of_object pdf fcs no_stream_data = function
| _ -> ()) | _ -> ())
elts; elts;
J.Object (List.map (fun (k, v) -> (k, json_of_object pdf fcs no_stream_data v)) elts) J.Object (List.map (fun (k, v) -> (k, json_of_object pdf fcs no_stream_data v)) elts)
| P.Stream {contents = (Pdf.Dictionary dict, stream)} as thestream -> | P.Stream ({contents = (Pdf.Dictionary dict as d, stream)} as mut) as thestream ->
Pdf.getstream thestream; Pdf.getstream thestream;
let str = let str =
if no_stream_data then "<<stream data elided>>" else begin match Pdf.lookup_direct pdf "/FunctionType" d with
match stream with Pdf.Got b -> Pdfio.string_of_bytes b | Pdf.ToGet _ -> "failure: toget" | Some _ ->
Pdfcodec.decode_pdfstream_until_unknown pdf thestream;
begin match !mut with (_, Pdf.Got b) -> Pdfio.string_of_bytes b | _ -> "failure: decomp" end
| None ->
if no_stream_data then "<<stream data elided>>" else
match stream with Pdf.Got b -> Pdfio.string_of_bytes b | Pdf.ToGet _ -> "failure: toget"
end
in in
json_of_object pdf fcs no_stream_data (P.Array [P.Dictionary dict; P.String str]) json_of_object pdf fcs no_stream_data (P.Array [P.Dictionary dict; P.String str])
| P.Stream _ -> J.String "error: stream with not-a-dictioary" | P.Stream _ -> J.String "error: stream with not-a-dictioary"