src/lib/openjp2/openjpeg.c

   1 /*
   2  * The copyright in this software is being made available under the 2-clauses
   3  * BSD License, included below. This software may be subject to other third
   4  * party and contributor rights, including patent rights, and no such rights
   5  * are granted under this license.
   6  *
   7  * Copyright (c) 2005, Herve Drolon, FreeImage Team
   8  * Copyright (c) 2008, 2011-2012, Centre National d'Etudes Spatiales (CNES), FR
   9  * Copyright (c) 2012, CS Systemes d'Information, France
  10  * All rights reserved.
  11  *
  12  * Redistribution and use in source and binary forms, with or without
  13  * modification, are permitted provided that the following conditions
  14  * are met:
  15  * 1. Redistributions of source code must retain the above copyright
  16  *    notice, this list of conditions and the following disclaimer.
  17  * 2. Redistributions in binary form must reproduce the above copyright
  18  *    notice, this list of conditions and the following disclaimer in the
  19  *    documentation and/or other materials provided with the distribution.
  20  *
  21  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS `AS IS'
  22  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
  25  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  26  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  27  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  28  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  29  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  30  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  31  * POSSIBILITY OF SUCH DAMAGE.
  32  */
  33
  34 #ifdef _WIN32
  35 #include <windows.h>
  36 #endif /* _WIN32 */
  37
  38 #include "opj_includes.h"
  39
  40
  41 /* ---------------------------------------------------------------------- */
  42 /* Functions to set the message handlers */
  43
  44 OPJ_BOOL OPJ_CALLCONV opj_set_info_handler(opj_codec_t * p_codec,
  45         opj_msg_callback p_callback,
  46         void * p_user_data)
  47 {
  48     opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
  49     if (! l_codec) {
  50         return OPJ_FALSE;
  51     }
  52
  53     l_codec->m_event_mgr.info_handler = p_callback;
  54     l_codec->m_event_mgr.m_info_data = p_user_data;
  55
  56     return OPJ_TRUE;
  57 }
  58
  59 OPJ_BOOL OPJ_CALLCONV opj_set_warning_handler(opj_codec_t * p_codec,
  60         opj_msg_callback p_callback,
  61         void * p_user_data)
  62 {
  63     opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
  64     if (! l_codec) {
  65         return OPJ_FALSE;
  66     }
  67
  68     l_codec->m_event_mgr.warning_handler = p_callback;
  69     l_codec->m_event_mgr.m_warning_data = p_user_data;
  70
  71     return OPJ_TRUE;
  72 }
  73
  74 OPJ_BOOL OPJ_CALLCONV opj_set_error_handler(opj_codec_t * p_codec,
  75         opj_msg_callback p_callback,
  76         void * p_user_data)
  77 {
  78     opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
  79     if (! l_codec) {
  80         return OPJ_FALSE;
  81     }
  82
  83     l_codec->m_event_mgr.error_handler = p_callback;
  84     l_codec->m_event_mgr.m_error_data = p_user_data;
  85
  86     return OPJ_TRUE;
  87 }
  88
  89 /* ---------------------------------------------------------------------- */
  90
  91 static OPJ_SIZE_T opj_read_from_file(void * p_buffer, OPJ_SIZE_T p_nb_bytes,
  92                                      void * p_user_data)
  93 {
  94     FILE* p_file = (FILE*)p_user_data;
  95     OPJ_SIZE_T l_nb_read = fread(p_buffer, 1, p_nb_bytes, (FILE*)p_file);
  96     return l_nb_read ? l_nb_read : (OPJ_SIZE_T) - 1;
  97 }
  98
  99 static OPJ_UINT64 opj_get_data_length_from_file(void * p_user_data)
 100 {
 101     FILE* p_file = (FILE*)p_user_data;
 102     OPJ_OFF_T file_length = 0;
 103
 104     OPJ_FSEEK(p_file, 0, SEEK_END);
 105     file_length = (OPJ_OFF_T)OPJ_FTELL(p_file);
 106     OPJ_FSEEK(p_file, 0, SEEK_SET);
 107
 108     return (OPJ_UINT64)file_length;
 109 }
 110
 111 static OPJ_SIZE_T opj_write_from_file(void * p_buffer, OPJ_SIZE_T p_nb_bytes,
 112                                       void * p_user_data)
 113 {
 114     FILE* p_file = (FILE*)p_user_data;
 115     return fwrite(p_buffer, 1, p_nb_bytes, p_file);
 116 }
 117
 118 static OPJ_OFF_T opj_skip_from_file(OPJ_OFF_T p_nb_bytes, void * p_user_data)
 119 {
 120     FILE* p_file = (FILE*)p_user_data;
 121     if (OPJ_FSEEK(p_file, p_nb_bytes, SEEK_CUR)) {
 122         return -1;
 123     }
 124
 125     return p_nb_bytes;
 126 }
 127
 128 static OPJ_BOOL opj_seek_from_file(OPJ_OFF_T p_nb_bytes, void * p_user_data)
 129 {
 130     FILE* p_file = (FILE*)p_user_data;
 131     if (OPJ_FSEEK(p_file, p_nb_bytes, SEEK_SET)) {
 132         return OPJ_FALSE;
 133     }
 134
 135     return OPJ_TRUE;
 136 }
 137
 138 static void opj_close_from_file(void* p_user_data)
 139 {
 140     FILE* p_file = (FILE*)p_user_data;
 141     fclose(p_file);
 142 }
 143
 144 /* ---------------------------------------------------------------------- */
 145 #ifdef _WIN32
 146 #ifndef OPJ_STATIC
 147 BOOL APIENTRY
 148 DllMain(HINSTANCE hModule, DWORD ul_reason_for_call, LPVOID lpReserved)
 149 {
 150
 151     OPJ_ARG_NOT_USED(lpReserved);
 152     OPJ_ARG_NOT_USED(hModule);
 153
 154     switch (ul_reason_for_call) {
 155     case DLL_PROCESS_ATTACH :
 156         break;
 157     case DLL_PROCESS_DETACH :
 158         break;
 159     case DLL_THREAD_ATTACH :
 160     case DLL_THREAD_DETACH :
 161         break;
 162     }
 163
 164     return TRUE;
 165 }
 166 #endif /* OPJ_STATIC */
 167 #endif /* _WIN32 */
 168
 169 /* ---------------------------------------------------------------------- */
 170
 171 const char* OPJ_CALLCONV opj_version(void)
 172 {
 173     return OPJ_PACKAGE_VERSION;
 174 }
 175
 176 /* ---------------------------------------------------------------------- */
 177 /* DECOMPRESSION FUNCTIONS*/
 178
 179 opj_codec_t* OPJ_CALLCONV opj_create_decompress(OPJ_CODEC_FORMAT p_format)
 180 {
 181     opj_codec_private_t *l_codec = 00;
 182
 183     l_codec = (opj_codec_private_t*) opj_calloc(1, sizeof(opj_codec_private_t));
 184     if (!l_codec) {
 185         return 00;
 186     }
 187
 188     l_codec->is_decompressor = 1;
 189
 190     switch (p_format) {
 191     case OPJ_CODEC_J2K:
 192         l_codec->opj_dump_codec = (void (*)(void*, OPJ_INT32, FILE*)) j2k_dump;
 193
 194         l_codec->opj_get_codec_info = (opj_codestream_info_v2_t* (*)(
 195                                            void*)) j2k_get_cstr_info;
 196
 197         l_codec->opj_get_codec_index = (opj_codestream_index_t* (*)(
 198                                             void*)) j2k_get_cstr_index;
 199
 200         l_codec->m_codec_data.m_decompression.opj_decode =
 201             (OPJ_BOOL(*)(void *,
 202                          struct opj_stream_private *,
 203                          opj_image_t*, struct opj_event_mgr *)) opj_j2k_decode;
 204
 205         l_codec->m_codec_data.m_decompression.opj_end_decompress =
 206             (OPJ_BOOL(*)(void *,
 207                          struct opj_stream_private *,
 208                          struct opj_event_mgr *)) opj_j2k_end_decompress;
 209
 210         l_codec->m_codec_data.m_decompression.opj_read_header =
 211             (OPJ_BOOL(*)(struct opj_stream_private *,
 212                          void *,
 213                          opj_image_t **,
 214                          struct opj_event_mgr *)) opj_j2k_read_header;
 215
 216         l_codec->m_codec_data.m_decompression.opj_destroy =
 217             (void (*)(void *))opj_j2k_destroy;
 218
 219         l_codec->m_codec_data.m_decompression.opj_setup_decoder =
 220             (void (*)(void *, opj_dparameters_t *)) opj_j2k_setup_decoder;
 221
 222         l_codec->m_codec_data.m_decompression.opj_read_tile_header =
 223             (OPJ_BOOL(*)(void *,
 224                          OPJ_UINT32*,
 225                          OPJ_UINT32*,
 226                          OPJ_INT32*, OPJ_INT32*,
 227                          OPJ_INT32*, OPJ_INT32*,
 228                          OPJ_UINT32*,
 229                          OPJ_BOOL*,
 230                          struct opj_stream_private *,
 231                          struct opj_event_mgr *)) opj_j2k_read_tile_header;
 232
 233         l_codec->m_codec_data.m_decompression.opj_decode_tile_data =
 234             (OPJ_BOOL(*)(void *,
 235                          OPJ_UINT32,
 236                          OPJ_BYTE*,
 237                          OPJ_UINT32,
 238                          struct opj_stream_private *,
 239                          struct opj_event_mgr *)) opj_j2k_decode_tile;
 240
 241         l_codec->m_codec_data.m_decompression.opj_set_decode_area =
 242             (OPJ_BOOL(*)(void *,
 243                          opj_image_t*,
 244                          OPJ_INT32, OPJ_INT32, OPJ_INT32, OPJ_INT32,
 245                          struct opj_event_mgr *)) opj_j2k_set_decode_area;
 246
 247         l_codec->m_codec_data.m_decompression.opj_get_decoded_tile =
 248             (OPJ_BOOL(*)(void *p_codec,
 249                          opj_stream_private_t *p_cio,
 250                          opj_image_t *p_image,
 251                          struct opj_event_mgr * p_manager,
 252                          OPJ_UINT32 tile_index)) opj_j2k_get_tile;
 253
 254         l_codec->m_codec_data.m_decompression.opj_set_decoded_resolution_factor =
 255             (OPJ_BOOL(*)(void * p_codec,
 256                          OPJ_UINT32 res_factor,
 257                          struct opj_event_mgr * p_manager)) opj_j2k_set_decoded_resolution_factor;
 258
 259         l_codec->m_codec_data.m_decompression.opj_set_decoded_components =
 260             (OPJ_BOOL(*)(void * p_codec,
 261                          OPJ_UINT32 numcomps,
 262                          const OPJ_UINT32 * comps_indices,
 263                          struct opj_event_mgr * p_manager)) opj_j2k_set_decoded_components;
 264
 265         l_codec->opj_set_threads =
 266             (OPJ_BOOL(*)(void * p_codec, OPJ_UINT32 num_threads)) opj_j2k_set_threads;
 267
 268         l_codec->m_codec = opj_j2k_create_decompress();
 269
 270         if (! l_codec->m_codec) {
 271             opj_free(l_codec);
 272             return NULL;
 273         }
 274
 275         break;
 276
 277     case OPJ_CODEC_JP2:
 278         /* get a JP2 decoder handle */
 279         l_codec->opj_dump_codec = (void (*)(void*, OPJ_INT32, FILE*)) jp2_dump;
 280
 281         l_codec->opj_get_codec_info = (opj_codestream_info_v2_t* (*)(
 282                                            void*)) jp2_get_cstr_info;
 283
 284         l_codec->opj_get_codec_index = (opj_codestream_index_t* (*)(
 285                                             void*)) jp2_get_cstr_index;
 286
 287         l_codec->m_codec_data.m_decompression.opj_decode =
 288             (OPJ_BOOL(*)(void *,
 289                          struct opj_stream_private *,
 290                          opj_image_t*,
 291                          struct opj_event_mgr *)) opj_jp2_decode;
 292
 293         l_codec->m_codec_data.m_decompression.opj_end_decompress =
 294             (OPJ_BOOL(*)(void *,
 295                          struct opj_stream_private *,
 296                          struct opj_event_mgr *)) opj_jp2_end_decompress;
 297
 298         l_codec->m_codec_data.m_decompression.opj_read_header =
 299             (OPJ_BOOL(*)(struct opj_stream_private *,
 300                          void *,
 301                          opj_image_t **,
 302                          struct opj_event_mgr *)) opj_jp2_read_header;
 303
 304         l_codec->m_codec_data.m_decompression.opj_read_tile_header =
 305             (OPJ_BOOL(*)(void *,
 306                          OPJ_UINT32*,
 307                          OPJ_UINT32*,
 308                          OPJ_INT32*,
 309                          OPJ_INT32*,
 310                          OPJ_INT32 *,
 311                          OPJ_INT32 *,
 312                          OPJ_UINT32 *,
 313                          OPJ_BOOL *,
 314                          struct opj_stream_private *,
 315                          struct opj_event_mgr *)) opj_jp2_read_tile_header;
 316
 317         l_codec->m_codec_data.m_decompression.opj_decode_tile_data =
 318             (OPJ_BOOL(*)(void *,
 319                          OPJ_UINT32, OPJ_BYTE*, OPJ_UINT32,
 320                          struct opj_stream_private *,
 321                          struct opj_event_mgr *)) opj_jp2_decode_tile;
 322
 323         l_codec->m_codec_data.m_decompression.opj_destroy = (void (*)(
 324                     void *))opj_jp2_destroy;
 325
 326         l_codec->m_codec_data.m_decompression.opj_setup_decoder =
 327             (void (*)(void *, opj_dparameters_t *)) opj_jp2_setup_decoder;
 328
 329         l_codec->m_codec_data.m_decompression.opj_set_decode_area =
 330             (OPJ_BOOL(*)(void *,
 331                          opj_image_t*,
 332                          OPJ_INT32, OPJ_INT32, OPJ_INT32, OPJ_INT32,
 333                          struct opj_event_mgr *)) opj_jp2_set_decode_area;
 334
 335         l_codec->m_codec_data.m_decompression.opj_get_decoded_tile =
 336             (OPJ_BOOL(*)(void *p_codec,
 337                          opj_stream_private_t *p_cio,
 338                          opj_image_t *p_image,
 339                          struct opj_event_mgr * p_manager,
 340                          OPJ_UINT32 tile_index)) opj_jp2_get_tile;
 341
 342         l_codec->m_codec_data.m_decompression.opj_set_decoded_resolution_factor =
 343             (OPJ_BOOL(*)(void * p_codec,
 344                          OPJ_UINT32 res_factor,
 345                          opj_event_mgr_t * p_manager)) opj_jp2_set_decoded_resolution_factor;
 346
 347         l_codec->m_codec_data.m_decompression.opj_set_decoded_components =
 348             (OPJ_BOOL(*)(void * p_codec,
 349                          OPJ_UINT32 numcomps,
 350                          const OPJ_UINT32 * comps_indices,
 351                          struct opj_event_mgr * p_manager)) opj_jp2_set_decoded_components;
 352
 353         l_codec->opj_set_threads =
 354             (OPJ_BOOL(*)(void * p_codec, OPJ_UINT32 num_threads)) opj_jp2_set_threads;
 355
 356         l_codec->m_codec = opj_jp2_create(OPJ_TRUE);
 357
 358         if (! l_codec->m_codec) {
 359             opj_free(l_codec);
 360             return 00;
 361         }
 362
 363         break;
 364     case OPJ_CODEC_UNKNOWN:
 365     case OPJ_CODEC_JPT:
 366     default:
 367         opj_free(l_codec);
 368         return 00;
 369     }
 370
 371     opj_set_default_event_handler(&(l_codec->m_event_mgr));
 372     return (opj_codec_t*) l_codec;
 373 }
 374
 375 void OPJ_CALLCONV opj_set_default_decoder_parameters(opj_dparameters_t
 376         *parameters)
 377 {
 378     if (parameters) {
 379         memset(parameters, 0, sizeof(opj_dparameters_t));
 380         /* default decoding parameters */
 381         parameters->cp_layer = 0;
 382         parameters->cp_reduce = 0;
 383
 384         parameters->decod_format = -1;
 385         parameters->cod_format = -1;
 386         parameters->flags = 0;
 387         /* UniPG>> */
 388 #ifdef USE_JPWL
 389         parameters->jpwl_correct = OPJ_FALSE;
 390         parameters->jpwl_exp_comps = JPWL_EXPECTED_COMPONENTS;
 391         parameters->jpwl_max_tiles = JPWL_MAXIMUM_TILES;
 392 #endif /* USE_JPWL */
 393         /* <<UniPG */
 394     }
 395 }
 396
 397
 398 OPJ_BOOL OPJ_CALLCONV opj_codec_set_threads(opj_codec_t *p_codec,
 399         int num_threads)
 400 {
 401     if (p_codec && (num_threads >= 0)) {
 402         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 403
 404         return l_codec->opj_set_threads(l_codec->m_codec, (OPJ_UINT32)num_threads);
 405     }
 406     return OPJ_FALSE;
 407 }
 408
 409 OPJ_BOOL OPJ_CALLCONV opj_setup_decoder(opj_codec_t *p_codec,
 410                                         opj_dparameters_t *parameters
 411                                        )
 412 {
 413     if (p_codec && parameters) {
 414         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 415
 416         if (! l_codec->is_decompressor) {
 417             opj_event_msg(&(l_codec->m_event_mgr), EVT_ERROR,
 418                           "Codec provided to the opj_setup_decoder function is not a decompressor handler.\n");
 419             return OPJ_FALSE;
 420         }
 421
 422         l_codec->m_codec_data.m_decompression.opj_setup_decoder(l_codec->m_codec,
 423                 parameters);
 424         return OPJ_TRUE;
 425     }
 426     return OPJ_FALSE;
 427 }
 428
 429 OPJ_BOOL OPJ_CALLCONV opj_read_header(opj_stream_t *p_stream,
 430                                       opj_codec_t *p_codec,
 431                                       opj_image_t **p_image)
 432 {
 433     if (p_codec && p_stream) {
 434         opj_codec_private_t* l_codec = (opj_codec_private_t*) p_codec;
 435         opj_stream_private_t* l_stream = (opj_stream_private_t*) p_stream;
 436
 437         if (! l_codec->is_decompressor) {
 438             opj_event_msg(&(l_codec->m_event_mgr), EVT_ERROR,
 439                           "Codec provided to the opj_read_header function is not a decompressor handler.\n");
 440             return OPJ_FALSE;
 441         }
 442
 443         return l_codec->m_codec_data.m_decompression.opj_read_header(l_stream,
 444                 l_codec->m_codec,
 445                 p_image,
 446                 &(l_codec->m_event_mgr));
 447     }
 448
 449     return OPJ_FALSE;
 450 }
 451
 452
 453 OPJ_BOOL OPJ_CALLCONV opj_set_decoded_components(opj_codec_t *p_codec,
 454         OPJ_UINT32 numcomps,
 455         const OPJ_UINT32* comps_indices,
 456         OPJ_BOOL apply_color_transforms)
 457 {
 458     if (p_codec) {
 459         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 460
 461         if (! l_codec->is_decompressor) {
 462             opj_event_msg(&(l_codec->m_event_mgr), EVT_ERROR,
 463                           "Codec provided to the opj_set_decoded_components function is not a decompressor handler.\n");
 464             return OPJ_FALSE;
 465         }
 466
 467         if (apply_color_transforms) {
 468             opj_event_msg(&(l_codec->m_event_mgr), EVT_ERROR,
 469                           "apply_color_transforms = OPJ_TRUE is not supported.\n");
 470             return OPJ_FALSE;
 471         }
 472
 473         return  l_codec->m_codec_data.m_decompression.opj_set_decoded_components(
 474                     l_codec->m_codec,
 475                     numcomps,
 476                     comps_indices,
 477                     &(l_codec->m_event_mgr));
 478     }
 479     return OPJ_FALSE;
 480 }
 481
 482 OPJ_BOOL OPJ_CALLCONV opj_decode(opj_codec_t *p_codec,
 483                                  opj_stream_t *p_stream,
 484                                  opj_image_t* p_image)
 485 {
 486     if (p_codec && p_stream) {
 487         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 488         opj_stream_private_t * l_stream = (opj_stream_private_t *) p_stream;
 489
 490         if (! l_codec->is_decompressor) {
 491             return OPJ_FALSE;
 492         }
 493
 494         return l_codec->m_codec_data.m_decompression.opj_decode(l_codec->m_codec,
 495                 l_stream,
 496                 p_image,
 497                 &(l_codec->m_event_mgr));
 498     }
 499
 500     return OPJ_FALSE;
 501 }
 502
 503 OPJ_BOOL OPJ_CALLCONV opj_set_decode_area(opj_codec_t *p_codec,
 504         opj_image_t* p_image,
 505         OPJ_INT32 p_start_x, OPJ_INT32 p_start_y,
 506         OPJ_INT32 p_end_x, OPJ_INT32 p_end_y
 507                                          )
 508 {
 509     if (p_codec) {
 510         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 511
 512         if (! l_codec->is_decompressor) {
 513             return OPJ_FALSE;
 514         }
 515
 516         return  l_codec->m_codec_data.m_decompression.opj_set_decode_area(
 517                     l_codec->m_codec,
 518                     p_image,
 519                     p_start_x, p_start_y,
 520                     p_end_x, p_end_y,
 521                     &(l_codec->m_event_mgr));
 522     }
 523     return OPJ_FALSE;
 524 }
 525
 526 OPJ_BOOL OPJ_CALLCONV opj_read_tile_header(opj_codec_t *p_codec,
 527         opj_stream_t * p_stream,
 528         OPJ_UINT32 * p_tile_index,
 529         OPJ_UINT32 * p_data_size,
 530         OPJ_INT32 * p_tile_x0, OPJ_INT32 * p_tile_y0,
 531         OPJ_INT32 * p_tile_x1, OPJ_INT32 * p_tile_y1,
 532         OPJ_UINT32 * p_nb_comps,
 533         OPJ_BOOL * p_should_go_on)
 534 {
 535     if (p_codec && p_stream && p_data_size && p_tile_index) {
 536         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 537         opj_stream_private_t * l_stream = (opj_stream_private_t *) p_stream;
 538
 539         if (! l_codec->is_decompressor) {
 540             return OPJ_FALSE;
 541         }
 542
 543         return l_codec->m_codec_data.m_decompression.opj_read_tile_header(
 544                    l_codec->m_codec,
 545                    p_tile_index,
 546                    p_data_size,
 547                    p_tile_x0, p_tile_y0,
 548                    p_tile_x1, p_tile_y1,
 549                    p_nb_comps,
 550                    p_should_go_on,
 551                    l_stream,
 552                    &(l_codec->m_event_mgr));
 553     }
 554     return OPJ_FALSE;
 555 }
 556
 557 OPJ_BOOL OPJ_CALLCONV opj_decode_tile_data(opj_codec_t *p_codec,
 558         OPJ_UINT32 p_tile_index,
 559         OPJ_BYTE * p_data,
 560         OPJ_UINT32 p_data_size,
 561         opj_stream_t *p_stream
 562                                           )
 563 {
 564     if (p_codec && p_data && p_stream) {
 565         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 566         opj_stream_private_t * l_stream = (opj_stream_private_t *) p_stream;
 567
 568         if (! l_codec->is_decompressor) {
 569             return OPJ_FALSE;
 570         }
 571
 572         return l_codec->m_codec_data.m_decompression.opj_decode_tile_data(
 573                    l_codec->m_codec,
 574                    p_tile_index,
 575                    p_data,
 576                    p_data_size,
 577                    l_stream,
 578                    &(l_codec->m_event_mgr));
 579     }
 580     return OPJ_FALSE;
 581 }
 582
 583 OPJ_BOOL OPJ_CALLCONV opj_get_decoded_tile(opj_codec_t *p_codec,
 584         opj_stream_t *p_stream,
 585         opj_image_t *p_image,
 586         OPJ_UINT32 tile_index)
 587 {
 588     if (p_codec && p_stream) {
 589         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 590         opj_stream_private_t * l_stream = (opj_stream_private_t *) p_stream;
 591
 592         if (! l_codec->is_decompressor) {
 593             return OPJ_FALSE;
 594         }
 595
 596         return l_codec->m_codec_data.m_decompression.opj_get_decoded_tile(
 597                    l_codec->m_codec,
 598                    l_stream,
 599                    p_image,
 600                    &(l_codec->m_event_mgr),
 601                    tile_index);
 602     }
 603
 604     return OPJ_FALSE;
 605 }
 606
 607 OPJ_BOOL OPJ_CALLCONV opj_set_decoded_resolution_factor(opj_codec_t *p_codec,
 608         OPJ_UINT32 res_factor)
 609 {
 610     opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 611
 612     if (!l_codec) {
 613         return OPJ_FALSE;
 614     }
 615
 616     return l_codec->m_codec_data.m_decompression.opj_set_decoded_resolution_factor(
 617                l_codec->m_codec,
 618                res_factor,
 619                &(l_codec->m_event_mgr));
 620 }
 621
 622 /* ---------------------------------------------------------------------- */
 623 /* COMPRESSION FUNCTIONS*/
 624
 625 opj_codec_t* OPJ_CALLCONV opj_create_compress(OPJ_CODEC_FORMAT p_format)
 626 {
 627     opj_codec_private_t *l_codec = 00;
 628
 629     l_codec = (opj_codec_private_t*)opj_calloc(1, sizeof(opj_codec_private_t));
 630     if (!l_codec) {
 631         return 00;
 632     }
 633
 634     l_codec->is_decompressor = 0;
 635
 636     switch (p_format) {
 637     case OPJ_CODEC_J2K:
 638         l_codec->m_codec_data.m_compression.opj_encode = (OPJ_BOOL(*)(void *,
 639                 struct opj_stream_private *,
 640                 struct opj_event_mgr *)) opj_j2k_encode;
 641
 642         l_codec->m_codec_data.m_compression.opj_end_compress = (OPJ_BOOL(*)(void *,
 643                 struct opj_stream_private *,
 644                 struct opj_event_mgr *)) opj_j2k_end_compress;
 645
 646         l_codec->m_codec_data.m_compression.opj_start_compress = (OPJ_BOOL(*)(void *,
 647                 struct opj_stream_private *,
 648                 struct opj_image *,
 649                 struct opj_event_mgr *)) opj_j2k_start_compress;
 650
 651         l_codec->m_codec_data.m_compression.opj_write_tile = (OPJ_BOOL(*)(void *,
 652                 OPJ_UINT32,
 653                 OPJ_BYTE*,
 654                 OPJ_UINT32,
 655                 struct opj_stream_private *,
 656                 struct opj_event_mgr *)) opj_j2k_write_tile;
 657
 658         l_codec->m_codec_data.m_compression.opj_destroy = (void (*)(
 659                     void *)) opj_j2k_destroy;
 660
 661         l_codec->m_codec_data.m_compression.opj_setup_encoder = (OPJ_BOOL(*)(void *,
 662                 opj_cparameters_t *,
 663                 struct opj_image *,
 664                 struct opj_event_mgr *)) opj_j2k_setup_encoder;
 665
 666         l_codec->m_codec_data.m_compression.opj_encoder_set_extra_options = (OPJ_BOOL(
 667                     *)(void *,
 668                        const char* const*,
 669                        struct opj_event_mgr *)) opj_j2k_encoder_set_extra_options;
 670
 671         l_codec->opj_set_threads =
 672             (OPJ_BOOL(*)(void * p_codec, OPJ_UINT32 num_threads)) opj_j2k_set_threads;
 673
 674         l_codec->m_codec = opj_j2k_create_compress();
 675         if (! l_codec->m_codec) {
 676             opj_free(l_codec);
 677             return 00;
 678         }
 679
 680         break;
 681
 682     case OPJ_CODEC_JP2:
 683         /* get a JP2 decoder handle */
 684         l_codec->m_codec_data.m_compression.opj_encode = (OPJ_BOOL(*)(void *,
 685                 struct opj_stream_private *,
 686                 struct opj_event_mgr *)) opj_jp2_encode;
 687
 688         l_codec->m_codec_data.m_compression.opj_end_compress = (OPJ_BOOL(*)(void *,
 689                 struct opj_stream_private *,
 690                 struct opj_event_mgr *)) opj_jp2_end_compress;
 691
 692         l_codec->m_codec_data.m_compression.opj_start_compress = (OPJ_BOOL(*)(void *,
 693                 struct opj_stream_private *,
 694                 struct opj_image *,
 695                 struct opj_event_mgr *))  opj_jp2_start_compress;
 696
 697         l_codec->m_codec_data.m_compression.opj_write_tile = (OPJ_BOOL(*)(void *,
 698                 OPJ_UINT32,
 699                 OPJ_BYTE*,
 700                 OPJ_UINT32,
 701                 struct opj_stream_private *,
 702                 struct opj_event_mgr *)) opj_jp2_write_tile;
 703
 704         l_codec->m_codec_data.m_compression.opj_destroy = (void (*)(
 705                     void *)) opj_jp2_destroy;
 706
 707         l_codec->m_codec_data.m_compression.opj_setup_encoder = (OPJ_BOOL(*)(void *,
 708                 opj_cparameters_t *,
 709                 struct opj_image *,
 710                 struct opj_event_mgr *)) opj_jp2_setup_encoder;
 711
 712         l_codec->m_codec_data.m_compression.opj_encoder_set_extra_options = (OPJ_BOOL(
 713                     *)(void *,
 714                        const char* const*,
 715                        struct opj_event_mgr *)) opj_jp2_encoder_set_extra_options;
 716
 717         l_codec->opj_set_threads =
 718             (OPJ_BOOL(*)(void * p_codec, OPJ_UINT32 num_threads)) opj_jp2_set_threads;
 719
 720         l_codec->m_codec = opj_jp2_create(OPJ_FALSE);
 721         if (! l_codec->m_codec) {
 722             opj_free(l_codec);
 723             return 00;
 724         }
 725
 726         break;
 727
 728     case OPJ_CODEC_UNKNOWN:
 729     case OPJ_CODEC_JPT:
 730     default:
 731         opj_free(l_codec);
 732         return 00;
 733     }
 734
 735     opj_set_default_event_handler(&(l_codec->m_event_mgr));
 736     return (opj_codec_t*) l_codec;
 737 }
 738
 739 void OPJ_CALLCONV opj_set_default_encoder_parameters(opj_cparameters_t
 740         *parameters)
 741 {
 742     if (parameters) {
 743         memset(parameters, 0, sizeof(opj_cparameters_t));
 744         /* default coding parameters */
 745         parameters->cp_cinema = OPJ_OFF; /* DEPRECATED */
 746         parameters->rsiz = OPJ_PROFILE_NONE;
 747         parameters->max_comp_size = 0;
 748         parameters->numresolution = OPJ_COMP_PARAM_DEFAULT_NUMRESOLUTION;
 749         parameters->cp_rsiz = OPJ_STD_RSIZ; /* DEPRECATED */
 750         parameters->cblockw_init = OPJ_COMP_PARAM_DEFAULT_CBLOCKW;
 751         parameters->cblockh_init = OPJ_COMP_PARAM_DEFAULT_CBLOCKH;
 752         parameters->prog_order = OPJ_COMP_PARAM_DEFAULT_PROG_ORDER;
 753         parameters->roi_compno = -1;        /* no ROI */
 754         parameters->subsampling_dx = 1;
 755         parameters->subsampling_dy = 1;
 756         parameters->tp_on = 0;
 757         parameters->decod_format = -1;
 758         parameters->cod_format = -1;
 759         parameters->tcp_rates[0] = 0;
 760         parameters->tcp_numlayers = 0;
 761         parameters->cp_disto_alloc = 0;
 762         parameters->cp_fixed_alloc = 0;
 763         parameters->cp_fixed_quality = 0;
 764         parameters->jpip_on = OPJ_FALSE;
 765         /* UniPG>> */
 766 #ifdef USE_JPWL
 767         parameters->jpwl_epc_on = OPJ_FALSE;
 768         parameters->jpwl_hprot_MH = -1; /* -1 means unassigned */
 769         {
 770             int i;
 771             for (i = 0; i < JPWL_MAX_NO_TILESPECS; i++) {
 772                 parameters->jpwl_hprot_TPH_tileno[i] = -1; /* unassigned */
 773                 parameters->jpwl_hprot_TPH[i] = 0; /* absent */
 774             }
 775         };
 776         {
 777             int i;
 778             for (i = 0; i < JPWL_MAX_NO_PACKSPECS; i++) {
 779                 parameters->jpwl_pprot_tileno[i] = -1; /* unassigned */
 780                 parameters->jpwl_pprot_packno[i] = -1; /* unassigned */
 781                 parameters->jpwl_pprot[i] = 0; /* absent */
 782             }
 783         };
 784         parameters->jpwl_sens_size = 0; /* 0 means no ESD */
 785         parameters->jpwl_sens_addr = 0; /* 0 means auto */
 786         parameters->jpwl_sens_range = 0; /* 0 means packet */
 787         parameters->jpwl_sens_MH = -1; /* -1 means unassigned */
 788         {
 789             int i;
 790             for (i = 0; i < JPWL_MAX_NO_TILESPECS; i++) {
 791                 parameters->jpwl_sens_TPH_tileno[i] = -1; /* unassigned */
 792                 parameters->jpwl_sens_TPH[i] = -1; /* absent */
 793             }
 794         };
 795 #endif /* USE_JPWL */
 796         /* <<UniPG */
 797     }
 798 }
 799
 800 OPJ_BOOL OPJ_CALLCONV opj_setup_encoder(opj_codec_t *p_codec,
 801                                         opj_cparameters_t *parameters,
 802                                         opj_image_t *p_image)
 803 {
 804     if (p_codec && parameters && p_image) {
 805         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 806
 807         if (! l_codec->is_decompressor) {
 808             return l_codec->m_codec_data.m_compression.opj_setup_encoder(l_codec->m_codec,
 809                     parameters,
 810                     p_image,
 811                     &(l_codec->m_event_mgr));
 812         }
 813     }
 814
 815     return OPJ_FALSE;
 816 }
 817
 818 /* ----------------------------------------------------------------------- */
 819
 820 OPJ_BOOL OPJ_CALLCONV opj_encoder_set_extra_options(opj_codec_t *p_codec,
 821         const char* const* options)
 822 {
 823     if (p_codec) {
 824         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 825
 826         if (! l_codec->is_decompressor) {
 827             return l_codec->m_codec_data.m_compression.opj_encoder_set_extra_options(
 828                        l_codec->m_codec,
 829                        options,
 830                        &(l_codec->m_event_mgr));
 831         }
 832     }
 833
 834     return OPJ_FALSE;
 835 }
 836
 837 /* ----------------------------------------------------------------------- */
 838
 839 OPJ_BOOL OPJ_CALLCONV opj_start_compress(opj_codec_t *p_codec,
 840         opj_image_t * p_image,
 841         opj_stream_t *p_stream)
 842 {
 843     if (p_codec && p_stream) {
 844         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 845         opj_stream_private_t * l_stream = (opj_stream_private_t *) p_stream;
 846
 847         if (! l_codec->is_decompressor) {
 848             return l_codec->m_codec_data.m_compression.opj_start_compress(l_codec->m_codec,
 849                     l_stream,
 850                     p_image,
 851                     &(l_codec->m_event_mgr));
 852         }
 853     }
 854
 855     return OPJ_FALSE;
 856 }
 857
 858 OPJ_BOOL OPJ_CALLCONV opj_encode(opj_codec_t *p_info, opj_stream_t *p_stream)
 859 {
 860     if (p_info && p_stream) {
 861         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_info;
 862         opj_stream_private_t * l_stream = (opj_stream_private_t *) p_stream;
 863
 864         if (! l_codec->is_decompressor) {
 865             return l_codec->m_codec_data.m_compression.opj_encode(l_codec->m_codec,
 866                     l_stream,
 867                     &(l_codec->m_event_mgr));
 868         }
 869     }
 870
 871     return OPJ_FALSE;
 872
 873 }
 874
 875 OPJ_BOOL OPJ_CALLCONV opj_end_compress(opj_codec_t *p_codec,
 876                                        opj_stream_t *p_stream)
 877 {
 878     if (p_codec && p_stream) {
 879         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 880         opj_stream_private_t * l_stream = (opj_stream_private_t *) p_stream;
 881
 882         if (! l_codec->is_decompressor) {
 883             return l_codec->m_codec_data.m_compression.opj_end_compress(l_codec->m_codec,
 884                     l_stream,
 885                     &(l_codec->m_event_mgr));
 886         }
 887     }
 888     return OPJ_FALSE;
 889
 890 }
 891
 892 OPJ_BOOL OPJ_CALLCONV opj_end_decompress(opj_codec_t *p_codec,
 893         opj_stream_t *p_stream)
 894 {
 895     if (p_codec && p_stream) {
 896         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 897         opj_stream_private_t * l_stream = (opj_stream_private_t *) p_stream;
 898
 899         if (! l_codec->is_decompressor) {
 900             return OPJ_FALSE;
 901         }
 902
 903         return l_codec->m_codec_data.m_decompression.opj_end_decompress(
 904                    l_codec->m_codec,
 905                    l_stream,
 906                    &(l_codec->m_event_mgr));
 907     }
 908
 909     return OPJ_FALSE;
 910 }
 911
 912 OPJ_BOOL OPJ_CALLCONV opj_set_MCT(opj_cparameters_t *parameters,
 913                                   OPJ_FLOAT32 * pEncodingMatrix,
 914                                   OPJ_INT32 * p_dc_shift, OPJ_UINT32 pNbComp)
 915 {
 916     OPJ_UINT32 l_matrix_size = pNbComp * pNbComp * (OPJ_UINT32)sizeof(OPJ_FLOAT32);
 917     OPJ_UINT32 l_dc_shift_size = pNbComp * (OPJ_UINT32)sizeof(OPJ_INT32);
 918     OPJ_UINT32 l_mct_total_size = l_matrix_size + l_dc_shift_size;
 919
 920     /* add MCT capability */
 921     if (OPJ_IS_PART2(parameters->rsiz)) {
 922         parameters->rsiz |= OPJ_EXTENSION_MCT;
 923     } else {
 924         parameters->rsiz = ((OPJ_PROFILE_PART2) | (OPJ_EXTENSION_MCT));
 925     }
 926     parameters->irreversible = 1;
 927
 928     /* use array based MCT */
 929     parameters->tcp_mct = 2;
 930     parameters->mct_data = opj_malloc(l_mct_total_size);
 931     if (! parameters->mct_data) {
 932         return OPJ_FALSE;
 933     }
 934
 935     memcpy(parameters->mct_data, pEncodingMatrix, l_matrix_size);
 936     memcpy(((OPJ_BYTE *) parameters->mct_data) +  l_matrix_size, p_dc_shift,
 937            l_dc_shift_size);
 938
 939     return OPJ_TRUE;
 940 }
 941
 942 OPJ_BOOL OPJ_CALLCONV opj_write_tile(opj_codec_t *p_codec,
 943                                      OPJ_UINT32 p_tile_index,
 944                                      OPJ_BYTE * p_data,
 945                                      OPJ_UINT32 p_data_size,
 946                                      opj_stream_t *p_stream)
 947 {
 948     if (p_codec && p_stream && p_data) {
 949         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 950         opj_stream_private_t * l_stream = (opj_stream_private_t *) p_stream;
 951
 952         if (l_codec->is_decompressor) {
 953             return OPJ_FALSE;
 954         }
 955
 956         return l_codec->m_codec_data.m_compression.opj_write_tile(l_codec->m_codec,
 957                 p_tile_index,
 958                 p_data,
 959                 p_data_size,
 960                 l_stream,
 961                 &(l_codec->m_event_mgr));
 962     }
 963
 964     return OPJ_FALSE;
 965 }
 966
 967 /* ---------------------------------------------------------------------- */
 968
 969 void OPJ_CALLCONV opj_destroy_codec(opj_codec_t *p_codec)
 970 {
 971     if (p_codec) {
 972         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 973
 974         if (l_codec->is_decompressor) {
 975             l_codec->m_codec_data.m_decompression.opj_destroy(l_codec->m_codec);
 976         } else {
 977             l_codec->m_codec_data.m_compression.opj_destroy(l_codec->m_codec);
 978         }
 979
 980         l_codec->m_codec = 00;
 981         opj_free(l_codec);
 982     }
 983 }
 984
 985 /* ---------------------------------------------------------------------- */
 986
 987 void OPJ_CALLCONV opj_dump_codec(opj_codec_t *p_codec,
 988                                  OPJ_INT32 info_flag,
 989                                  FILE* output_stream)
 990 {
 991     if (p_codec) {
 992         opj_codec_private_t* l_codec = (opj_codec_private_t*) p_codec;
 993
 994         l_codec->opj_dump_codec(l_codec->m_codec, info_flag, output_stream);
 995         return;
 996     }
 997
 998     /* TODO return error */
 999     /* fprintf(stderr, "[ERROR] Input parameter of the dump_codec function are incorrect.\n"); */
1000     return;
1001 }
1002
1003 opj_codestream_info_v2_t* OPJ_CALLCONV opj_get_cstr_info(opj_codec_t *p_codec)
1004 {
1005     if (p_codec) {
1006         opj_codec_private_t* l_codec = (opj_codec_private_t*) p_codec;
1007
1008         return l_codec->opj_get_codec_info(l_codec->m_codec);
1009     }
1010
1011     return NULL;
1012 }
1013
1014 void OPJ_CALLCONV opj_destroy_cstr_info(opj_codestream_info_v2_t **cstr_info)
1015 {
1016     if (cstr_info) {
1017
1018         if ((*cstr_info)->m_default_tile_info.tccp_info) {
1019             opj_free((*cstr_info)->m_default_tile_info.tccp_info);
1020         }
1021
1022         if ((*cstr_info)->tile_info) {
1023             /* FIXME not used for the moment*/
1024         }
1025
1026         opj_free((*cstr_info));
1027         (*cstr_info) = NULL;
1028     }
1029 }
1030
1031 opj_codestream_index_t * OPJ_CALLCONV opj_get_cstr_index(opj_codec_t *p_codec)
1032 {
1033     if (p_codec) {
1034         opj_codec_private_t* l_codec = (opj_codec_private_t*) p_codec;
1035
1036         return l_codec->opj_get_codec_index(l_codec->m_codec);
1037     }
1038
1039     return NULL;
1040 }
1041
1042 void OPJ_CALLCONV opj_destroy_cstr_index(opj_codestream_index_t **p_cstr_index)
1043 {
1044     if (*p_cstr_index) {
1045         j2k_destroy_cstr_index(*p_cstr_index);
1046         (*p_cstr_index) = NULL;
1047     }
1048 }
1049
1050 opj_stream_t* OPJ_CALLCONV opj_stream_create_default_file_stream(
1051     const char *fname, OPJ_BOOL p_is_read_stream)
1052 {
1053     return opj_stream_create_file_stream(fname, OPJ_J2K_STREAM_CHUNK_SIZE,
1054                                          p_is_read_stream);
1055 }
1056
1057 opj_stream_t* OPJ_CALLCONV opj_stream_create_file_stream(
1058     const char *fname,
1059     OPJ_SIZE_T p_size,
1060     OPJ_BOOL p_is_read_stream)
1061 {
1062     opj_stream_t* l_stream = 00;
1063     FILE *p_file;
1064     const char *mode;
1065
1066     if (! fname) {
1067         return NULL;
1068     }
1069
1070     if (p_is_read_stream) {
1071         mode = "rb";
1072     } else {
1073         mode = "wb";
1074     }
1075
1076     p_file = fopen(fname, mode);
1077
1078     if (! p_file) {
1079         return NULL;
1080     }
1081
1082     l_stream = opj_stream_create(p_size, p_is_read_stream);
1083     if (! l_stream) {
1084         fclose(p_file);
1085         return NULL;
1086     }
1087
1088     opj_stream_set_user_data(l_stream, p_file, opj_close_from_file);
1089     opj_stream_set_user_data_length(l_stream,
1090                                     opj_get_data_length_from_file(p_file));
1091     opj_stream_set_read_function(l_stream, opj_read_from_file);
1092     opj_stream_set_write_function(l_stream,
1093                                   (opj_stream_write_fn) opj_write_from_file);
1094     opj_stream_set_skip_function(l_stream, opj_skip_from_file);
1095     opj_stream_set_seek_function(l_stream, opj_seek_from_file);
1096
1097     return l_stream;
1098 }
1099
1100
1101 void* OPJ_CALLCONV opj_image_data_alloc(OPJ_SIZE_T size)
1102 {
1103     void* ret = opj_aligned_malloc(size);
1104     /* printf("opj_image_data_alloc %p\n", ret); */
1105     return ret;
1106 }
1107
1108 void OPJ_CALLCONV opj_image_data_free(void* ptr)
1109 {
1110     /* printf("opj_image_data_free %p\n", ptr); */
1111     opj_aligned_free(ptr);
1112 }