← Back to branch summary

~paparazzi-uav/paparazzi/v5.0-manual

« back to all changes in this revision

Viewing changes to sw/ext/opencv_bebop/opencv/3rdparty/libtiff/tif_lzma.c

  • Committer: Paparazzi buildbot
  • Date: 2016-05-18 15:00:29 UTC
  • Revision ID: felix.ruess+docbot@gmail.com-20160518150029-e8lgzi5kvb4p7un9
Manual import commit 4b8bbb730080dac23cf816b98908dacfabe2a8ec from v5.0 branch.

Show diffs side-by-side

added added

removed removed

Lines of Context:
sw/ext/opencv_bebop/opencv/3rdparty/libtiff/tif_lzma.c
 
1
/* $Id: tif_lzma.c,v 1.4 2011-12-22 00:29:29 bfriesen Exp $ */
 
2
 
 
3
/*
 
4
 * Copyright (c) 2010, Andrey Kiselev <dron@ak4719.spb.edu>
 
5
 *
 
6
 * Permission to use, copy, modify, distribute, and sell this software and
 
7
 * its documentation for any purpose is hereby granted without fee, provided
 
8
 * that (i) the above copyright notices and this permission notice appear in
 
9
 * all copies of the software and related documentation, and (ii) the names of
 
10
 * Sam Leffler and Silicon Graphics may not be used in any advertising or
 
11
 * publicity relating to the software without the specific, prior written
 
12
 * permission of Sam Leffler and Silicon Graphics.
 
13
 *
 
14
 * THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND,
 
15
 * EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY
 
16
 * WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
 
17
 *
 
18
 * IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR
 
19
 * ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
 
20
 * OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
 
21
 * WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF
 
22
 * LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
 
23
 * OF THIS SOFTWARE.
 
24
 */
 
25
 
 
26
#include "tiffiop.h"
 
27
#ifdef LZMA_SUPPORT
 
28
/*
 
29
 * TIFF Library.
 
30
 *
 
31
 * LZMA2 Compression Support
 
32
 *
 
33
 * You need an LZMA2 SDK to link with. See http://tukaani.org/xz/ for details.
 
34
 *
 
35
 * The codec is derived from ZLIB codec (tif_zip.c).
 
36
 */
 
37
 
 
38
#include "tif_predict.h"
 
39
#include "lzma.h"
 
40
 
 
41
#include <stdio.h>
 
42
 
 
43
/*
 
44
 * State block for each open TIFF file using LZMA2 compression/decompression.
 
45
 */
 
46
typedef struct {
 
47
    TIFFPredictorState predict;
 
48
        lzma_stream     stream;
 
49
    lzma_filter filters[LZMA_FILTERS_MAX + 1];
 
50
    lzma_options_delta opt_delta;               /* delta filter options */
 
51
    lzma_options_lzma opt_lzma;         /* LZMA2 filter options */
 
52
    int             preset;                     /* compression level */
 
53
    lzma_check  check;                  /* type of the integrity check */
 
54
    int             state;                      /* state flags */
 
55
#define LSTATE_INIT_DECODE 0x01
 
56
#define LSTATE_INIT_ENCODE 0x02
 
57
 
 
58
    TIFFVGetMethod  vgetparent;            /* super-class method */
 
59
    TIFFVSetMethod  vsetparent;            /* super-class method */
 
60
} LZMAState;
 
61
 
 
62
#define LState(tif)             ((LZMAState*) (tif)->tif_data)
 
63
#define DecoderState(tif)       LState(tif)
 
64
#define EncoderState(tif)       LState(tif)
 
65
 
 
66
static int LZMAEncode(TIFF* tif, uint8* bp, tmsize_t cc, uint16 s);
 
67
static int LZMADecode(TIFF* tif, uint8* op, tmsize_t occ, uint16 s);
 
68
 
 
69
static const char *
 
70
LZMAStrerror(lzma_ret ret)
 
71
{
 
72
    switch (ret) {
 
73
        case LZMA_OK:
 
74
            return "operation completed successfully";
 
75
        case LZMA_STREAM_END:
 
76
            return "end of stream was reached";
 
77
        case LZMA_NO_CHECK:
 
78
            return "input stream has no integrity check";
 
79
        case LZMA_UNSUPPORTED_CHECK:
 
80
            return "cannot calculate the integrity check";
 
81
        case LZMA_GET_CHECK:
 
82
            return "integrity check type is now available";
 
83
        case LZMA_MEM_ERROR:
 
84
            return "cannot allocate memory";
 
85
        case LZMA_MEMLIMIT_ERROR:
 
86
            return "memory usage limit was reached";
 
87
        case LZMA_FORMAT_ERROR:
 
88
            return "file format not recognized";
 
89
        case LZMA_OPTIONS_ERROR:
 
90
            return "invalid or unsupported options";
 
91
        case LZMA_DATA_ERROR:
 
92
            return "data is corrupt";
 
93
        case LZMA_BUF_ERROR:
 
94
            return "no progress is possible (stream is truncated or corrupt)";
 
95
        case LZMA_PROG_ERROR:
 
96
            return "programming error";
 
97
        default:
 
98
            return "unindentified liblzma error";
 
99
    }
 
100
}
 
