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                                      FILE * p_file)
  93 {
  94     OPJ_SIZE_T l_nb_read = fread(p_buffer, 1, p_nb_bytes, p_file);
  95     return l_nb_read ? l_nb_read : (OPJ_SIZE_T) - 1;
  96 }
  97
  98 static OPJ_UINT64 opj_get_data_length_from_file(FILE * p_file)
  99 {
 100     OPJ_OFF_T file_length = 0;
 101
 102     OPJ_FSEEK(p_file, 0, SEEK_END);
 103     file_length = (OPJ_OFF_T)OPJ_FTELL(p_file);
 104     OPJ_FSEEK(p_file, 0, SEEK_SET);
 105
 106     return (OPJ_UINT64)file_length;
 107 }
 108
 109 static OPJ_SIZE_T opj_write_from_file(void * p_buffer, OPJ_SIZE_T p_nb_bytes,
 110                                       FILE * p_file)
 111 {
 112     return fwrite(p_buffer, 1, p_nb_bytes, p_file);
 113 }
 114
 115 static OPJ_OFF_T opj_skip_from_file(OPJ_OFF_T p_nb_bytes, FILE * p_user_data)
 116 {
 117     if (OPJ_FSEEK(p_user_data, p_nb_bytes, SEEK_CUR)) {
 118         return -1;
 119     }
 120
 121     return p_nb_bytes;
 122 }
 123
 124 static OPJ_BOOL opj_seek_from_file(OPJ_OFF_T p_nb_bytes, FILE * p_user_data)
 125 {
 126     if (OPJ_FSEEK(p_user_data, p_nb_bytes, SEEK_SET)) {
 127         return OPJ_FALSE;
 128     }
 129
 130     return OPJ_TRUE;
 131 }
 132
 133 /* ---------------------------------------------------------------------- */
 134 #ifdef _WIN32
 135 #ifndef OPJ_STATIC
 136 BOOL APIENTRY
 137 DllMain(HINSTANCE hModule, DWORD ul_reason_for_call, LPVOID lpReserved)
 138 {
 139
 140     OPJ_ARG_NOT_USED(lpReserved);
 141     OPJ_ARG_NOT_USED(hModule);
 142
 143     switch (ul_reason_for_call) {
 144     case DLL_PROCESS_ATTACH :
 145         break;
 146     case DLL_PROCESS_DETACH :
 147         break;
 148     case DLL_THREAD_ATTACH :
 149     case DLL_THREAD_DETACH :
 150         break;
 151     }
 152
 153     return TRUE;
 154 }
 155 #endif /* OPJ_STATIC */
 156 #endif /* _WIN32 */
 157
 158 /* ---------------------------------------------------------------------- */
 159
 160 const char* OPJ_CALLCONV opj_version(void)
 161 {
 162     return OPJ_PACKAGE_VERSION;
 163 }
 164
 165 /* ---------------------------------------------------------------------- */
 166 /* DECOMPRESSION FUNCTIONS*/
 167
 168 opj_codec_t* OPJ_CALLCONV opj_create_decompress(OPJ_CODEC_FORMAT p_format)
 169 {
 170     opj_codec_private_t *l_codec = 00;
 171
 172     l_codec = (opj_codec_private_t*) opj_calloc(1, sizeof(opj_codec_private_t));
 173     if (!l_codec) {
 174         return 00;
 175     }
 176
 177     l_codec->is_decompressor = 1;
 178
 179     switch (p_format) {
 180     case OPJ_CODEC_J2K:
 181         l_codec->opj_dump_codec = (void (*)(void*, OPJ_INT32, FILE*)) j2k_dump;
 182
 183         l_codec->opj_get_codec_info = (opj_codestream_info_v2_t* (*)(
 184                                            void*)) j2k_get_cstr_info;
 185
 186         l_codec->opj_get_codec_index = (opj_codestream_index_t* (*)(
 187                                             void*)) j2k_get_cstr_index;
 188
 189         l_codec->m_codec_data.m_decompression.opj_decode =
 190             (OPJ_BOOL(*)(void *,
 191                          struct opj_stream_private *,
 192                          opj_image_t*, struct opj_event_mgr *)) opj_j2k_decode;
 193
 194         l_codec->m_codec_data.m_decompression.opj_end_decompress =
 195             (OPJ_BOOL(*)(void *,
 196                          struct opj_stream_private *,
 197                          struct opj_event_mgr *)) opj_j2k_end_decompress;
 198
 199         l_codec->m_codec_data.m_decompression.opj_read_header =
 200             (OPJ_BOOL(*)(struct opj_stream_private *,
 201                          void *,
 202                          opj_image_t **,
 203                          struct opj_event_mgr *)) opj_j2k_read_header;
 204
 205         l_codec->m_codec_data.m_decompression.opj_destroy =
 206             (void (*)(void *))opj_j2k_destroy;
 207
 208         l_codec->m_codec_data.m_decompression.opj_setup_decoder =
 209             (void (*)(void *, opj_dparameters_t *)) opj_j2k_setup_decoder;
 210
 211         l_codec->m_codec_data.m_decompression.opj_read_tile_header =
 212             (OPJ_BOOL(*)(void *,
 213                          OPJ_UINT32*,
 214                          OPJ_UINT32*,
 215                          OPJ_INT32*, OPJ_INT32*,
 216                          OPJ_INT32*, OPJ_INT32*,
 217                          OPJ_UINT32*,
 218                          OPJ_BOOL*,
 219                          struct opj_stream_private *,
 220                          struct opj_event_mgr *)) opj_j2k_read_tile_header;
 221
 222         l_codec->m_codec_data.m_decompression.opj_decode_tile_data =
 223             (OPJ_BOOL(*)(void *,
 224                          OPJ_UINT32,
 225                          OPJ_BYTE*,
 226                          OPJ_UINT32,
 227                          struct opj_stream_private *,
 228                          struct opj_event_mgr *)) opj_j2k_decode_tile;
 229
 230         l_codec->m_codec_data.m_decompression.opj_set_decode_area =
 231             (OPJ_BOOL(*)(void *,
 232                          opj_image_t*,
 233                          OPJ_INT32, OPJ_INT32, OPJ_INT32, OPJ_INT32,
 234                          struct opj_event_mgr *)) opj_j2k_set_decode_area;
 235
 236         l_codec->m_codec_data.m_decompression.opj_get_decoded_tile =
 237             (OPJ_BOOL(*)(void *p_codec,
 238                          opj_stream_private_t *p_cio,
 239                          opj_image_t *p_image,
 240                          struct opj_event_mgr * p_manager,
 241                          OPJ_UINT32 tile_index)) opj_j2k_get_tile;
 242
 243         l_codec->m_codec_data.m_decompression.opj_set_decoded_resolution_factor =
 244             (OPJ_BOOL(*)(void * p_codec,
 245                          OPJ_UINT32 res_factor,
 246                          struct opj_event_mgr * p_manager)) opj_j2k_set_decoded_resolution_factor;
 247
 248         l_codec->opj_set_threads =
 249             (OPJ_BOOL(*)(void * p_codec, OPJ_UINT32 num_threads)) opj_j2k_set_threads;
 250
 251         l_codec->m_codec = opj_j2k_create_decompress();
 252
 253         if (! l_codec->m_codec) {
 254             opj_free(l_codec);
 255             return NULL;
 256         }
 257
 258         break;
 259
 260     case OPJ_CODEC_JP2:
 261         /* get a JP2 decoder handle */
 262         l_codec->opj_dump_codec = (void (*)(void*, OPJ_INT32, FILE*)) jp2_dump;
 263
 264         l_codec->opj_get_codec_info = (opj_codestream_info_v2_t* (*)(
 265                                            void*)) jp2_get_cstr_info;
 266
 267         l_codec->opj_get_codec_index = (opj_codestream_index_t* (*)(
 268                                             void*)) jp2_get_cstr_index;
 269
 270         l_codec->m_codec_data.m_decompression.opj_decode =
 271             (OPJ_BOOL(*)(void *,
 272                          struct opj_stream_private *,
 273                          opj_image_t*,
 274                          struct opj_event_mgr *)) opj_jp2_decode;
 275
 276         l_codec->m_codec_data.m_decompression.opj_end_decompress =
 277             (OPJ_BOOL(*)(void *,
 278                          struct opj_stream_private *,
 279                          struct opj_event_mgr *)) opj_jp2_end_decompress;
 280
 281         l_codec->m_codec_data.m_decompression.opj_read_header =
 282             (OPJ_BOOL(*)(struct opj_stream_private *,
 283                          void *,
 284                          opj_image_t **,
 285                          struct opj_event_mgr *)) opj_jp2_read_header;
 286
 287         l_codec->m_codec_data.m_decompression.opj_read_tile_header =
 288             (OPJ_BOOL(*)(void *,
 289                          OPJ_UINT32*,
 290                          OPJ_UINT32*,
 291                          OPJ_INT32*,
 292                          OPJ_INT32*,
 293                          OPJ_INT32 *,
 294                          OPJ_INT32 *,
 295                          OPJ_UINT32 *,
 296                          OPJ_BOOL *,
 297                          struct opj_stream_private *,
 298                          struct opj_event_mgr *)) opj_jp2_read_tile_header;
 299
 300         l_codec->m_codec_data.m_decompression.opj_decode_tile_data =
 301             (OPJ_BOOL(*)(void *,
 302                          OPJ_UINT32, OPJ_BYTE*, OPJ_UINT32,
 303                          struct opj_stream_private *,
 304                          struct opj_event_mgr *)) opj_jp2_decode_tile;
 305
 306         l_codec->m_codec_data.m_decompression.opj_destroy = (void (*)(
 307                     void *))opj_jp2_destroy;
 308
 309         l_codec->m_codec_data.m_decompression.opj_setup_decoder =
 310             (void (*)(void *, opj_dparameters_t *)) opj_jp2_setup_decoder;
 311
 312         l_codec->m_codec_data.m_decompression.opj_set_decode_area =
 313             (OPJ_BOOL(*)(void *,
 314                          opj_image_t*,
 315                          OPJ_INT32, OPJ_INT32, OPJ_INT32, OPJ_INT32,
 316                          struct opj_event_mgr *)) opj_jp2_set_decode_area;
 317
 318         l_codec->m_codec_data.m_decompression.opj_get_decoded_tile =
 319             (OPJ_BOOL(*)(void *p_codec,
 320                          opj_stream_private_t *p_cio,
 321                          opj_image_t *p_image,
 322                          struct opj_event_mgr * p_manager,
 323                          OPJ_UINT32 tile_index)) opj_jp2_get_tile;
 324
 325         l_codec->m_codec_data.m_decompression.opj_set_decoded_resolution_factor =
 326             (OPJ_BOOL(*)(void * p_codec,
 327                          OPJ_UINT32 res_factor,
 328                          opj_event_mgr_t * p_manager)) opj_jp2_set_decoded_resolution_factor;
 329
 330         l_codec->opj_set_threads =
 331             (OPJ_BOOL(*)(void * p_codec, OPJ_UINT32 num_threads)) opj_jp2_set_threads;
 332
 333         l_codec->m_codec = opj_jp2_create(OPJ_TRUE);
 334
 335         if (! l_codec->m_codec) {
 336             opj_free(l_codec);
 337             return 00;
 338         }
 339
 340         break;
 341     case OPJ_CODEC_UNKNOWN:
 342     case OPJ_CODEC_JPT:
 343     default:
 344         opj_free(l_codec);
 345         return 00;
 346     }
 347
 348     opj_set_default_event_handler(&(l_codec->m_event_mgr));
 349     return (opj_codec_t*) l_codec;
 350 }
 351
 352 void OPJ_CALLCONV opj_set_default_decoder_parameters(opj_dparameters_t
 353         *parameters)
 354 {
 355     if (parameters) {
 356         memset(parameters, 0, sizeof(opj_dparameters_t));
 357         /* default decoding parameters */
 358         parameters->cp_layer = 0;
 359         parameters->cp_reduce = 0;
 360
 361         parameters->decod_format = -1;
 362         parameters->cod_format = -1;
 363         parameters->flags = 0;
 364         /* UniPG>> */
 365 #ifdef USE_JPWL
 366         parameters->jpwl_correct = OPJ_FALSE;
 367         parameters->jpwl_exp_comps = JPWL_EXPECTED_COMPONENTS;
 368         parameters->jpwl_max_tiles = JPWL_MAXIMUM_TILES;
 369 #endif /* USE_JPWL */
 370         /* <<UniPG */
 371     }
 372 }
 373
 374
 375 OPJ_BOOL OPJ_CALLCONV opj_codec_set_threads(opj_codec_t *p_codec,
 376         int num_threads)
 377 {
 378     if (p_codec && (num_threads >= 0)) {
 379         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 380
 381         return l_codec->opj_set_threads(l_codec->m_codec, (OPJ_UINT32)num_threads);
 382     }
 383     return OPJ_FALSE;
 384 }
 385
 386 OPJ_BOOL OPJ_CALLCONV opj_setup_decoder(opj_codec_t *p_codec,
 387                                         opj_dparameters_t *parameters
 388                                        )
 389 {
 390     if (p_codec && parameters) {
 391         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 392
 393         if (! l_codec->is_decompressor) {
 394             opj_event_msg(&(l_codec->m_event_mgr), EVT_ERROR,
 395                           "Codec provided to the opj_setup_decoder function is not a decompressor handler.\n");
 396             return OPJ_FALSE;
 397         }
 398
 399         l_codec->m_codec_data.m_decompression.opj_setup_decoder(l_codec->m_codec,
 400                 parameters);
 401         return OPJ_TRUE;
 402     }
 403     return OPJ_FALSE;
 404 }
 405
 406 OPJ_BOOL OPJ_CALLCONV opj_read_header(opj_stream_t *p_stream,
 407                                       opj_codec_t *p_codec,
 408                                       opj_image_t **p_image)
 409 {
 410     if (p_codec && p_stream) {
 411         opj_codec_private_t* l_codec = (opj_codec_private_t*) p_codec;
 412         opj_stream_private_t* l_stream = (opj_stream_private_t*) p_stream;
 413
 414         if (! l_codec->is_decompressor) {
 415             opj_event_msg(&(l_codec->m_event_mgr), EVT_ERROR,
 416                           "Codec provided to the opj_read_header function is not a decompressor handler.\n");
 417             return OPJ_FALSE;
 418         }
 419
 420         return l_codec->m_codec_data.m_decompression.opj_read_header(l_stream,
 421                 l_codec->m_codec,
 422                 p_image,
 423                 &(l_codec->m_event_mgr));
 424     }
 425
 426     return OPJ_FALSE;
 427 }
 428
 429 OPJ_BOOL OPJ_CALLCONV opj_decode(opj_codec_t *p_codec,
 430                                  opj_stream_t *p_stream,
 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             return OPJ_FALSE;
 439         }
 440
 441         return l_codec->m_codec_data.m_decompression.opj_decode(l_codec->m_codec,
 442                 l_stream,
 443                 p_image,
 444                 &(l_codec->m_event_mgr));
 445     }
 446
 447     return OPJ_FALSE;
 448 }
 449
 450 OPJ_BOOL OPJ_CALLCONV opj_set_decode_area(opj_codec_t *p_codec,
 451         opj_image_t* p_image,
 452         OPJ_INT32 p_start_x, OPJ_INT32 p_start_y,
 453         OPJ_INT32 p_end_x, OPJ_INT32 p_end_y
 454                                          )
 455 {
 456     if (p_codec) {
 457         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 458
 459         if (! l_codec->is_decompressor) {
 460             return OPJ_FALSE;
 461         }
 462
 463         return  l_codec->m_codec_data.m_decompression.opj_set_decode_area(
 464                     l_codec->m_codec,
 465                     p_image,
 466                     p_start_x, p_start_y,
 467                     p_end_x, p_end_y,
 468                     &(l_codec->m_event_mgr));
 469     }
 470     return OPJ_FALSE;
 471 }
 472
 473 OPJ_BOOL OPJ_CALLCONV opj_read_tile_header(opj_codec_t *p_codec,
 474         opj_stream_t * p_stream,
 475         OPJ_UINT32 * p_tile_index,
 476         OPJ_UINT32 * p_data_size,
 477         OPJ_INT32 * p_tile_x0, OPJ_INT32 * p_tile_y0,
 478         OPJ_INT32 * p_tile_x1, OPJ_INT32 * p_tile_y1,
 479         OPJ_UINT32 * p_nb_comps,
 480         OPJ_BOOL * p_should_go_on)
 481 {
 482     if (p_codec && p_stream && p_data_size && p_tile_index) {
 483         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 484         opj_stream_private_t * l_stream = (opj_stream_private_t *) p_stream;
 485
 486         if (! l_codec->is_decompressor) {
 487             return OPJ_FALSE;
 488         }
 489
 490         return l_codec->m_codec_data.m_decompression.opj_read_tile_header(
 491                    l_codec->m_codec,
 492                    p_tile_index,
 493                    p_data_size,
 494                    p_tile_x0, p_tile_y0,
 495                    p_tile_x1, p_tile_y1,
 496                    p_nb_comps,
 497                    p_should_go_on,
 498                    l_stream,
 499                    &(l_codec->m_event_mgr));
 500     }
 501     return OPJ_FALSE;
 502 }
 503
 504 OPJ_BOOL OPJ_CALLCONV opj_decode_tile_data(opj_codec_t *p_codec,
 505         OPJ_UINT32 p_tile_index,
 506         OPJ_BYTE * p_data,
 507         OPJ_UINT32 p_data_size,
 508         opj_stream_t *p_stream
 509                                           )
 510 {
 511     if (p_codec && p_data && p_stream) {
 512         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 513         opj_stream_private_t * l_stream = (opj_stream_private_t *) p_stream;
 514
 515         if (! l_codec->is_decompressor) {
 516             return OPJ_FALSE;
 517         }
 518
 519         return l_codec->m_codec_data.m_decompression.opj_decode_tile_data(
 520                    l_codec->m_codec,
 521                    p_tile_index,
 522                    p_data,
 523                    p_data_size,
 524                    l_stream,
 525                    &(l_codec->m_event_mgr));
 526     }
 527     return OPJ_FALSE;
 528 }
 529
 530 OPJ_BOOL OPJ_CALLCONV opj_get_decoded_tile(opj_codec_t *p_codec,
 531         opj_stream_t *p_stream,
 532         opj_image_t *p_image,
 533         OPJ_UINT32 tile_index)
 534 {
 535     if (p_codec && p_stream) {
 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_get_decoded_tile(
 544                    l_codec->m_codec,
 545                    l_stream,
 546                    p_image,
 547                    &(l_codec->m_event_mgr),
 548                    tile_index);
 549     }
 550
 551     return OPJ_FALSE;
 552 }
 553
 554 OPJ_BOOL OPJ_CALLCONV opj_set_decoded_resolution_factor(opj_codec_t *p_codec,
 555         OPJ_UINT32 res_factor)
 556 {
 557     opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 558
 559     if (!l_codec) {
 560         return OPJ_FALSE;
 561     }
 562
 563     return l_codec->m_codec_data.m_decompression.opj_set_decoded_resolution_factor(
 564                l_codec->m_codec,
 565                res_factor,
 566                &(l_codec->m_event_mgr));
 567 }
 568
 569 /* ---------------------------------------------------------------------- */
 570 /* COMPRESSION FUNCTIONS*/
 571
 572 opj_codec_t* OPJ_CALLCONV opj_create_compress(OPJ_CODEC_FORMAT p_format)
 573 {
 574     opj_codec_private_t *l_codec = 00;
 575
 576     l_codec = (opj_codec_private_t*)opj_calloc(1, sizeof(opj_codec_private_t));
 577     if (!l_codec) {
 578         return 00;
 579     }
 580
 581     l_codec->is_decompressor = 0;
 582
 583     switch (p_format) {
 584     case OPJ_CODEC_J2K:
 585         l_codec->m_codec_data.m_compression.opj_encode = (OPJ_BOOL(*)(void *,
 586                 struct opj_stream_private *,
 587                 struct opj_event_mgr *)) opj_j2k_encode;
 588
 589         l_codec->m_codec_data.m_compression.opj_end_compress = (OPJ_BOOL(*)(void *,
 590                 struct opj_stream_private *,
 591                 struct opj_event_mgr *)) opj_j2k_end_compress;
 592
 593         l_codec->m_codec_data.m_compression.opj_start_compress = (OPJ_BOOL(*)(void *,
 594                 struct opj_stream_private *,
 595                 struct opj_image *,
 596                 struct opj_event_mgr *)) opj_j2k_start_compress;
 597
 598         l_codec->m_codec_data.m_compression.opj_write_tile = (OPJ_BOOL(*)(void *,
 599                 OPJ_UINT32,
 600                 OPJ_BYTE*,
 601                 OPJ_UINT32,
 602                 struct opj_stream_private *,
 603                 struct opj_event_mgr *)) opj_j2k_write_tile;
 604
 605         l_codec->m_codec_data.m_compression.opj_destroy = (void (*)(
 606                     void *)) opj_j2k_destroy;
 607
 608         l_codec->m_codec_data.m_compression.opj_setup_encoder = (OPJ_BOOL(*)(void *,
 609                 opj_cparameters_t *,
 610                 struct opj_image *,
 611                 struct opj_event_mgr *)) opj_j2k_setup_encoder;
 612
 613         l_codec->m_codec = opj_j2k_create_compress();
 614         if (! l_codec->m_codec) {
 615             opj_free(l_codec);
 616             return 00;
 617         }
 618
 619         break;
 620
 621     case OPJ_CODEC_JP2:
 622         /* get a JP2 decoder handle */
 623         l_codec->m_codec_data.m_compression.opj_encode = (OPJ_BOOL(*)(void *,
 624                 struct opj_stream_private *,
 625                 struct opj_event_mgr *)) opj_jp2_encode;
 626
 627         l_codec->m_codec_data.m_compression.opj_end_compress = (OPJ_BOOL(*)(void *,
 628                 struct opj_stream_private *,
 629                 struct opj_event_mgr *)) opj_jp2_end_compress;
 630
 631         l_codec->m_codec_data.m_compression.opj_start_compress = (OPJ_BOOL(*)(void *,
 632                 struct opj_stream_private *,
 633                 struct opj_image *,
 634                 struct opj_event_mgr *))  opj_jp2_start_compress;
 635
 636         l_codec->m_codec_data.m_compression.opj_write_tile = (OPJ_BOOL(*)(void *,
 637                 OPJ_UINT32,
 638                 OPJ_BYTE*,
 639                 OPJ_UINT32,
 640                 struct opj_stream_private *,
 641                 struct opj_event_mgr *)) opj_jp2_write_tile;
 642
 643         l_codec->m_codec_data.m_compression.opj_destroy = (void (*)(
 644                     void *)) opj_jp2_destroy;
 645
 646         l_codec->m_codec_data.m_compression.opj_setup_encoder = (OPJ_BOOL(*)(void *,
 647                 opj_cparameters_t *,
 648                 struct opj_image *,
 649                 struct opj_event_mgr *)) opj_jp2_setup_encoder;
 650
 651         l_codec->m_codec = opj_jp2_create(OPJ_FALSE);
 652         if (! l_codec->m_codec) {
 653             opj_free(l_codec);
 654             return 00;
 655         }
 656
 657         break;
 658
 659     case OPJ_CODEC_UNKNOWN:
 660     case OPJ_CODEC_JPT:
 661     default:
 662         opj_free(l_codec);
 663         return 00;
 664     }
 665
 666     opj_set_default_event_handler(&(l_codec->m_event_mgr));
 667     return (opj_codec_t*) l_codec;
 668 }
 669
 670 void OPJ_CALLCONV opj_set_default_encoder_parameters(opj_cparameters_t
 671         *parameters)
 672 {
 673     if (parameters) {
 674         memset(parameters, 0, sizeof(opj_cparameters_t));
 675         /* default coding parameters */
 676         parameters->cp_cinema = OPJ_OFF; /* DEPRECATED */
 677         parameters->rsiz = OPJ_PROFILE_NONE;
 678         parameters->max_comp_size = 0;
 679         parameters->numresolution = 6;
 680         parameters->cp_rsiz = OPJ_STD_RSIZ; /* DEPRECATED */
 681         parameters->cblockw_init = 64;
 682         parameters->cblockh_init = 64;
 683         parameters->prog_order = OPJ_LRCP;
 684         parameters->roi_compno = -1;        /* no ROI */
 685         parameters->subsampling_dx = 1;
 686         parameters->subsampling_dy = 1;
 687         parameters->tp_on = 0;
 688         parameters->decod_format = -1;
 689         parameters->cod_format = -1;
 690         parameters->tcp_rates[0] = 0;
 691         parameters->tcp_numlayers = 0;
 692         parameters->cp_disto_alloc = 0;
 693         parameters->cp_fixed_alloc = 0;
 694         parameters->cp_fixed_quality = 0;
 695         parameters->jpip_on = OPJ_FALSE;
 696         /* UniPG>> */
 697 #ifdef USE_JPWL
 698         parameters->jpwl_epc_on = OPJ_FALSE;
 699         parameters->jpwl_hprot_MH = -1; /* -1 means unassigned */
 700         {
 701             int i;
 702             for (i = 0; i < JPWL_MAX_NO_TILESPECS; i++) {
 703                 parameters->jpwl_hprot_TPH_tileno[i] = -1; /* unassigned */
 704                 parameters->jpwl_hprot_TPH[i] = 0; /* absent */
 705             }
 706         };
 707         {
 708             int i;
 709             for (i = 0; i < JPWL_MAX_NO_PACKSPECS; i++) {
 710                 parameters->jpwl_pprot_tileno[i] = -1; /* unassigned */
 711                 parameters->jpwl_pprot_packno[i] = -1; /* unassigned */
 712                 parameters->jpwl_pprot[i] = 0; /* absent */
 713             }
 714         };
 715         parameters->jpwl_sens_size = 0; /* 0 means no ESD */
 716         parameters->jpwl_sens_addr = 0; /* 0 means auto */
 717         parameters->jpwl_sens_range = 0; /* 0 means packet */
 718         parameters->jpwl_sens_MH = -1; /* -1 means unassigned */
 719         {
 720             int i;
 721             for (i = 0; i < JPWL_MAX_NO_TILESPECS; i++) {
 722                 parameters->jpwl_sens_TPH_tileno[i] = -1; /* unassigned */
 723                 parameters->jpwl_sens_TPH[i] = -1; /* absent */
 724             }
 725         };
 726 #endif /* USE_JPWL */
 727         /* <<UniPG */
 728     }
 729 }
 730
 731 OPJ_BOOL OPJ_CALLCONV opj_setup_encoder(opj_codec_t *p_codec,
 732                                         opj_cparameters_t *parameters,
 733                                         opj_image_t *p_image)
 734 {
 735     if (p_codec && parameters && p_image) {
 736         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 737
 738         if (! l_codec->is_decompressor) {
 739             return l_codec->m_codec_data.m_compression.opj_setup_encoder(l_codec->m_codec,
 740                     parameters,
 741                     p_image,
 742                     &(l_codec->m_event_mgr));
 743         }
 744     }
 745
 746     return OPJ_FALSE;
 747 }
 748
 749 OPJ_BOOL OPJ_CALLCONV opj_start_compress(opj_codec_t *p_codec,
 750         opj_image_t * p_image,
 751         opj_stream_t *p_stream)
 752 {
 753     if (p_codec && p_stream) {
 754         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 755         opj_stream_private_t * l_stream = (opj_stream_private_t *) p_stream;
 756
 757         if (! l_codec->is_decompressor) {
 758             return l_codec->m_codec_data.m_compression.opj_start_compress(l_codec->m_codec,
 759                     l_stream,
 760                     p_image,
 761                     &(l_codec->m_event_mgr));
 762         }
 763     }
 764
 765     return OPJ_FALSE;
 766 }
 767
 768 OPJ_BOOL OPJ_CALLCONV opj_encode(opj_codec_t *p_info, opj_stream_t *p_stream)
 769 {
 770     if (p_info && p_stream) {
 771         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_info;
 772         opj_stream_private_t * l_stream = (opj_stream_private_t *) p_stream;
 773
 774         if (! l_codec->is_decompressor) {
 775             return l_codec->m_codec_data.m_compression.opj_encode(l_codec->m_codec,
 776                     l_stream,
 777                     &(l_codec->m_event_mgr));
 778         }
 779     }
 780
 781     return OPJ_FALSE;
 782
 783 }
 784
 785 OPJ_BOOL OPJ_CALLCONV opj_end_compress(opj_codec_t *p_codec,
 786                                        opj_stream_t *p_stream)
 787 {
 788     if (p_codec && p_stream) {
 789         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 790         opj_stream_private_t * l_stream = (opj_stream_private_t *) p_stream;
 791
 792         if (! l_codec->is_decompressor) {
 793             return l_codec->m_codec_data.m_compression.opj_end_compress(l_codec->m_codec,
 794                     l_stream,
 795                     &(l_codec->m_event_mgr));
 796         }
 797     }
 798     return OPJ_FALSE;
 799
 800 }
 801
 802 OPJ_BOOL OPJ_CALLCONV opj_end_decompress(opj_codec_t *p_codec,
 803         opj_stream_t *p_stream)
 804 {
 805     if (p_codec && p_stream) {
 806         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 807         opj_stream_private_t * l_stream = (opj_stream_private_t *) p_stream;
 808
 809         if (! l_codec->is_decompressor) {
 810             return OPJ_FALSE;
 811         }
 812
 813         return l_codec->m_codec_data.m_decompression.opj_end_decompress(
 814                    l_codec->m_codec,
 815                    l_stream,
 816                    &(l_codec->m_event_mgr));
 817     }
 818
 819     return OPJ_FALSE;
 820 }
 821
 822 OPJ_BOOL OPJ_CALLCONV opj_set_MCT(opj_cparameters_t *parameters,
 823                                   OPJ_FLOAT32 * pEncodingMatrix,
 824                                   OPJ_INT32 * p_dc_shift, OPJ_UINT32 pNbComp)
 825 {
 826     OPJ_UINT32 l_matrix_size = pNbComp * pNbComp * (OPJ_UINT32)sizeof(OPJ_FLOAT32);
 827     OPJ_UINT32 l_dc_shift_size = pNbComp * (OPJ_UINT32)sizeof(OPJ_INT32);
 828     OPJ_UINT32 l_mct_total_size = l_matrix_size + l_dc_shift_size;
 829
 830     /* add MCT capability */
 831     if (OPJ_IS_PART2(parameters->rsiz)) {
 832         parameters->rsiz |= OPJ_EXTENSION_MCT;
 833     } else {
 834         parameters->rsiz = ((OPJ_PROFILE_PART2) | (OPJ_EXTENSION_MCT));
 835     }
 836     parameters->irreversible = 1;
 837
 838     /* use array based MCT */
 839     parameters->tcp_mct = 2;
 840     parameters->mct_data = opj_malloc(l_mct_total_size);
 841     if (! parameters->mct_data) {
 842         return OPJ_FALSE;
 843     }
 844
 845     memcpy(parameters->mct_data, pEncodingMatrix, l_matrix_size);
 846     memcpy(((OPJ_BYTE *) parameters->mct_data) +  l_matrix_size, p_dc_shift,
 847            l_dc_shift_size);
 848
 849     return OPJ_TRUE;
 850 }
 851
 852 OPJ_BOOL OPJ_CALLCONV opj_write_tile(opj_codec_t *p_codec,
 853                                      OPJ_UINT32 p_tile_index,
 854                                      OPJ_BYTE * p_data,
 855                                      OPJ_UINT32 p_data_size,
 856                                      opj_stream_t *p_stream)
 857 {
 858     if (p_codec && p_stream && p_data) {
 859         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 860         opj_stream_private_t * l_stream = (opj_stream_private_t *) p_stream;
 861
 862         if (l_codec->is_decompressor) {
 863             return OPJ_FALSE;
 864         }
 865
 866         return l_codec->m_codec_data.m_compression.opj_write_tile(l_codec->m_codec,
 867                 p_tile_index,
 868                 p_data,
 869                 p_data_size,
 870                 l_stream,
 871                 &(l_codec->m_event_mgr));
 872     }
 873
 874     return OPJ_FALSE;
 875 }
 876
 877 /* ---------------------------------------------------------------------- */
 878
 879 void OPJ_CALLCONV opj_destroy_codec(opj_codec_t *p_codec)
 880 {
 881     if (p_codec) {
 882         opj_codec_private_t * l_codec = (opj_codec_private_t *) p_codec;
 883
 884         if (l_codec->is_decompressor) {
 885             l_codec->m_codec_data.m_decompression.opj_destroy(l_codec->m_codec);
 886         } else {
 887             l_codec->m_codec_data.m_compression.opj_destroy(l_codec->m_codec);
 888         }
 889
 890         l_codec->m_codec = 00;
 891         opj_free(l_codec);
 892     }
 893 }
 894
 895 /* ---------------------------------------------------------------------- */
 896
 897 void OPJ_CALLCONV opj_dump_codec(opj_codec_t *p_codec,
 898                                  OPJ_INT32 info_flag,
 899                                  FILE* output_stream)
 900 {
 901     if (p_codec) {
 902         opj_codec_private_t* l_codec = (opj_codec_private_t*) p_codec;
 903
 904         l_codec->opj_dump_codec(l_codec->m_codec, info_flag, output_stream);
 905         return;
 906     }
 907
 908     /* TODO return error */
 909     /* fprintf(stderr, "[ERROR] Input parameter of the dump_codec function are incorrect.\n"); */
 910     return;
 911 }
 912
 913 opj_codestream_info_v2_t* OPJ_CALLCONV opj_get_cstr_info(opj_codec_t *p_codec)
 914 {
 915     if (p_codec) {
 916         opj_codec_private_t* l_codec = (opj_codec_private_t*) p_codec;
 917
 918         return l_codec->opj_get_codec_info(l_codec->m_codec);
 919     }
 920
 921     return NULL;
 922 }
 923
 924 void OPJ_CALLCONV opj_destroy_cstr_info(opj_codestream_info_v2_t **cstr_info)
 925 {
 926     if (cstr_info) {
 927
 928         if ((*cstr_info)->m_default_tile_info.tccp_info) {
 929             opj_free((*cstr_info)->m_default_tile_info.tccp_info);
 930         }
 931
 932         if ((*cstr_info)->tile_info) {
 933             /* FIXME not used for the moment*/
 934         }
 935
 936         opj_free((*cstr_info));
 937         (*cstr_info) = NULL;
 938     }
 939 }
 940
 941 opj_codestream_index_t * OPJ_CALLCONV opj_get_cstr_index(opj_codec_t *p_codec)
 942 {
 943     if (p_codec) {
 944         opj_codec_private_t* l_codec = (opj_codec_private_t*) p_codec;
 945
 946         return l_codec->opj_get_codec_index(l_codec->m_codec);
 947     }
 948
 949     return NULL;
 950 }
 951
 952 void OPJ_CALLCONV opj_destroy_cstr_index(opj_codestream_index_t **p_cstr_index)
 953 {
 954     if (*p_cstr_index) {
 955         j2k_destroy_cstr_index(*p_cstr_index);
 956         (*p_cstr_index) = NULL;
 957     }
 958 }
 959
 960 opj_stream_t* OPJ_CALLCONV opj_stream_create_default_file_stream(
 961     const char *fname, OPJ_BOOL p_is_read_stream)
 962 {
 963     return opj_stream_create_file_stream(fname, OPJ_J2K_STREAM_CHUNK_SIZE,
 964                                          p_is_read_stream);
 965 }
 966
 967 opj_stream_t* OPJ_CALLCONV opj_stream_create_file_stream(
 968     const char *fname,
 969     OPJ_SIZE_T p_size,
 970     OPJ_BOOL p_is_read_stream)
 971 {
 972     opj_stream_t* l_stream = 00;
 973     FILE *p_file;
 974     const char *mode;
 975
 976     if (! fname) {
 977         return NULL;
 978     }
 979
 980     if (p_is_read_stream) {
 981         mode = "rb";
 982     } else {
 983         mode = "wb";
 984     }
 985
 986     p_file = fopen(fname, mode);
 987
 988     if (! p_file) {
 989         return NULL;
 990     }
 991
 992     l_stream = opj_stream_create(p_size, p_is_read_stream);
 993     if (! l_stream) {
 994         fclose(p_file);
 995         return NULL;
 996     }
 997
 998     opj_stream_set_user_data(l_stream, p_file,
 999                              (opj_stream_free_user_data_fn) fclose);
1000     opj_stream_set_user_data_length(l_stream,
1001                                     opj_get_data_length_from_file(p_file));
1002     opj_stream_set_read_function(l_stream, (opj_stream_read_fn) opj_read_from_file);
1003     opj_stream_set_write_function(l_stream,
1004                                   (opj_stream_write_fn) opj_write_from_file);
1005     opj_stream_set_skip_function(l_stream, (opj_stream_skip_fn) opj_skip_from_file);
1006     opj_stream_set_seek_function(l_stream, (opj_stream_seek_fn) opj_seek_from_file);
1007
1008     return l_stream;
1009 }
1010
1011
1012 void* OPJ_CALLCONV opj_image_data_alloc(OPJ_SIZE_T size)
1013 {
1014     void* ret = opj_aligned_malloc(size);
1015     /* printf("opj_image_data_alloc %p\n", ret); */
1016     return ret;
1017 }
1018
1019 void OPJ_CALLCONV opj_image_data_free(void* ptr)
1020 {
1021     /* printf("opj_image_data_free %p\n", ptr); */
1022     opj_aligned_free(ptr);
1023 }