This is tif_write.c in view mode; [Download] [Up]
#ifndef lint
static char rcsid[] = "$Header: /usr/people/sam/tiff/libtiff/RCS/tif_write.c,v 1.50 92/10/26 17:08:55 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.
*
* Scanline-oriented Write Support
*/
#include "tiffiop.h"
#include <assert.h>
#include <stdio.h>
#define STRIPINCR 20 /* expansion factor on strip array */
#if USE_PROTOTYPES
static int TIFFWriteCheck(TIFF *, int, const char*);
static int TIFFBufferSetup(TIFF *, const char*);
static int TIFFGrowStrips(TIFF *, int, const char*);
static int TIFFAppendToStrip(TIFF *, u_int, u_char *, u_long);
static int TIFFSetupStrips(TIFF *);
#else
static int TIFFWriteCheck();
static int TIFFBufferSetup();
static int TIFFGrowStrips();
static int TIFFAppendToStrip();
#endif
int
/*VARARGS3*/
DECLARE4(TIFFWriteScanline,
TIFF*, tif, u_char*, buf, u_int, row, u_int, sample)
{
static const char module[] = "TIFFWriteScanline";
register TIFFDirectory *td;
int strip, status, imagegrew = 0;
if (!TIFFWriteCheck(tif, 0, module))
return (-1);
/*
* Handle delayed allocation of data buffer. This
* permits it to be sized more intelligently (using
* directory information).
*/
if ((tif->tif_flags & TIFF_BUFFERSETUP) == 0) {
if (!TIFFBufferSetup(tif, module))
return (-1);
tif->tif_flags |= TIFF_BUFFERSETUP;
}
td = &tif->tif_dir;
/*
* Extend image length if needed
* (but only for PlanarConfig=1).
*/
if (row >= td->td_imagelength) { /* extend image */
if (td->td_planarconfig == PLANARCONFIG_SEPARATE) {
TIFFError(tif->tif_name,
"Can not change \"ImageLength\" when using separate planes");
return (-1);
}
td->td_imagelength = row+1;
imagegrew = 1;
}
/*
* Calculate strip and check for crossings.
*/
if (td->td_planarconfig == PLANARCONFIG_SEPARATE) {
if (sample >= td->td_samplesperpixel) {
TIFFError(tif->tif_name,
"%d: Sample out of range, max %d",
sample, td->td_samplesperpixel);
return (-1);
}
strip = sample*td->td_stripsperimage + row/td->td_rowsperstrip;
} else
strip = row / td->td_rowsperstrip;
if (strip != tif->tif_curstrip) {
/*
* Changing strips -- flush any data present.
*/
if (!TIFFFlushData(tif))
return (-1);
tif->tif_curstrip = strip;
/*
* Watch out for a growing image. The value of
* strips/image will initially be 1 (since it
* can't be deduced until the imagelength is known).
*/
if (strip >= td->td_stripsperimage && imagegrew)
td->td_stripsperimage =
howmany(td->td_imagelength, td->td_rowsperstrip);
tif->tif_row =
(strip % td->td_stripsperimage) * td->td_rowsperstrip;
if (tif->tif_preencode && !(*tif->tif_preencode)(tif))
return (-1);
tif->tif_flags |= TIFF_POSTENCODE;
}
/*
* Check strip array to make sure there's space.
* We don't support dynamically growing files that
* have data organized in separate bitplanes because
* it's too painful. In that case we require that
* the imagelength be set properly before the first
* write (so that the strips array will be fully
* allocated above).
*/
if (strip >= td->td_nstrips && !TIFFGrowStrips(tif, 1, module))
return (-1);
/*
* Ensure the write is either sequential or at the
* beginning of a strip (or that we can randomly
* access the data -- i.e. no encoding).
*/
if (row != tif->tif_row) {
if (tif->tif_seek) {
if (row < tif->tif_row) {
/*
* Moving backwards within the same strip:
* backup to the start and then decode
* forward (below).
*/
tif->tif_row = (strip % td->td_stripsperimage) *
td->td_rowsperstrip;
tif->tif_rawcp = tif->tif_rawdata;
}
/*
* Seek forward to the desired row.
*/
if (!(*tif->tif_seek)(tif, row - tif->tif_row))
return (-1);
tif->tif_row = row;
} else {
TIFFError(tif->tif_name,
"Compression algorithm does not support random access");
return (-1);
}
}
status = (*tif->tif_encoderow)(tif, buf, tif->tif_scanlinesize, sample);
tif->tif_row++;
return (status);
}
/*
* Encode the supplied data and write it to the
* specified strip. There must be space for the
* data; we don't check if strips overlap!
*
* NB: Image length must be setup before writing; this
* interface does not support automatically growing
* the image on each write (as TIFFWriteScanline does).
*/
int
DECLARE4(TIFFWriteEncodedStrip,
TIFF*, tif, u_int, strip, u_char*, data, u_long, cc)
{
static const char module[] = "TIFFWriteEncodedStrip";
TIFFDirectory *td = &tif->tif_dir;
if (!TIFFWriteCheck(tif, 0, module))
return (-1);
if (strip >= td->td_nstrips) {
TIFFError(module, "%s: Strip %d out of range, max %d",
tif->tif_name, strip, td->td_nstrips);
return (-1);
}
/*
* Handle delayed allocation of data buffer. This
* permits it to be sized according to the directory
* info.
*/
if ((tif->tif_flags & TIFF_BUFFERSETUP) == 0) {
if (!TIFFBufferSetup(tif, module))
return (-1);
tif->tif_flags |= TIFF_BUFFERSETUP;
}
tif->tif_curstrip = strip;
tif->tif_flags &= ~TIFF_POSTENCODE;
if (tif->tif_preencode && !(*tif->tif_preencode)(tif))
return (-1);
if (!(*tif->tif_encodestrip)(tif,
data, cc, strip / td->td_stripsperimage))
return (0);
if (tif->tif_postencode && !(*tif->tif_postencode)(tif))
return (-1);
if (td->td_fillorder != tif->tif_fillorder &&
(tif->tif_flags & TIFF_NOBITREV) == 0)
TIFFReverseBits((u_char *)tif->tif_rawdata, tif->tif_rawcc);
if (tif->tif_rawcc > 0 &&
!TIFFAppendToStrip(tif, strip, (u_char *)tif->tif_rawdata, tif->tif_rawcc))
return (-1);
tif->tif_rawcc = 0;
tif->tif_rawcp = tif->tif_rawdata;
return (cc);
}
/*
* Write the supplied data to the specified strip.
* There must be space for the data; we don't check
* if strips overlap!
*
* NB: Image length must be setup before writing; this
* interface does not support automatically growing
* the image on each write (as TIFFWriteScanline does).
*/
int
DECLARE4(TIFFWriteRawStrip,
TIFF*, tif, u_int, strip, u_char*, data, u_long, cc)
{
static const char module[] = "TIFFWriteRawStrip";
if (!TIFFWriteCheck(tif, 0, module))
return (-1);
if (strip >= tif->tif_dir.td_nstrips) {
TIFFError(module, "%s: Strip %d out of range, max %d",
tif->tif_name, strip, tif->tif_dir.td_nstrips);
return (-1);
}
return (TIFFAppendToStrip(tif, strip, data, cc) ? cc : -1);
}
/*
* Write and compress a tile of data. The
* tile is selected by the (x,y,z,s) coordinates.
*/
int
DECLARE6(TIFFWriteTile,
TIFF*, tif, u_char*, buf, u_long, x, u_long, y, u_long, z, u_int, s)
{
if (!TIFFCheckTile(tif, x, y, z, s))
return (-1);
/*
* NB: A tile size of -1 is used instead of tif_tilesize knowing
* that TIFFWriteEncodedTile will clamp this to the tile size.
* This is done because the tile size may not be defined until
* after the output buffer is setup in TIFFBufferSetup.
*/
return (TIFFWriteEncodedTile(tif,
TIFFComputeTile(tif, x, y, z, s), buf, (u_int)-1));
}
/*
* Encode the supplied data and write it to the
* specified tile. There must be space for the
* data. The function clamps individual writes
* to a tile to the tile size, but does not (and
* can not) check that multiple writes to the same
* tile do not write more than tile size data.
*
* NB: Image length must be setup before writing; this
* interface does not support automatically growing
* the image on each write (as TIFFWriteScanline does).
*/
int
DECLARE4(TIFFWriteEncodedTile,
TIFF*, tif, u_int, tile, u_char*, data, u_long, cc)
{
static const char module[] = "TIFFWriteEncodedTile";
TIFFDirectory *td;
if (!TIFFWriteCheck(tif, 1, module))
return (-1);
td = &tif->tif_dir;
if (tile >= td->td_nstrips) {
TIFFError(module, "%s: Tile %d out of range, max %d",
tif->tif_name, tile, td->td_nstrips);
return (-1);
}
/*
* Handle delayed allocation of data buffer. This
* permits it to be sized more intelligently (using
* directory information).
*/
if ((tif->tif_flags & TIFF_BUFFERSETUP) == 0) {
if (!TIFFBufferSetup(tif, module))
return (-1);
tif->tif_flags |= TIFF_BUFFERSETUP;
}
tif->tif_curtile = tile;
/*
* Compute tiles per row & per column to compute
* current row and column
*/
tif->tif_row = (tile % howmany(td->td_imagelength, td->td_tilelength))
* td->td_tilelength;
tif->tif_col = (tile % howmany(td->td_imagewidth, td->td_tilewidth))
* td->td_tilewidth;
tif->tif_flags &= ~TIFF_POSTENCODE;
if (tif->tif_preencode && !(*tif->tif_preencode)(tif))
return (-1);
/*
* Clamp write amount to the tile size. This is mostly
* done so that callers can pass in some large number
* (e.g. -1) and have the tile size used instead.
*/
if (cc > tif->tif_tilesize)
cc = tif->tif_tilesize;
if (!(*tif->tif_encodetile)(tif, data, cc, tile/td->td_stripsperimage))
return (0);
if (tif->tif_postencode && !(*tif->tif_postencode)(tif))
return (-1);
if (td->td_fillorder != tif->tif_fillorder &&
(tif->tif_flags & TIFF_NOBITREV) == 0)
TIFFReverseBits((u_char *)tif->tif_rawdata, tif->tif_rawcc);
if (tif->tif_rawcc > 0 && !TIFFAppendToStrip(tif, tile,
(u_char *)tif->tif_rawdata, tif->tif_rawcc))
return (-1);
tif->tif_rawcc = 0;
tif->tif_rawcp = tif->tif_rawdata;
return (cc);
}
/*
* Write the supplied data to the specified strip.
* There must be space for the data; we don't check
* if strips overlap!
*
* NB: Image length must be setup before writing; this
* interface does not support automatically growing
* the image on each write (as TIFFWriteScanline does).
*/
int
DECLARE4(TIFFWriteRawTile,
TIFF*, tif, u_int, tile, u_char*, data, u_long, cc)
{
static const char module[] = "TIFFWriteRawTile";
if (!TIFFWriteCheck(tif, 1, module))
return (-1);
if (tile >= tif->tif_dir.td_nstrips) {
TIFFError(module, "%s: Tile %d out of range, max %d",
tif->tif_name, tile, tif->tif_dir.td_nstrips);
return (-1);
}
return (TIFFAppendToStrip(tif, tile, data, cc) ? cc : -1);
}
static int
DECLARE1(TIFFSetupStrips, TIFF*, tif)
{
#define isUnspecified(td, v) \
(td->v == 0xffffffff || (td)->td_imagelength == 0)
register TIFFDirectory *td = &tif->tif_dir;
if (!isTiled(tif))
td->td_stripsperimage = isUnspecified(td, td_rowsperstrip) ?
1 : howmany(td->td_imagelength, td->td_rowsperstrip);
else
td->td_stripsperimage = isUnspecified(td, td_tilelength) ?
1 : TIFFNumberOfTiles(tif);
td->td_nstrips = td->td_stripsperimage;
if (td->td_planarconfig == PLANARCONFIG_SEPARATE)
td->td_nstrips *= td->td_samplesperpixel;
td->td_stripoffset = (u_long *)
_TIFFmalloc(td->td_nstrips * sizeof (u_long));
td->td_stripbytecount = (u_long *)
_TIFFmalloc(td->td_nstrips * sizeof (u_long));
if (td->td_stripoffset == NULL || td->td_stripbytecount == NULL)
return (0);
/*
* Place data at the end-of-file
* (by setting offsets to zero).
*/
memset(td->td_stripoffset, 0, td->td_nstrips*sizeof (u_long));
memset(td->td_stripbytecount, 0, td->td_nstrips*sizeof (u_long));
TIFFSetFieldBit(tif, FIELD_STRIPOFFSETS);
TIFFSetFieldBit(tif, FIELD_STRIPBYTECOUNTS);
return (1);
#undef isUnspecified
}
/*
* Verify file is writable and that the directory
* information is setup properly. In doing the latter
* we also "freeze" the state of the directory so
* that important information is not changed.
*/
static int
DECLARE3(TIFFWriteCheck, TIFF*, tif, int, tiles, const char*, module)
{
if (tif->tif_mode == O_RDONLY) {
TIFFError(module, "%s: File not open for writing",
tif->tif_name);
return (0);
}
if (tiles ^ isTiled(tif)) {
TIFFError(tif->tif_name, tiles ?
"Can not write tiles to a stripped image" :
"Can not write scanlines to a tiled image");
return (0);
}
/*
* On the first write verify all the required information
* has been setup and initialize any data structures that
* had to wait until directory information was set.
* Note that a lot of our work is assumed to remain valid
* because we disallow any of the important parameters
* from changing after we start writing (i.e. once
* TIFF_BEENWRITING is set, TIFFSetField will only allow
* the image's length to be changed).
*/
if ((tif->tif_flags & TIFF_BEENWRITING) == 0) {
if (!TIFFFieldSet(tif, FIELD_IMAGEDIMENSIONS)) {
TIFFError(module,
"%s: Must set \"ImageWidth\" before writing data",
tif->tif_name);
return (0);
}
if (!TIFFFieldSet(tif, FIELD_PLANARCONFIG)) {
TIFFError(module,
"%s: Must set \"PlanarConfiguration\" before writing data",
tif->tif_name);
return (0);
}
if (tif->tif_dir.td_stripoffset == NULL &&
!TIFFSetupStrips(tif)) {
tif->tif_dir.td_nstrips = 0;
TIFFError(module, "%s: No space for %s arrays",
tif->tif_name, isTiled(tif) ? "tile" : "strip");
return (0);
}
tif->tif_flags |= TIFF_BEENWRITING;
}
return (1);
}
/*
* Setup the raw data buffer used for encoding.
*/
static int
DECLARE2(TIFFBufferSetup, TIFF*, tif, const char*, module)
{
u_long size;
if (isTiled(tif))
tif->tif_tilesize = size = TIFFTileSize(tif);
else
tif->tif_scanlinesize = size = TIFFScanlineSize(tif);
/*
* Make raw data buffer at least 8K
*/
if (size < 8*1024)
size = 8*1024;
tif->tif_rawdata = _TIFFmalloc(size);
if (tif->tif_rawdata == NULL) {
TIFFError(module, "%s: No space for output buffer",
tif->tif_name);
return (0);
}
tif->tif_flags |= TIFF_MYBUFFER;
tif->tif_rawdatasize = size;
tif->tif_rawcc = 0;
tif->tif_rawcp = tif->tif_rawdata;
return (1);
}
/*
* Grow the strip data structures by delta strips.
*/
static int
DECLARE3(TIFFGrowStrips, TIFF*, tif, int, delta, const char*, module)
{
TIFFDirectory *td = &tif->tif_dir;
assert(td->td_planarconfig == PLANARCONFIG_CONTIG);
td->td_stripoffset = (u_long *)_TIFFrealloc(td->td_stripoffset,
(td->td_nstrips + delta) * sizeof (u_long));
td->td_stripbytecount = (u_long *)_TIFFrealloc(td->td_stripbytecount,
(td->td_nstrips + delta) * sizeof (u_long));
if (td->td_stripoffset == NULL || td->td_stripbytecount == NULL) {
td->td_nstrips = 0;
TIFFError(module, "%s: No space to expand strip arrays",
tif->tif_name);
return (0);
}
memset(td->td_stripoffset+td->td_nstrips, 0, delta*sizeof (u_long));
memset(td->td_stripbytecount+td->td_nstrips, 0, delta*sizeof (u_long));
td->td_nstrips += delta;
return (1);
}
/*
* Append the data to the specified strip.
*
* NB: We don't check that there's space in the
* file (i.e. that strips do not overlap).
*/
static int
DECLARE4(TIFFAppendToStrip, TIFF*, tif, u_int, strip, u_char*, data, u_long, cc)
{
TIFFDirectory *td = &tif->tif_dir;
static const char module[] = "TIFFAppendToStrip";
if (td->td_stripoffset[strip] == 0 || tif->tif_curoff == 0) {
/*
* No current offset, set the current strip.
*/
if (td->td_stripoffset[strip] != 0) {
if (!SeekOK(tif, td->td_stripoffset[strip])) {
TIFFError(module,
"%s: Seek error at scanline %d",
tif->tif_name, tif->tif_row);
return (0);
}
} else
td->td_stripoffset[strip] =
TIFFSeekFile(tif, 0L, L_XTND);
tif->tif_curoff = td->td_stripoffset[strip];
}
if (!WriteOK(tif, data, cc)) {
TIFFError(module, "%s: Write error at scanline %d",
tif->tif_name, tif->tif_row);
return (0);
}
tif->tif_curoff += cc;
td->td_stripbytecount[strip] += cc;
return (1);
}
/*
* Internal version of TIFFFlushData that can be
* called by ``encodestrip routines'' w/o concern
* for infinite recursion.
*/
int
DECLARE1(TIFFFlushData1, TIFF*, tif)
{
if (tif->tif_rawcc > 0) {
if (tif->tif_dir.td_fillorder != tif->tif_fillorder &&
(tif->tif_flags & TIFF_NOBITREV) == 0)
TIFFReverseBits((u_char *)tif->tif_rawdata,
tif->tif_rawcc);
if (!TIFFAppendToStrip(tif,
isTiled(tif) ? tif->tif_curtile : tif->tif_curstrip,
(u_char *)tif->tif_rawdata, tif->tif_rawcc))
return (0);
tif->tif_rawcc = 0;
tif->tif_rawcp = tif->tif_rawdata;
}
return (1);
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.