Support memory JPEGs and PNGs for cpdflib

cpdfdrawcontrol.ml

@@ -237,7 +237,13 @@ let setmsheary s =
 let usexobj s =
   addop (Cpdfdraw.Use s)
 
-let addjpeg n =
+let addjpeg ?data n =
+  match data with
+  | Some d ->
+      addop
+        (Cpdfdraw.ImageXObject
+           (n, fst (Cpdfimage.obj_of_jpeg_data (Pdfio.bytes_of_raw d))))
+  | None ->
       let name, filename =
         match String.split_on_char '=' n with
         | [name; filename] -> name, filename
@@ -249,7 +255,13 @@ let addjpeg n =
         with
           _ -> error "addjpeg: could not load JPEG"
 
-let addpng n =
+let addpng ?data n =
+  match data with
+  | Some d ->
+      addop
+        (Cpdfdraw.ImageXObject
+           (n, fst (Cpdfimage.obj_of_png_data (Pdfio.bytes_of_raw d))))
+  | None ->
       let name, filename =
         match String.split_on_char '=' n with
         | [name; filename] -> name, filename

cpdfdrawcontrol.mli

@@ -48,8 +48,8 @@ val xobjbbox : string -> unit
 val startxobj : string -> unit
 val endxobj : unit -> unit
 val usexobj : string -> unit
-val addjpeg : string -> unit
+val addjpeg : ?data:Pdfio.rawbytes -> string -> unit
-val addpng : string -> unit
+val addpng : ?data:Pdfio.rawbytes -> string -> unit
 val addimage : string -> unit
 val addopacity : float -> unit
 val addsopacity : float -> unit