101
 
 
102
static int
 
103
LZMAFixupTags(TIFF* tif)
 
104
{
 
105
    (void) tif;
 
106
    return 1;
 
107
}
 
108
 
 
109
static int
 
110
LZMASetupDecode(TIFF* tif)
 
111
{
 
112
    LZMAState* sp = DecoderState(tif);
 
113
 
 
114
    assert(sp != NULL);
 
115
 
 
116
        /* if we were last encoding, terminate this mode */
 
117
    if (sp->state & LSTATE_INIT_ENCODE) {
 
118
        lzma_end(&sp->stream);
 
119
        sp->state = 0;
 
120
    }
 
121
 
 
122
    sp->state |= LSTATE_INIT_DECODE;
 
123
    return 1;
 
124
}
 
125
 
 
126
/*
 
127
 * Setup state for decoding a strip.
 
128
 */
 
129
static int
 
130
LZMAPreDecode(TIFF* tif, uint16 s)
 
131
{
 
132
    static const char module[] = "LZMAPreDecode";
 
133
    LZMAState* sp = DecoderState(tif);
 
134
    lzma_ret ret;
 
135
 
 
136
    (void) s;
 
137
    assert(sp != NULL);
 
138
 
 
139
    if( (sp->state & LSTATE_INIT_DECODE) == 0 )
 
140
            tif->tif_setupdecode(tif);
 
141
 
 
142
    sp->stream.next_in = tif->tif_rawdata;
 
143
    sp->stream.avail_in = (size_t) tif->tif_rawcc;
 
144
    if ((tmsize_t)sp->stream.avail_in != tif->tif_rawcc) {
 
145
        TIFFErrorExt(tif->tif_clientdata, module,
 
146
                 "Liblzma cannot deal with buffers this size");
 
147
        return 0;
 
148
    }
 
149
 
 
150
    /*
 
151
     * Disable memory limit when decoding. UINT64_MAX is a flag to disable
 
152
     * the limit, we are passing (uint64_t)-1 which should be the same.
 
153
     */
 
154
    ret = lzma_stream_decoder(&sp->stream, (uint64_t)-1, 0);
 
155
    if (ret != LZMA_OK) {
 
156
        TIFFErrorExt(tif->tif_clientdata, module,
 
157
                 "Error initializing the stream decoder, %s",
 
158
                 LZMAStrerror(ret));
 
159
        return 0;
 
160
    }
 
161
    return 1;
 
162
}
 
163
 
 
164
static int
 
165
LZMADecode(TIFF* tif, uint8* op, tmsize_t occ, uint16 s)
 
