1 /* $Id: tif_win32.c,v 1.21.2.1 2010-06-08 18:50:43 bfriesen Exp $ */
4 * Copyright (c) 1988-1997 Sam Leffler
5 * Copyright (c) 1991-1997 Silicon Graphics, Inc.
7 * Permission to use, copy, modify, distribute, and sell this software and
8 * its documentation for any purpose is hereby granted without fee, provided
9 * that (i) the above copyright notices and this permission notice appear in
10 * all copies of the software and related documentation, and (ii) the names of
11 * Sam Leffler and Silicon Graphics may not be used in any advertising or
12 * publicity relating to the software without the specific, prior written
13 * permission of Sam Leffler and Silicon Graphics.
15 * THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND,
16 * EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY
17 * WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
19 * IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR
20 * ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
21 * OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
22 * WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF
23 * LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
28 * TIFF Library Win32-specific Routines. Adapted from tif_unix.c 4/5/95 by
29 * Scott Wagner (wagner@itek.com), Itek Graphix, Rochester, NY USA
36 _tiffReadProc(thandle_t fd, tdata_t buf, tsize_t size)
39 if (!ReadFile(fd, buf, size, &dwSizeRead, NULL))
41 return ((tsize_t) dwSizeRead);
45 _tiffWriteProc(thandle_t fd, tdata_t buf, tsize_t size)
48 if (!WriteFile(fd, buf, size, &dwSizeWritten, NULL))
50 return ((tsize_t) dwSizeWritten);
54 _tiffSeekProc(thandle_t fd, toff_t off, int whence)
64 dwMoveMethod = FILE_BEGIN;
67 dwMoveMethod = FILE_CURRENT;
70 dwMoveMethod = FILE_END;
73 dwMoveMethod = FILE_BEGIN;
76 return ((toff_t)SetFilePointer(fd, (LONG) li.LowPart,
77 (PLONG)&li.HighPart, dwMoveMethod));
81 _tiffCloseProc(thandle_t fd)
83 return (CloseHandle(fd) ? 0 : -1);
87 _tiffSizeProc(thandle_t fd)
89 return ((toff_t)GetFileSize(fd, NULL));
93 _tiffDummyMapProc(thandle_t fd, tdata_t* pbase, toff_t* psize)
102 * From "Hermann Josef Hill" <lhill@rhein-zeitung.de>:
104 * Windows uses both a handle and a pointer for file mapping,
105 * but according to the SDK documentation and Richter's book
106 * "Advanced Windows Programming" it is safe to free the handle
107 * after obtaining the file mapping pointer
109 * This removes a nasty OS dependency and cures a problem
110 * with Visual C++ 5.0
113 _tiffMapProc(thandle_t fd, tdata_t* pbase, toff_t* psize)
118 if ((size = _tiffSizeProc(fd)) == 0xFFFFFFFF)
120 hMapFile = CreateFileMapping(fd, NULL, PAGE_READONLY, 0, size, NULL);
121 if (hMapFile == NULL)
123 *pbase = MapViewOfFile(hMapFile, FILE_MAP_READ, 0, 0, 0);
124 CloseHandle(hMapFile);
132 _tiffDummyUnmapProc(thandle_t fd, tdata_t base, toff_t size)
140 _tiffUnmapProc(thandle_t fd, tdata_t base, toff_t size)
142 UnmapViewOfFile(base);
146 * Open a TIFF file descriptor for read/writing.
147 * Note that TIFFFdOpen and TIFFOpen recognise the character 'u' in the mode
148 * string, which forces the file to be opened unmapped.
151 TIFFFdOpen(int ifd, const char* name, const char* mode)
154 BOOL fSuppressMap = (mode[1] == 'u' || (mode[1]!=0 && mode[2] == 'u'));
156 tif = TIFFClientOpen(name, mode, (thandle_t)ifd,
157 _tiffReadProc, _tiffWriteProc,
158 _tiffSeekProc, _tiffCloseProc, _tiffSizeProc,
159 fSuppressMap ? _tiffDummyMapProc : _tiffMapProc,
160 fSuppressMap ? _tiffDummyUnmapProc : _tiffUnmapProc);
169 * Open a TIFF file for read/writing.
172 TIFFOpen(const char* name, const char* mode)
174 static const char module[] = "TIFFOpen";
180 m = _TIFFgetMode(mode, module);
185 dwMode = OPEN_EXISTING;
188 dwMode = OPEN_ALWAYS;
191 dwMode = OPEN_ALWAYS;
194 dwMode = CREATE_ALWAYS;
196 case O_RDWR|O_CREAT|O_TRUNC:
197 dwMode = CREATE_ALWAYS;
202 fd = (thandle_t)CreateFileA(name,
203 (m == O_RDONLY)?GENERIC_READ:(GENERIC_READ | GENERIC_WRITE),
204 FILE_SHARE_READ | FILE_SHARE_WRITE, NULL, dwMode,
205 (m == O_RDONLY)?FILE_ATTRIBUTE_READONLY:FILE_ATTRIBUTE_NORMAL,
207 if (fd == INVALID_HANDLE_VALUE) {
208 TIFFErrorExt(0, module, "%s: Cannot open", name);
212 tif = TIFFFdOpen((int)fd, name, mode);
219 * Open a TIFF file with a Unicode filename, for read/writing.
222 TIFFOpenW(const wchar_t* name, const char* mode)
224 static const char module[] = "TIFFOpenW";
232 m = _TIFFgetMode(mode, module);
235 case O_RDONLY: dwMode = OPEN_EXISTING; break;
236 case O_RDWR: dwMode = OPEN_ALWAYS; break;
237 case O_RDWR|O_CREAT: dwMode = OPEN_ALWAYS; break;
238 case O_RDWR|O_TRUNC: dwMode = CREATE_ALWAYS; break;
239 case O_RDWR|O_CREAT|O_TRUNC: dwMode = CREATE_ALWAYS; break;
240 default: return ((TIFF*)0);
243 fd = (thandle_t)CreateFileW(name,
244 (m == O_RDONLY)?GENERIC_READ:(GENERIC_READ|GENERIC_WRITE),
245 FILE_SHARE_READ, NULL, dwMode,
246 (m == O_RDONLY)?FILE_ATTRIBUTE_READONLY:FILE_ATTRIBUTE_NORMAL,
248 if (fd == INVALID_HANDLE_VALUE) {
249 TIFFErrorExt(0, module, "%S: Cannot open", name);
254 mbsize = WideCharToMultiByte(CP_ACP, 0, name, -1, NULL, 0, NULL, NULL);
256 mbname = (char *)_TIFFmalloc(mbsize);
258 TIFFErrorExt(0, module,
259 "Can't allocate space for filename conversion buffer");
263 WideCharToMultiByte(CP_ACP, 0, name, -1, mbname, mbsize,
267 tif = TIFFFdOpen((int)fd,
268 (mbname != NULL) ? mbname : "<unknown>", mode);
277 #endif /* ndef _WIN32_WCE */
281 _TIFFmalloc(tsize_t s)
283 return ((tdata_t)GlobalAlloc(GMEM_FIXED, s));
294 _TIFFrealloc(tdata_t p, tsize_t s)
300 return ((tdata_t)GlobalAlloc(GMEM_FIXED, s));
305 if ((pvTmp = GlobalAlloc(GMEM_FIXED, s)) != NULL) {
306 CopyMemory(pvTmp, p, s);
310 if ((pvTmp = GlobalAlloc(GMEM_FIXED, s)) != NULL) {
311 CopyMemory(pvTmp, p, old);
315 return ((tdata_t)pvTmp);
319 _TIFFmemset(void* p, int v, tsize_t c)
321 FillMemory(p, c, (BYTE)v);
325 _TIFFmemcpy(void* d, const tdata_t s, tsize_t c)
331 _TIFFmemcmp(const tdata_t p1, const tdata_t p2, tsize_t c)
333 register const BYTE *pb1 = (const BYTE *) p1;
334 register const BYTE *pb2 = (const BYTE *) p2;
335 register DWORD dwTmp = c;
337 for (iTmp = 0; dwTmp-- && !iTmp; iTmp = (int)*pb1++ - (int)*pb2++)
345 Win32WarningHandler(const char* module, const char* fmt, va_list ap)
347 #ifndef TIF_PLATFORM_CONSOLE
350 LPCTSTR szTitleText = "%s Warning";
351 LPCTSTR szDefaultModule = "LIBTIFF";
352 LPCTSTR szTmpModule = (module == NULL) ? szDefaultModule : module;
353 if ((szTitle = (LPTSTR)LocalAlloc(LMEM_FIXED, (strlen(szTmpModule) +
354 strlen(szTitleText) + strlen(fmt) + 128)*sizeof(char))) == NULL)
356 sprintf(szTitle, szTitleText, szTmpModule);
357 szTmp = szTitle + (strlen(szTitle)+2)*sizeof(char);
358 vsprintf(szTmp, fmt, ap);
359 MessageBoxA(GetFocus(), szTmp, szTitle, MB_OK | MB_ICONINFORMATION);
364 fprintf(stderr, "%s: ", module);
365 fprintf(stderr, "Warning, ");
366 vfprintf(stderr, fmt, ap);
367 fprintf(stderr, ".\n");
370 TIFFErrorHandler _TIFFwarningHandler = Win32WarningHandler;
373 Win32ErrorHandler(const char* module, const char* fmt, va_list ap)
375 #ifndef TIF_PLATFORM_CONSOLE
378 LPCTSTR szTitleText = "%s Error";
379 LPCTSTR szDefaultModule = "LIBTIFF";
380 LPCTSTR szTmpModule = (module == NULL) ? szDefaultModule : module;
381 if ((szTitle = (LPTSTR)LocalAlloc(LMEM_FIXED, (strlen(szTmpModule) +
382 strlen(szTitleText) + strlen(fmt) + 128)*sizeof(char))) == NULL)
384 sprintf(szTitle, szTitleText, szTmpModule);
385 szTmp = szTitle + (strlen(szTitle)+2)*sizeof(char);
386 vsprintf(szTmp, fmt, ap);
387 MessageBoxA(GetFocus(), szTmp, szTitle, MB_OK | MB_ICONEXCLAMATION);
392 fprintf(stderr, "%s: ", module);
393 vfprintf(stderr, fmt, ap);
394 fprintf(stderr, ".\n");
397 TIFFErrorHandler _TIFFerrorHandler = Win32ErrorHandler;
399 #endif /* ndef _WIN32_WCE */
401 /* vim: set ts=8 sts=8 sw=8 noet: */