test code now reports the (compile-time) library version
authorTony Cook <tony@develop-help.com>
Mon, 18 Feb 2013 03:19:25 +0000 (14:19 +1100)
committerTony Cook <tony@develop-help.com>
Mon, 18 Feb 2013 03:19:25 +0000 (14:19 +1100)
JPEG/Changes
JPEG/JPEG.pm
JPEG/JPEG.xs
JPEG/imjpeg.c
JPEG/imjpeg.h
JPEG/t/t10jpeg.t

index 368fa8b..6c45dfb 100644 (file)
@@ -1,4 +1,11 @@
-Imager-File-JPEG 0.84
+Imager-File-JPEG 0.86
+=====================
+
+ - correct 0.85 header below
+
+ - test code now reports the (compile-time) library version
+
+Imager-File-JPEG 0.85
 =====================
 
  - avoid static variables when capturing IPTC data
 =====================
 
  - avoid static variables when capturing IPTC data
index 1812140..07ea1a7 100644 (file)
@@ -4,7 +4,7 @@ use Imager;
 use vars qw($VERSION @ISA);
 
 BEGIN {
 use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.85";
+  $VERSION = "0.86";
 
   require XSLoader;
   XSLoader::load('Imager::File::JPEG', $VERSION);
 
   require XSLoader;
   XSLoader::load('Imager::File::JPEG', $VERSION);
index e1a55f9..8a13fb3 100644 (file)
@@ -13,6 +13,9 @@ DEFINE_IMAGER_CALLBACKS;
 
 MODULE = Imager::File::JPEG  PACKAGE = Imager::File::JPEG
 
 
 MODULE = Imager::File::JPEG  PACKAGE = Imager::File::JPEG
 
+const char *
+i_libjpeg_version()
+
 undef_int
 i_writejpeg_wiol(im, ig, qfactor)
     Imager::ImgRaw     im
 undef_int
 i_writejpeg_wiol(im, ig, qfactor)
     Imager::ImgRaw     im
index c9787bd..c317e0a 100644 (file)
@@ -42,6 +42,9 @@ Reads and writes JPEG images
 
 #define JPEG_DIM_MAX JPEG_MAX_DIMENSION
 
 
 #define JPEG_DIM_MAX JPEG_MAX_DIMENSION
 
+#define _STRINGIFY(x) #x
+#define STRINGIFY(x) _STRINGIFY(x)
+
 static unsigned char fake_eoi[]={(JOCTET) 0xFF,(JOCTET) JPEG_EOI};
 
 /* Source and Destination managers */
 static unsigned char fake_eoi[]={(JOCTET) 0xFF,(JOCTET) JPEG_EOI};
 
 /* Source and Destination managers */
@@ -337,6 +340,25 @@ transfer_gray(i_color *out, JSAMPARRAY in, int width) {
 
 typedef void (*transfer_function_t)(i_color *out, JSAMPARRAY in, int width);
 
 
 typedef void (*transfer_function_t)(i_color *out, JSAMPARRAY in, int width);
 
+static const char version_string[] =
+#ifdef LIBJPEG_TURBO_VERSION
+  "libjpeg-turbo " STRINGIFY(LIBJPEG_TURBO_VERSION) " api " STRINGIFY(JPEG_LIB_VERSION)
+#else
+  "libjpeg " STRINGIFY(JPEG_LIB_VERSION)
+#endif
+  ;
+
+/*
+=item i_libjpeg_version()
+
+=cut
+*/
+
+const char *
+i_libjpeg_version(void) {
+  return version_string;
+}
+
 /*
 =item i_readjpeg_wiol(data, length, iptc_itext, itlength)
 
 /*
 =item i_readjpeg_wiol(data, length, iptc_itext, itlength)
 
index 3c9be13..c698500 100644 (file)
@@ -9,4 +9,7 @@ i_readjpeg_wiol(io_glue *data, int length, char** iptc_itext, int *itlength);
 undef_int
 i_writejpeg_wiol(i_img *im, io_glue *ig, int qfactor);
 
 undef_int
 i_writejpeg_wiol(i_img *im, io_glue *ig, int qfactor);
 
+extern const char *
+i_libjpeg_version(void);
+
 #endif
 #endif
index a88554d..61c54dc 100644 (file)
@@ -13,6 +13,8 @@ $Imager::formats{"jpeg"}
 
 plan tests => 103;
 
 
 plan tests => 103;
 
+print STDERR "libjpeg version: ", Imager::File::JPEG::i_libjpeg_version(), "\n";
+
 my $green=i_color_new(0,255,0,255);
 my $blue=i_color_new(0,0,255,255);
 my $red=i_color_new(255,0,0,255);
 my $green=i_color_new(0,255,0,255);
 my $blue=i_color_new(0,0,255,255);
 my $red=i_color_new(255,0,0,255);