166
{
 
167
    static const char module[] = "LZMADecode";
 
168
    LZMAState* sp = DecoderState(tif);
 
169
 
 
170
    (void) s;
 
171
    assert(sp != NULL);
 
172
    assert(sp->state == LSTATE_INIT_DECODE);
 
173
 
 
174
        sp->stream.next_in = tif->tif_rawcp;
 
175
        sp->stream.avail_in = (size_t) tif->tif_rawcc;
 
176
 
 
177
    sp->stream.next_out = op;
 
178
    sp->stream.avail_out = (size_t) occ;
 
179
    if ((tmsize_t)sp->stream.avail_out != occ) {
 
180
        TIFFErrorExt(tif->tif_clientdata, module,
 
181
                 "Liblzma cannot deal with buffers this size");
 
182
        return 0;
 
183
    }
 
184
 
 
185
    do {
 
186
        /*
 
187
         * Save the current stream state to properly recover from the
 
188
         * decoding errors later.
 
189
         */
 
190
        const uint8_t *next_in = sp->stream.next_in;
 
191
        size_t avail_in = sp->stream.avail_in;
 
192
 
 
193
        lzma_ret ret = lzma_code(&sp->stream, LZMA_RUN);
 
194
        if (ret == LZMA_STREAM_END)
 
195
            break;
 
196
        if (ret == LZMA_MEMLIMIT_ERROR) {
 
197
            lzma_ret r = lzma_stream_decoder(&sp->stream,
 
198
                             lzma_memusage(&sp->stream), 0);
 
199
            if (r != LZMA_OK) {
 
200
                TIFFErrorExt(tif->tif_clientdata, module,
 
201
                         "Error initializing the stream decoder, %s",
 
202
                         LZMAStrerror(r));
 
203
                break;
 
204
            }
 
205
            sp->stream.next_in = next_in;
 
206
            sp->stream.avail_in = avail_in;
 
207
            continue;
 
208
        }
 
209
        if (ret != LZMA_OK) {
 
210
            TIFFErrorExt(tif->tif_clientdata, module,
 
211
                "Decoding error at scanline %lu, %s",
 
212
                (unsigned long) tif->tif_row, LZMAStrerror(ret));
 
213
            break;
 
214
        }
 
215
    } while (sp->stream.avail_out > 0);
 
216
    if (sp->stream.avail_out != 0) {
 
217
        TIFFErrorExt(tif->tif_clientdata, module,
 
218
            "Not enough data at scanline %lu (short %lu bytes)",
 
219
            (unsigned long) tif->tif_row, (unsigned long) sp->stream.avail_out);
 
220
        return 0;
 
221
    }
 
222
 
 
223
        tif->tif_rawcp = (uint8 *)sp->stream.next_in; /* cast away const */
 
224
        tif->tif_rawcc = sp->stream.avail_in;
 
225
 
 
226
    return 1;
 
227
}
 
228
 
 
229
static int
 
230
LZMASetupEncode(TIFF* tif)
 
231
{
 
232
    LZMAState* sp = EncoderState(tif);
 
233
 
 
234
    assert(sp != NULL);
 
235
    if (sp->state & LSTATE_INIT_DECODE) {
 
236
        lzma_end(&sp->stream);
 
237
        sp->state = 0;
 
238
    }
 
239
 
 
240
    sp->state |= LSTATE_INIT_ENCODE;
 
241
    return 1;
 
242
}
 
243
 
 
244
/*
 
245
 * Reset encoding state at the start of a strip.
 
246
 */
 
247
static int
 
248
LZMAPreEncode(TIFF* tif, uint16 s)
 
249
{
 
250
    static const char module[] = "LZMAPreEncode";
 
251
    LZMAState *sp = EncoderState(tif);
 
252
 
 
253
    (void) s;
 
254
    assert(sp != NULL);
 
255
    if( sp->state != LSTATE_INIT_ENCODE )
 
256
            tif->tif_setupencode(tif);
 
257
 
 
258
    sp->stream.next_out = tif->tif_rawdata;
 
259
    sp->stream.avail_out = (size_t)tif->tif_rawdatasize;
 
260
    if ((tmsize_t)sp->stream.avail_out != tif->tif_rawdatasize) {
 
261
        TIFFErrorExt(tif->tif_clientdata, module,
 
262
                 "Liblzma cannot deal with buffers this size");
 
263
        return 0;
 
264
    }
 
265
    return (lzma_stream_encoder(&sp->stream, sp->filters, sp->check) == LZMA_OK);
 
266
}
 
267
 
 
268
/*
 
269
 * Encode a chunk of pixels.
 
270
 */
 
271
static int
 
272
LZMAEncode(TIFF* tif, uint8* bp, tmsize_t cc, uint16 s)
 
273
{
 
274
    static const char module[] = "LZMAEncode";
 
275
    LZMAState *sp = EncoderState(tif);
 
276
 
 
277
    assert(sp != NULL);
 
278
    assert(sp->state == LSTATE_INIT_ENCODE);
 
279
 
 
280
    (void) s;
 
281
    sp->stream.next_in = bp;
 
282
    sp->stream.avail_in = (size_t) cc;
 
283
    if ((tmsize_t)sp->stream.avail_in != cc) {
 
284
        TIFFErrorExt(tif->tif_clientdata, module,
 
285
                 "Liblzma cannot deal with buffers this size");
 
286
        return 0;
 
287
    }
 
288
    do {
 
289
        lzma_ret ret = lzma_code(&sp->stream, LZMA_RUN);
 
290
        if (ret != LZMA_OK) {
 
291
            TIFFErrorExt(tif->tif_clientdata, module,
 
292
                "Encoding error at scanline %lu, %s",
 
293
                (unsigned long) tif->tif_row, LZMAStrerror(ret));
 
294
            return 0;
 
295
        }
 
296
        if (sp->stream.avail_out == 0) {
 
297
            tif->tif_rawcc = tif->tif_rawdatasize;
 
298
            TIFFFlushData1(tif);
 
299
            sp->stream.next_out = tif->tif_rawdata;
 
300
            sp->stream.avail_out = (size_t)tif->tif_rawdatasize;  /* this is a safe typecast, as check is made already in LZMAPreEncode */
 
301
        }
 
302
    } while (sp->stream.avail_in > 0);
 
303
    return 1;
 
304
}
 
