| /* |
| * Copyright (C)2009-2023 D. R. Commander. All Rights Reserved. |
| * Copyright (C)2021 Alex Richardson. All Rights Reserved. |
| * |
| * Redistribution and use in source and binary forms, with or without |
| * modification, are permitted provided that the following conditions are met: |
| * |
| * - Redistributions of source code must retain the above copyright notice, |
| * this list of conditions and the following disclaimer. |
| * - Redistributions in binary form must reproduce the above copyright notice, |
| * this list of conditions and the following disclaimer in the documentation |
| * and/or other materials provided with the distribution. |
| * - Neither the name of the libjpeg-turbo Project nor the names of its |
| * contributors may be used to endorse or promote products derived from this |
| * software without specific prior written permission. |
| * |
| * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS", |
| * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE |
| * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE |
| * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE |
| * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR |
| * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF |
| * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS |
| * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN |
| * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) |
| * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE |
| * POSSIBILITY OF SUCH DAMAGE. |
| */ |
| |
| /* TurboJPEG/LJT: this implements the TurboJPEG API using libjpeg or |
| libjpeg-turbo */ |
| |
| #include <ctype.h> |
| #include <limits.h> |
| #include <jinclude.h> |
| #define JPEG_INTERNALS |
| #include <jpeglib.h> |
| #include <jerror.h> |
| #include <setjmp.h> |
| #include <errno.h> |
| #include "./turbojpeg.h" |
| #include "./tjutil.h" |
| #include "transupp.h" |
| #include "./jpegcomp.h" |
| #include "./cdjpeg.h" |
| |
| extern void jpeg_mem_dest_tj(j_compress_ptr, unsigned char **, unsigned long *, |
| boolean); |
| extern void jpeg_mem_src_tj(j_decompress_ptr, const unsigned char *, |
| unsigned long); |
| |
| #define PAD(v, p) ((v + (p) - 1) & (~((p) - 1))) |
| #define IS_POW2(x) (((x) & (x - 1)) == 0) |
| |
| |
| /* Error handling (based on example in example.txt) */ |
| |
| static THREAD_LOCAL char errStr[JMSG_LENGTH_MAX] = "No error"; |
| |
| struct my_error_mgr { |
| struct jpeg_error_mgr pub; |
| jmp_buf setjmp_buffer; |
| void (*emit_message) (j_common_ptr, int); |
| boolean warning, stopOnWarning; |
| }; |
| typedef struct my_error_mgr *my_error_ptr; |
| |
| #define JMESSAGE(code, string) string, |
| static const char *turbojpeg_message_table[] = { |
| #include "cderror.h" |
| NULL |
| }; |
| |
| static void my_error_exit(j_common_ptr cinfo) |
| { |
| my_error_ptr myerr = (my_error_ptr)cinfo->err; |
| |
| (*cinfo->err->output_message) (cinfo); |
| longjmp(myerr->setjmp_buffer, 1); |
| } |
| |
| /* Based on output_message() in jerror.c */ |
| |
| static void my_output_message(j_common_ptr cinfo) |
| { |
| (*cinfo->err->format_message) (cinfo, errStr); |
| } |
| |
| static void my_emit_message(j_common_ptr cinfo, int msg_level) |
| { |
| my_error_ptr myerr = (my_error_ptr)cinfo->err; |
| |
| myerr->emit_message(cinfo, msg_level); |
| if (msg_level < 0) { |
| myerr->warning = TRUE; |
| if (myerr->stopOnWarning) longjmp(myerr->setjmp_buffer, 1); |
| } |
| } |
| |
| |
| /********************** Global structures, macros, etc. **********************/ |
| |
| enum { COMPRESS = 1, DECOMPRESS = 2 }; |
| |
| typedef struct _tjinstance { |
| struct jpeg_compress_struct cinfo; |
| struct jpeg_decompress_struct dinfo; |
| struct my_error_mgr jerr; |
| int init, headerRead; |
| char errStr[JMSG_LENGTH_MAX]; |
| boolean isInstanceError; |
| } tjinstance; |
| |
| struct my_progress_mgr { |
| struct jpeg_progress_mgr pub; |
| tjinstance *this; |
| }; |
| typedef struct my_progress_mgr *my_progress_ptr; |
| |
| static void my_progress_monitor(j_common_ptr dinfo) |
| { |
| my_error_ptr myerr = (my_error_ptr)dinfo->err; |
| my_progress_ptr myprog = (my_progress_ptr)dinfo->progress; |
| |
| if (dinfo->is_decompressor) { |
| int scan_no = ((j_decompress_ptr)dinfo)->input_scan_number; |
| |
| if (scan_no > 500) { |
| SNPRINTF(myprog->this->errStr, JMSG_LENGTH_MAX, |
| "Progressive JPEG image has more than 500 scans"); |
| SNPRINTF(errStr, JMSG_LENGTH_MAX, |
| "Progressive JPEG image has more than 500 scans"); |
| myprog->this->isInstanceError = TRUE; |
| myerr->warning = FALSE; |
| longjmp(myerr->setjmp_buffer, 1); |
| } |
| } |
| } |
| |
| static const int pixelsize[TJ_NUMSAMP] = { 3, 3, 3, 1, 3, 3 }; |
| |
| static const JXFORM_CODE xformtypes[TJ_NUMXOP] = { |
| JXFORM_NONE, JXFORM_FLIP_H, JXFORM_FLIP_V, JXFORM_TRANSPOSE, |
| JXFORM_TRANSVERSE, JXFORM_ROT_90, JXFORM_ROT_180, JXFORM_ROT_270 |
| }; |
| |
| #define NUMSF 16 |
| static const tjscalingfactor sf[NUMSF] = { |
| { 2, 1 }, |
| { 15, 8 }, |
| { 7, 4 }, |
| { 13, 8 }, |
| { 3, 2 }, |
| { 11, 8 }, |
| { 5, 4 }, |
| { 9, 8 }, |
| { 1, 1 }, |
| { 7, 8 }, |
| { 3, 4 }, |
| { 5, 8 }, |
| { 1, 2 }, |
| { 3, 8 }, |
| { 1, 4 }, |
| { 1, 8 } |
| }; |
| |
| static J_COLOR_SPACE pf2cs[TJ_NUMPF] = { |
| JCS_EXT_RGB, JCS_EXT_BGR, JCS_EXT_RGBX, JCS_EXT_BGRX, JCS_EXT_XBGR, |
| JCS_EXT_XRGB, JCS_GRAYSCALE, JCS_EXT_RGBA, JCS_EXT_BGRA, JCS_EXT_ABGR, |
| JCS_EXT_ARGB, JCS_CMYK |
| }; |
| |
| static int cs2pf[JPEG_NUMCS] = { |
| TJPF_UNKNOWN, TJPF_GRAY, |
| #if RGB_RED == 0 && RGB_GREEN == 1 && RGB_BLUE == 2 && RGB_PIXELSIZE == 3 |
| TJPF_RGB, |
| #elif RGB_RED == 2 && RGB_GREEN == 1 && RGB_BLUE == 0 && RGB_PIXELSIZE == 3 |
| TJPF_BGR, |
| #elif RGB_RED == 0 && RGB_GREEN == 1 && RGB_BLUE == 2 && RGB_PIXELSIZE == 4 |
| TJPF_RGBX, |
| #elif RGB_RED == 2 && RGB_GREEN == 1 && RGB_BLUE == 0 && RGB_PIXELSIZE == 4 |
| TJPF_BGRX, |
| #elif RGB_RED == 3 && RGB_GREEN == 2 && RGB_BLUE == 1 && RGB_PIXELSIZE == 4 |
| TJPF_XBGR, |
| #elif RGB_RED == 1 && RGB_GREEN == 2 && RGB_BLUE == 3 && RGB_PIXELSIZE == 4 |
| TJPF_XRGB, |
| #endif |
| TJPF_UNKNOWN, TJPF_CMYK, TJPF_UNKNOWN, TJPF_RGB, TJPF_RGBX, TJPF_BGR, |
| TJPF_BGRX, TJPF_XBGR, TJPF_XRGB, TJPF_RGBA, TJPF_BGRA, TJPF_ABGR, TJPF_ARGB, |
| TJPF_UNKNOWN |
| }; |
| |
| #define THROWG(m) { \ |
| SNPRINTF(errStr, JMSG_LENGTH_MAX, "%s", m); \ |
| retval = -1; goto bailout; \ |
| } |
| #ifdef _MSC_VER |
| #define THROW_UNIX(m) { \ |
| char strerrorBuf[80] = { 0 }; \ |
| strerror_s(strerrorBuf, 80, errno); \ |
| SNPRINTF(errStr, JMSG_LENGTH_MAX, "%s\n%s", m, strerrorBuf); \ |
| retval = -1; goto bailout; \ |
| } |
| #else |
| #define THROW_UNIX(m) { \ |
| SNPRINTF(errStr, JMSG_LENGTH_MAX, "%s\n%s", m, strerror(errno)); \ |
| retval = -1; goto bailout; \ |
| } |
| #endif |
| #define THROW(m) { \ |
| SNPRINTF(this->errStr, JMSG_LENGTH_MAX, "%s", m); \ |
| this->isInstanceError = TRUE; THROWG(m) \ |
| } |
| |
| #ifdef FUZZING_BUILD_MODE_UNSAFE_FOR_PRODUCTION |
| /* Private flag that triggers different TurboJPEG API behavior when fuzzing */ |
| #define TJFLAG_FUZZING (1 << 30) |
| #endif |
| |
| #define GET_INSTANCE(handle) \ |
| tjinstance *this = (tjinstance *)handle; \ |
| j_compress_ptr cinfo = NULL; \ |
| j_decompress_ptr dinfo = NULL; \ |
| \ |
| if (!this) { \ |
| SNPRINTF(errStr, JMSG_LENGTH_MAX, "Invalid handle"); \ |
| return -1; \ |
| } \ |
| cinfo = &this->cinfo; dinfo = &this->dinfo; \ |
| this->jerr.warning = FALSE; \ |
| this->isInstanceError = FALSE; |
| |
| #define GET_CINSTANCE(handle) \ |
| tjinstance *this = (tjinstance *)handle; \ |
| j_compress_ptr cinfo = NULL; \ |
| \ |
| if (!this) { \ |
| SNPRINTF(errStr, JMSG_LENGTH_MAX, "Invalid handle"); \ |
| return -1; \ |
| } \ |
| cinfo = &this->cinfo; \ |
| this->jerr.warning = FALSE; \ |
| this->isInstanceError = FALSE; |
| |
| #define GET_DINSTANCE(handle) \ |
| tjinstance *this = (tjinstance *)handle; \ |
| j_decompress_ptr dinfo = NULL; \ |
| \ |
| if (!this) { \ |
| SNPRINTF(errStr, JMSG_LENGTH_MAX, "Invalid handle"); \ |
| return -1; \ |
| } \ |
| dinfo = &this->dinfo; \ |
| this->jerr.warning = FALSE; \ |
| this->isInstanceError = FALSE; |
| |
| static int getPixelFormat(int pixelSize, int flags) |
| { |
| if (pixelSize == 1) return TJPF_GRAY; |
| if (pixelSize == 3) { |
| if (flags & TJ_BGR) return TJPF_BGR; |
| else return TJPF_RGB; |
| } |
| if (pixelSize == 4) { |
| if (flags & TJ_ALPHAFIRST) { |
| if (flags & TJ_BGR) return TJPF_XBGR; |
| else return TJPF_XRGB; |
| } else { |
| if (flags & TJ_BGR) return TJPF_BGRX; |
| else return TJPF_RGBX; |
| } |
| } |
| return -1; |
| } |
| |
| static void setCompDefaults(struct jpeg_compress_struct *cinfo, |
| int pixelFormat, int subsamp, int jpegQual, |
| int flags) |
| { |
| #ifndef NO_GETENV |
| char env[7] = { 0 }; |
| #endif |
| |
| cinfo->in_color_space = pf2cs[pixelFormat]; |
| cinfo->input_components = tjPixelSize[pixelFormat]; |
| jpeg_set_defaults(cinfo); |
| |
| #ifndef NO_GETENV |
| if (!GETENV_S(env, 7, "TJ_OPTIMIZE") && !strcmp(env, "1")) |
| cinfo->optimize_coding = TRUE; |
| if (!GETENV_S(env, 7, "TJ_ARITHMETIC") && !strcmp(env, "1")) |
| cinfo->arith_code = TRUE; |
| if (!GETENV_S(env, 7, "TJ_RESTART") && strlen(env) > 0) { |
| int temp = -1; |
| char tempc = 0; |
| |
| #ifdef _MSC_VER |
| if (sscanf_s(env, "%d%c", &temp, &tempc, 1) >= 1 && temp >= 0 && |
| temp <= 65535) { |
| #else |
| if (sscanf(env, "%d%c", &temp, &tempc) >= 1 && temp >= 0 && |
| temp <= 65535) { |
| #endif |
| if (toupper(tempc) == 'B') { |
| cinfo->restart_interval = temp; |
| cinfo->restart_in_rows = 0; |
| } else |
| cinfo->restart_in_rows = temp; |
| } |
| } |
| #endif |
| |
| if (jpegQual >= 0) { |
| jpeg_set_quality(cinfo, jpegQual, TRUE); |
| if (jpegQual >= 96 || flags & TJFLAG_ACCURATEDCT) |
| cinfo->dct_method = JDCT_ISLOW; |
| else |
| cinfo->dct_method = JDCT_FASTEST; |
| } |
| if (subsamp == TJSAMP_GRAY) |
| jpeg_set_colorspace(cinfo, JCS_GRAYSCALE); |
| else if (pixelFormat == TJPF_CMYK) |
| jpeg_set_colorspace(cinfo, JCS_YCCK); |
| else |
| jpeg_set_colorspace(cinfo, JCS_YCbCr); |
| |
| #ifdef C_PROGRESSIVE_SUPPORTED |
| if (flags & TJFLAG_PROGRESSIVE) |
| jpeg_simple_progression(cinfo); |
| #ifndef NO_GETENV |
| else if (!GETENV_S(env, 7, "TJ_PROGRESSIVE") && !strcmp(env, "1")) |
| jpeg_simple_progression(cinfo); |
| #endif |
| #endif |
| |
| cinfo->comp_info[0].h_samp_factor = tjMCUWidth[subsamp] / 8; |
| cinfo->comp_info[1].h_samp_factor = 1; |
| cinfo->comp_info[2].h_samp_factor = 1; |
| if (cinfo->num_components > 3) |
| cinfo->comp_info[3].h_samp_factor = tjMCUWidth[subsamp] / 8; |
| cinfo->comp_info[0].v_samp_factor = tjMCUHeight[subsamp] / 8; |
| cinfo->comp_info[1].v_samp_factor = 1; |
| cinfo->comp_info[2].v_samp_factor = 1; |
| if (cinfo->num_components > 3) |
| cinfo->comp_info[3].v_samp_factor = tjMCUHeight[subsamp] / 8; |
| } |
| |
| |
| static int getSubsamp(j_decompress_ptr dinfo) |
| { |
| int retval = -1, i, k; |
| |
| /* The sampling factors actually have no meaning with grayscale JPEG files, |
| and in fact it's possible to generate grayscale JPEGs with sampling |
| factors > 1 (even though those sampling factors are ignored by the |
| decompressor.) Thus, we need to treat grayscale as a special case. */ |
| if (dinfo->num_components == 1 && dinfo->jpeg_color_space == JCS_GRAYSCALE) |
| return TJSAMP_GRAY; |
| |
| for (i = 0; i < TJ_NUMSAMP; i++) { |
| if (dinfo->num_components == pixelsize[i] || |
| ((dinfo->jpeg_color_space == JCS_YCCK || |
| dinfo->jpeg_color_space == JCS_CMYK) && |
| pixelsize[i] == 3 && dinfo->num_components == 4)) { |
| if (dinfo->comp_info[0].h_samp_factor == tjMCUWidth[i] / 8 && |
| dinfo->comp_info[0].v_samp_factor == tjMCUHeight[i] / 8) { |
| int match = 0; |
| |
| for (k = 1; k < dinfo->num_components; k++) { |
| int href = 1, vref = 1; |
| |
| if ((dinfo->jpeg_color_space == JCS_YCCK || |
| dinfo->jpeg_color_space == JCS_CMYK) && k == 3) { |
| href = tjMCUWidth[i] / 8; vref = tjMCUHeight[i] / 8; |
| } |
| if (dinfo->comp_info[k].h_samp_factor == href && |
| dinfo->comp_info[k].v_samp_factor == vref) |
| match++; |
| } |
| if (match == dinfo->num_components - 1) { |
| retval = i; break; |
| } |
| } |
| /* Handle 4:2:2 and 4:4:0 images whose sampling factors are specified |
| in non-standard ways. */ |
| if (dinfo->comp_info[0].h_samp_factor == 2 && |
| dinfo->comp_info[0].v_samp_factor == 2 && |
| (i == TJSAMP_422 || i == TJSAMP_440)) { |
| int match = 0; |
| |
| for (k = 1; k < dinfo->num_components; k++) { |
| int href = tjMCUHeight[i] / 8, vref = tjMCUWidth[i] / 8; |
| |
| if ((dinfo->jpeg_color_space == JCS_YCCK || |
| dinfo->jpeg_color_space == JCS_CMYK) && k == 3) { |
| href = vref = 2; |
| } |
| if (dinfo->comp_info[k].h_samp_factor == href && |
| dinfo->comp_info[k].v_samp_factor == vref) |
| match++; |
| } |
| if (match == dinfo->num_components - 1) { |
| retval = i; break; |
| } |
| } |
| /* Handle 4:4:4 images whose sampling factors are specified in |
| non-standard ways. */ |
| if (dinfo->comp_info[0].h_samp_factor * |
| dinfo->comp_info[0].v_samp_factor <= |
| D_MAX_BLOCKS_IN_MCU / pixelsize[i] && i == TJSAMP_444) { |
| int match = 0; |
| for (k = 1; k < dinfo->num_components; k++) { |
| if (dinfo->comp_info[k].h_samp_factor == |
| dinfo->comp_info[0].h_samp_factor && |
| dinfo->comp_info[k].v_samp_factor == |
| dinfo->comp_info[0].v_samp_factor) |
| match++; |
| if (match == dinfo->num_components - 1) { |
| retval = i; break; |
| } |
| } |
| } |
| } |
| } |
| return retval; |
| } |
| |
| |
| /*************************** General API functions ***************************/ |
| |
| /* TurboJPEG 2.0+ */ |
| DLLEXPORT char *tjGetErrorStr2(tjhandle handle) |
| { |
| tjinstance *this = (tjinstance *)handle; |
| |
| if (this && this->isInstanceError) { |
| this->isInstanceError = FALSE; |
| return this->errStr; |
| } else |
| return errStr; |
| } |
| |
| |
| /* TurboJPEG 1.0+ */ |
| DLLEXPORT char *tjGetErrorStr(void) |
| { |
| return errStr; |
| } |
| |
| |
| /* TurboJPEG 2.0+ */ |
| DLLEXPORT int tjGetErrorCode(tjhandle handle) |
| { |
| tjinstance *this = (tjinstance *)handle; |
| |
| if (this && this->jerr.warning) return TJERR_WARNING; |
| else return TJERR_FATAL; |
| } |
| |
| |
| /* TurboJPEG 1.0+ */ |
| DLLEXPORT int tjDestroy(tjhandle handle) |
| { |
| GET_INSTANCE(handle); |
| |
| if (setjmp(this->jerr.setjmp_buffer)) return -1; |
| if (this->init & COMPRESS) jpeg_destroy_compress(cinfo); |
| if (this->init & DECOMPRESS) jpeg_destroy_decompress(dinfo); |
| free(this); |
| return 0; |
| } |
| |
| |
| /* These are exposed mainly because Windows can't malloc() and free() across |
| DLL boundaries except when the CRT DLL is used, and we don't use the CRT DLL |
| with turbojpeg.dll for compatibility reasons. However, these functions |
| can potentially be used for other purposes by different implementations. */ |
| |
| /* TurboJPEG 1.2+ */ |
| DLLEXPORT void tjFree(unsigned char *buf) |
| { |
| free(buf); |
| } |
| |
| |
| /* TurboJPEG 1.2+ */ |
| DLLEXPORT unsigned char *tjAlloc(int bytes) |
| { |
| return (unsigned char *)malloc(bytes); |
| } |
| |
| |
| /******************************** Compressor *********************************/ |
| |
| static tjhandle _tjInitCompress(tjinstance *this) |
| { |
| static unsigned char buffer[1]; |
| unsigned char *buf = buffer; |
| unsigned long size = 1; |
| |
| /* This is also straight out of example.txt */ |
| this->cinfo.err = jpeg_std_error(&this->jerr.pub); |
| this->jerr.pub.error_exit = my_error_exit; |
| this->jerr.pub.output_message = my_output_message; |
| this->jerr.emit_message = this->jerr.pub.emit_message; |
| this->jerr.pub.emit_message = my_emit_message; |
| this->jerr.pub.addon_message_table = turbojpeg_message_table; |
| this->jerr.pub.first_addon_message = JMSG_FIRSTADDONCODE; |
| this->jerr.pub.last_addon_message = JMSG_LASTADDONCODE; |
| |
| if (setjmp(this->jerr.setjmp_buffer)) { |
| /* If we get here, the JPEG code has signaled an error. */ |
| free(this); |
| return NULL; |
| } |
| |
| jpeg_create_compress(&this->cinfo); |
| /* Make an initial call so it will create the destination manager */ |
| jpeg_mem_dest_tj(&this->cinfo, &buf, &size, 0); |
| |
| this->init |= COMPRESS; |
| return (tjhandle)this; |
| } |
| |
| /* TurboJPEG 1.0+ */ |
| DLLEXPORT tjhandle tjInitCompress(void) |
| { |
| tjinstance *this = NULL; |
| |
| if ((this = (tjinstance *)malloc(sizeof(tjinstance))) == NULL) { |
| SNPRINTF(errStr, JMSG_LENGTH_MAX, |
| "tjInitCompress(): Memory allocation failure"); |
| return NULL; |
| } |
| memset(this, 0, sizeof(tjinstance)); |
| SNPRINTF(this->errStr, JMSG_LENGTH_MAX, "No error"); |
| return _tjInitCompress(this); |
| } |
| |
| |
| /* TurboJPEG 1.2+ */ |
| DLLEXPORT unsigned long tjBufSize(int width, int height, int jpegSubsamp) |
| { |
| unsigned long long retval = 0; |
| int mcuw, mcuh, chromasf; |
| |
| if (width < 1 || height < 1 || jpegSubsamp < 0 || jpegSubsamp >= TJ_NUMSAMP) |
| THROWG("tjBufSize(): Invalid argument"); |
| |
| /* This allows for rare corner cases in which a JPEG image can actually be |
| larger than the uncompressed input (we wouldn't mention it if it hadn't |
| happened before.) */ |
| mcuw = tjMCUWidth[jpegSubsamp]; |
| mcuh = tjMCUHeight[jpegSubsamp]; |
| chromasf = jpegSubsamp == TJSAMP_GRAY ? 0 : 4 * 64 / (mcuw * mcuh); |
| retval = PAD(width, mcuw) * PAD(height, mcuh) * (2ULL + chromasf) + 2048ULL; |
| if (retval > (unsigned long long)((unsigned long)-1)) |
| THROWG("tjBufSize(): Image is too large"); |
| |
| bailout: |
| return (unsigned long)retval; |
| } |
| |
| /* TurboJPEG 1.0+ */ |
| DLLEXPORT unsigned long TJBUFSIZE(int width, int height) |
| { |
| unsigned long long retval = 0; |
| |
| if (width < 1 || height < 1) |
| THROWG("TJBUFSIZE(): Invalid argument"); |
| |
| /* This allows for rare corner cases in which a JPEG image can actually be |
| larger than the uncompressed input (we wouldn't mention it if it hadn't |
| happened before.) */ |
| retval = PAD(width, 16) * PAD(height, 16) * 6ULL + 2048ULL; |
| if (retval > (unsigned long long)((unsigned long)-1)) |
| THROWG("TJBUFSIZE(): Image is too large"); |
| |
| bailout: |
| return (unsigned long)retval; |
| } |
| |
| |
| /* TurboJPEG 1.4+ */ |
| DLLEXPORT unsigned long tjBufSizeYUV2(int width, int align, int height, |
| int subsamp) |
| { |
| unsigned long long retval = 0; |
| int nc, i; |
| |
| if (align < 1 || !IS_POW2(align) || subsamp < 0 || subsamp >= TJ_NUMSAMP) |
| THROWG("tjBufSizeYUV2(): Invalid argument"); |
| |
| nc = (subsamp == TJSAMP_GRAY ? 1 : 3); |
| for (i = 0; i < nc; i++) { |
| int pw = tjPlaneWidth(i, width, subsamp); |
| int stride = PAD(pw, align); |
| int ph = tjPlaneHeight(i, height, subsamp); |
| |
| if (pw < 0 || ph < 0) return -1; |
| else retval += (unsigned long long)stride * ph; |
| } |
| if (retval > (unsigned long long)((unsigned long)-1)) |
| THROWG("tjBufSizeYUV2(): Image is too large"); |
| |
| bailout: |
| return (unsigned long)retval; |
| } |
| |
| /* TurboJPEG 1.2+ */ |
| DLLEXPORT unsigned long tjBufSizeYUV(int width, int height, int subsamp) |
| { |
| return tjBufSizeYUV2(width, 4, height, subsamp); |
| } |
| |
| /* TurboJPEG 1.1+ */ |
| DLLEXPORT unsigned long TJBUFSIZEYUV(int width, int height, int subsamp) |
| { |
| return tjBufSizeYUV(width, height, subsamp); |
| } |
| |
| |
| /* TurboJPEG 1.4+ */ |
| DLLEXPORT int tjPlaneWidth(int componentID, int width, int subsamp) |
| { |
| unsigned long long pw, retval = 0; |
| int nc; |
| |
| if (width < 1 || subsamp < 0 || subsamp >= TJ_NUMSAMP) |
| THROWG("tjPlaneWidth(): Invalid argument"); |
| nc = (subsamp == TJSAMP_GRAY ? 1 : 3); |
| if (componentID < 0 || componentID >= nc) |
| THROWG("tjPlaneWidth(): Invalid argument"); |
| |
| pw = PAD((unsigned long long)width, tjMCUWidth[subsamp] / 8); |
| if (componentID == 0) |
| retval = pw; |
| else |
| retval = pw * 8 / tjMCUWidth[subsamp]; |
| |
| if (retval > (unsigned long long)INT_MAX) |
| THROWG("tjPlaneWidth(): Width is too large"); |
| |
| bailout: |
| return (int)retval; |
| } |
| |
| |
| /* TurboJPEG 1.4+ */ |
| DLLEXPORT int tjPlaneHeight(int componentID, int height, int subsamp) |
| { |
| unsigned long long ph, retval = 0; |
| int nc; |
| |
| if (height < 1 || subsamp < 0 || subsamp >= TJ_NUMSAMP) |
| THROWG("tjPlaneHeight(): Invalid argument"); |
| nc = (subsamp == TJSAMP_GRAY ? 1 : 3); |
| if (componentID < 0 || componentID >= nc) |
| THROWG("tjPlaneHeight(): Invalid argument"); |
| |
| ph = PAD((unsigned long long)height, tjMCUHeight[subsamp] / 8); |
| if (componentID == 0) |
| retval = ph; |
| else |
| retval = ph * 8 / tjMCUHeight[subsamp]; |
| |
| if (retval > (unsigned long long)INT_MAX) |
| THROWG("tjPlaneHeight(): Height is too large"); |
| |
| bailout: |
| return (int)retval; |
| } |
| |
| |
| /* TurboJPEG 1.4+ */ |
| DLLEXPORT unsigned long tjPlaneSizeYUV(int componentID, int width, int stride, |
| int height, int subsamp) |
| { |
| unsigned long long retval = 0; |
| int pw, ph; |
| |
| if (width < 1 || height < 1 || subsamp < 0 || subsamp >= TJ_NUMSAMP) |
| THROWG("tjPlaneSizeYUV(): Invalid argument"); |
| |
| pw = tjPlaneWidth(componentID, width, subsamp); |
| ph = tjPlaneHeight(componentID, height, subsamp); |
| if (pw < 0 || ph < 0) return -1; |
| |
| if (stride == 0) stride = pw; |
| else stride = abs(stride); |
| |
| retval = (unsigned long long)stride * (ph - 1) + pw; |
| if (retval > (unsigned long long)((unsigned long)-1)) |
| THROWG("tjPlaneSizeYUV(): Image is too large"); |
| |
| bailout: |
| return (unsigned long)retval; |
| } |
| |
| |
| /* TurboJPEG 1.2+ */ |
| DLLEXPORT int tjCompress2(tjhandle handle, const unsigned char *srcBuf, |
| int width, int pitch, int height, int pixelFormat, |
| unsigned char **jpegBuf, unsigned long *jpegSize, |
| int jpegSubsamp, int jpegQual, int flags) |
| { |
| int i, retval = 0; |
| boolean alloc = TRUE; |
| JSAMPROW *row_pointer = NULL; |
| |
| GET_CINSTANCE(handle) |
| this->jerr.stopOnWarning = (flags & TJFLAG_STOPONWARNING) ? TRUE : FALSE; |
| if ((this->init & COMPRESS) == 0) |
| THROW("tjCompress2(): Instance has not been initialized for compression"); |
| |
| if (srcBuf == NULL || width <= 0 || pitch < 0 || height <= 0 || |
| pixelFormat < 0 || pixelFormat >= TJ_NUMPF || jpegBuf == NULL || |
| jpegSize == NULL || jpegSubsamp < 0 || jpegSubsamp >= TJ_NUMSAMP || |
| jpegQual < 0 || jpegQual > 100) |
| THROW("tjCompress2(): Invalid argument"); |
| |
| if (pitch == 0) pitch = width * tjPixelSize[pixelFormat]; |
| |
| if ((row_pointer = (JSAMPROW *)malloc(sizeof(JSAMPROW) * height)) == NULL) |
| THROW("tjCompress2(): Memory allocation failure"); |
| |
| if (setjmp(this->jerr.setjmp_buffer)) { |
| /* If we get here, the JPEG code has signaled an error. */ |
| retval = -1; goto bailout; |
| } |
| |
| cinfo->image_width = width; |
| cinfo->image_height = height; |
| |
| #ifndef NO_PUTENV |
| if (flags & TJFLAG_FORCEMMX) PUTENV_S("JSIMD_FORCEMMX", "1"); |
| else if (flags & TJFLAG_FORCESSE) PUTENV_S("JSIMD_FORCESSE", "1"); |
| else if (flags & TJFLAG_FORCESSE2) PUTENV_S("JSIMD_FORCESSE2", "1"); |
| #endif |
| |
| if (flags & TJFLAG_NOREALLOC) { |
| alloc = FALSE; *jpegSize = tjBufSize(width, height, jpegSubsamp); |
| } |
| jpeg_mem_dest_tj(cinfo, jpegBuf, jpegSize, alloc); |
| setCompDefaults(cinfo, pixelFormat, jpegSubsamp, jpegQual, flags); |
| |
| jpeg_start_compress(cinfo, TRUE); |
| for (i = 0; i < height; i++) { |
| if (flags & TJFLAG_BOTTOMUP) |
| row_pointer[i] = (JSAMPROW)&srcBuf[(height - i - 1) * (size_t)pitch]; |
| else |
| row_pointer[i] = (JSAMPROW)&srcBuf[i * (size_t)pitch]; |
| } |
| while (cinfo->next_scanline < cinfo->image_height) |
| jpeg_write_scanlines(cinfo, &row_pointer[cinfo->next_scanline], |
| cinfo->image_height - cinfo->next_scanline); |
| jpeg_finish_compress(cinfo); |
| |
| bailout: |
| if (cinfo->global_state > CSTATE_START) { |
| if (alloc) (*cinfo->dest->term_destination) (cinfo); |
| jpeg_abort_compress(cinfo); |
| } |
| free(row_pointer); |
| if (this->jerr.warning) retval = -1; |
| this->jerr.stopOnWarning = FALSE; |
| return retval; |
| } |
| |
| /* TurboJPEG 1.0+ */ |
| DLLEXPORT int tjCompress(tjhandle handle, unsigned char *srcBuf, int width, |
| int pitch, int height, int pixelSize, |
| unsigned char *jpegBuf, unsigned long *jpegSize, |
| int jpegSubsamp, int jpegQual, int flags) |
| { |
| int retval = 0; |
| unsigned long size; |
| |
| if (flags & TJ_YUV) { |
| size = tjBufSizeYUV(width, height, jpegSubsamp); |
| retval = tjEncodeYUV2(handle, srcBuf, width, pitch, height, |
| getPixelFormat(pixelSize, flags), jpegBuf, |
| jpegSubsamp, flags); |
| } else { |
| retval = tjCompress2(handle, srcBuf, width, pitch, height, |
| getPixelFormat(pixelSize, flags), &jpegBuf, &size, |
| jpegSubsamp, jpegQual, flags | TJFLAG_NOREALLOC); |
| } |
| *jpegSize = size; |
| return retval; |
| } |
| |
| |
| /* TurboJPEG 1.4+ */ |
| DLLEXPORT int tjEncodeYUVPlanes(tjhandle handle, const unsigned char *srcBuf, |
| int width, int pitch, int height, |
| int pixelFormat, unsigned char **dstPlanes, |
| int *strides, int subsamp, int flags) |
| { |
| JSAMPROW *row_pointer = NULL; |
| JSAMPLE *_tmpbuf[MAX_COMPONENTS], *_tmpbuf2[MAX_COMPONENTS]; |
| JSAMPROW *tmpbuf[MAX_COMPONENTS], *tmpbuf2[MAX_COMPONENTS]; |
| JSAMPROW *outbuf[MAX_COMPONENTS]; |
| int i, retval = 0, row, pw0, ph0, pw[MAX_COMPONENTS], ph[MAX_COMPONENTS]; |
| JSAMPLE *ptr; |
| jpeg_component_info *compptr; |
| |
| GET_CINSTANCE(handle); |
| this->jerr.stopOnWarning = (flags & TJFLAG_STOPONWARNING) ? TRUE : FALSE; |
| |
| for (i = 0; i < MAX_COMPONENTS; i++) { |
| tmpbuf[i] = NULL; _tmpbuf[i] = NULL; |
| tmpbuf2[i] = NULL; _tmpbuf2[i] = NULL; outbuf[i] = NULL; |
| } |
| |
| if ((this->init & COMPRESS) == 0) |
| THROW("tjEncodeYUVPlanes(): Instance has not been initialized for compression"); |
| |
| if (srcBuf == NULL || width <= 0 || pitch < 0 || height <= 0 || |
| pixelFormat < 0 || pixelFormat >= TJ_NUMPF || !dstPlanes || |
| !dstPlanes[0] || subsamp < 0 || subsamp >= TJ_NUMSAMP) |
| THROW("tjEncodeYUVPlanes(): Invalid argument"); |
| if (subsamp != TJSAMP_GRAY && (!dstPlanes[1] || !dstPlanes[2])) |
| THROW("tjEncodeYUVPlanes(): Invalid argument"); |
| |
| if (pixelFormat == TJPF_CMYK) |
| THROW("tjEncodeYUVPlanes(): Cannot generate YUV images from packed-pixel CMYK images"); |
| |
| if (pitch == 0) pitch = width * tjPixelSize[pixelFormat]; |
| |
| if (setjmp(this->jerr.setjmp_buffer)) { |
| /* If we get here, the JPEG code has signaled an error. */ |
| retval = -1; goto bailout; |
| } |
| |
| cinfo->image_width = width; |
| cinfo->image_height = height; |
| |
| #ifndef NO_PUTENV |
| if (flags & TJFLAG_FORCEMMX) PUTENV_S("JSIMD_FORCEMMX", "1"); |
| else if (flags & TJFLAG_FORCESSE) PUTENV_S("JSIMD_FORCESSE", "1"); |
| else if (flags & TJFLAG_FORCESSE2) PUTENV_S("JSIMD_FORCESSE2", "1"); |
| #endif |
| |
| setCompDefaults(cinfo, pixelFormat, subsamp, -1, flags); |
| |
| /* Execute only the parts of jpeg_start_compress() that we need. If we |
| were to call the whole jpeg_start_compress() function, then it would try |
| to write the file headers, which could overflow the output buffer if the |
| YUV image were very small. */ |
| if (cinfo->global_state != CSTATE_START) |
| THROW("tjEncodeYUVPlanes(): libjpeg API is in the wrong state"); |
| (*cinfo->err->reset_error_mgr) ((j_common_ptr)cinfo); |
| jinit_c_master_control(cinfo, FALSE); |
| jinit_color_converter(cinfo); |
| jinit_downsampler(cinfo); |
| (*cinfo->cconvert->start_pass) (cinfo); |
| |
| pw0 = PAD(width, cinfo->max_h_samp_factor); |
| ph0 = PAD(height, cinfo->max_v_samp_factor); |
| |
| if ((row_pointer = (JSAMPROW *)malloc(sizeof(JSAMPROW) * ph0)) == NULL) |
| THROW("tjEncodeYUVPlanes(): Memory allocation failure"); |
| for (i = 0; i < height; i++) { |
| if (flags & TJFLAG_BOTTOMUP) |
| row_pointer[i] = (JSAMPROW)&srcBuf[(height - i - 1) * (size_t)pitch]; |
| else |
| row_pointer[i] = (JSAMPROW)&srcBuf[i * (size_t)pitch]; |
| } |
| if (height < ph0) |
| for (i = height; i < ph0; i++) row_pointer[i] = row_pointer[height - 1]; |
| |
| for (i = 0; i < cinfo->num_components; i++) { |
| compptr = &cinfo->comp_info[i]; |
| _tmpbuf[i] = (JSAMPLE *)malloc( |
| PAD((compptr->width_in_blocks * cinfo->max_h_samp_factor * DCTSIZE) / |
| compptr->h_samp_factor, 32) * |
| cinfo->max_v_samp_factor + 32); |
| if (!_tmpbuf[i]) |
| THROW("tjEncodeYUVPlanes(): Memory allocation failure"); |
| tmpbuf[i] = |
| (JSAMPROW *)malloc(sizeof(JSAMPROW) * cinfo->max_v_samp_factor); |
| if (!tmpbuf[i]) |
| THROW("tjEncodeYUVPlanes(): Memory allocation failure"); |
| for (row = 0; row < cinfo->max_v_samp_factor; row++) { |
| unsigned char *_tmpbuf_aligned = |
| (unsigned char *)PAD((JUINTPTR)_tmpbuf[i], 32); |
| |
| tmpbuf[i][row] = &_tmpbuf_aligned[ |
| PAD((compptr->width_in_blocks * cinfo->max_h_samp_factor * DCTSIZE) / |
| compptr->h_samp_factor, 32) * row]; |
| } |
| _tmpbuf2[i] = |
| (JSAMPLE *)malloc(PAD(compptr->width_in_blocks * DCTSIZE, 32) * |
| compptr->v_samp_factor + 32); |
| if (!_tmpbuf2[i]) |
| THROW("tjEncodeYUVPlanes(): Memory allocation failure"); |
| tmpbuf2[i] = (JSAMPROW *)malloc(sizeof(JSAMPROW) * compptr->v_samp_factor); |
| if (!tmpbuf2[i]) |
| THROW("tjEncodeYUVPlanes(): Memory allocation failure"); |
| for (row = 0; row < compptr->v_samp_factor; row++) { |
| unsigned char *_tmpbuf2_aligned = |
| (unsigned char *)PAD((JUINTPTR)_tmpbuf2[i], 32); |
| |
| tmpbuf2[i][row] = |
| &_tmpbuf2_aligned[PAD(compptr->width_in_blocks * DCTSIZE, 32) * row]; |
| } |
| pw[i] = pw0 * compptr->h_samp_factor / cinfo->max_h_samp_factor; |
| ph[i] = ph0 * compptr->v_samp_factor / cinfo->max_v_samp_factor; |
| outbuf[i] = (JSAMPROW *)malloc(sizeof(JSAMPROW) * ph[i]); |
| if (!outbuf[i]) |
| THROW("tjEncodeYUVPlanes(): Memory allocation failure"); |
| ptr = dstPlanes[i]; |
| for (row = 0; row < ph[i]; row++) { |
| outbuf[i][row] = ptr; |
| ptr += (strides && strides[i] != 0) ? strides[i] : pw[i]; |
| } |
| } |
| |
| if (setjmp(this->jerr.setjmp_buffer)) { |
| /* If we get here, the JPEG code has signaled an error. */ |
| retval = -1; goto bailout; |
| } |
| |
| for (row = 0; row < ph0; row += cinfo->max_v_samp_factor) { |
| (*cinfo->cconvert->color_convert) (cinfo, &row_pointer[row], tmpbuf, 0, |
| cinfo->max_v_samp_factor); |
| (cinfo->downsample->downsample) (cinfo, tmpbuf, 0, tmpbuf2, 0); |
| for (i = 0, compptr = cinfo->comp_info; i < cinfo->num_components; |
| i++, compptr++) |
| jcopy_sample_rows(tmpbuf2[i], 0, outbuf[i], |
| row * compptr->v_samp_factor / cinfo->max_v_samp_factor, |
| compptr->v_samp_factor, pw[i]); |
| } |
| cinfo->next_scanline += height; |
| jpeg_abort_compress(cinfo); |
| |
| bailout: |
| if (cinfo->global_state > CSTATE_START) jpeg_abort_compress(cinfo); |
| free(row_pointer); |
| for (i = 0; i < MAX_COMPONENTS; i++) { |
| free(tmpbuf[i]); |
| free(_tmpbuf[i]); |
| free(tmpbuf2[i]); |
| free(_tmpbuf2[i]); |
| free(outbuf[i]); |
| } |
| if (this->jerr.warning) retval = -1; |
| this->jerr.stopOnWarning = FALSE; |
| return retval; |
| } |
| |
| /* TurboJPEG 1.4+ */ |
| DLLEXPORT int tjEncodeYUV3(tjhandle handle, const unsigned char *srcBuf, |
| int width, int pitch, int height, int pixelFormat, |
| unsigned char *dstBuf, int align, int subsamp, |
| int flags) |
| { |
| unsigned char *dstPlanes[3]; |
| int pw0, ph0, strides[3], retval = -1; |
| tjinstance *this = (tjinstance *)handle; |
| |
| if (!this) THROWG("tjEncodeYUV3(): Invalid handle"); |
| this->isInstanceError = FALSE; |
| |
| if (width <= 0 || height <= 0 || dstBuf == NULL || align < 1 || |
| !IS_POW2(align) || subsamp < 0 || subsamp >= TJ_NUMSAMP) |
| THROW("tjEncodeYUV3(): Invalid argument"); |
| |
| pw0 = tjPlaneWidth(0, width, subsamp); |
| ph0 = tjPlaneHeight(0, height, subsamp); |
| dstPlanes[0] = dstBuf; |
| strides[0] = PAD(pw0, align); |
| if (subsamp == TJSAMP_GRAY) { |
| strides[1] = strides[2] = 0; |
| dstPlanes[1] = dstPlanes[2] = NULL; |
| } else { |
| int pw1 = tjPlaneWidth(1, width, subsamp); |
| int ph1 = tjPlaneHeight(1, height, subsamp); |
| |
| strides[1] = strides[2] = PAD(pw1, align); |
| dstPlanes[1] = dstPlanes[0] + strides[0] * ph0; |
| dstPlanes[2] = dstPlanes[1] + strides[1] * ph1; |
| } |
| |
| return tjEncodeYUVPlanes(handle, srcBuf, width, pitch, height, pixelFormat, |
| dstPlanes, strides, subsamp, flags); |
| |
| bailout: |
| return retval; |
| } |
| |
| /* TurboJPEG 1.2+ */ |
| DLLEXPORT int tjEncodeYUV2(tjhandle handle, unsigned char *srcBuf, int width, |
| int pitch, int height, int pixelFormat, |
| unsigned char *dstBuf, int subsamp, int flags) |
| { |
| return tjEncodeYUV3(handle, srcBuf, width, pitch, height, pixelFormat, |
| dstBuf, 4, subsamp, flags); |
| } |
| |
| /* TurboJPEG 1.1+ */ |
| DLLEXPORT int tjEncodeYUV(tjhandle handle, unsigned char *srcBuf, int width, |
| int pitch, int height, int pixelSize, |
| unsigned char *dstBuf, int subsamp, int flags) |
| { |
| return tjEncodeYUV2(handle, srcBuf, width, pitch, height, |
| getPixelFormat(pixelSize, flags), dstBuf, subsamp, |
| flags); |
| } |
| |
| |
| /* TurboJPEG 1.4+ */ |
| DLLEXPORT int tjCompressFromYUVPlanes(tjhandle handle, |
| const unsigned char **srcPlanes, |
| int width, const int *strides, |
| int height, int subsamp, |
| unsigned char **jpegBuf, |
| unsigned long *jpegSize, int jpegQual, |
| int flags) |
| { |
| int i, row, retval = 0; |
| boolean alloc = TRUE; |
| int pw[MAX_COMPONENTS], ph[MAX_COMPONENTS], iw[MAX_COMPONENTS], |
| tmpbufsize = 0, usetmpbuf = 0, th[MAX_COMPONENTS]; |
| JSAMPLE *_tmpbuf = NULL, *ptr; |
| JSAMPROW *inbuf[MAX_COMPONENTS], *tmpbuf[MAX_COMPONENTS]; |
| |
| GET_CINSTANCE(handle) |
| this->jerr.stopOnWarning = (flags & TJFLAG_STOPONWARNING) ? TRUE : FALSE; |
| |
| for (i = 0; i < MAX_COMPONENTS; i++) { |
| tmpbuf[i] = NULL; inbuf[i] = NULL; |
| } |
| |
| if ((this->init & COMPRESS) == 0) |
| THROW("tjCompressFromYUVPlanes(): Instance has not been initialized for compression"); |
| |
| if (!srcPlanes || !srcPlanes[0] || width <= 0 || height <= 0 || |
| subsamp < 0 || subsamp >= TJ_NUMSAMP || jpegBuf == NULL || |
| jpegSize == NULL || jpegQual < 0 || jpegQual > 100) |
| THROW("tjCompressFromYUVPlanes(): Invalid argument"); |
| if (subsamp != TJSAMP_GRAY && (!srcPlanes[1] || !srcPlanes[2])) |
| THROW("tjCompressFromYUVPlanes(): Invalid argument"); |
| |
| if (setjmp(this->jerr.setjmp_buffer)) { |
| /* If we get here, the JPEG code has signaled an error. */ |
| retval = -1; goto bailout; |
| } |
| |
| cinfo->image_width = width; |
| cinfo->image_height = height; |
| |
| #ifndef NO_PUTENV |
| if (flags & TJFLAG_FORCEMMX) PUTENV_S("JSIMD_FORCEMMX", "1"); |
| else if (flags & TJFLAG_FORCESSE) PUTENV_S("JSIMD_FORCESSE", "1"); |
| else if (flags & TJFLAG_FORCESSE2) PUTENV_S("JSIMD_FORCESSE2", "1"); |
| #endif |
| |
| if (flags & TJFLAG_NOREALLOC) { |
| alloc = FALSE; *jpegSize = tjBufSize(width, height, subsamp); |
| } |
| jpeg_mem_dest_tj(cinfo, jpegBuf, jpegSize, alloc); |
| setCompDefaults(cinfo, TJPF_RGB, subsamp, jpegQual, flags); |
| cinfo->raw_data_in = TRUE; |
| |
| jpeg_start_compress(cinfo, TRUE); |
| for (i = 0; i < cinfo->num_components; i++) { |
| jpeg_component_info *compptr = &cinfo->comp_info[i]; |
| int ih; |
| |
| iw[i] = compptr->width_in_blocks * DCTSIZE; |
| ih = compptr->height_in_blocks * DCTSIZE; |
| pw[i] = PAD(cinfo->image_width, cinfo->max_h_samp_factor) * |
| compptr->h_samp_factor / cinfo->max_h_samp_factor; |
| ph[i] = PAD(cinfo->image_height, cinfo->max_v_samp_factor) * |
| compptr->v_samp_factor / cinfo->max_v_samp_factor; |
| if (iw[i] != pw[i] || ih != ph[i]) usetmpbuf = 1; |
| th[i] = compptr->v_samp_factor * DCTSIZE; |
| tmpbufsize += iw[i] * th[i]; |
| if ((inbuf[i] = (JSAMPROW *)malloc(sizeof(JSAMPROW) * ph[i])) == NULL) |
| THROW("tjCompressFromYUVPlanes(): Memory allocation failure"); |
| ptr = (JSAMPLE *)srcPlanes[i]; |
| for (row = 0; row < ph[i]; row++) { |
| inbuf[i][row] = ptr; |
| ptr += (strides && strides[i] != 0) ? strides[i] : pw[i]; |
| } |
| } |
| if (usetmpbuf) { |
| if ((_tmpbuf = (JSAMPLE *)malloc(sizeof(JSAMPLE) * tmpbufsize)) == NULL) |
| THROW("tjCompressFromYUVPlanes(): Memory allocation failure"); |
| ptr = _tmpbuf; |
| for (i = 0; i < cinfo->num_components; i++) { |
| if ((tmpbuf[i] = (JSAMPROW *)malloc(sizeof(JSAMPROW) * th[i])) == NULL) |
| THROW("tjCompressFromYUVPlanes(): Memory allocation failure"); |
| for (row = 0; row < th[i]; row++) { |
| tmpbuf[i][row] = ptr; |
| ptr += iw[i]; |
| } |
| } |
| } |
| |
| if (setjmp(this->jerr.setjmp_buffer)) { |
| /* If we get here, the JPEG code has signaled an error. */ |
| retval = -1; goto bailout; |
| } |
| |
| for (row = 0; row < (int)cinfo->image_height; |
| row += cinfo->max_v_samp_factor * DCTSIZE) { |
| JSAMPARRAY yuvptr[MAX_COMPONENTS]; |
| int crow[MAX_COMPONENTS]; |
| |
| for (i = 0; i < cinfo->num_components; i++) { |
| jpeg_component_info *compptr = &cinfo->comp_info[i]; |
| |
| crow[i] = row * compptr->v_samp_factor / cinfo->max_v_samp_factor; |
| if (usetmpbuf) { |
| int j, k; |
| |
| for (j = 0; j < MIN(th[i], ph[i] - crow[i]); j++) { |
| memcpy(tmpbuf[i][j], inbuf[i][crow[i] + j], pw[i]); |
| /* Duplicate last sample in row to fill out MCU */ |
| for (k = pw[i]; k < iw[i]; k++) |
| tmpbuf[i][j][k] = tmpbuf[i][j][pw[i] - 1]; |
| } |
| /* Duplicate last row to fill out MCU */ |
| for (j = ph[i] - crow[i]; j < th[i]; j++) |
| memcpy(tmpbuf[i][j], tmpbuf[i][ph[i] - crow[i] - 1], iw[i]); |
| yuvptr[i] = tmpbuf[i]; |
| } else |
| yuvptr[i] = &inbuf[i][crow[i]]; |
| } |
| jpeg_write_raw_data(cinfo, yuvptr, cinfo->max_v_samp_factor * DCTSIZE); |
| } |
| jpeg_finish_compress(cinfo); |
| |
| bailout: |
| if (cinfo->global_state > CSTATE_START) { |
| if (alloc) (*cinfo->dest->term_destination) (cinfo); |
| jpeg_abort_compress(cinfo); |
| } |
| for (i = 0; i < MAX_COMPONENTS; i++) { |
| free(tmpbuf[i]); |
| free(inbuf[i]); |
| } |
| free(_tmpbuf); |
| if (this->jerr.warning) retval = -1; |
| this->jerr.stopOnWarning = FALSE; |
| return retval; |
| } |
| |
| /* TurboJPEG 1.4+ */ |
| DLLEXPORT int tjCompressFromYUV(tjhandle handle, const unsigned char *srcBuf, |
| int width, int align, int height, int subsamp, |
| unsigned char **jpegBuf, |
| unsigned long *jpegSize, int jpegQual, |
| int flags) |
| { |
| const unsigned char *srcPlanes[3]; |
| int pw0, ph0, strides[3], retval = -1; |
| tjinstance *this = (tjinstance *)handle; |
| |
| if (!this) THROWG("tjCompressFromYUV(): Invalid handle"); |
| this->isInstanceError = FALSE; |
| |
| if (srcBuf == NULL || width <= 0 || align < 1 || !IS_POW2(align) || |
| height <= 0 || subsamp < 0 || subsamp >= TJ_NUMSAMP) |
| THROW("tjCompressFromYUV(): Invalid argument"); |
| |
| pw0 = tjPlaneWidth(0, width, subsamp); |
| ph0 = tjPlaneHeight(0, height, subsamp); |
| srcPlanes[0] = srcBuf; |
| strides[0] = PAD(pw0, align); |
| if (subsamp == TJSAMP_GRAY) { |
| strides[1] = strides[2] = 0; |
| srcPlanes[1] = srcPlanes[2] = NULL; |
| } else { |
| int pw1 = tjPlaneWidth(1, width, subsamp); |
| int ph1 = tjPlaneHeight(1, height, subsamp); |
| |
| strides[1] = strides[2] = PAD(pw1, align); |
| srcPlanes[1] = srcPlanes[0] + strides[0] * ph0; |
| srcPlanes[2] = srcPlanes[1] + strides[1] * ph1; |
| } |
| |
| return tjCompressFromYUVPlanes(handle, srcPlanes, width, strides, height, |
| subsamp, jpegBuf, jpegSize, jpegQual, flags); |
| |
| bailout: |
| return retval; |
| } |
| |
| |
| /******************************* Decompressor ********************************/ |
| |
| static tjhandle _tjInitDecompress(tjinstance *this) |
| { |
| static unsigned char buffer[1]; |
| |
| /* This is also straight out of example.txt */ |
| this->dinfo.err = jpeg_std_error(&this->jerr.pub); |
| this->jerr.pub.error_exit = my_error_exit; |
| this->jerr.pub.output_message = my_output_message; |
| this->jerr.emit_message = this->jerr.pub.emit_message; |
| this->jerr.pub.emit_message = my_emit_message; |
| this->jerr.pub.addon_message_table = turbojpeg_message_table; |
| this->jerr.pub.first_addon_message = JMSG_FIRSTADDONCODE; |
| this->jerr.pub.last_addon_message = JMSG_LASTADDONCODE; |
| |
| if (setjmp(this->jerr.setjmp_buffer)) { |
| /* If we get here, the JPEG code has signaled an error. */ |
| free(this); |
| return NULL; |
| } |
| |
| jpeg_create_decompress(&this->dinfo); |
| /* Make an initial call so it will create the source manager */ |
| jpeg_mem_src_tj(&this->dinfo, buffer, 1); |
| |
| this->init |= DECOMPRESS; |
| return (tjhandle)this; |
| } |
| |
| /* TurboJPEG 1.0+ */ |
| DLLEXPORT tjhandle tjInitDecompress(void) |
| { |
| tjinstance *this; |
| |
| if ((this = (tjinstance *)malloc(sizeof(tjinstance))) == NULL) { |
| SNPRINTF(errStr, JMSG_LENGTH_MAX, |
| "tjInitDecompress(): Memory allocation failure"); |
| return NULL; |
| } |
| memset(this, 0, sizeof(tjinstance)); |
| SNPRINTF(this->errStr, JMSG_LENGTH_MAX, "No error"); |
| return _tjInitDecompress(this); |
| } |
| |
| |
| /* TurboJPEG 1.4+ */ |
| DLLEXPORT int tjDecompressHeader3(tjhandle handle, |
| const unsigned char *jpegBuf, |
| unsigned long jpegSize, int *width, |
| int *height, int *jpegSubsamp, |
| int *jpegColorspace) |
| { |
| int retval = 0; |
| |
| GET_DINSTANCE(handle); |
| if ((this->init & DECOMPRESS) == 0) |
| THROW("tjDecompressHeader3(): Instance has not been initialized for decompression"); |
| |
| if (jpegBuf == NULL || jpegSize <= 0 || width == NULL || height == NULL || |
| jpegSubsamp == NULL || jpegColorspace == NULL) |
| THROW("tjDecompressHeader3(): Invalid argument"); |
| |
| if (setjmp(this->jerr.setjmp_buffer)) { |
| /* If we get here, the JPEG code has signaled an error. */ |
| return -1; |
| } |
| |
| jpeg_mem_src_tj(dinfo, jpegBuf, jpegSize); |
| |
| /* jpeg_read_header() calls jpeg_abort() and returns JPEG_HEADER_TABLES_ONLY |
| if the datastream is a tables-only datastream. Since we aren't using a |
| suspending data source, the only other value it can return is |
| JPEG_HEADER_OK. */ |
| if (jpeg_read_header(dinfo, FALSE) == JPEG_HEADER_TABLES_ONLY) |
| return 0; |
| |
| *width = dinfo->image_width; |
| *height = dinfo->image_height; |
| *jpegSubsamp = getSubsamp(dinfo); |
| switch (dinfo->jpeg_color_space) { |
| case JCS_GRAYSCALE: *jpegColorspace = TJCS_GRAY; break; |
| case JCS_RGB: *jpegColorspace = TJCS_RGB; break; |
| case JCS_YCbCr: *jpegColorspace = TJCS_YCbCr; break; |
| case JCS_CMYK: *jpegColorspace = TJCS_CMYK; break; |
| case JCS_YCCK: *jpegColorspace = TJCS_YCCK; break; |
| default: *jpegColorspace = -1; break; |
| } |
| |
| jpeg_abort_decompress(dinfo); |
| |
| if (*jpegSubsamp < 0) |
| THROW("tjDecompressHeader3(): Could not determine subsampling type for JPEG image"); |
| if (*jpegColorspace < 0) |
| THROW("tjDecompressHeader3(): Could not determine colorspace of JPEG image"); |
| if (*width < 1 || *height < 1) |
| THROW("tjDecompressHeader3(): Invalid data returned in header"); |
| |
| bailout: |
| if (this->jerr.warning) retval = -1; |
| return retval; |
| } |
| |
| /* TurboJPEG 1.1+ */ |
| DLLEXPORT int tjDecompressHeader2(tjhandle handle, unsigned char *jpegBuf, |
| unsigned long jpegSize, int *width, |
| int *height, int *jpegSubsamp) |
| { |
| int jpegColorspace; |
| |
| return tjDecompressHeader3(handle, jpegBuf, jpegSize, width, height, |
| jpegSubsamp, &jpegColorspace); |
| } |
| |
| /* TurboJPEG 1.0+ */ |
| DLLEXPORT int tjDecompressHeader(tjhandle handle, unsigned char *jpegBuf, |
| unsigned long jpegSize, int *width, |
| int *height) |
| { |
| int jpegSubsamp; |
| |
| return tjDecompressHeader2(handle, jpegBuf, jpegSize, width, height, |
| &jpegSubsamp); |
| } |
| |
| |
| /* TurboJPEG 1.2+ */ |
| DLLEXPORT tjscalingfactor *tjGetScalingFactors(int *numScalingFactors) |
| { |
| if (numScalingFactors == NULL) { |
| SNPRINTF(errStr, JMSG_LENGTH_MAX, |
| "tjGetScalingFactors(): Invalid argument"); |
| return NULL; |
| } |
| |
| *numScalingFactors = NUMSF; |
| return (tjscalingfactor *)sf; |
| } |
| |
| |
| /* TurboJPEG 1.2+ */ |
| DLLEXPORT int tjDecompress2(tjhandle handle, const unsigned char *jpegBuf, |
| unsigned long jpegSize, unsigned char *dstBuf, |
| int width, int pitch, int height, int pixelFormat, |
| int flags) |
| { |
| JSAMPROW *row_pointer = NULL; |
| int i, retval = 0, jpegwidth, jpegheight, scaledw, scaledh; |
| struct my_progress_mgr progress; |
| |
| GET_DINSTANCE(handle); |
| this->jerr.stopOnWarning = (flags & TJFLAG_STOPONWARNING) ? TRUE : FALSE; |
| if ((this->init & DECOMPRESS) == 0) |
| THROW("tjDecompress2(): Instance has not been initialized for decompression"); |
| |
| if (jpegBuf == NULL || jpegSize <= 0 || dstBuf == NULL || width < 0 || |
| pitch < 0 || height < 0 || pixelFormat < 0 || pixelFormat >= TJ_NUMPF) |
| THROW("tjDecompress2(): Invalid argument"); |
| |
| #ifndef NO_PUTENV |
| if (flags & TJFLAG_FORCEMMX) PUTENV_S("JSIMD_FORCEMMX", "1"); |
| else if (flags & TJFLAG_FORCESSE) PUTENV_S("JSIMD_FORCESSE", "1"); |
| else if (flags & TJFLAG_FORCESSE2) PUTENV_S("JSIMD_FORCESSE2", "1"); |
| #endif |
| |
| if (flags & TJFLAG_LIMITSCANS) { |
| memset(&progress, 0, sizeof(struct my_progress_mgr)); |
| progress.pub.progress_monitor = my_progress_monitor; |
| progress.this = this; |
| dinfo->progress = &progress.pub; |
| } else |
| dinfo->progress = NULL; |
| |
| if (setjmp(this->jerr.setjmp_buffer)) { |
| /* If we get here, the JPEG code has signaled an error. */ |
| retval = -1; goto bailout; |
| } |
| |
| jpeg_mem_src_tj(dinfo, jpegBuf, jpegSize); |
| jpeg_read_header(dinfo, TRUE); |
| this->dinfo.out_color_space = pf2cs[pixelFormat]; |
| if (flags & TJFLAG_FASTDCT) this->dinfo.dct_method = JDCT_FASTEST; |
| if (flags & TJFLAG_FASTUPSAMPLE) dinfo->do_fancy_upsampling = FALSE; |
| |
| jpegwidth = dinfo->image_width; jpegheight = dinfo->image_height; |
| if (width == 0) width = jpegwidth; |
| if (height == 0) height = jpegheight; |
| for (i = 0; i < NUMSF; i++) { |
| scaledw = TJSCALED(jpegwidth, sf[i]); |
| scaledh = TJSCALED(jpegheight, sf[i]); |
| if (scaledw <= width && scaledh <= height) |
| break; |
| } |
| if (i >= NUMSF) |
| THROW("tjDecompress2(): Could not scale down to desired image dimensions"); |
| width = scaledw; height = scaledh; |
| dinfo->scale_num = sf[i].num; |
| dinfo->scale_denom = sf[i].denom; |
| |
| jpeg_start_decompress(dinfo); |
| if (pitch == 0) pitch = dinfo->output_width * tjPixelSize[pixelFormat]; |
| |
| if ((row_pointer = |
| (JSAMPROW *)malloc(sizeof(JSAMPROW) * dinfo->output_height)) == NULL) |
| THROW("tjDecompress2(): Memory allocation failure"); |
| if (setjmp(this->jerr.setjmp_buffer)) { |
| /* If we get here, the JPEG code has signaled an error. */ |
| retval = -1; goto bailout; |
| } |
| for (i = 0; i < (int)dinfo->output_height; i++) { |
| if (flags & TJFLAG_BOTTOMUP) |
| row_pointer[i] = &dstBuf[(dinfo->output_height - i - 1) * (size_t)pitch]; |
| else |
| row_pointer[i] = &dstBuf[i * (size_t)pitch]; |
| } |
| while (dinfo->output_scanline < dinfo->output_height) |
| jpeg_read_scanlines(dinfo, &row_pointer[dinfo->output_scanline], |
| dinfo->output_height - dinfo->output_scanline); |
| jpeg_finish_decompress(dinfo); |
| |
| bailout: |
| if (dinfo->global_state > DSTATE_START) jpeg_abort_decompress(dinfo); |
| free(row_pointer); |
| if (this->jerr.warning) retval = -1; |
| this->jerr.stopOnWarning = FALSE; |
| return retval; |
| } |
| |
| /* TurboJPEG 1.0+ */ |
| DLLEXPORT int tjDecompress(tjhandle handle, unsigned char *jpegBuf, |
| unsigned long jpegSize, unsigned char *dstBuf, |
| int width, int pitch, int height, int pixelSize, |
| int flags) |
| { |
| if (flags & TJ_YUV) |
| return tjDecompressToYUV(handle, jpegBuf, jpegSize, dstBuf, flags); |
| else |
| return tjDecompress2(handle, jpegBuf, jpegSize, dstBuf, width, pitch, |
| height, getPixelFormat(pixelSize, flags), flags); |
| } |
| |
| |
| static void setDecodeDefaults(struct jpeg_decompress_struct *dinfo, |
| int pixelFormat, int subsamp, int flags) |
| { |
| int i; |
| |
| dinfo->scale_num = dinfo->scale_denom = 1; |
| |
| if (subsamp == TJSAMP_GRAY) { |
| dinfo->num_components = dinfo->comps_in_scan = 1; |
| dinfo->jpeg_color_space = JCS_GRAYSCALE; |
| } else { |
| dinfo->num_components = dinfo->comps_in_scan = 3; |
| dinfo->jpeg_color_space = JCS_YCbCr; |
| } |
| |
| dinfo->comp_info = (jpeg_component_info *) |
| (*dinfo->mem->alloc_small) ((j_common_ptr)dinfo, JPOOL_IMAGE, |
| dinfo->num_components * |
| sizeof(jpeg_component_info)); |
| |
| for (i = 0; i < dinfo->num_components; i++) { |
| jpeg_component_info *compptr = &dinfo->comp_info[i]; |
| |
| compptr->h_samp_factor = (i == 0) ? tjMCUWidth[subsamp] / 8 : 1; |
| compptr->v_samp_factor = (i == 0) ? tjMCUHeight[subsamp] / 8 : 1; |
| compptr->component_index = i; |
| compptr->component_id = i + 1; |
| compptr->quant_tbl_no = compptr->dc_tbl_no = |
| compptr->ac_tbl_no = (i == 0) ? 0 : 1; |
| dinfo->cur_comp_info[i] = compptr; |
| } |
| dinfo->data_precision = 8; |
| for (i = 0; i < 2; i++) { |
| if (dinfo->quant_tbl_ptrs[i] == NULL) |
| dinfo->quant_tbl_ptrs[i] = jpeg_alloc_quant_table((j_common_ptr)dinfo); |
| } |
| } |
| |
| |
| static int my_read_markers(j_decompress_ptr dinfo) |
| { |
| return JPEG_REACHED_SOS; |
| } |
| |
| static void my_reset_marker_reader(j_decompress_ptr dinfo) |
| { |
| } |
| |
| /* TurboJPEG 1.4+ */ |
| DLLEXPORT int tjDecodeYUVPlanes(tjhandle handle, |
| const unsigned char **srcPlanes, |
| const int *strides, int subsamp, |
| unsigned char *dstBuf, int width, int pitch, |
| int height, int pixelFormat, int flags) |
| { |
| JSAMPROW *row_pointer = NULL; |
| JSAMPLE *_tmpbuf[MAX_COMPONENTS]; |
| JSAMPROW *tmpbuf[MAX_COMPONENTS], *inbuf[MAX_COMPONENTS]; |
| int i, retval = 0, row, pw0, ph0, pw[MAX_COMPONENTS], ph[MAX_COMPONENTS]; |
| JSAMPLE *ptr; |
| jpeg_component_info *compptr; |
| int (*old_read_markers) (j_decompress_ptr); |
| void (*old_reset_marker_reader) (j_decompress_ptr); |
| |
| GET_DINSTANCE(handle); |
| this->jerr.stopOnWarning = (flags & TJFLAG_STOPONWARNING) ? TRUE : FALSE; |
| |
| for (i = 0; i < MAX_COMPONENTS; i++) { |
| tmpbuf[i] = NULL; _tmpbuf[i] = NULL; inbuf[i] = NULL; |
| } |
| |
| if ((this->init & DECOMPRESS) == 0) |
| THROW("tjDecodeYUVPlanes(): Instance has not been initialized for decompression"); |
| |
| if (!srcPlanes || !srcPlanes[0] || subsamp < 0 || subsamp >= TJ_NUMSAMP || |
| dstBuf == NULL || width <= 0 || pitch < 0 || height <= 0 || |
| pixelFormat < 0 || pixelFormat >= TJ_NUMPF) |
| THROW("tjDecodeYUVPlanes(): Invalid argument"); |
| if (subsamp != TJSAMP_GRAY && (!srcPlanes[1] || !srcPlanes[2])) |
| THROW("tjDecodeYUVPlanes(): Invalid argument"); |
| |
| if (setjmp(this->jerr.setjmp_buffer)) { |
| /* If we get here, the JPEG code has signaled an error. */ |
| retval = -1; goto bailout; |
| } |
| |
| if (pixelFormat == TJPF_CMYK) |
| THROW("tjDecodeYUVPlanes(): Cannot decode YUV images into packed-pixel CMYK images."); |
| |
| if (pitch == 0) pitch = width * tjPixelSize[pixelFormat]; |
| dinfo->image_width = width; |
| dinfo->image_height = height; |
| |
| #ifndef NO_PUTENV |
| if (flags & TJFLAG_FORCEMMX) PUTENV_S("JSIMD_FORCEMMX", "1"); |
| else if (flags & TJFLAG_FORCESSE) PUTENV_S("JSIMD_FORCESSE", "1"); |
| else if (flags & TJFLAG_FORCESSE2) PUTENV_S("JSIMD_FORCESSE2", "1"); |
| #endif |
| |
| dinfo->progressive_mode = dinfo->inputctl->has_multiple_scans = FALSE; |
| dinfo->Ss = dinfo->Ah = dinfo->Al = 0; |
| dinfo->Se = DCTSIZE2 - 1; |
| setDecodeDefaults(dinfo, pixelFormat, subsamp, flags); |
| old_read_markers = dinfo->marker->read_markers; |
| dinfo->marker->read_markers = my_read_markers; |
| old_reset_marker_reader = dinfo->marker->reset_marker_reader; |
| dinfo->marker->reset_marker_reader = my_reset_marker_reader; |
| jpeg_read_header(dinfo, TRUE); |
| dinfo->marker->read_markers = old_read_markers; |
| dinfo->marker->reset_marker_reader = old_reset_marker_reader; |
| |
| this->dinfo.out_color_space = pf2cs[pixelFormat]; |
| if (flags & TJFLAG_FASTDCT) this->dinfo.dct_method = JDCT_FASTEST; |
| dinfo->do_fancy_upsampling = FALSE; |
| dinfo->Se = DCTSIZE2 - 1; |
| jinit_master_decompress(dinfo); |
| (*dinfo->upsample->start_pass) (dinfo); |
| |
| pw0 = PAD(width, dinfo->max_h_samp_factor); |
| ph0 = PAD(height, dinfo->max_v_samp_factor); |
| |
| if (pitch == 0) pitch = dinfo->output_width * tjPixelSize[pixelFormat]; |
| |
| if ((row_pointer = (JSAMPROW *)malloc(sizeof(JSAMPROW) * ph0)) == NULL) |
| THROW("tjDecodeYUVPlanes(): Memory allocation failure"); |
| for (i = 0; i < height; i++) { |
| if (flags & TJFLAG_BOTTOMUP) |
| row_pointer[i] = &dstBuf[(height - i - 1) * (size_t)pitch]; |
| else |
| row_pointer[i] = &dstBuf[i * (size_t)pitch]; |
| } |
| if (height < ph0) |
| for (i = height; i < ph0; i++) row_pointer[i] = row_pointer[height - 1]; |
| |
| for (i = 0; i < dinfo->num_components; i++) { |
| compptr = &dinfo->comp_info[i]; |
| _tmpbuf[i] = |
| (JSAMPLE *)malloc(PAD(compptr->width_in_blocks * DCTSIZE, 32) * |
| compptr->v_samp_factor + 32); |
| if (!_tmpbuf[i]) |
| THROW("tjDecodeYUVPlanes(): Memory allocation failure"); |
| tmpbuf[i] = (JSAMPROW *)malloc(sizeof(JSAMPROW) * compptr->v_samp_factor); |
| if (!tmpbuf[i]) |
| THROW("tjDecodeYUVPlanes(): Memory allocation failure"); |
| for (row = 0; row < compptr->v_samp_factor; row++) { |
| unsigned char *_tmpbuf_aligned = |
| (unsigned char *)PAD((JUINTPTR)_tmpbuf[i], 32); |
| |
| tmpbuf[i][row] = |
| &_tmpbuf_aligned[PAD(compptr->width_in_blocks * DCTSIZE, 32) * row]; |
| } |
| pw[i] = pw0 * compptr->h_samp_factor / dinfo->max_h_samp_factor; |
| ph[i] = ph0 * compptr->v_samp_factor / dinfo->max_v_samp_factor; |
| inbuf[i] = (JSAMPROW *)malloc(sizeof(JSAMPROW) * ph[i]); |
| if (!inbuf[i]) |
| THROW("tjDecodeYUVPlanes(): Memory allocation failure"); |
| ptr = (JSAMPLE *)srcPlanes[i]; |
| for (row = 0; row < ph[i]; row++) { |
| inbuf[i][row] = ptr; |
| ptr += (strides && strides[i] != 0) ? strides[i] : pw[i]; |
| } |
| } |
| |
| if (setjmp(this->jerr.setjmp_buffer)) { |
| /* If we get here, the JPEG code has signaled an error. */ |
| retval = -1; goto bailout; |
| } |
| |
| for (row = 0; row < ph0; row += dinfo->max_v_samp_factor) { |
| JDIMENSION inrow = 0, outrow = 0; |
| |
| for (i = 0, compptr = dinfo->comp_info; i < dinfo->num_components; |
| i++, compptr++) |
| jcopy_sample_rows(inbuf[i], |
| row * compptr->v_samp_factor / dinfo->max_v_samp_factor, tmpbuf[i], 0, |
| compptr->v_samp_factor, pw[i]); |
| (dinfo->upsample->upsample) (dinfo, tmpbuf, &inrow, |
| dinfo->max_v_samp_factor, &row_pointer[row], |
| &outrow, dinfo->max_v_samp_factor); |
| } |
| jpeg_abort_decompress(dinfo); |
| |
| bailout: |
| if (dinfo->global_state > DSTATE_START) jpeg_abort_decompress(dinfo); |
| free(row_pointer); |
| for (i = 0; i < MAX_COMPONENTS; i++) { |
| free(tmpbuf[i]); |
| free(_tmpbuf[i]); |
| free(inbuf[i]); |
| } |
| if (this->jerr.warning) retval = -1; |
| this->jerr.stopOnWarning = FALSE; |
| return retval; |
| } |
| |
| /* TurboJPEG 1.4+ */ |
| DLLEXPORT int tjDecodeYUV(tjhandle handle, const unsigned char *srcBuf, |
| int align, int subsamp, unsigned char *dstBuf, |
| int width, int pitch, int height, int pixelFormat, |
| int flags) |
| { |
| const unsigned char *srcPlanes[3]; |
| int pw0, ph0, strides[3], retval = -1; |
| tjinstance *this = (tjinstance *)handle; |
| |
| if (!this) THROWG("tjDecodeYUV(): Invalid handle"); |
| this->isInstanceError = FALSE; |
| |
| if (srcBuf == NULL || align < 1 || !IS_POW2(align) || subsamp < 0 || |
| subsamp >= TJ_NUMSAMP || width <= 0 || height <= 0) |
| THROW("tjDecodeYUV(): Invalid argument"); |
| |
| pw0 = tjPlaneWidth(0, width, subsamp); |
| ph0 = tjPlaneHeight(0, height, subsamp); |
| srcPlanes[0] = srcBuf; |
| strides[0] = PAD(pw0, align); |
| if (subsamp == TJSAMP_GRAY) { |
| strides[1] = strides[2] = 0; |
| srcPlanes[1] = srcPlanes[2] = NULL; |
| } else { |
| int pw1 = tjPlaneWidth(1, width, subsamp); |
| int ph1 = tjPlaneHeight(1, height, subsamp); |
| |
| strides[1] = strides[2] = PAD(pw1, align); |
| srcPlanes[1] = srcPlanes[0] + strides[0] * ph0; |
| srcPlanes[2] = srcPlanes[1] + strides[1] * ph1; |
| } |
| |
| return tjDecodeYUVPlanes(handle, srcPlanes, strides, subsamp, dstBuf, width, |
| pitch, height, pixelFormat, flags); |
| |
| bailout: |
| return retval; |
| } |
| |
| /* TurboJPEG 1.4+ */ |
| DLLEXPORT int tjDecompressToYUVPlanes(tjhandle handle, |
| const unsigned char *jpegBuf, |
| unsigned long jpegSize, |
| unsigned char **dstPlanes, int width, |
| int *strides, int height, int flags) |
| { |
| int i, sfi, row, retval = 0; |
| int jpegwidth, jpegheight, jpegSubsamp, scaledw, scaledh; |
| int pw[MAX_COMPONENTS], ph[MAX_COMPONENTS], iw[MAX_COMPONENTS], |
| tmpbufsize = 0, usetmpbuf = 0, th[MAX_COMPONENTS]; |
| JSAMPLE *_tmpbuf = NULL, *ptr; |
| JSAMPROW *outbuf[MAX_COMPONENTS], *tmpbuf[MAX_COMPONENTS]; |
| int dctsize; |
| struct my_progress_mgr progress; |
| |
| GET_DINSTANCE(handle); |
| this->jerr.stopOnWarning = (flags & TJFLAG_STOPONWARNING) ? TRUE : FALSE; |
| |
| for (i = 0; i < MAX_COMPONENTS; i++) { |
| tmpbuf[i] = NULL; outbuf[i] = NULL; |
| } |
| |
| if ((this->init & DECOMPRESS) == 0) |
| THROW("tjDecompressToYUVPlanes(): Instance has not been initialized for decompression"); |
| |
| if (jpegBuf == NULL || jpegSize <= 0 || !dstPlanes || !dstPlanes[0] || |
| width < 0 || height < 0) |
| THROW("tjDecompressToYUVPlanes(): Invalid argument"); |
| |
| #ifndef NO_PUTENV |
| if (flags & TJFLAG_FORCEMMX) PUTENV_S("JSIMD_FORCEMMX", "1"); |
| else if (flags & TJFLAG_FORCESSE) PUTENV_S("JSIMD_FORCESSE", "1"); |
| else if (flags & TJFLAG_FORCESSE2) PUTENV_S("JSIMD_FORCESSE2", "1"); |
| #endif |
| |
| if (flags & TJFLAG_LIMITSCANS) { |
| memset(&progress, 0, sizeof(struct my_progress_mgr)); |
| progress.pub.progress_monitor = my_progress_monitor; |
| progress.this = this; |
| dinfo->progress = &progress.pub; |
| } else |
| dinfo->progress = NULL; |
| |
| if (setjmp(this->jerr.setjmp_buffer)) { |
| /* If we get here, the JPEG code has signaled an error. */ |
| retval = -1; goto bailout; |
| } |
| |
| if (!this->headerRead) { |
| jpeg_mem_src_tj(dinfo, jpegBuf, jpegSize); |
| jpeg_read_header(dinfo, TRUE); |
| } |
| this->headerRead = 0; |
| jpegSubsamp = getSubsamp(dinfo); |
| if (jpegSubsamp < 0) |
| THROW("tjDecompressToYUVPlanes(): Could not determine subsampling type for JPEG image"); |
| |
| if (jpegSubsamp != TJSAMP_GRAY && (!dstPlanes[1] || !dstPlanes[2])) |
| THROW("tjDecompressToYUVPlanes(): Invalid argument"); |
| |
| jpegwidth = dinfo->image_width; jpegheight = dinfo->image_height; |
| if (width == 0) width = jpegwidth; |
| if (height == 0) height = jpegheight; |
| for (i = 0; i < NUMSF; i++) { |
| scaledw = TJSCALED(jpegwidth, sf[i]); |
| scaledh = TJSCALED(jpegheight, sf[i]); |
| if (scaledw <= width && scaledh <= height) |
| break; |
| } |
| if (i >= NUMSF) |
| THROW("tjDecompressToYUVPlanes(): Could not scale down to desired image dimensions"); |
| if (dinfo->num_components > 3) |
| THROW("tjDecompressToYUVPlanes(): JPEG image must have 3 or fewer components"); |
| |
| width = scaledw; height = scaledh; |
| dinfo->scale_num = sf[i].num; |
| dinfo->scale_denom = sf[i].denom; |
| sfi = i; |
| jpeg_calc_output_dimensions(dinfo); |
| |
| dctsize = DCTSIZE * sf[sfi].num / sf[sfi].denom; |
| |
| for (i = 0; i < dinfo->num_components; i++) { |
| jpeg_component_info *compptr = &dinfo->comp_info[i]; |
| int ih; |
| |
| iw[i] = compptr->width_in_blocks * dctsize; |
| ih = compptr->height_in_blocks * dctsize; |
| pw[i] = tjPlaneWidth(i, dinfo->output_width, jpegSubsamp); |
| ph[i] = tjPlaneHeight(i, dinfo->output_height, jpegSubsamp); |
| if (iw[i] != pw[i] || ih != ph[i]) usetmpbuf = 1; |
| th[i] = compptr->v_samp_factor * dctsize; |
| tmpbufsize += iw[i] * th[i]; |
| if ((outbuf[i] = (JSAMPROW *)malloc(sizeof(JSAMPROW) * ph[i])) == NULL) |
| THROW("tjDecompressToYUVPlanes(): Memory allocation failure"); |
| ptr = dstPlanes[i]; |
| for (row = 0; row < ph[i]; row++) { |
| outbuf[i][row] = ptr; |
| ptr += (strides && strides[i] != 0) ? strides[i] : pw[i]; |
| } |
| } |
| if (usetmpbuf) { |
| if ((_tmpbuf = (JSAMPLE *)malloc(sizeof(JSAMPLE) * tmpbufsize)) == NULL) |
| THROW("tjDecompressToYUVPlanes(): Memory allocation failure"); |
| ptr = _tmpbuf; |
| for (i = 0; i < dinfo->num_components; i++) { |
| if ((tmpbuf[i] = (JSAMPROW *)malloc(sizeof(JSAMPROW) * th[i])) == NULL) |
| THROW("tjDecompressToYUVPlanes(): Memory allocation failure"); |
| for (row = 0; row < th[i]; row++) { |
| tmpbuf[i][row] = ptr; |
| ptr += iw[i]; |
| } |
| } |
| } |
| |
| if (setjmp(this->jerr.setjmp_buffer)) { |
| /* If we get here, the JPEG code has signaled an error. */ |
| retval = -1; goto bailout; |
| } |
| |
| if (flags & TJFLAG_FASTUPSAMPLE) dinfo->do_fancy_upsampling = FALSE; |
| if (flags & TJFLAG_FASTDCT) dinfo->dct_method = JDCT_FASTEST; |
| dinfo->raw_data_out = TRUE; |
| |
| jpeg_start_decompress(dinfo); |
| for (row = 0; row < (int)dinfo->output_height; |
| row += dinfo->max_v_samp_factor * dinfo->_min_DCT_scaled_size) { |
| JSAMPARRAY yuvptr[MAX_COMPONENTS]; |
| int crow[MAX_COMPONENTS]; |
| |
| for (i = 0; i < dinfo->num_components; i++) { |
| jpeg_component_info *compptr = &dinfo->comp_info[i]; |
| |
| if (jpegSubsamp == TJSAMP_420) { |
| /* When 4:2:0 subsampling is used with IDCT scaling, libjpeg will try |
| to be clever and use the IDCT to perform upsampling on the U and V |
| planes. For instance, if the output image is to be scaled by 1/2 |
| relative to the JPEG image, then the scaling factor and upsampling |
| effectively cancel each other, so a normal 8x8 IDCT can be used. |
| However, this is not desirable when using the decompress-to-YUV |
| functionality in TurboJPEG, since we want to output the U and V |
| planes in their subsampled form. Thus, we have to override some |
| internal libjpeg parameters to force it to use the "scaled" IDCT |
| functions on the U and V planes. */ |
| compptr->_DCT_scaled_size = dctsize; |
| compptr->MCU_sample_width = tjMCUWidth[jpegSubsamp] * |
| sf[sfi].num / sf[sfi].denom * |
| compptr->v_samp_factor / dinfo->max_v_samp_factor; |
| dinfo->idct->inverse_DCT[i] = dinfo->idct->inverse_DCT[0]; |
| } |
| crow[i] = row * compptr->v_samp_factor / dinfo->max_v_samp_factor; |
| if (usetmpbuf) yuvptr[i] = tmpbuf[i]; |
| else yuvptr[i] = &outbuf[i][crow[i]]; |
| } |
| jpeg_read_raw_data(dinfo, yuvptr, |
| dinfo->max_v_samp_factor * dinfo->_min_DCT_scaled_size); |
| if (usetmpbuf) { |
| int j; |
| |
| for (i = 0; i < dinfo->num_components; i++) { |
| for (j = 0; j < MIN(th[i], ph[i] - crow[i]); j++) { |
| memcpy(outbuf[i][crow[i] + j], tmpbuf[i][j], pw[i]); |
| } |
| } |
| } |
| } |
| jpeg_finish_decompress(dinfo); |
| |
| bailout: |
| if (dinfo->global_state > DSTATE_START) jpeg_abort_decompress(dinfo); |
| for (i = 0; i < MAX_COMPONENTS; i++) { |
| free(tmpbuf[i]); |
| free(outbuf[i]); |
| } |
| free(_tmpbuf); |
| if (this->jerr.warning) retval = -1; |
| this->jerr.stopOnWarning = FALSE; |
| return retval; |
| } |
| |
| /* TurboJPEG 1.4+ */ |
| DLLEXPORT int tjDecompressToYUV2(tjhandle handle, const unsigned char *jpegBuf, |
| unsigned long jpegSize, unsigned char *dstBuf, |
| int width, int align, int height, int flags) |
| { |
| unsigned char *dstPlanes[3]; |
| int pw0, ph0, strides[3], retval = -1, jpegSubsamp = -1; |
| int i, jpegwidth, jpegheight, scaledw, scaledh; |
| |
| GET_DINSTANCE(handle); |
| this->jerr.stopOnWarning = (flags & TJFLAG_STOPONWARNING) ? TRUE : FALSE; |
| |
| if (jpegBuf == NULL || jpegSize <= 0 || dstBuf == NULL || width < 0 || |
| align < 1 || !IS_POW2(align) || height < 0) |
| THROW("tjDecompressToYUV2(): Invalid argument"); |
| |
| if (setjmp(this->jerr.setjmp_buffer)) { |
| /* If we get here, the JPEG code has signaled an error. */ |
| return -1; |
| } |
| |
| jpeg_mem_src_tj(dinfo, jpegBuf, jpegSize); |
| jpeg_read_header(dinfo, TRUE); |
| jpegSubsamp = getSubsamp(dinfo); |
| if (jpegSubsamp < 0) |
| THROW("tjDecompressToYUV2(): Could not determine subsampling type for JPEG image"); |
| |
| jpegwidth = dinfo->image_width; jpegheight = dinfo->image_height; |
| if (width == 0) width = jpegwidth; |
| if (height == 0) height = jpegheight; |
| for (i = 0; i < NUMSF; i++) { |
| scaledw = TJSCALED(jpegwidth, sf[i]); |
| scaledh = TJSCALED(jpegheight, sf[i]); |
| if (scaledw <= width && scaledh <= height) |
| break; |
| } |
| if (i >= NUMSF) |
| THROW("tjDecompressToYUV2(): Could not scale down to desired image dimensions"); |
| |
| width = scaledw; height = scaledh; |
| |
| pw0 = tjPlaneWidth(0, width, jpegSubsamp); |
| ph0 = tjPlaneHeight(0, height, jpegSubsamp); |
| dstPlanes[0] = dstBuf; |
| strides[0] = PAD(pw0, align); |
| if (jpegSubsamp == TJSAMP_GRAY) { |
| strides[1] = strides[2] = 0; |
| dstPlanes[1] = dstPlanes[2] = NULL; |
| } else { |
| int pw1 = tjPlaneWidth(1, width, jpegSubsamp); |
| int ph1 = tjPlaneHeight(1, height, jpegSubsamp); |
| |
| strides[1] = strides[2] = PAD(pw1, align); |
| dstPlanes[1] = dstPlanes[0] + strides[0] * ph0; |
| dstPlanes[2] = dstPlanes[1] + strides[1] * ph1; |
| } |
| |
| this->headerRead = 1; |
| return tjDecompressToYUVPlanes(handle, jpegBuf, jpegSize, dstPlanes, width, |
| strides, height, flags); |
| |
| bailout: |
| this->jerr.stopOnWarning = FALSE; |
| return retval; |
| } |
| |
| /* TurboJPEG 1.1+ */ |
| DLLEXPORT int tjDecompressToYUV(tjhandle handle, unsigned char *jpegBuf, |
| unsigned long jpegSize, unsigned char *dstBuf, |
| int flags) |
| { |
| return tjDecompressToYUV2(handle, jpegBuf, jpegSize, dstBuf, 0, 4, 0, flags); |
| } |
| |
| |
| /******************************** Transformer ********************************/ |
| |
| /* TurboJPEG 1.2+ */ |
| DLLEXPORT tjhandle tjInitTransform(void) |
| { |
| tjinstance *this = NULL; |
| tjhandle handle = NULL; |
| |
| if ((this = (tjinstance *)malloc(sizeof(tjinstance))) == NULL) { |
| SNPRINTF(errStr, JMSG_LENGTH_MAX, |
| "tjInitTransform(): Memory allocation failure"); |
| return NULL; |
| } |
| memset(this, 0, sizeof(tjinstance)); |
| SNPRINTF(this->errStr, JMSG_LENGTH_MAX, "No error"); |
| handle = _tjInitCompress(this); |
| if (!handle) return NULL; |
| handle = _tjInitDecompress(this); |
| return handle; |
| } |
| |
| |
| /* TurboJPEG 1.2+ */ |
| DLLEXPORT int tjTransform(tjhandle handle, const unsigned char *jpegBuf, |
| unsigned long jpegSize, int n, |
| unsigned char **dstBufs, unsigned long *dstSizes, |
| tjtransform *t, int flags) |
| { |
| jpeg_transform_info *xinfo = NULL; |
| jvirt_barray_ptr *srccoefs, *dstcoefs; |
| int retval = 0, i, jpegSubsamp, saveMarkers = 0; |
| boolean alloc = TRUE; |
| struct my_progress_mgr progress; |
| |
| GET_INSTANCE(handle); |
| this->jerr.stopOnWarning = (flags & TJFLAG_STOPONWARNING) ? TRUE : FALSE; |
| if ((this->init & COMPRESS) == 0 || (this->init & DECOMPRESS) == 0) |
| THROW("tjTransform(): Instance has not been initialized for transformation"); |
| |
| if (jpegBuf == NULL || jpegSize <= 0 || n < 1 || dstBufs == NULL || |
| dstSizes == NULL || t == NULL || flags < 0) |
| THROW("tjTransform(): Invalid argument"); |
| |
| #ifndef NO_PUTENV |
| if (flags & TJFLAG_FORCEMMX) PUTENV_S("JSIMD_FORCEMMX", "1"); |
| else if (flags & TJFLAG_FORCESSE) PUTENV_S("JSIMD_FORCESSE", "1"); |
| else if (flags & TJFLAG_FORCESSE2) PUTENV_S("JSIMD_FORCESSE2", "1"); |
| #endif |
| |
| if (flags & TJFLAG_LIMITSCANS) { |
| memset(&progress, 0, sizeof(struct my_progress_mgr)); |
| progress.pub.progress_monitor = my_progress_monitor; |
| progress.this = this; |
| dinfo->progress = &progress.pub; |
| } else |
| dinfo->progress = NULL; |
| |
| if ((xinfo = |
| (jpeg_transform_info *)malloc(sizeof(jpeg_transform_info) * n)) == NULL) |
| THROW("tjTransform(): Memory allocation failure"); |
| memset(xinfo, 0, sizeof(jpeg_transform_info) * n); |
| |
| if (setjmp(this->jerr.setjmp_buffer)) { |
| /* If we get here, the JPEG code has signaled an error. */ |
| retval = -1; goto bailout; |
| } |
| |
| jpeg_mem_src_tj(dinfo, jpegBuf, jpegSize); |
| |
| for (i = 0; i < n; i++) { |
| xinfo[i].transform = xformtypes[t[i].op]; |
| xinfo[i].perfect = (t[i].options & TJXOPT_PERFECT) ? 1 : 0; |
| xinfo[i].trim = (t[i].options & TJXOPT_TRIM) ? 1 : 0; |
| xinfo[i].force_grayscale = (t[i].options & TJXOPT_GRAY) ? 1 : 0; |
| xinfo[i].crop = (t[i].options & TJXOPT_CROP) ? 1 : 0; |
| if (n != 1 && t[i].op == TJXOP_HFLIP) xinfo[i].slow_hflip = 1; |
| else xinfo[i].slow_hflip = 0; |
| |
| if (xinfo[i].crop) { |
| xinfo[i].crop_xoffset = t[i].r.x; xinfo[i].crop_xoffset_set = JCROP_POS; |
| xinfo[i].crop_yoffset = t[i].r.y; xinfo[i].crop_yoffset_set = JCROP_POS; |
| if (t[i].r.w != 0) { |
| xinfo[i].crop_width = t[i].r.w; xinfo[i].crop_width_set = JCROP_POS; |
| } else |
| xinfo[i].crop_width = JCROP_UNSET; |
| if (t[i].r.h != 0) { |
| xinfo[i].crop_height = t[i].r.h; xinfo[i].crop_height_set = JCROP_POS; |
| } else |
| xinfo[i].crop_height = JCROP_UNSET; |
| } |
| if (!(t[i].options & TJXOPT_COPYNONE)) saveMarkers = 1; |
| } |
| |
| jcopy_markers_setup(dinfo, saveMarkers ? JCOPYOPT_ALL : JCOPYOPT_NONE); |
| jpeg_read_header(dinfo, TRUE); |
| jpegSubsamp = getSubsamp(dinfo); |
| if (jpegSubsamp < 0) |
| THROW("tjTransform(): Could not determine subsampling type for JPEG image"); |
| |
| for (i = 0; i < n; i++) { |
| if (!jtransform_request_workspace(dinfo, &xinfo[i])) |
| THROW("tjTransform(): Transform is not perfect"); |
| |
| if (xinfo[i].crop) { |
| if ((t[i].r.x % tjMCUWidth[jpegSubsamp]) != 0 || |
| (t[i].r.y % tjMCUHeight[jpegSubsamp]) != 0) { |
| SNPRINTF(this->errStr, JMSG_LENGTH_MAX, |
| "To crop this JPEG image, x must be a multiple of %d\n" |
| "and y must be a multiple of %d.\n", |
| tjMCUWidth[jpegSubsamp], tjMCUHeight[jpegSubsamp]); |
| this->isInstanceError = TRUE; |
| retval = -1; goto bailout; |
| } |
| } |
| } |
| |
| srccoefs = jpeg_read_coefficients(dinfo); |
| |
| for (i = 0; i < n; i++) { |
| int w, h; |
| |
| if (!xinfo[i].crop) { |
| w = dinfo->image_width; h = dinfo->image_height; |
| } else { |
| w = xinfo[i].crop_width; h = xinfo[i].crop_height; |
| } |
| if (flags & TJFLAG_NOREALLOC) { |
| alloc = FALSE; dstSizes[i] = tjBufSize(w, h, jpegSubsamp); |
| } |
| if (!(t[i].options & TJXOPT_NOOUTPUT)) |
| jpeg_mem_dest_tj(cinfo, &dstBufs[i], &dstSizes[i], alloc); |
| jpeg_copy_critical_parameters(dinfo, cinfo); |
| dstcoefs = jtransform_adjust_parameters(dinfo, cinfo, srccoefs, &xinfo[i]); |
| #ifdef C_PROGRESSIVE_SUPPORTED |
| if (flags & TJFLAG_PROGRESSIVE || t[i].options & TJXOPT_PROGRESSIVE) |
| jpeg_simple_progression(cinfo); |
| #endif |
| if (!(t[i].options & TJXOPT_NOOUTPUT)) { |
| jpeg_write_coefficients(cinfo, dstcoefs); |
| jcopy_markers_execute(dinfo, cinfo, t[i].options & TJXOPT_COPYNONE ? |
| JCOPYOPT_NONE : JCOPYOPT_ALL); |
| } else |
| jinit_c_master_control(cinfo, TRUE); |
| jtransform_execute_transformation(dinfo, cinfo, srccoefs, &xinfo[i]); |
| if (t[i].customFilter) { |
| int ci, y; |
| JDIMENSION by; |
| |
| for (ci = 0; ci < cinfo->num_components; ci++) { |
| jpeg_component_info *compptr = &cinfo->comp_info[ci]; |
| tjregion arrayRegion = { 0, 0, 0, 0 }; |
| tjregion planeRegion = { 0, 0, 0, 0 }; |
| |
| arrayRegion.w = compptr->width_in_blocks * DCTSIZE; |
| arrayRegion.h = DCTSIZE; |
| planeRegion.w = compptr->width_in_blocks * DCTSIZE; |
| planeRegion.h = compptr->height_in_blocks * DCTSIZE; |
| |
| for (by = 0; by < compptr->height_in_blocks; |
| by += compptr->v_samp_factor) { |
| JBLOCKARRAY barray = (dinfo->mem->access_virt_barray) |
| ((j_common_ptr)dinfo, dstcoefs[ci], by, compptr->v_samp_factor, |
| TRUE); |
| |
| for (y = 0; y < compptr->v_samp_factor; y++) { |
| if (t[i].customFilter(barray[y][0], arrayRegion, planeRegion, ci, |
| i, &t[i]) == -1) |
| THROW("tjTransform(): Error in custom filter"); |
| arrayRegion.y += DCTSIZE; |
| } |
| } |
| } |
| } |
| if (!(t[i].options & TJXOPT_NOOUTPUT)) jpeg_finish_compress(cinfo); |
| } |
| |
| jpeg_finish_decompress(dinfo); |
| |
| bailout: |
| if (cinfo->global_state > CSTATE_START) { |
| if (alloc) (*cinfo->dest->term_destination) (cinfo); |
| jpeg_abort_compress(cinfo); |
| } |
| if (dinfo->global_state > DSTATE_START) jpeg_abort_decompress(dinfo); |
| free(xinfo); |
| if (this->jerr.warning) retval = -1; |
| this->jerr.stopOnWarning = FALSE; |
| return retval; |
| } |
| |
| |
| /*************************** Packed-Pixel Image I/O **************************/ |
| |
| /* TurboJPEG 2.0+ */ |
| DLLEXPORT unsigned char *tjLoadImage(const char *filename, int *width, |
| int align, int *height, int *pixelFormat, |
| int flags) |
| { |
| int retval = 0, tempc; |
| size_t pitch; |
| tjhandle handle = NULL; |
| tjinstance *this; |
| j_compress_ptr cinfo = NULL; |
| cjpeg_source_ptr src; |
| unsigned char *dstBuf = NULL; |
| FILE *file = NULL; |
| boolean invert; |
| |
| if (!filename || !width || align < 1 || !height || !pixelFormat || |
| *pixelFormat < TJPF_UNKNOWN || *pixelFormat >= TJ_NUMPF) |
| THROWG("tjLoadImage(): Invalid argument"); |
| if ((align & (align - 1)) != 0) |
| THROWG("tjLoadImage(): Alignment must be a power of 2"); |
| |
| if ((handle = tjInitCompress()) == NULL) return NULL; |
| this = (tjinstance *)handle; |
| cinfo = &this->cinfo; |
| |
| #ifdef _MSC_VER |
| if (fopen_s(&file, filename, "rb") || file == NULL) |
| #else |
| if ((file = fopen(filename, "rb")) == NULL) |
| #endif |
| THROW_UNIX("tjLoadImage(): Cannot open input file"); |
| |
| if ((tempc = getc(file)) < 0 || ungetc(tempc, file) == EOF) |
| THROW_UNIX("tjLoadImage(): Could not read input file") |
| else if (tempc == EOF) |
| THROWG("tjLoadImage(): Input file contains no data"); |
| |
| if (setjmp(this->jerr.setjmp_buffer)) { |
| /* If we get here, the JPEG code has signaled an error. */ |
| retval = -1; goto bailout; |
| } |
| |
| if (*pixelFormat == TJPF_UNKNOWN) cinfo->in_color_space = JCS_UNKNOWN; |
| else cinfo->in_color_space = pf2cs[*pixelFormat]; |
| if (tempc == 'B') { |
| if ((src = jinit_read_bmp(cinfo, FALSE)) == NULL) |
| THROWG("tjLoadImage(): Could not initialize bitmap loader"); |
| invert = (flags & TJFLAG_BOTTOMUP) == 0; |
| } else if (tempc == 'P') { |
| if ((src = jinit_read_ppm(cinfo)) == NULL) |
| THROWG("tjLoadImage(): Could not initialize PPM loader"); |
| invert = (flags & TJFLAG_BOTTOMUP) != 0; |
| } else |
| THROWG("tjLoadImage(): Unsupported file type"); |
| |
| src->input_file = file; |
| #ifdef FUZZING_BUILD_MODE_UNSAFE_FOR_PRODUCTION |
| /* Refuse to load images larger than 1 Megapixel when fuzzing. */ |
| if (flags & TJFLAG_FUZZING) |
| src->max_pixels = 1048576; |
| #endif |
| (*src->start_input) (cinfo, src); |
| (*cinfo->mem->realize_virt_arrays) ((j_common_ptr)cinfo); |
| |
| *width = cinfo->image_width; *height = cinfo->image_height; |
| *pixelFormat = cs2pf[cinfo->in_color_space]; |
| |
| pitch = PAD((*width) * tjPixelSize[*pixelFormat], align); |
| if ((unsigned long long)pitch * (unsigned long long)(*height) > |
| (unsigned long long)((size_t)-1) || |
| (dstBuf = (unsigned char *)malloc(pitch * (*height))) == NULL) |
| THROWG("tjLoadImage(): Memory allocation failure"); |
| |
| if (setjmp(this->jerr.setjmp_buffer)) { |
| /* If we get here, the JPEG code has signaled an error. */ |
| retval = -1; goto bailout; |
| } |
| |
| while (cinfo->next_scanline < cinfo->image_height) { |
| int i, nlines = (*src->get_pixel_rows) (cinfo, src); |
| |
| for (i = 0; i < nlines; i++) { |
| unsigned char *dstptr; |
| int row; |
| |
| row = cinfo->next_scanline + i; |
| if (invert) dstptr = &dstBuf[((*height) - row - 1) * pitch]; |
| else dstptr = &dstBuf[row * pitch]; |
| memcpy(dstptr, src->buffer[i], (*width) * tjPixelSize[*pixelFormat]); |
| } |
| cinfo->next_scanline += nlines; |
| } |
| |
| (*src->finish_input) (cinfo, src); |
| |
| bailout: |
| if (handle) tjDestroy(handle); |
| if (file) fclose(file); |
| if (retval < 0) { free(dstBuf); dstBuf = NULL; } |
| return dstBuf; |
| } |
| |
| |
| /* TurboJPEG 2.0+ */ |
| DLLEXPORT int tjSaveImage(const char *filename, unsigned char *buffer, |
| int width, int pitch, int height, int pixelFormat, |
| int flags) |
| { |
| int retval = 0; |
| tjhandle handle = NULL; |
| tjinstance *this; |
| j_decompress_ptr dinfo = NULL; |
| djpeg_dest_ptr dst; |
| FILE *file = NULL; |
| char *ptr = NULL; |
| boolean invert; |
| |
| if (!filename || !buffer || width < 1 || pitch < 0 || height < 1 || |
| pixelFormat < 0 || pixelFormat >= TJ_NUMPF) |
| THROWG("tjSaveImage(): Invalid argument"); |
| |
| if ((handle = tjInitDecompress()) == NULL) |
| return -1; |
| this = (tjinstance *)handle; |
| dinfo = &this->dinfo; |
| |
| #ifdef _MSC_VER |
| if (fopen_s(&file, filename, "wb") || file == NULL) |
| #else |
| if ((file = fopen(filename, "wb")) == NULL) |
| #endif |
| THROW_UNIX("tjSaveImage(): Cannot open output file"); |
| |
| if (setjmp(this->jerr.setjmp_buffer)) { |
| /* If we get here, the JPEG code has signaled an error. */ |
| retval = -1; goto bailout; |
| } |
| |
| this->dinfo.out_color_space = pf2cs[pixelFormat]; |
| dinfo->image_width = width; dinfo->image_height = height; |
| dinfo->global_state = DSTATE_READY; |
| dinfo->scale_num = dinfo->scale_denom = 1; |
| |
| ptr = strrchr(filename, '.'); |
| if (ptr && !strcasecmp(ptr, ".bmp")) { |
| if ((dst = jinit_write_bmp(dinfo, FALSE, FALSE)) == NULL) |
| THROWG("tjSaveImage(): Could not initialize bitmap writer"); |
| invert = (flags & TJFLAG_BOTTOMUP) == 0; |
| } else { |
| if ((dst = jinit_write_ppm(dinfo)) == NULL) |
| THROWG("tjSaveImage(): Could not initialize PPM writer"); |
| invert = (flags & TJFLAG_BOTTOMUP) != 0; |
| } |
| |
| dst->output_file = file; |
| (*dst->start_output) (dinfo, dst); |
| (*dinfo->mem->realize_virt_arrays) ((j_common_ptr)dinfo); |
| |
| if (pitch == 0) pitch = width * tjPixelSize[pixelFormat]; |
| |
| while (dinfo->output_scanline < dinfo->output_height) { |
| unsigned char *rowptr; |
| |
| if (invert) |
| rowptr = &buffer[(height - dinfo->output_scanline - 1) * pitch]; |
| else |
| rowptr = &buffer[dinfo->output_scanline * pitch]; |
| memcpy(dst->buffer[0], rowptr, width * tjPixelSize[pixelFormat]); |
| (*dst->put_pixel_rows) (dinfo, dst, 1); |
| dinfo->output_scanline++; |
| } |
| |
| (*dst->finish_output) (dinfo, dst); |
| |
| bailout: |
| if (handle) tjDestroy(handle); |
| if (file) fclose(file); |
| return retval; |
| } |