home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Stars of Shareware: Programmierung
/
SOURCE.mdf
/
programm
/
msdos
/
c
/
xv221src
/
tiff
/
tif_dirw.c
< prev
next >
Wrap
C/C++ Source or Header
|
1992-04-01
|
23KB
|
806 lines
#ifndef lint
static char rcsid[] = "$Header: /usr/people/sam/tiff/libtiff/RCS/tif_dirwrite.c,v 1.16 92/03/18 09:36:15 sam Exp $";
#endif
/*
* Copyright (c) 1988, 1989, 1990, 1991, 1992 Sam Leffler
* Copyright (c) 1991, 1992 Silicon Graphics, Inc.
*
* Permission to use, copy, modify, distribute, and sell this software and
* its documentation for any purpose is hereby granted without fee, provided
* that (i) the above copyright notices and this permission notice appear in
* all copies of the software and related documentation, and (ii) the names of
* Sam Leffler and Silicon Graphics may not be used in any advertising or
* publicity relating to the software without the specific, prior written
* permission of Sam Leffler and Silicon Graphics.
*
* THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND,
* EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY
* WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
*
* IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR
* ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
* OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
* WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF
* LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
* OF THIS SOFTWARE.
*/
/*
* TIFF Library.
*
* Directory Write Support Routines.
*
* NB: Beware of the varargs declarations for routines in
* this file. The names and types of variables has been
* carefully chosen to make things work with compilers that
* are busted in one way or another (e.g. SGI/MIPS).
*/
#include "tiffioP.h"
#include "prototypes.h"
#if HAVE_IEEEFP
#define TIFFCvtNativeToIEEEFloat(tif, n, fp)
#endif
#if USE_PROTOTYPES
static TIFFWriteNormalTag(TIFF*, TIFFDirEntry*, TIFFFieldInfo*);
static TIFFSetupShortLong(TIFF *, u_short, TIFFDirEntry *, u_long);
static TIFFSetupShortPair(TIFF *, u_short, TIFFDirEntry *);
static TIFFWriteRational(TIFF *,
TIFFDataType, u_short, TIFFDirEntry *, float);
static TIFFWritePerSampleShorts(TIFF *, u_short, TIFFDirEntry *);
static TIFFWriteShortTable(TIFF *, u_short, TIFFDirEntry *, int, u_short **);
static TIFFWriteShortArray(TIFF *,
TIFFDataType, u_short, TIFFDirEntry *, int, u_short *);
static TIFFWriteLongArray(TIFF *,
TIFFDataType, u_short, TIFFDirEntry *, int, u_long *);
static TIFFWriteRationalArray(TIFF *,
TIFFDataType, u_short, TIFFDirEntry *, int, float *);
static TIFFWriteFloatArray(TIFF *,
TIFFDataType, u_short, TIFFDirEntry *, int, float *);
static TIFFWriteString(TIFF *, u_short, TIFFDirEntry *, char *);
#ifdef JPEG_SUPPORT
static TIFFWriteJPEGQTables(TIFF *, TIFFDirEntry *);
static TIFFWriteJPEGCTables(TIFF *, u_short, TIFFDirEntry *, u_char **);
#endif
#ifdef COLORIMETRY_SUPPORT
static TIFFWriteTransferFunction(TIFF*, TIFFDirEntry*);
#endif
static TIFFWriteData(TIFF *, TIFFDirEntry *, char *);
static TIFFLinkDirectory(TIFF *);
#else
static TIFFWriteNormalTag();
static TIFFSetupShortLong();
static TIFFSetupShortPair();
static TIFFWriteRational();
static TIFFWritePerSampleShorts();
static TIFFWriteShortTable();
static TIFFWriteShortArray();
static TIFFWriteLongArray();
static TIFFWriteRationalArray();
static TIFFWriteFloatArray();
static TIFFWriteString();
#ifdef JPEG_SUPPORT
static TIFFWriteJPEGQTables();
static TIFFWriteJPEGCTables();
#endif
static TIFFWriteData();
static TIFFLinkDirectory();
#endif
#define WriteRationalPair(type, tag1, v1, tag2, v2) { \
if (!TIFFWriteRational(tif, type, tag1, dir, v1)) \
goto bad; \
if (!TIFFWriteRational(tif, type, tag2, dir+1, v2)) \
goto bad; \
dir++; \
}
static long dataoff;
/*
* Write the contents of the current directory
* to the specified file. This routine doesn't
* handle overwriting a directory with auxiliary
* storage that's been changed.
*/
TIFFWriteDirectory(tif)
TIFF *tif;
{
short dircount, tag;
int nfields, dirsize;
char *data;
TIFFFieldInfo *fip;
TIFFDirEntry *dir;
TIFFDirectory *td;
u_long b, fields[sizeof (td->td_fieldsset) / sizeof (u_long)];
if (tif->tif_mode == O_RDONLY)
return (1);
/*
* Clear write state so that subsequent images with
* different characteristics get the right buffers
* setup for them.
*/
if (tif->tif_flags & TIFF_POSTENCODE) {
tif->tif_flags &= ~TIFF_POSTENCODE;
if (tif->tif_postencode && !(*tif->tif_postencode)(tif)) {
TIFFError(tif->tif_name,
"Error post-encoding before directory write");
return (0);
}
}
if (tif->tif_close)
(*tif->tif_close)(tif);
if (tif->tif_cleanup)
(*tif->tif_cleanup)(tif);
/*
* Flush any data that might have been written
* by the compression close+cleanup routines.
*/
if (tif->tif_rawcc > 0 && !TIFFFlushData1(tif)) {
TIFFError(tif->tif_name,
"Error flushing data before directory write");
return (0);
}
if ((tif->tif_flags & TIFF_MYBUFFER) && tif->tif_rawdata) {
free(tif->tif_rawdata);
tif->tif_rawdata = NULL;
tif->tif_rawcc = 0;
}
tif->tif_flags &= ~(TIFF_BEENWRITING|TIFF_BUFFERSETUP);
td = &tif->tif_dir;
/*
* Size the directory so that we can calculate
* offsets for the data items that aren't kept
* in-place in each field.
*/
nfields = 0;
for (b = 0; b <= FIELD_LAST; b++)
if (TIFFFieldSet(tif, b))
nfields += (b < FIELD_SUBFILETYPE ? 2 : 1);
dirsize = nfields * sizeof (TIFFDirEntry);
data = malloc(dirsize);
if (data == NULL) {
TIFFError(tif->tif_name,
"Cannot write directory, out of space");
return (0);
}
/*
* Directory hasn't been placed yet, put
* it at the end of the file and link it
* into the existing directory structure.
*/
if (tif->tif_diroff == 0 && !TIFFLinkDirectory(tif))
return (0);
dataoff = tif->tif_diroff + sizeof (short) + dirsize + sizeof (long);
if (dataoff & 1)
dataoff++;
(void) lseek(tif->tif_fd, dataoff, L_SET);
tif->tif_curdir++;
dir = (TIFFDirEntry *)data;
/*
* Setup external form of directory
* entries and write data items.
*/
bcopy(td->td_fieldsset, fields, sizeof (fields));
/*BEGIN XXX*/
/*
* Write out ExtraSamples tag only if Matteing would
* be set to 1 (i.e. Associated Alpha data is present).
*/
if (FieldSet(fields, FIELD_MATTEING) && !td->td_matteing) { /*XXX*/
ResetFieldBit(fields, FIELD_MATTEING); /*XXX*/
nfields--; /*XXX*/
dirsize -= sizeof (TIFFDirEntry); /*XXX*/
} /*XXX*/
/*END XXX*/
for (fip = tiffFieldInfo; fip->field_tag; fip++) {
if (fip->field_bit == FIELD_IGNORE ||
!FieldSet(fields, fip->field_bit))
continue;
switch (fip->field_bit) {
case FIELD_STRIPOFFSETS:
/*
* We use one field bit for both strip and tile
* offsets, and so must be careful in selecting
* the appropriate field descriptor (so that tags
* are written in sorted order).
*/
tag = isTiled(tif) ?
TIFFTAG_TILEOFFSETS : TIFFTAG_STRIPOFFSETS;
if (tag != fip->field_tag)
continue;
if (!TIFFWriteLongArray(tif, TIFF_LONG, tag, dir,
(int) td->td_nstrips, td->td_stripoffset))
goto bad;
break;
case FIELD_STRIPBYTECOUNTS:
/*
* We use one field bit for both strip and tile
* byte counts, and so must be careful in selecting
* the appropriate field descriptor (so that tags
* are written in sorted order).
*/
tag = isTiled(tif) ?
TIFFTAG_TILEBYTECOUNTS : TIFFTAG_STRIPBYTECOUNTS;
if (tag != fip->field_tag)
continue;
if (!TIFFWriteLongArray(tif, TIFF_LONG, tag, dir,
(int) td->td_nstrips, td->td_stripbytecount))
goto bad;
break;
case FIELD_COLORMAP:
if (!TIFFWriteShortTable(tif, TIFFTAG_COLORMAP, dir,
3, td->td_colormap))
goto bad;
break;
case FIELD_IMAGEDIMENSIONS:
TIFFSetupShortLong(tif, TIFFTAG_IMAGEWIDTH,
dir++, td->td_imagewidth);
TIFFSetupShortLong(tif, TIFFTAG_IMAGELENGTH,
dir, td->td_imagelength);
break;
case FIELD_TILEDIMENSIONS:
TIFFSetupShortLong(tif, TIFFTAG_TILEWIDTH,
dir++, td->td_tilewidth);
TIFFSetupShortLong(tif, TIFFTAG_TILELENGTH,
dir, td->td_tilelength);
break;
case FIELD_POSITION:
WriteRationalPair(TIFF_RATIONAL,
TIFFTAG_XPOSITION, td->td_xposition,
TIFFTAG_YPOSITION, td->td_yposition);
break;
case FIELD_RESOLUTION:
WriteRationalPair(TIFF_RATIONAL,
TIFFTAG_XRESOLUTION, td->td_xresolution,
TIFFTAG_YRESOLUTION, td->td_yresolution);
break;
case FIELD_BITSPERSAMPLE:
case FIELD_MINSAMPLEVALUE:
case FIELD_MAXSAMPLEVALUE:
case FIELD_SAMPLEFORMAT:
if (!TIFFWritePerSampleShorts(tif, fip->field_tag, dir))
goto bad;
break;
case FIELD_PAGENUMBER:
case FIELD_HALFTONEHINTS:
#ifdef YCBCR_SUPPORT
case FIELD_YCBCRSUBSAMPLING:
#endif
#ifdef CMYK_SUPPORT
case FIELD_DOTRANGE:
#endif
TIFFSetupShortPair(tif, fip->field_tag, dir);
break;
#ifdef JPEG_SUPPORT
case FIELD_JPEGQTABLES:
if (!TIFFWriteJPEGQTables(tif, dir))
goto bad;
break;
case FIELD_JPEGDCTABLES:
if (!TIFFWriteJPEGCTables(tif,
TIFFTAG_JPEGDCTABLES, dir, td->td_dctab))
goto bad;
break;
case FIELD_JPEGACTABLES:
if (!TIFFWriteJPEGCTables(tif,
TIFFTAG_JPEGACTABLES, dir, td->td_actab))
goto bad;
break;
#endif
#ifdef COLORIMETRY_SUPPORT
case FIELD_REFBLACKWHITE:
if (!TIFFWriteRationalArray(tif, TIFF_RATIONAL,
TIFFTAG_REFERENCEBLACKWHITE, dir,
2*td->td_samplesperpixel, td->td_refblackwhite))
goto bad;
break;
case FIELD_TRANSFERFUNCTION:
if (!TIFFWriteTransferFunction(tif, dir))
goto bad;
break;
#endif
default:
if (!TIFFWriteNormalTag(tif, dir, fip))
goto bad;
break;
}
dir++;
ResetFieldBit(fields, fip->field_bit);
}
/*
* Write directory.
*/
(void) lseek(tif->tif_fd, tif->tif_diroff, L_SET);
dircount = nfields;
if (!WriteOK(tif->tif_fd, &dircount, sizeof (short))) {
TIFFError(tif->tif_name, "Error writing directory count");
goto bad;
}
if (!WriteOK(tif->tif_fd, data, dirsize)) {
TIFFError(tif->tif_name, "Error writing directory contents");
goto bad;
}
if (!WriteOK(tif->tif_fd, &tif->tif_nextdiroff, sizeof (long))) {
TIFFError(tif->tif_name, "Error writing directory link");
goto bad;
}
TIFFFreeDirectory(tif);
free(data);
tif->tif_flags &= ~TIFF_DIRTYDIRECT;
/*
* Reset directory-related state for subsequent
* directories.
*/
TIFFDefaultDirectory(tif);
tif->tif_diroff = 0;
tif->tif_curoff = 0;
tif->tif_row = -1;
tif->tif_curstrip = -1;
return (1);
bad:
free(data);
return (0);
}
#undef WriteRationalPair
/*
* Process tags that are not special cased.
*/
static
DECLARE3(TIFFWriteNormalTag,
TIFF*, tif, TIFFDirEntry*, dir, TIFFFieldInfo*, fip)
{
TIFFDirectory* td = &tif->tif_dir;
u_short wc = (u_short) fip->field_writecount;
dir->tdir_tag = fip->field_tag;
dir->tdir_type = (u_short)fip->field_type;
dir->tdir_count = wc;
#define WRITE(x,y) x(tif, fip->field_type, fip->field_tag, dir, wc, y)
switch (fip->field_type) {
case TIFF_SHORT:
case TIFF_SSHORT:
if (wc > 1) {
u_short *wp;
if (wc == (u_short) TIFF_VARIABLE) {
_TIFFgetfield(td, fip->field_tag, &wc, &wp);
dir->tdir_count = wc;
} else
_TIFFgetfield(td, fip->field_tag, &wp);
if (!WRITE(TIFFWriteShortArray, wp))
return (0);
} else {
u_short sv;
_TIFFgetfield(td, fip->field_tag, &sv);
dir->tdir_offset =
TIFFInsertData(tif, dir->tdir_type, sv);
}
break;
case TIFF_LONG:
case TIFF_SLONG:
if (wc > 1) {
u_long *lp;
if (wc == (u_short) TIFF_VARIABLE) {
_TIFFgetfield(td, fip->field_tag, &wc, &lp);
dir->tdir_count = wc;
} else
_TIFFgetfield(td, fip->field_tag, &lp);
if (!WRITE(TIFFWriteLongArray, lp))
return (0);
} else {
/* XXX handle LONG->SHORT conversion */
_TIFFgetfield(td, fip->field_tag, &dir->tdir_offset);
}
break;
case TIFF_RATIONAL:
case TIFF_SRATIONAL:
if (wc > 1) {
float *fp;
if (wc == (u_short) TIFF_VARIABLE) {
_TIFFgetfield(td, fip->field_tag, &wc, &fp);
dir->tdir_count = wc;
} else
_TIFFgetfield(td, fip->field_tag, &fp);
if (!WRITE(TIFFWriteRationalArray, fp))
return (0);
} else {
float fv;
_TIFFgetfield(td, fip->field_tag, &fv);
if (!TIFFWriteRational(tif, fip->field_type, fip->field_tag, dir, fv))
return (0);
}
break;
case TIFF_FLOAT:
if (wc > 1) {
float *fp;
if (wc == (u_short) TIFF_VARIABLE) {
_TIFFgetfield(td, fip->field_tag, &wc, &fp);
dir->tdir_count = wc;
} else
_TIFFgetfield(td, fip->field_tag, &fp);
if (!WRITE(TIFFWriteFloatArray, fp))
return (0);
} else {
float fv;
_TIFFgetfield(td, fip->field_tag, &fv);
TIFFCvtNativeToIEEEFloat(tif, 1, &fv);
/* XXX assumes sizeof (long) == sizeof (float) */
dir->tdir_offset = *(u_long *)&fv; /* XXX */
}
break;
case TIFF_ASCII: {
char *cp;
_TIFFgetfield(td, fip->field_tag, &cp);
if (!TIFFWriteString(tif, fip->field_tag, dir, cp))
return (0);
break;
}
}
return (1);
}
#undef WRITE
/*
* Setup a directory entry with either a SHORT
* or LONG type according to the value.
*/
static
DECLARE4(TIFFSetupShortLong,
TIFF*, tif, u_short, tag, TIFFDirEntry*, dir, u_long, v)
{
dir->tdir_tag = tag;
dir->tdir_count = 1;
if (v > 0xffffL) {
dir->tdir_type = (short)TIFF_LONG;
dir->tdir_offset = v;
} else {
dir->tdir_type = (short)TIFF_SHORT;
dir->tdir_offset = TIFFInsertData(tif, (int)TIFF_SHORT, v);
}
}
#undef MakeShortDirent
/*
* Setup a RATIONAL directory entry and
* write the associated indirect value.
*/
static
DECLARE5(TIFFWriteRational,
TIFF*, tif, TIFFDataType, type, u_short, tag, TIFFDirEntry*, dir, float, v)
{
u_long t[2];
dir->tdir_tag = tag;
dir->tdir_type = (short)type;
dir->tdir_count = 1;
if (type == TIFF_RATIONAL && v < 0)
TIFFWarning(tif->tif_name,
"\"%s\": Information lost writing value (%g) as (unsigned) RATIONAL",
TIFFFieldWithTag(tag)->field_name, v);
/* need algorithm to convert ... XXX */
t[0] = v*10000.0 + 0.5;
t[1] = 10000;
return (TIFFWriteData(tif, dir, (char *)t));
}
/*
* Setup a directory entry that references a
* samples/pixel array of SHORT values and
* (potentially) write the associated indirect
* values.
*/
static
DECLARE3(TIFFWritePerSampleShorts,
TIFF*, tif, u_short, tag, TIFFDirEntry*, dir)
{
u_short w[4], v;
int i, samplesperpixel = tif->tif_dir.td_samplesperpixel;
_TIFFgetfield(&tif->tif_dir, tag, &v);
for (i = 0; i < samplesperpixel; i++)
w[i] = v;
return (TIFFWriteShortArray(
tif, TIFF_SHORT, tag, dir, samplesperpixel, w));
}
/*
* Setup a pair of shorts that are returned by
* value, rather than as a reference to an array.
*/
static
DECLARE3(TIFFSetupShortPair,
TIFF*, tif, u_short, tag, TIFFDirEntry*, dir)
{
u_short v[2];
_TIFFgetfield(&tif->tif_dir, tag, &v[0], &v[1]);
return (TIFFWriteShortArray(tif, TIFF_SHORT, tag, dir, 2, v));
}
/*
* Setup a directory entry for an NxM table of shorts,
* where M is known to be 2**bitspersample, and write
* the associated indirect data.
*/
static
DECLARE5(TIFFWriteShortTable,
TIFF*, tif, u_short, tag, TIFFDirEntry*, dir, int, n, u_short**, table)
{
u_long off;
int i;
dir->tdir_tag = tag;
dir->tdir_type = (short)TIFF_SHORT;
/* XXX -- yech, fool TIFFWriteData */
dir->tdir_count = 1L<<tif->tif_dir.td_bitspersample;
off = dataoff;
for (i = 0; i < n; i++)
if (!TIFFWriteData(tif, dir, (char *)table[i]))
return (0);
dir->tdir_count *= n;
dir->tdir_offset = off;
return (1);
}
/*
* Setup a directory entry of an ASCII string
* and write any associated indirect value.
*/
static
DECLARE4(TIFFWriteString,
TIFF*, tif, u_short, tag, TIFFDirEntry*, dir, char*, cp)
{
dir->tdir_tag = tag;
dir->tdir_type = (short)TIFF_ASCII;
dir->tdir_count = strlen(cp) + 1; /* includes \0 byte */
if (dir->tdir_count > 4) {
if (!TIFFWriteData(tif, dir, cp))
return (0);
} else
bcopy(cp, &dir->tdir_offset, dir->tdir_count);
return (1);
}
/*
* Setup a directory entry of an array of SHORT
* or SSHORT and write the associated indirect values.
*/
static
DECLARE6(TIFFWriteShortArray, TIFF*, tif,
TIFFDataType, type, u_short, tag, TIFFDirEntry*, dir, int, n, u_short*, v)
{
dir->tdir_tag = tag;
dir->tdir_type = (short)type;
dir->tdir_count = n;
if (n <= 2) {
if (tif->tif_header.tiff_magic == TIFF_BIGENDIAN) {
dir->tdir_offset = (long)v[0] << 16;
if (n == 2)
dir->tdir_offset |= v[1] & 0xffff;
} else {
dir->tdir_offset = v[0] & 0xffff;
if (n == 2)
dir->tdir_offset |= (long)v[1] << 16;
}
return (1);
} else
return (TIFFWriteData(tif, dir, (char *)v));
}
/*
* Setup a directory entry of an array of LONG
* or SLONG and write the associated indirect values.
*/
static
DECLARE6(TIFFWriteLongArray, TIFF*, tif,
TIFFDataType, type, u_short, tag, TIFFDirEntry*, dir, int, n, u_long*, v)
{
dir->tdir_tag = tag;
dir->tdir_type = (short)type;
dir->tdir_count = n;
if (n == 1) {
dir->tdir_offset = v[0];
return (1);
} else
return (TIFFWriteData(tif, dir, (char *)v));
}
/*
* Setup a directory entry of an array of RATIONAL
* or SRATIONAL and write the associated indirect values.
*/
static
DECLARE6(TIFFWriteRationalArray, TIFF*, tif,
TIFFDataType, type, u_short, tag, TIFFDirEntry*, dir, int, n, float*, v)
{
int i, status;
u_long *t;
dir->tdir_tag = tag;
dir->tdir_type = (short)type;
dir->tdir_count = n;
t = (u_long *)malloc(2*n * sizeof (long));
for (i = 0; i < n; i++) {
/* need algorithm to convert ... XXX */
t[2*i+0] = v[i]*10000.0 + 0.5;
t[2*i+1] = 10000;
}
status = TIFFWriteData(tif, dir, (char *)t);
free((char *)t);
return (status);
}
static
DECLARE6(TIFFWriteFloatArray, TIFF *, tif,
TIFFDataType, type, u_short, tag, TIFFDirEntry *, dir, int, n, float *, v)
{
dir->tdir_tag = tag;
dir->tdir_type = (short)type;
dir->tdir_count = n;
TIFFCvtNativeToIEEEFloat(tif, n, v);
if (n == 1) {
dir->tdir_offset = *(u_long *)&v[0];
return (1);
} else
return (TIFFWriteData(tif, dir, (char *)v));
}
#ifdef JPEG_SUPPORT
/*
* Setup a directory entry for JPEG Quantization
* tables and write the associated indirect values.
*/
static
DECLARE2(TIFFWriteJPEGQTables, TIFF*, tif, TIFFDirEntry*, dir)
{
TIFFDirectory *td = &tif->tif_dir;
TIFFDirEntry tdir;
u_long off[4];
int i;
tdir.tdir_tag = TIFFTAG_JPEGQTABLES; /* for diagnostics */
tdir.tdir_type = (short)TIFF_BYTE;
tdir.tdir_count = 64;
for (i = 0; i < td->td_samplesperpixel; i++) {
if (!TIFFWriteData(tif, &tdir, (char *)td->td_qtab[i]))
return (0);
off[i] = tdir.tdir_offset;
}
return (TIFFWriteLongArray(tif, TIFF_LONG,
TIFFTAG_JPEGQTABLES, dir, td->td_samplesperpixel, off));
}
/*
* Setup a directory entry for JPEG Coefficient
* tables and write the associated indirect values.
*/
static
DECLARE4(TIFFWriteJPEGCTables,
TIFF*, tif, u_short, tag, TIFFDirEntry*, dir, u_char **, tab)
{
TIFFDirectory *td = &tif->tif_dir;
TIFFDirEntry tdir;
u_long off[4];
int i, j, ncodes;
tdir.tdir_tag = tag; /* for diagnostics */
tdir.tdir_type = (short)TIFF_BYTE;
for (i = 0; i < td->td_samplesperpixel; i++) {
for (ncodes = 0, j = 0; j < 16; j++)
ncodes += tab[i][j];
tdir.tdir_count = 16+ncodes;
if (!TIFFWriteData(tif, &tdir, (char *)tab[i]))
return (0);
off[i] = tdir.tdir_offset;
}
return (TIFFWriteLongArray(tif,
TIFF_LONG, tag, dir, td->td_samplesperpixel, off));
}
#endif
#ifdef COLORIMETRY_SUPPORT
static
DECLARE2(TIFFWriteTransferFunction, TIFF*, tif, TIFFDirEntry*, dir)
{
TIFFDirectory *td = &tif->tif_dir;
int j, ncols;
u_long n;
u_short **tf = td->td_transferfunction;
/*
* Check if the table can be written as a single column.
*/
n = (1L<<td->td_bitspersample) * sizeof (u_short);
ncols = 1; /* assume only one column is needed */
for (j = 1; j < td->td_samplesperpixel; j++)
if (bcmp(tf[0], tf[j], n)) {
ncols = td->td_samplesperpixel;
break;
}
return (TIFFWriteShortTable(tif,
TIFFTAG_TRANSFERFUNCTION, dir, ncols, tf));
}
#endif
/*
* Write a contiguous directory item.
*/
static
TIFFWriteData(tif, dir, cp)
TIFF *tif;
TIFFDirEntry *dir;
char *cp;
{
int cc;
dir->tdir_offset = dataoff;
cc = dir->tdir_count * tiffDataWidth[dir->tdir_type];
if (SeekOK(tif->tif_fd, dir->tdir_offset) &&
WriteOK(tif->tif_fd, cp, cc)) {
dataoff += (cc + 1) & ~1;
return (1);
}
TIFFError(tif->tif_name, "Error writing data for field \"%s\"",
TIFFFieldWithTag(dir->tdir_tag)->field_name);
return (0);
}
/*
* Link the current directory into the
* directory chain for the file.
*/
static
TIFFLinkDirectory(tif)
register TIFF *tif;
{
static char module[] = "TIFFLinkDirectory";
u_short dircount;
long nextdir;
tif->tif_diroff = (lseek(tif->tif_fd, 0L, L_XTND)+1) &~ 1L;
if (tif->tif_header.tiff_diroff == 0) {
/*
* First directory, overwrite header.
*/
tif->tif_header.tiff_diroff = tif->tif_diroff;
(void) lseek(tif->tif_fd, 0L, L_SET);
if (!WriteOK(tif->tif_fd, &tif->tif_header,
sizeof (tif->tif_header))) {
TIFFError(tif->tif_name, "Error writing TIFF header");
return (0);
}
return (1);
}
/*
* Not the first directory, search to the last and append.
*/
nextdir = tif->tif_header.tiff_diroff;
do {
if (!SeekOK(tif->tif_fd, nextdir) ||
!ReadOK(tif->tif_fd, &dircount, sizeof (dircount))) {
TIFFError(module, "Error fetching directory count");
return (0);
}
if (tif->tif_flags & TIFF_SWAB)
TIFFSwabShort(&dircount);
lseek(tif->tif_fd, dircount * sizeof (TIFFDirEntry), L_INCR);
if (!ReadOK(tif->tif_fd, &nextdir, sizeof (nextdir))) {
TIFFError(module, "Error fetching directory link");
return (0);
}
if (tif->tif_flags & TIFF_SWAB)
TIFFSwabLong((u_long *)&nextdir);
} while (nextdir != 0);
(void) lseek(tif->tif_fd, -sizeof (nextdir), L_INCR);
if (!WriteOK(tif->tif_fd, &tif->tif_diroff, sizeof (tif->tif_diroff))) {
TIFFError(module, "Error writing directory link");
return (0);
}
return (1);
}