Skeleton for JPEG2000 support

This commit is contained in:
John Whitington 2024-03-20 20:24:44 +00:00
parent 1c8cbfb015
commit ac6645da52
3 changed files with 11 additions and 2 deletions

View File

@ -7,8 +7,8 @@ DOC = cpdfunicodedata cpdferror cpdfdebug cpdfjson cpdfstrftime cpdfcoord \
cpdfembed cpdffont cpdftype cpdfaddtext cpdfpad cpdfocg \ cpdfembed cpdffont cpdftype cpdfaddtext cpdfpad cpdfocg \
cpdfsqueeze cpdfdraft cpdfspot cpdfpagelabels cpdfcreate cpdfannot \ cpdfsqueeze cpdfdraft cpdfspot cpdfpagelabels cpdfcreate cpdfannot \
cpdfxobject cpdfimpose cpdfchop cpdftweak cpdftexttopdf cpdftoc \ cpdfxobject cpdfimpose cpdfchop cpdftweak cpdftexttopdf cpdftoc \
cpdfjpeg cpdfpng cpdfimage cpdfdraw cpdfcomposition cpdfshape \ cpdfjpeg cpdfjpeg2000 cpdfpng cpdfimage cpdfdraw cpdfcomposition \
cpdfcolours cpdfdrawcontrol cpdfcommand cpdfshape cpdfcolours cpdfdrawcontrol cpdfcommand
MODS = $(NONDOC) $(DOC) MODS = $(NONDOC) $(DOC)

5
cpdfjpeg2000.ml Normal file
View File

@ -0,0 +1,5 @@
open Pdfutil
open Pdfio
(* Return the width and height of a JPEG2000 image, per Michael Petrov's C version. *)
let jpeg2000_dimensions bs = (0, 0)

4
cpdfjpeg2000.mli Normal file
View File

@ -0,0 +1,4 @@
(** JPEG2000 Utilities *)
(** Return the width and height of a JPEG2000 stream *)
val jpeg2000_dimensions : Pdfio.bytes -> int * int