Import a copy of JasPer 1.900.1 for use by the JPEG 2000 plugin.

Change-Id: I85348aa66f8c3c145bbfd125f557d6a247046d8f
Reviewed-by: Konstantin Ritt <ritt.ks@gmail.com>
Reviewed-by: Lars Knoll <lars.knoll@digia.com>

1 files changed, 398 insertions, 0 deletions

diff --git a/src/3rdparty/jasper/src/libjasper/ras/ras_dec.c b/src/3rdparty/jasper/src/libjasper/ras/ras_dec.c
new file mode 100644
index 0000000..ebae2b6
--- /dev/null
+++ b/src/3rdparty/jasper/src/libjasper/ras/ras_dec.c
@@ -0,0 +1,398 @@
+/*
+ * Copyright (c) 1999-2000 Image Power, Inc. and the University of
+ *   British Columbia.
+ * Copyright (c) 2001-2003 Michael David Adams.
+ * All rights reserved.
+ */
+
+/* __START_OF_JASPER_LICENSE__
+ *
+ * JasPer License Version 2.0
+ *
+ * Copyright (c) 2001-2006 Michael David Adams
+ * Copyright (c) 1999-2000 Image Power, Inc.
+ * Copyright (c) 1999-2000 The University of British Columbia
+ *
+ * All rights reserved.
+ *
+ * Permission is hereby granted, free of charge, to any person (the
+ * "User") obtaining a copy of this software and associated documentation
+ * files (the "Software"), to deal in the Software without restriction,
+ * including without limitation the rights to use, copy, modify, merge,
+ * publish, distribute, and/or sell copies of the Software, and to permit
+ * persons to whom the Software is furnished to do so, subject to the
+ * following conditions:
+ *
+ * 1.  The above copyright notices and this permission notice (which
+ * includes the disclaimer below) shall be included in all copies or
+ * substantial portions of the Software.
+ *
+ * 2.  The name of a copyright holder shall not be used to endorse or
+ * promote products derived from the Software without specific prior
+ * written permission.
+ *
+ * THIS DISCLAIMER OF WARRANTY CONSTITUTES AN ESSENTIAL PART OF THIS
+ * LICENSE.  NO USE OF THE SOFTWARE IS AUTHORIZED HEREUNDER EXCEPT UNDER
+ * THIS DISCLAIMER.  THE SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS
+ * "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING
+ * BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
+ * PARTICULAR PURPOSE AND NONINFRINGEMENT OF THIRD PARTY RIGHTS.  IN NO
+ * EVENT SHALL THE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, OR ANY SPECIAL
+ * INDIRECT OR CONSEQUENTIAL DAMAGES, OR ANY DAMAGES WHATSOEVER RESULTING
+ * FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT,
+ * NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
+ * WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.  NO ASSURANCES ARE
+ * PROVIDED BY THE COPYRIGHT HOLDERS THAT THE SOFTWARE DOES NOT INFRINGE
+ * THE PATENT OR OTHER INTELLECTUAL PROPERTY RIGHTS OF ANY OTHER ENTITY.
+ * EACH COPYRIGHT HOLDER DISCLAIMS ANY LIABILITY TO THE USER FOR CLAIMS
+ * BROUGHT BY ANY OTHER ENTITY BASED ON INFRINGEMENT OF INTELLECTUAL
+ * PROPERTY RIGHTS OR OTHERWISE.  AS A CONDITION TO EXERCISING THE RIGHTS
+ * GRANTED HEREUNDER, EACH USER HEREBY ASSUMES SOLE RESPONSIBILITY TO SECURE
+ * ANY OTHER INTELLECTUAL PROPERTY RIGHTS NEEDED, IF ANY.  THE SOFTWARE
+ * IS NOT FAULT-TOLERANT AND IS NOT INTENDED FOR USE IN MISSION-CRITICAL
+ * SYSTEMS, SUCH AS THOSE USED IN THE OPERATION OF NUCLEAR FACILITIES,
+ * AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, AIR TRAFFIC CONTROL
+ * SYSTEMS, DIRECT LIFE SUPPORT MACHINES, OR WEAPONS SYSTEMS, IN WHICH
+ * THE FAILURE OF THE SOFTWARE OR SYSTEM COULD LEAD DIRECTLY TO DEATH,
+ * PERSONAL INJURY, OR SEVERE PHYSICAL OR ENVIRONMENTAL DAMAGE ("HIGH
+ * RISK ACTIVITIES").  THE COPYRIGHT HOLDERS SPECIFICALLY DISCLAIM ANY
+ * EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR HIGH RISK ACTIVITIES.
+ *
+ * __END_OF_JASPER_LICENSE__
+ */
+
+/*
+ * Sun Rasterfile Library
+ *
+ * $Id$
+ */
+
+/******************************************************************************\
+* Includes.
+\******************************************************************************/
+
+#include <assert.h>
+#include <stdlib.h>
+
+#include "jasper/jas_stream.h"
+#include "jasper/jas_image.h"
+#include "jasper/jas_debug.h"
+
+#include "ras_cod.h"
+
+/******************************************************************************\
+* Prototypes.
+\******************************************************************************/
+
+static int ras_gethdr(jas_stream_t *in, ras_hdr_t *hdr);
+static int ras_getint(jas_stream_t *in, int_fast32_t *val);
+
+static int ras_getdata(jas_stream_t *in, ras_hdr_t *hdr, ras_cmap_t *cmap,
+  jas_image_t *image);
+static int ras_getdatastd(jas_stream_t *in, ras_hdr_t *hdr, ras_cmap_t *cmap,
+  jas_image_t *image);
+static int ras_getcmap(jas_stream_t *in, ras_hdr_t *hdr, ras_cmap_t *cmap);
+
+/******************************************************************************\
+* Code.
+\******************************************************************************/
+
+jas_image_t *ras_decode(jas_stream_t *in, char *optstr)
+{
+    ras_hdr_t hdr;
+    ras_cmap_t cmap;
+    jas_image_t *image;
+    jas_image_cmptparm_t cmptparms[3];
+    jas_image_cmptparm_t *cmptparm;
+    int clrspc;
+    int numcmpts;
+    int i;
+
+    if (optstr) {
+        jas_eprintf("warning: ignoring RAS decoder options\n");
+    }
+
+    /* Read the header. */
+    if (ras_gethdr(in, &hdr)) {
+        return 0;
+    }
+
+    /* Does the header information look reasonably sane? */
+    if (hdr.magic != RAS_MAGIC || hdr.width <= 0 || hdr.height <= 0 ||
+      hdr.depth <= 0 || hdr.depth > 32) {
+        return 0;
+    }
+
+    /* In the case of the old format, do not rely on the length field
+    being properly specified.  Calculate the quantity from scratch. */
+    if (hdr.type == RAS_TYPE_OLD) {
+        hdr.length = RAS_ROWSIZE(&hdr) * hdr.height;
+    }
+
+    /* Calculate some quantities needed for creation of the image
+    object. */
+    if (RAS_ISRGB(&hdr)) {
+        clrspc = JAS_CLRSPC_SRGB;
+        numcmpts = 3;
+    } else {
+        clrspc = JAS_CLRSPC_SGRAY;
+        numcmpts = 1;
+    }
+    for (i = 0, cmptparm = cmptparms; i < numcmpts; ++i, ++cmptparm) {
+        cmptparm->tlx = 0;
+        cmptparm->tly = 0;
+        cmptparm->hstep = 1;
+        cmptparm->vstep = 1;
+        cmptparm->width = hdr.width;
+        cmptparm->height = hdr.height;
+        cmptparm->prec = RAS_ISRGB(&hdr) ? 8 : hdr.depth;
+        cmptparm->sgnd = false;
+    }
+    /* Create the image object. */
+    if (!(image = jas_image_create(numcmpts, cmptparms, JAS_CLRSPC_UNKNOWN))) {
+        return 0;
+    }
+
+    /* Read the color map (if there is one). */
+    if (ras_getcmap(in, &hdr, &cmap)) {
+        jas_image_destroy(image);
+        return 0;
+    }
+
+    /* Read the pixel data. */
+    if (ras_getdata(in, &hdr, &cmap, image)) {
+        jas_image_destroy(image);
+        return 0;
+    }
+
+    jas_image_setclrspc(image, clrspc);
+    if (clrspc == JAS_CLRSPC_SRGB) {
+        jas_image_setcmpttype(image, 0,
+          JAS_IMAGE_CT_COLOR(JAS_CLRSPC_CHANIND_RGB_R));
+        jas_image_setcmpttype(image, 1,
+          JAS_IMAGE_CT_COLOR(JAS_CLRSPC_CHANIND_RGB_G));
+        jas_image_setcmpttype(image, 2,
+          JAS_IMAGE_CT_COLOR(JAS_CLRSPC_CHANIND_RGB_B));
+    } else {
+        jas_image_setcmpttype(image, 0,
+          JAS_IMAGE_CT_COLOR(JAS_CLRSPC_CHANIND_GRAY_Y));
+    }
+
+    return image;
+}
+
+int ras_validate(jas_stream_t *in)
+{
+    uchar buf[RAS_MAGICLEN];
+    int i;
+    int n;
+    uint_fast32_t magic;
+
+    assert(JAS_STREAM_MAXPUTBACK >= RAS_MAGICLEN);
+
+    /* Read the validation data (i.e., the data used for detecting
+      the format). */
+    if ((n = jas_stream_read(in, buf, RAS_MAGICLEN)) < 0) {
+        return -1;
+    }
+
+    /* Put the validation data back onto the stream, so that the
+      stream position will not be changed. */
+    for (i = n - 1; i >= 0; --i) {
+        if (jas_stream_ungetc(in, buf[i]) == EOF) {
+            return -1;
+        }
+    }
+
+    /* Did we read enough data? */
+    if (n < RAS_MAGICLEN) {
+        return -1;
+    }
+
+    magic = (buf[0] << 24) | (buf[1] << 16) | (buf[2] << 8) | buf[3];
+
+    /* Is the signature correct for the Sun Rasterfile format? */
+    if (magic != RAS_MAGIC) {
+        return -1;
+    }
+    return 0;
+}
+
+static int ras_getdata(jas_stream_t *in, ras_hdr_t *hdr, ras_cmap_t *cmap,
+  jas_image_t *image)
+{
+    int ret;
+
+    switch (hdr->type) {
+    case RAS_TYPE_OLD:
+    case RAS_TYPE_STD:
+        ret = ras_getdatastd(in, hdr, cmap, image);
+        break;
+    case RAS_TYPE_RLE:
+        jas_eprintf("error: RLE encoding method not supported\n");
+        ret = -1;
+        break;
+    default:
+        jas_eprintf("error: encoding method not supported\n");
+        ret = -1;
+        break;
+    }
+    return ret;
+}
+
+static int ras_getdatastd(jas_stream_t *in, ras_hdr_t *hdr, ras_cmap_t *cmap,
+  jas_image_t *image)
+{
+    int pad;
+    int nz;
+    int z;
+    int c;
+    int y;
+    int x;
+    int v;
+    int i;
+    jas_matrix_t *data[3];
+
+/* Note: This function does not properly handle images with a colormap. */
+    /* Avoid compiler warnings about unused parameters. */
+    cmap = 0;
+
+    for (i = 0; i < jas_image_numcmpts(image); ++i) {
+        data[i] = jas_matrix_create(1, jas_image_width(image));
+        assert(data[i]);
+    }
+
+    pad = RAS_ROWSIZE(hdr) - (hdr->width * hdr->depth + 7) / 8;
+
+    for (y = 0; y < hdr->height; y++) {
+        nz = 0;
+        z = 0;
+        for (x = 0; x < hdr->width; x++) {
+            while (nz < hdr->depth) {
+                if ((c = jas_stream_getc(in)) == EOF) {
+                    return -1;
+                }
+                z = (z << 8) | c;
+                nz += 8;
+            }
+
+            v = (z >> (nz - hdr->depth)) & RAS_ONES(hdr->depth);
+            z &= RAS_ONES(nz - hdr->depth);
+            nz -= hdr->depth;
+
+            if (jas_image_numcmpts(image) == 3) {
+                jas_matrix_setv(data[0], x, (RAS_GETRED(v)));
+                jas_matrix_setv(data[1], x, (RAS_GETGREEN(v)));
+                jas_matrix_setv(data[2], x, (RAS_GETBLUE(v)));
+            } else {
+                jas_matrix_setv(data[0], x, (v));
+            }
+        }
+        if (pad) {
+            if ((c = jas_stream_getc(in)) == EOF) {
+                return -1;
+            }
+        }
+        for (i = 0; i < jas_image_numcmpts(image); ++i) {
+            if (jas_image_writecmpt(image, i, 0, y, hdr->width, 1,
+              data[i])) {
+                return -1;
+            }
+        }
+    }
+
+    for (i = 0; i < jas_image_numcmpts(image); ++i) {
+        jas_matrix_destroy(data[i]);
+    }
+
+    return 0;
+}
+
+static int ras_getcmap(jas_stream_t *in, ras_hdr_t *hdr, ras_cmap_t *cmap)
+{
+    int i;
+    int j;
+    int x;
+    int c;
+    int numcolors;
+    int actualnumcolors;
+
+    switch (hdr->maptype) {
+    case RAS_MT_NONE:
+        break;
+    case RAS_MT_EQUALRGB:
+        {
+        jas_eprintf("warning: palettized images not fully supported\n");
+        numcolors = 1 << hdr->depth;
+        assert(numcolors <= RAS_CMAP_MAXSIZ);
+        actualnumcolors = hdr->maplength / 3;
+        for (i = 0; i < numcolors; i++) {
+            cmap->data[i] = 0;
+        }
+        if ((hdr->maplength % 3) || hdr->maplength < 0 ||
+          hdr->maplength > 3 * numcolors) {
+            return -1;
+        }
+        for (i = 0; i < 3; i++) {
+            for (j = 0; j < actualnumcolors; j++) {
+                if ((c = jas_stream_getc(in)) == EOF) {
+                    return -1;
+                }
+                x = 0;
+                switch (i) {
+                case 0:
+                    x = RAS_RED(c);
+                    break;
+                case 1:
+                    x = RAS_GREEN(c);
+                    break;
+                case 2:
+                    x = RAS_BLUE(c);
+                    break;
+                }
+                cmap->data[j] |= x;
+            }
+        }
+        }
+        break;
+    default:
+        return -1;
+        break;
+    }
+
+    return 0;
+}
+
+static int ras_gethdr(jas_stream_t *in, ras_hdr_t *hdr)
+{
+    if (ras_getint(in, &hdr->magic) || ras_getint(in, &hdr->width) ||
+      ras_getint(in, &hdr->height) || ras_getint(in, &hdr->depth) ||
+      ras_getint(in, &hdr->length) || ras_getint(in, &hdr->type) ||
+      ras_getint(in, &hdr->maptype) || ras_getint(in, &hdr->maplength)) {
+        return -1;
+    }
+
+    if (hdr->magic != RAS_MAGIC) {
+        return -1;
+    }
+
+    return 0;
+}
+
+static int ras_getint(jas_stream_t *in, int_fast32_t *val)
+{
+    int x;
+    int c;
+    int i;
+
+    x = 0;
+    for (i = 0; i < 4; i++) {
+        if ((c = jas_stream_getc(in)) == EOF) {
+            return -1;
+        }
+        x = (x << 8) | (c & 0xff);
+    }
+
+    *val = x;
+    return 0;
+}