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: */