305
 
 
306
/*
 
307
 * Finish off an encoded strip by flushing the last
 
308
 * string and tacking on an End Of Information code.
 
309
 */
 
310
static int
 
311
LZMAPostEncode(TIFF* tif)
 
312
{
 
313
    static const char module[] = "LZMAPostEncode";
 
314
    LZMAState *sp = EncoderState(tif);
 
315
    lzma_ret ret;
 
316
 
 
317
    sp->stream.avail_in = 0;
 
318
    do {
 
319
        ret = lzma_code(&sp->stream, LZMA_FINISH);
 
320
        switch (ret) {
 
321
        case LZMA_STREAM_END:
 
322
        case LZMA_OK:
 
323
            if ((tmsize_t)sp->stream.avail_out != tif->tif_rawdatasize) {
 
324
                tif->tif_rawcc =
 
325
                    tif->tif_rawdatasize - sp->stream.avail_out;
 
326
                TIFFFlushData1(tif);
 
327
                sp->stream.next_out = tif->tif_rawdata;
 
328
                sp->stream.avail_out = (size_t)tif->tif_rawdatasize;  /* this is a safe typecast, as check is made already in ZIPPreEncode */
 
329
            }
 
330
            break;
 
331
        default:
 
332
            TIFFErrorExt(tif->tif_clientdata, module, "Liblzma error: %s",
 
333
                     LZMAStrerror(ret));
 
334
            return 0;
 
335
        }
 
336
    } while (ret != LZMA_STREAM_END);
 
337
    return 1;
 
338
}
 
339
 
 
340
static void
 
341
LZMACleanup(TIFF* tif)
 
342
{
 
343
    LZMAState* sp = LState(tif);
 
344
 
 
345
    assert(sp != 0);
 
346
 
 
347
    (void)TIFFPredictorCleanup(tif);
 
348
 
 
349
    tif->tif_tagmethods.vgetfield = sp->vgetparent;
 
350
    tif->tif_tagmethods.vsetfield = sp->vsetparent;
 
351
 
 
352
    if (sp->state) {
 
353
        lzma_end(&sp->stream);
 
354
        sp->state = 0;
 
355
    }
 
356
    _TIFFfree(sp);
 
357
    tif->tif_data = NULL;
 
358
 
 
359
    _TIFFSetDefaultCompressionState(tif);
 
360
}
 
361
 
 
362
static int
 
363
LZMAVSetField(TIFF* tif, uint32 tag, va_list ap)
 
364
{
 
365
    static const char module[] = "LZMAVSetField";
 
366
    LZMAState* sp = LState(tif);
 
367
 
 
368
    switch (tag) {
 
369
    case TIFFTAG_LZMAPRESET:
 
370
        sp->preset = (int) va_arg(ap, int);
 
371
        lzma_lzma_preset(&sp->opt_lzma, sp->preset);
 
372
        if (sp->state & LSTATE_INIT_ENCODE) {
 
373
            lzma_ret ret = lzma_stream_encoder(&sp->stream,
 
374
                               sp->filters,
 
375
                               sp->check);
 
376
            if (ret != LZMA_OK) {
 
377
                TIFFErrorExt(tif->tif_clientdata, module,
 
378
                         "Liblzma error: %s",
 
379
                         LZMAStrerror(ret));
 
380
            }
 
381
        }
 
382
        return 1;
 
383
    default:
 
384
        return (*sp->vsetparent)(tif, tag, ap);
 
385
    }
 
386
    /*NOTREACHED*/
 
387
}
 
388
 
 
389
static int
 
390
LZMAVGetField(TIFF* tif, uint32 tag, va_list ap)
 
391
{
 
392
    LZMAState* sp = LState(tif);
 
393
 
 
394
    switch (tag) {
 
395
    case TIFFTAG_LZMAPRESET:
 
396
        *va_arg(ap, int*) = sp->preset;
 
397
        break;
 
398
    default:
 
399
        return (*sp->vgetparent)(tif, tag, ap);
 
400
    }
 
401
    return 1;
 
402
}
 
403
 
 
404
static const TIFFField lzmaFields[] = {
 
405
    { TIFFTAG_LZMAPRESET, 0, 0, TIFF_ANY, 0, TIFF_SETGET_INT, TIFF_SETGET_UNDEFINED,
 
406
        FIELD_PSEUDO, TRUE, FALSE, "LZMA2 Compression Preset", NULL },
 
407
};
 
