/* * 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__ */ /******************************************************************************\* Includes.\******************************************************************************/ #define JAS_FOR_INTERNAL_USE_ONLY #include "jasper/jas_icc.h"#include "jasper/jas_types.h"#include "jasper/jas_malloc.h"#include "jasper/jas_debug.h"#include "jasper/jas_cm.h"#include "jasper/jas_stream.h"#include "jasper/jas_string.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, unsigned n, jas_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, unsigned n, jas_ulonglong val);static int jas_iccputsint(jas_stream_t *out, unsigned n, jas_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, const 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(const jas_iccattrtab_t *attrtab, jas_iccuint32_t name);static jas_iccattrtab_t *jas_iccattrtab_copy(const jas_iccattrtab_t *attrtab);static const 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,  const jas_iccattrval_t *othattrval);static int jas_icccurv_input(jas_iccattrval_t *attrval, jas_stream_t *in,  unsigned cnt);static unsigned jas_icccurv_getsize(const jas_iccattrval_t *attrval);static int jas_icccurv_output(jas_iccattrval_t *attrval, jas_stream_t *out);static void jas_icccurv_dump(const jas_iccattrval_t *attrval, FILE *out); static void jas_icctxtdesc_destroy(jas_iccattrval_t *attrval);static int jas_icctxtdesc_copy(jas_iccattrval_t *attrval,  const jas_iccattrval_t *othattrval);static int jas_icctxtdesc_input(jas_iccattrval_t *attrval, jas_stream_t *in,  unsigned cnt);static unsigned jas_icctxtdesc_getsize(const jas_iccattrval_t *attrval);static int jas_icctxtdesc_output(jas_iccattrval_t *attrval, jas_stream_t *out);static void jas_icctxtdesc_dump(const jas_iccattrval_t *attrval, FILE *out); static void jas_icctxt_destroy(jas_iccattrval_t *attrval);static int jas_icctxt_copy(jas_iccattrval_t *attrval,  const jas_iccattrval_t *othattrval);static int jas_icctxt_input(jas_iccattrval_t *attrval, jas_stream_t *in,  unsigned cnt);static unsigned jas_icctxt_getsize(const jas_iccattrval_t *attrval);static int jas_icctxt_output(jas_iccattrval_t *attrval, jas_stream_t *out);static void jas_icctxt_dump(const jas_iccattrval_t *attrval, FILE *out); static int jas_iccxyz_input(jas_iccattrval_t *attrval, jas_stream_t *in,  unsigned cnt);static unsigned jas_iccxyz_getsize(const jas_iccattrval_t *attrval);static int jas_iccxyz_output(jas_iccattrval_t *attrval, jas_stream_t *out);static void jas_iccxyz_dump(const 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, unsigned 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, unsigned i,  jas_iccuint32_t name, jas_iccattrval_t *val);static void jas_iccattrtab_delete(jas_iccattrtab_t *attrtab, unsigned i);static unsigned jas_iccpadtomult(unsigned x, unsigned y);static int jas_iccattrtab_get(jas_iccattrtab_t *attrtab, unsigned i,  jas_iccattrname_t *name, jas_iccattrval_t **val);static int jas_iccprof_puttagtab(jas_stream_t *out, const jas_icctagtab_t *tagtab); static void jas_icclut16_destroy(jas_iccattrval_t *attrval);static int jas_icclut16_copy(jas_iccattrval_t *attrval,  const jas_iccattrval_t *othattrval);static int jas_icclut16_input(jas_iccattrval_t *attrval, jas_stream_t *in,  unsigned cnt);static unsigned jas_icclut16_getsize(const jas_iccattrval_t *attrval);static int jas_icclut16_output(jas_iccattrval_t *attrval, jas_stream_t *out);static void jas_icclut16_dump(const jas_iccattrval_t *attrval, FILE *out); static void jas_icclut8_destroy(jas_iccattrval_t *attrval);static int jas_icclut8_copy(jas_iccattrval_t *attrval,  const jas_iccattrval_t *othattrval);static int jas_icclut8_input(jas_iccattrval_t *attrval, jas_stream_t *in,  unsigned cnt);static unsigned jas_icclut8_getsize(const jas_iccattrval_t *attrval);static int jas_icclut8_output(jas_iccattrval_t *attrval, jas_stream_t *out);static void jas_icclut8_dump(const jas_iccattrval_t *attrval, FILE *out); static int jas_iccputtime(jas_stream_t *out, const jas_icctime_t *ctime);static int jas_iccputxyz(jas_stream_t *out, const jas_iccxyz_t *xyz); static unsigned jas_iccpowi(unsigned x, unsigned n); static char *jas_iccsigtostr(unsigned sig, char *buf); /******************************************************************************\* Data.\******************************************************************************/ static const 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,		},	}}; /******************************************************************************\* profile class\******************************************************************************/ static jas_iccprof_t *jas_iccprof_create(){	jas_iccprof_t *prof;	if (!(prof = jas_malloc(sizeof(jas_iccprof_t)))) {		goto error;	}	prof->tagtab.numents = 0;	prof->tagtab.ents = 0;	if (!(prof->attrtab = jas_iccattrtab_create())) {		goto error;	}	memset(&prof->hdr, 0, sizeof(jas_icchdr_t));	return prof;error:	if (prof) {		jas_iccprof_destroy(prof);	}	return 0;} jas_iccprof_t *jas_iccprof_copy(const jas_iccprof_t *prof){	jas_iccprof_t *newprof;	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(const 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;	long curoff;	long reloff;	long prevoff;	jas_iccsig_t type;	jas_iccattrval_t *attrval;	jas_iccattrval_t *prevattrval; 	attrval = 0; 	if (!(prof = jas_iccprof_create())) {		goto error;	} 	if (jas_iccprof_readhdr(in, &prof->hdr)) {		jas_logerrorf("cannot get header\n");		goto error;	}	if (jas_iccprof_gettagtab(in, &prof->tagtab)) {		jas_logerrorf("cannot get tab table\n");		goto error;	}	jas_iccprof_sorttagtab(&prof->tagtab); 	const unsigned numtags = prof->tagtab.numents;	curoff = JAS_ICC_HDRLEN + 4 + 12 * numtags;	prevoff = 0;	prevattrval = 0;	for (unsigned i = 0; i < numtags; ++i) {		const jas_icctagtabent_t *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);				attrval = 0;			} else {				jas_logwarnf("warning: skipping unknown tag type\n");			}			continue;		}		reloff = tagtabent->off - curoff;		if (reloff > 0) {			if (jas_stream_gobble(in, reloff) != reloff) {				goto error;			}			curoff += reloff;		} else if (reloff < 0) {			goto error;		}		prevoff = curoff;		if (jas_iccgetuint32(in, &type)) {			goto error;		}		if (jas_stream_gobble(in, 4) != 4) {			goto error;		}		curoff += 8;		if (!jas_iccattrvalinfo_lookup(type)) {			jas_logwarnf("warning: skipping unknown tag type\n");			prevattrval = 0;			continue;		}		if (!(attrval = jas_iccattrval_create(type))) {			goto error;		}		const unsigned 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;	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_alloc2(prof->attrtab->numattrs,	  sizeof(jas_icctagtabent_t)))) {		goto error;	}	tagtab->numents = prof->attrtab->numattrs;	curoff = JAS_ICC_HDRLEN + 4 + 12 * tagtab->numents;	for (unsigned i = 0; i < 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 (unsigned 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 < 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 (unsigned i = 0; i < 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 < tagtab->numents && tagtab->ents[i].first) {			++i;		}		newoff = (i < tagtab->numents) ?		  tagtab->ents[i].off : prof->hdr.size;		reloff = newoff - curoff;

Lines 1–500 of 1889. Load more