|
Packit |
994f1a |
/* $Header: /cvs/maptools/cvsroot/libtiff/libtiff/Attic/tif_win3.c,v 1.2.2.1 2010-06-08 18:50:43 bfriesen Exp $ */
|
|
Packit |
994f1a |
|
|
Packit |
994f1a |
/*
|
|
Packit |
994f1a |
* Copyright (c) 1988-1997 Sam Leffler
|
|
Packit |
994f1a |
* Copyright (c) 1991-1997 Silicon Graphics, Inc.
|
|
Packit |
994f1a |
*
|
|
Packit |
994f1a |
* Permission to use, copy, modify, distribute, and sell this software and
|
|
Packit |
994f1a |
* its documentation for any purpose is hereby granted without fee, provided
|
|
Packit |
994f1a |
* that (i) the above copyright notices and this permission notice appear in
|
|
Packit |
994f1a |
* all copies of the software and related documentation, and (ii) the names of
|
|
Packit |
994f1a |
* Sam Leffler and Silicon Graphics may not be used in any advertising or
|
|
Packit |
994f1a |
* publicity relating to the software without the specific, prior written
|
|
Packit |
994f1a |
* permission of Sam Leffler and Silicon Graphics.
|
|
Packit |
994f1a |
*
|
|
Packit |
994f1a |
* THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND,
|
|
Packit |
994f1a |
* EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY
|
|
Packit |
994f1a |
* WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
|
|
Packit |
994f1a |
*
|
|
Packit |
994f1a |
* IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR
|
|
Packit |
994f1a |
* ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
|
|
Packit |
994f1a |
* OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
|
|
Packit |
994f1a |
* WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF
|
|
Packit |
994f1a |
* LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
|
|
Packit |
994f1a |
* OF THIS SOFTWARE.
|
|
Packit |
994f1a |
*/
|
|
Packit |
994f1a |
|
|
Packit |
994f1a |
/*
|
|
Packit |
994f1a |
* TIFF Library Windows 3.x-specific Routines.
|
|
Packit |
994f1a |
*/
|
|
Packit |
994f1a |
#include "tiffiop.h"
|
|
Packit |
994f1a |
#if defined(__WATCOMC__) || defined(__BORLANDC__) || defined(_MSC_VER)
|
|
Packit |
994f1a |
#include <io.h> /* for open, close, etc. function prototypes */
|
|
Packit |
994f1a |
#endif
|
|
Packit |
994f1a |
|
|
Packit |
994f1a |
#include <windows.h>
|
|
Packit |
994f1a |
#include <windowsx.h>
|
|
Packit |
994f1a |
#include <memory.h>
|
|
Packit |
994f1a |
|
|
Packit |
994f1a |
static tsize_t
|
|
Packit |
994f1a |
_tiffReadProc(thandle_t fd, tdata_t buf, tsize_t size)
|
|
Packit |
994f1a |
{
|
|
Packit |
994f1a |
return (_hread(fd, buf, size));
|
|
Packit |
994f1a |
}
|
|
Packit |
994f1a |
|
|
Packit |
994f1a |
static tsize_t
|
|
Packit |
994f1a |
_tiffWriteProc(thandle_t fd, tdata_t buf, tsize_t size)
|
|
Packit |
994f1a |
{
|
|
Packit |
994f1a |
return (_hwrite(fd, buf, size));
|
|
Packit |
994f1a |
}
|
|
Packit |
994f1a |
|
|
Packit |
994f1a |
static toff_t
|
|
Packit |
994f1a |
_tiffSeekProc(thandle_t fd, toff_t off, int whence)
|
|
Packit |
994f1a |
{
|
|
Packit |
994f1a |
return (_llseek(fd, (off_t) off, whence));
|
|
Packit |
994f1a |
}
|
|
Packit |
994f1a |
|
|
Packit |
994f1a |
static int
|
|
Packit |
994f1a |
_tiffCloseProc(thandle_t fd)
|
|
Packit |
994f1a |
{
|
|
Packit |
994f1a |
return (_lclose(fd));
|
|
Packit |
994f1a |
}
|
|
Packit |
994f1a |
|
|
Packit |
994f1a |
#include <sys/stat.h>
|
|
Packit |
994f1a |
|
|
Packit |
994f1a |
static toff_t
|
|
Packit |
994f1a |
_tiffSizeProc(thandle_t fd)
|
|
Packit |
994f1a |
{
|
|
Packit |
994f1a |
struct stat sb;
|
|
Packit |
994f1a |
return (fstat((int) fd, &sb) < 0 ? 0 : sb.st_size);
|
|
Packit |
994f1a |
}
|
|
Packit |
994f1a |
|
|
Packit |
994f1a |
static int
|
|
Packit |
994f1a |
_tiffMapProc(thandle_t fd, tdata_t* pbase, toff_t* psize)
|
|
Packit |
994f1a |
{
|
|
Packit |
994f1a |
return (0);
|
|
Packit |
994f1a |
}
|
|
Packit |
994f1a |
|
|
Packit |
994f1a |
static void
|
|
Packit |
994f1a |
_tiffUnmapProc(thandle_t fd, tdata_t base, toff_t size)
|
|
Packit |
994f1a |
{
|
|
Packit |
994f1a |
}
|
|
Packit |
994f1a |
|
|
Packit |
994f1a |
/*
|
|
Packit |
994f1a |
* Open a TIFF file descriptor for read/writing.
|
|
Packit |
994f1a |
*/
|
|
Packit |
994f1a |
TIFF*
|
|
Packit |
994f1a |
TIFFFdOpen(int fd, const char* name, const char* mode)
|
|
Packit |
994f1a |
{
|
|
Packit |
994f1a |
TIFF* tif;
|
|
Packit |
994f1a |
|
|
Packit |
994f1a |
tif = TIFFClientOpen(name, mode,
|
|
Packit |
994f1a |
(thandle_t) fd,
|
|
Packit |
994f1a |
_tiffReadProc, _tiffWriteProc, _tiffSeekProc, _tiffCloseProc,
|
|
Packit |
994f1a |
_tiffSizeProc, _tiffMapProc, _tiffUnmapProc);
|
|
Packit |
994f1a |
if (tif)
|
|
Packit |
994f1a |
tif->tif_fd = fd;
|
|
Packit |
994f1a |
return (tif);
|
|
Packit |
994f1a |
}
|
|
Packit |
994f1a |
|
|
Packit |
994f1a |
/*
|
|
Packit |
994f1a |
* Open a TIFF file for read/writing.
|
|
Packit |
994f1a |
*/
|
|
Packit |
994f1a |
TIFF*
|
|
Packit |
994f1a |
TIFFOpen(const char* name, const char* mode)
|
|
Packit |
994f1a |
{
|
|
Packit |
994f1a |
static const char module[] = "TIFFOpen";
|
|
Packit |
994f1a |
int m, fd;
|
|
Packit |
994f1a |
OFSTRUCT of;
|
|
Packit |
994f1a |
int mm = 0;
|
|
Packit |
994f1a |
|
|
Packit |
994f1a |
m = _TIFFgetMode(mode, module);
|
|
Packit |
994f1a |
if (m == -1)
|
|
Packit |
994f1a |
return ((TIFF*)0);
|
|
Packit |
994f1a |
if (m & O_CREAT) {
|
|
Packit |
994f1a |
if ((m & O_TRUNC) || OpenFile(name, &of, OF_EXIST) != HFILE_ERROR)
|
|
Packit |
994f1a |
mm |= OF_CREATE;
|
|
Packit |
994f1a |
}
|
|
Packit |
994f1a |
if (m & O_WRONLY)
|
|
Packit |
994f1a |
mm |= OF_WRITE;
|
|
Packit |
994f1a |
if (m & O_RDWR)
|
|
Packit |
994f1a |
mm |= OF_READWRITE;
|
|
Packit |
994f1a |
fd = OpenFile(name, &of, mm);
|
|
Packit |
994f1a |
if (fd < 0) {
|
|
Packit |
994f1a |
TIFFErrorExt(0, module, "%s: Cannot open", name);
|
|
Packit |
994f1a |
return ((TIFF*)0);
|
|
Packit |
994f1a |
}
|
|
Packit |
994f1a |
return (TIFFFdOpen(fd, name, mode));
|
|
Packit |
994f1a |
}
|
|
Packit |
994f1a |
|
|
Packit |
994f1a |
tdata_t
|
|
Packit |
994f1a |
_TIFFmalloc(tsize_t s)
|
|
Packit |
994f1a |
{
|
|
Packit |
994f1a |
return (tdata_t) GlobalAllocPtr(GHND, (DWORD) s);
|
|
Packit |
994f1a |
}
|
|
Packit |
994f1a |
|
|
Packit |
994f1a |
void
|
|
Packit |
994f1a |
_TIFFfree(tdata_t p)
|
|
Packit |
994f1a |
{
|
|
Packit |
994f1a |
GlobalFreePtr(p);
|
|
Packit |
994f1a |
}
|
|
Packit |
994f1a |
|
|
Packit |
994f1a |
tdata_t
|
|
Packit |
994f1a |
_TIFFrealloc(tdata_t p, tsize_t s)
|
|
Packit |
994f1a |
{
|
|
Packit |
994f1a |
return (tdata_t) GlobalReAllocPtr(p, (DWORD) s, GHND);
|
|
Packit |
994f1a |
}
|
|
Packit |
994f1a |
|
|
Packit |
994f1a |
void
|
|
Packit |
994f1a |
_TIFFmemset(tdata_t p, int v, tsize_t c)
|
|
Packit |
994f1a |
{
|
|
Packit |
994f1a |
char* pp = (char*) p;
|
|
Packit |
994f1a |
|
|
Packit |
994f1a |
while (c > 0) {
|
|
Packit |
994f1a |
tsize_t chunk = 0x10000 - ((uint32) pp & 0xffff);/* What's left in segment */
|
|
Packit |
994f1a |
if (chunk > 0xff00) /* No more than 0xff00 */
|
|
Packit |
994f1a |
chunk = 0xff00;
|
|
Packit |
994f1a |
if (chunk > c) /* No more than needed */
|
|
Packit |
994f1a |
chunk = c;
|
|
Packit |
994f1a |
memset(pp, v, chunk);
|
|
Packit |
994f1a |
pp = (char*) (chunk + (char huge*) pp);
|
|
Packit |
994f1a |
c -= chunk;
|
|
Packit |
994f1a |
}
|
|
Packit |
994f1a |
}
|
|
Packit |
994f1a |
|
|
Packit |
994f1a |
void
|
|
Packit |
994f1a |
_TIFFmemcpy(tdata_t d, const tdata_t s, tsize_t c)
|
|
Packit |
994f1a |
{
|
|
Packit |
994f1a |
if (c > 0xFFFF)
|
|
Packit |
994f1a |
hmemcpy((void _huge*) d, (void _huge*) s, c);
|
|
Packit |
994f1a |
else
|
|
Packit |
994f1a |
(void) memcpy(d, s, (size_t) c);
|
|
Packit |
994f1a |
}
|
|
Packit |
994f1a |
|
|
Packit |
994f1a |
int
|
|
Packit |
994f1a |
_TIFFmemcmp(const tdata_t d, const tdata_t s, tsize_t c)
|
|
Packit |
994f1a |
{
|
|
Packit |
994f1a |
char* dd = (char*) d;
|
|
Packit |
994f1a |
char* ss = (char*) s;
|
|
Packit |
994f1a |
tsize_t chunks, chunkd, chunk;
|
|
Packit |
994f1a |
int result;
|
|
Packit |
994f1a |
|
|
Packit |
994f1a |
while (c > 0) {
|
|
Packit |
994f1a |
chunks = 0x10000 - ((uint32) ss & 0xffff); /* What's left in segment */
|
|
Packit |
994f1a |
chunkd = 0x10000 - ((uint32) dd & 0xffff); /* What's left in segment */
|
|
Packit |
994f1a |
chunk = c; /* Get the largest of */
|
|
Packit |
994f1a |
if (chunk > chunks) /* c, chunks, chunkd, */
|
|
Packit |
994f1a |
chunk = chunks; /* 0xff00 */
|
|
Packit |
994f1a |
if (chunk > chunkd)
|
|
Packit |
994f1a |
chunk = chunkd;
|
|
Packit |
994f1a |
if (chunk > 0xff00)
|
|
Packit |
994f1a |
chunk = 0xff00;
|
|
Packit |
994f1a |
result = memcmp(dd, ss, chunk);
|
|
Packit |
994f1a |
if (result != 0)
|
|
Packit |
994f1a |
return (result);
|
|
Packit |
994f1a |
dd = (char*) (chunk + (char huge*) dd);
|
|
Packit |
994f1a |
ss = (char*) (chunk + (char huge*) ss);
|
|
Packit |
994f1a |
c -= chunk;
|
|
Packit |
994f1a |
}
|
|
Packit |
994f1a |
return (0);
|
|
Packit |
994f1a |
}
|
|
Packit |
994f1a |
|
|
Packit |
994f1a |
static void
|
|
Packit |
994f1a |
win3WarningHandler(const char* module, const char* fmt, va_list ap)
|
|
Packit |
994f1a |
{
|
|
Packit |
994f1a |
char e[512] = { '\0' };
|
|
Packit |
994f1a |
if (module != NULL)
|
|
Packit |
994f1a |
strcat(strcpy(e, module), ":");
|
|
Packit |
994f1a |
vsprintf(e+strlen(e), fmt, ap);
|
|
Packit |
994f1a |
strcat(e, ".");
|
|
Packit |
994f1a |
MessageBox(GetActiveWindow(), e, "LibTIFF Warning",
|
|
Packit |
994f1a |
MB_OK|MB_ICONEXCLAMATION);
|
|
Packit |
994f1a |
}
|
|
Packit |
994f1a |
TIFFErrorHandler _TIFFwarningHandler = win3WarningHandler;
|
|
Packit |
994f1a |
|
|
Packit |
994f1a |
static void
|
|
Packit |
994f1a |
win3ErrorHandler(const char* module, const char* fmt, va_list ap)
|
|
Packit |
994f1a |
{
|
|
Packit |
994f1a |
char e[512] = { '\0' };
|
|
Packit |
994f1a |
if (module != NULL)
|
|
Packit |
994f1a |
strcat(strcpy(e, module), ":");
|
|
Packit |
994f1a |
vsprintf(e+strlen(e), fmt, ap);
|
|
Packit |
994f1a |
strcat(e, ".");
|
|
Packit |
994f1a |
MessageBox(GetActiveWindow(), e, "LibTIFF Error", MB_OK|MB_ICONSTOP);
|
|
Packit |
994f1a |
}
|
|
Packit |
994f1a |
TIFFErrorHandler _TIFFerrorHandler = win3ErrorHandler;
|
|
Packit |
994f1a |
/*
|
|
Packit |
994f1a |
* Local Variables:
|
|
Packit |
994f1a |
* mode: c
|
|
Packit |
994f1a |
* c-basic-offset: 8
|
|
Packit |
994f1a |
* fill-column: 78
|
|
Packit |
994f1a |
* End:
|
|
Packit |
994f1a |
*/
|