408
 
 
409
int
 
410
TIFFInitLZMA(TIFF* tif, int scheme)
 
411
{
 
412
    static const char module[] = "TIFFInitLZMA";
 
413
    LZMAState* sp;
 
414
    lzma_stream tmp_stream = LZMA_STREAM_INIT;
 
415
 
 
416
    assert( scheme == COMPRESSION_LZMA );
 
417
 
 
418
    /*
 
419
     * Merge codec-specific tag information.
 
420
     */
 
421
    if (!_TIFFMergeFields(tif, lzmaFields, TIFFArrayCount(lzmaFields))) {
 
422
        TIFFErrorExt(tif->tif_clientdata, module,
 
423
                 "Merging LZMA2 codec-specific tags failed");
 
424
        return 0;
 
425
    }
 
426
 
 
427
    /*
 
428
     * Allocate state block so tag methods have storage to record values.
 
429
     */
 
430
    tif->tif_data = (uint8*) _TIFFmalloc(sizeof(LZMAState));
 
431
    if (tif->tif_data == NULL)
 
432
        goto bad;
 
433
    sp = LState(tif);
 
434
    memcpy(&sp->stream, &tmp_stream, sizeof(lzma_stream));
 
435
 
 
436
    /*
 
437
     * Override parent get/set field methods.
 
438
     */
 
439
    sp->vgetparent = tif->tif_tagmethods.vgetfield;
 
440
    tif->tif_tagmethods.vgetfield = LZMAVGetField;      /* hook for codec tags */
 
441
    sp->vsetparent = tif->tif_tagmethods.vsetfield;
 
442
    tif->tif_tagmethods.vsetfield = LZMAVSetField;      /* hook for codec tags */
 
443
 
 
444
    /* Default values for codec-specific fields */
 
445
    sp->preset = LZMA_PRESET_DEFAULT;           /* default comp. level */
 
446
    sp->check = LZMA_CHECK_NONE;
 
447
    sp->state = 0;
 
448
 
 
449
    /* Data filters. So far we are using delta and LZMA2 filters only. */
 
450
    sp->opt_delta.type = LZMA_DELTA_TYPE_BYTE;
 
451
    /*
 
452
     * The sample size in bytes seems to be reasonable distance for delta
 
453
     * filter.
 
454
     */
 
455
    sp->opt_delta.dist = (tif->tif_dir.td_bitspersample % 8) ?
 
456
        1 : tif->tif_dir.td_bitspersample / 8;
 
457
    sp->filters[0].id = LZMA_FILTER_DELTA;
 
458
    sp->filters[0].options = &sp->opt_delta;
 
459
 
 
460
    lzma_lzma_preset(&sp->opt_lzma, sp->preset);
 
461
    sp->filters[1].id = LZMA_FILTER_LZMA2;
 
462
    sp->filters[1].options = &sp->opt_lzma;
 
463
 
 
464
    sp->filters[2].id = LZMA_VLI_UNKNOWN;
 
465
    sp->filters[2].options = NULL;
 
466
 
 
467
    /*
 
468
     * Install codec methods.
 
469
     */
 
470
    tif->tif_fixuptags = LZMAFixupTags;
 
471
    tif->tif_setupdecode = LZMASetupDecode;
 
472
    tif->tif_predecode = LZMAPreDecode;
 
473
    tif->tif_decoderow = LZMADecode;
 
474
    tif->tif_decodestrip = LZMADecode;
 
475
    tif->tif_decodetile = LZMADecode;
 
476
    tif->tif_setupencode = LZMASetupEncode;
 
477
    tif->tif_preencode = LZMAPreEncode;
 
478
    tif->tif_postencode = LZMAPostEncode;
 
479
    tif->tif_encoderow = LZMAEncode;
 
480
    tif->tif_encodestrip = LZMAEncode;
 
481
    tif->tif_encodetile = LZMAEncode;
 
482
    tif->tif_cleanup = LZMACleanup;
 
483
    /*
 
484
     * Setup predictor setup.
 
485
     */
 
486
    (void) TIFFPredictorInit(tif);
 
487
    return 1;
 
488
bad:
 
489
    TIFFErrorExt(tif->tif_clientdata, module,
 
490
             "No space for LZMA2 state block");
 
491
    return 0;
 
492
}
 
493
#endif /* LZMA_SUPORT */
 
494
 
 
495
/* vim: set ts=8 sts=8 sw=8 noet: */