"Initial commit to Gerrit"
[profile/ivi/libtiff.git] / libtiff / tif_msdos.c
1 /* $Header: /cvs/maptools/cvsroot/libtiff/libtiff/Attic/tif_msdos.c,v 1.3.2.1 2010-06-08 18:50:42 bfriesen Exp $ */
2
3 /*
4  * Copyright (c) 1988-1997 Sam Leffler
5  * Copyright (c) 1991-1997 Silicon Graphics, Inc.
6  *
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.
14  * 
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.  
18  * 
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 
24  * OF THIS SOFTWARE.
25  */
26
27 /*
28  * TIFF Library MSDOS-specific Routines.
29  */
30 #if defined(__WATCOMC__) || defined(__BORLANDC__) || defined(_MSC_VER)
31 #include <io.h>         /* for open, close, etc. function prototypes */
32 #include <stdio.h>
33 #endif
34 #include "tiffiop.h"
35
36 static tsize_t 
37 _tiffReadProc(thandle_t fd, tdata_t buf, tsize_t size)
38 {
39         return (read((int) fd, buf, size));
40 }
41
42 static tsize_t
43 _tiffWriteProc(thandle_t fd, tdata_t buf, tsize_t size)
44 {
45         return (write((int) fd, buf, size));
46 }
47
48 static toff_t
49 _tiffSeekProc(thandle_t fd, toff_t off, int whence)
50 {
51         return (lseek((int) fd, (off_t) off, whence));
52 }
53
54 static int
55 _tiffCloseProc(thandle_t fd)
56 {
57         return (close((int) fd));
58 }
59
60 #include <sys/stat.h>
61
62 static toff_t
63 _tiffSizeProc(thandle_t fd)
64 {
65         struct stat sb;
66         return (fstat((int) fd, &sb) < 0 ? 0 : sb.st_size);
67 }
68
69 static int
70 _tiffMapProc(thandle_t fd, tdata_t* pbase, toff_t* psize)
71 {
72         return (0);
73 }
74
75 static void
76 _tiffUnmapProc(thandle_t fd, tdata_t base, toff_t size)
77 {
78 }
79
80 /*
81  * Open a TIFF file descriptor for read/writing.
82  */
83 TIFF*
84 TIFFFdOpen(int fd, const char* name, const char* mode)
85 {
86         TIFF* tif;
87
88         tif = TIFFClientOpen(name, mode,
89             (void*) fd,
90             _tiffReadProc, _tiffWriteProc, _tiffSeekProc, _tiffCloseProc,
91             _tiffSizeProc, _tiffMapProc, _tiffUnmapProc);
92         if (tif)
93                 tif->tif_fd = fd;
94         return (tif);
95 }
96
97 /*
98  * Open a TIFF file for read/writing.
99  */
100 TIFF*
101 TIFFOpen(const char* name, const char* mode)
102 {
103         static const char module[] = "TIFFOpen";
104         int m, fd;
105         TIFF *ret;
106
107         m = _TIFFgetMode(mode, module);
108         if (m == -1)
109                 return ((TIFF*)0);
110         fd = open(name, m|O_BINARY, 0666);
111         if (fd < 0) {
112                 TIFFErrorExt(0, module, "%s: Cannot open", name);
113                 return ((TIFF*)0);
114         }
115         return (TIFFFdOpen(fd, name, mode));
116
117         ret = TIFFFdOpen(fd, name, mode);
118
119         if (ret == NULL) close(fd);
120
121         return ret;
122 }
123
124 #ifdef __GNUC__
125 extern  char* malloc();
126 extern  char* realloc();
127 #else
128 #include <malloc.h>
129 #endif
130
131 tdata_t
132 _TIFFmalloc(tsize_t s)
133 {
134         return (malloc((size_t) s));
135 }
136
137 void
138 _TIFFfree(tdata_t p)
139 {
140         free(p);
141 }
142
143 tdata_t
144 _TIFFrealloc(tdata_t p, tsize_t s)
145 {
146         return (realloc(p, (size_t) s));
147 }
148
149 void
150 _TIFFmemset(tdata_t p, int v, tsize_t c)
151 {
152         memset(p, v, (size_t) c);
153 }
154
155 void
156 _TIFFmemcpy(tdata_t d, const tdata_t s, tsize_t c)
157 {
158         memcpy(d, s, (size_t) c);
159 }
160
161 int
162 _TIFFmemcmp(const tdata_t p1, const tdata_t p2, tsize_t c)
163 {
164         return (memcmp(p1, p2, (size_t) c));
165 }
166
167 static void
168 msdosWarningHandler(const char* module, const char* fmt, va_list ap)
169 {
170         if (module != NULL)
171                 fprintf(stderr, "%s: ", module);
172         fprintf(stderr, "Warning, ");
173         vfprintf(stderr, fmt, ap);
174         fprintf(stderr, ".\n");
175 }
176 TIFFErrorHandler _TIFFwarningHandler = msdosWarningHandler;
177
178 static void
179 msdosErrorHandler(const char* module, const char* fmt, va_list ap)
180 {
181         if (module != NULL)
182                 fprintf(stderr, "%s: ", module);
183         vfprintf(stderr, fmt, ap);
184         fprintf(stderr, ".\n");
185 }
186 TIFFErrorHandler _TIFFerrorHandler = msdosErrorHandler;
187 /*
188  * Local Variables:
189  * mode: c
190  * c-basic-offset: 8
191  * fill-column: 78
192  * End:
193  */