/* * Copyright (c) 2002-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__ */#include <assert.h>#include <jasper/jas_config.h>#include <jasper/jas_types.h>#include <jasper/jas_malloc.h>#include <jasper/jas_debug.h>#include <jasper/jas_icc.h>#include <jasper/jas_cm.h>#include <jasper/jas_stream.h>#include <jasper/jas_string.h>#include <stdlib.h>#include <ctype.h>#define	jas_iccputuint8(out, val)	jas_iccputuint(out, 1, val)#define	jas_iccputuint16(out, val)	jas_iccputuint(out, 2, val)#define	jas_iccputsint32(out, val)	jas_iccputsint(out, 4, val)#define	jas_iccputuint32(out, val)	jas_iccputuint(out, 4, val)#define	jas_iccputuint64(out, val)	jas_iccputuint(out, 8, val)static jas_iccattrval_t *jas_iccattrval_create0(void);static int jas_iccgetuint(jas_stream_t *in, int n, ulonglong *val);static int jas_iccgetuint8(jas_stream_t *in, jas_iccuint8_t *val);static int jas_iccgetuint16(jas_stream_t *in, jas_iccuint16_t *val);static int jas_iccgetsint32(jas_stream_t *in, jas_iccsint32_t *val);static int jas_iccgetuint32(jas_stream_t *in, jas_iccuint32_t *val);static int jas_iccgetuint64(jas_stream_t *in, jas_iccuint64_t *val);static int jas_iccputuint(jas_stream_t *out, int n, ulonglong val);static int jas_iccputsint(jas_stream_t *out, int n, longlong val);static jas_iccprof_t *jas_iccprof_create(void);static int jas_iccprof_readhdr(jas_stream_t *in, jas_icchdr_t *hdr);static int jas_iccprof_writehdr(jas_stream_t *out, jas_icchdr_t *hdr);static int jas_iccprof_gettagtab(jas_stream_t *in, jas_icctagtab_t *tagtab);static void jas_iccprof_sorttagtab(jas_icctagtab_t *tagtab);static int jas_iccattrtab_lookup(jas_iccattrtab_t *attrtab, jas_iccuint32_t name);static jas_iccattrtab_t *jas_iccattrtab_copy(jas_iccattrtab_t *attrtab);static jas_iccattrvalinfo_t *jas_iccattrvalinfo_lookup(jas_iccsig_t name);static int jas_iccgettime(jas_stream_t *in, jas_icctime_t *time);static int jas_iccgetxyz(jas_stream_t *in, jas_iccxyz_t *xyz);static int jas_icctagtabent_cmp(const void *src, const void *dst);static void jas_icccurv_destroy(jas_iccattrval_t *attrval);static int jas_icccurv_copy(jas_iccattrval_t *attrval,  jas_iccattrval_t *othattrval);static int jas_icccurv_input(jas_iccattrval_t *attrval, jas_stream_t *in,  int cnt);static int jas_icccurv_getsize(jas_iccattrval_t *attrval);static int jas_icccurv_output(jas_iccattrval_t *attrval, jas_stream_t *out);static void jas_icccurv_dump(jas_iccattrval_t *attrval, FILE *out);static void jas_icctxtdesc_destroy(jas_iccattrval_t *attrval);static int jas_icctxtdesc_copy(jas_iccattrval_t *attrval,  jas_iccattrval_t *othattrval);static int jas_icctxtdesc_input(jas_iccattrval_t *attrval, jas_stream_t *in,  int cnt);static int jas_icctxtdesc_getsize(jas_iccattrval_t *attrval);static int jas_icctxtdesc_output(jas_iccattrval_t *attrval, jas_stream_t *out);static void jas_icctxtdesc_dump(jas_iccattrval_t *attrval, FILE *out);static void jas_icctxt_destroy(jas_iccattrval_t *attrval);static int jas_icctxt_copy(jas_iccattrval_t *attrval,  jas_iccattrval_t *othattrval);static int jas_icctxt_input(jas_iccattrval_t *attrval, jas_stream_t *in,  int cnt);static int jas_icctxt_getsize(jas_iccattrval_t *attrval);static int jas_icctxt_output(jas_iccattrval_t *attrval, jas_stream_t *out);static void jas_icctxt_dump(jas_iccattrval_t *attrval, FILE *out);static int jas_iccxyz_input(jas_iccattrval_t *attrval, jas_stream_t *in,  int cnt);static int jas_iccxyz_getsize(jas_iccattrval_t *attrval);static int jas_iccxyz_output(jas_iccattrval_t *attrval, jas_stream_t *out);static void jas_iccxyz_dump(jas_iccattrval_t *attrval, FILE *out);static jas_iccattrtab_t *jas_iccattrtab_create(void);static void jas_iccattrtab_destroy(jas_iccattrtab_t *tab);static int jas_iccattrtab_resize(jas_iccattrtab_t *tab, int maxents);static int jas_iccattrtab_add(jas_iccattrtab_t *attrtab, int i,  jas_iccuint32_t name, jas_iccattrval_t *val);static int jas_iccattrtab_replace(jas_iccattrtab_t *attrtab, int i,  jas_iccuint32_t name, jas_iccattrval_t *val);static void jas_iccattrtab_delete(jas_iccattrtab_t *attrtab, int i);static long jas_iccpadtomult(long x, long y);static int jas_iccattrtab_get(jas_iccattrtab_t *attrtab, int i,  jas_iccattrname_t *name, jas_iccattrval_t **val);static int jas_iccprof_puttagtab(jas_stream_t *out, jas_icctagtab_t *tagtab);static void jas_icclut16_destroy(jas_iccattrval_t *attrval);static int jas_icclut16_copy(jas_iccattrval_t *attrval,  jas_iccattrval_t *othattrval);static int jas_icclut16_input(jas_iccattrval_t *attrval, jas_stream_t *in,  int cnt);static int jas_icclut16_getsize(jas_iccattrval_t *attrval);static int jas_icclut16_output(jas_iccattrval_t *attrval, jas_stream_t *out);static void jas_icclut16_dump(jas_iccattrval_t *attrval, FILE *out);static void jas_icclut8_destroy(jas_iccattrval_t *attrval);static int jas_icclut8_copy(jas_iccattrval_t *attrval,  jas_iccattrval_t *othattrval);static int jas_icclut8_input(jas_iccattrval_t *attrval, jas_stream_t *in,  int cnt);static int jas_icclut8_getsize(jas_iccattrval_t *attrval);static int jas_icclut8_output(jas_iccattrval_t *attrval, jas_stream_t *out);static void jas_icclut8_dump(jas_iccattrval_t *attrval, FILE *out);static int jas_iccputtime(jas_stream_t *out, jas_icctime_t *ctime);static int jas_iccputxyz(jas_stream_t *out, jas_iccxyz_t *xyz);static long jas_iccpowi(int x, int n);static char *jas_iccsigtostr(int sig, char *buf);jas_iccattrvalinfo_t jas_iccattrvalinfos[] = {	{JAS_ICC_TYPE_CURV, {jas_icccurv_destroy, jas_icccurv_copy,	  jas_icccurv_input, jas_icccurv_output, jas_icccurv_getsize,	  jas_icccurv_dump}},	{JAS_ICC_TYPE_XYZ, {0, 0, jas_iccxyz_input, jas_iccxyz_output,	  jas_iccxyz_getsize, jas_iccxyz_dump}},	{JAS_ICC_TYPE_TXTDESC, {jas_icctxtdesc_destroy,	  jas_icctxtdesc_copy, jas_icctxtdesc_input, jas_icctxtdesc_output,	  jas_icctxtdesc_getsize, jas_icctxtdesc_dump}},	{JAS_ICC_TYPE_TXT, {jas_icctxt_destroy, jas_icctxt_copy,	  jas_icctxt_input, jas_icctxt_output, jas_icctxt_getsize,	  jas_icctxt_dump}},	{JAS_ICC_TYPE_LUT8, {jas_icclut8_destroy, jas_icclut8_copy,	  jas_icclut8_input, jas_icclut8_output, jas_icclut8_getsize,	  jas_icclut8_dump}},	{JAS_ICC_TYPE_LUT16, {jas_icclut16_destroy, jas_icclut16_copy,	  jas_icclut16_input, jas_icclut16_output, jas_icclut16_getsize,	  jas_icclut16_dump}},	{0, {0, 0, 0, 0, 0, 0}}};typedef struct {	jas_iccuint32_t tag;	char *name;} jas_icctaginfo_t;/******************************************************************************\* profile class\******************************************************************************/static jas_iccprof_t *jas_iccprof_create(){	jas_iccprof_t *prof;	prof = 0;	if (!(prof = jas_malloc(sizeof(jas_iccprof_t)))) {		goto error;	}	if (!(prof->attrtab = jas_iccattrtab_create()))		goto error;	memset(&prof->hdr, 0, sizeof(jas_icchdr_t));	prof->tagtab.numents = 0;	prof->tagtab.ents = 0;	return prof;error:	if (prof)		jas_iccprof_destroy(prof);	return 0;}jas_iccprof_t *jas_iccprof_copy(jas_iccprof_t *prof){	jas_iccprof_t *newprof;	newprof = 0;	if (!(newprof = jas_iccprof_create()))		goto error;	newprof->hdr = prof->hdr;	newprof->tagtab.numents = 0;	newprof->tagtab.ents = 0;	assert(newprof->attrtab);	jas_iccattrtab_destroy(newprof->attrtab);	if (!(newprof->attrtab = jas_iccattrtab_copy(prof->attrtab)))		goto error;	return newprof;error:	if (newprof)		jas_iccprof_destroy(newprof);	return 0;}void jas_iccprof_destroy(jas_iccprof_t *prof){	if (prof->attrtab)		jas_iccattrtab_destroy(prof->attrtab);	if (prof->tagtab.ents)		jas_free(prof->tagtab.ents);	jas_free(prof);}void jas_iccprof_dump(jas_iccprof_t *prof, FILE *out){	jas_iccattrtab_dump(prof->attrtab, out);}jas_iccprof_t *jas_iccprof_load(jas_stream_t *in){	jas_iccprof_t *prof;	int numtags;	long curoff;	long reloff;	long prevoff;	jas_iccsig_t type;	jas_iccattrval_t *attrval;	jas_iccattrval_t *prevattrval;	jas_icctagtabent_t *tagtabent;	jas_iccattrvalinfo_t *attrvalinfo;	int i;	int len;	prof = 0;	attrval = 0;	if (!(prof = jas_iccprof_create())) {		goto error;	}	if (jas_iccprof_readhdr(in, &prof->hdr)) {		jas_eprintf("cannot get header\n");		goto error;	}	if (jas_iccprof_gettagtab(in, &prof->tagtab)) {		jas_eprintf("cannot get tab table\n");		goto error;	}	jas_iccprof_sorttagtab(&prof->tagtab);	numtags = prof->tagtab.numents;	curoff = JAS_ICC_HDRLEN + 4 + 12 * numtags;	prevoff = 0;	prevattrval = 0;	for (i = 0; i < numtags; ++i) {		tagtabent = &prof->tagtab.ents[i];		if (tagtabent->off == JAS_CAST(jas_iccuint32_t, prevoff)) {			if (prevattrval) {				if (!(attrval = jas_iccattrval_clone(prevattrval)))					goto error;				if (jas_iccprof_setattr(prof, tagtabent->tag, attrval))					goto error;				jas_iccattrval_destroy(attrval);			} else {#if 0				jas_eprintf("warning: skipping unknown tag type\n");#endif			}			continue;		}		reloff = tagtabent->off - curoff;		if (reloff > 0) {			if (jas_stream_gobble(in, reloff) != reloff)				goto error;			curoff += reloff;		} else if (reloff < 0) {			/* This should never happen since we read the tagged			element data in a single pass. */			abort();		}		prevoff = curoff;		if (jas_iccgetuint32(in, &type)) {			goto error;		}		if (jas_stream_gobble(in, 4) != 4) {			goto error;		}		curoff += 8;		if (!(attrvalinfo = jas_iccattrvalinfo_lookup(type))) {#if 0			jas_eprintf("warning: skipping unknown tag type\n");#endif			prevattrval = 0;			continue;		}		if (!(attrval = jas_iccattrval_create(type))) {			goto error;		}		len = tagtabent->len - 8;		if ((*attrval->ops->input)(attrval, in, len)) {			goto error;		}		curoff += len;		if (jas_iccprof_setattr(prof, tagtabent->tag, attrval)) {			goto error;		}		prevattrval = attrval; /* This is correct, but slimey. */		jas_iccattrval_destroy(attrval);		attrval = 0;	}	return prof;error:	if (prof)		jas_iccprof_destroy(prof);	if (attrval)		jas_iccattrval_destroy(attrval);	return 0;}int jas_iccprof_save(jas_iccprof_t *prof, jas_stream_t *out){	long curoff;	long reloff;	long newoff;	int i;	int j;	jas_icctagtabent_t *tagtabent;	jas_icctagtabent_t *sharedtagtabent;	jas_icctagtabent_t *tmptagtabent;	jas_iccuint32_t attrname;	jas_iccattrval_t *attrval;	jas_icctagtab_t *tagtab;	tagtab = &prof->tagtab;	if (!(tagtab->ents = jas_malloc(prof->attrtab->numattrs *	  sizeof(jas_icctagtabent_t))))		goto error;	tagtab->numents = prof->attrtab->numattrs;	curoff = JAS_ICC_HDRLEN + 4 + 12 * tagtab->numents;	for (i = 0; i < JAS_CAST(int, tagtab->numents); ++i) {		tagtabent = &tagtab->ents[i];		if (jas_iccattrtab_get(prof->attrtab, i, &attrname, &attrval))			goto error;		assert(attrval->ops->output);		tagtabent->tag = attrname;		tagtabent->data = &attrval->data;		sharedtagtabent = 0;		for (j = 0; j < i; ++j) {			tmptagtabent = &tagtab->ents[j];			if (tagtabent->data == tmptagtabent->data) {				sharedtagtabent = tmptagtabent;				break;			}		}		if (sharedtagtabent) {			tagtabent->off = sharedtagtabent->off;			tagtabent->len = sharedtagtabent->len;			tagtabent->first = sharedtagtabent;		} else {			tagtabent->off = curoff;			tagtabent->len = (*attrval->ops->getsize)(attrval) + 8;			tagtabent->first = 0;			if (i < JAS_CAST(int, tagtab->numents - 1)) {				curoff = jas_iccpadtomult(curoff + tagtabent->len, 4);			} else {				curoff += tagtabent->len;			}		}		jas_iccattrval_destroy(attrval);	}	prof->hdr.size = curoff;	if (jas_iccprof_writehdr(out, &prof->hdr))		goto error;	if (jas_iccprof_puttagtab(out, &prof->tagtab))		goto error;	curoff = JAS_ICC_HDRLEN + 4 + 12 * tagtab->numents;	for (i = 0; i < JAS_CAST(int, tagtab->numents);) {		tagtabent = &tagtab->ents[i];		assert(curoff == JAS_CAST(long, tagtabent->off));		if (jas_iccattrtab_get(prof->attrtab, i, &attrname, &attrval))			goto error;		if (jas_iccputuint32(out, attrval->type) || jas_stream_pad(out,		  4, 0) != 4)			goto error;		if ((*attrval->ops->output)(attrval, out))			goto error;		jas_iccattrval_destroy(attrval);		curoff += tagtabent->len;		++i;		while (i < JAS_CAST(int, tagtab->numents) &&