]> git.saurik.com Git - wxWidgets.git/blame - src/tiff/tif_apple.c
only call GSocket_Init() when needed and do call it before using GAddress_XXX
[wxWidgets.git] / src / tiff / tif_apple.c
CommitLineData
b47c832e
RR
1/* $Header$ */
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 Macintosh-specific routines.
29 *
30 * These routines use only Toolbox and high-level File Manager traps.
31 * They make no calls to the THINK C "unix" compatibility library. Also,
32 * malloc is not used directly but it is still referenced internally by
33 * the ANSI library in rare cases. Heap fragmentation by the malloc ring
34 * buffer is therefore minimized.
35 *
36 * O_RDONLY and O_RDWR are treated identically here. The tif_mode flag is
37 * checked in TIFFWriteCheck().
38 *
39 * Create below fills in a blank creator signature and sets the file type
40 * to 'TIFF'. It is much better for the application to do this by Create'ing
41 * the file first and TIFFOpen'ing it later.
42 */
43
44#include "tiffiop.h"
45#include <Errors.h>
46#include <Files.h>
47#include <Memory.h>
48
49#if defined(__PPCC__) || defined(__SC__) || defined(__MRC__) || defined(applec)
50#define CtoPstr c2pstr
51#endif
52
53static tsize_t
54_tiffReadProc(thandle_t fd, tdata_t buf, tsize_t size)
55{
56 return (FSRead((short) fd, (long*) &size, (char*) buf) == noErr ?
57 size : (tsize_t) -1);
58}
59
60static tsize_t
61_tiffWriteProc(thandle_t fd, tdata_t buf, tsize_t size)
62{
63 return (FSWrite((short) fd, (long*) &size, (char*) buf) == noErr ?
64 size : (tsize_t) -1);
65}
66
67static toff_t
68_tiffSeekProc(thandle_t fd, toff_t off, int whence)
69{
70 long fpos, size;
71
72 if (GetEOF((short) fd, &size) != noErr)
73 return EOF;
74 (void) GetFPos((short) fd, &fpos);
75
76 switch (whence) {
77 case SEEK_CUR:
78 if (off + fpos > size)
79 SetEOF((short) fd, off + fpos);
80 if (SetFPos((short) fd, fsFromMark, off) != noErr)
81 return EOF;
82 break;
83 case SEEK_END:
84 if (off > 0)
85 SetEOF((short) fd, off + size);
86 if (SetFPos((short) fd, fsFromStart, off + size) != noErr)
87 return EOF;
88 break;
89 case SEEK_SET:
90 if (off > size)
91 SetEOF((short) fd, off);
92 if (SetFPos((short) fd, fsFromStart, off) != noErr)
93 return EOF;
94 break;
95 }
96
97 return (toff_t)(GetFPos((short) fd, &fpos) == noErr ? fpos : EOF);
98}
99
100static int
101_tiffMapProc(thandle_t fd, tdata_t* pbase, toff_t* psize)
102{
103 return (0);
104}
105
106static void
107_tiffUnmapProc(thandle_t fd, tdata_t base, toff_t size)
108{
109}
110
111static int
112_tiffCloseProc(thandle_t fd)
113{
114 return (FSClose((short) fd));
115}
116
117static toff_t
118_tiffSizeProc(thandle_t fd)
119{
120 long size;
121
122 if (GetEOF((short) fd, &size) != noErr) {
123 TIFFError("_tiffSizeProc", "%s: Cannot get file size");
124 return (-1L);
125 }
126 return ((toff_t) size);
127}
128
129/*
130 * Open a TIFF file descriptor for read/writing.
131 */
132TIFF*
133TIFFFdOpen(int fd, const char* name, const char* mode)
134{
135 TIFF* tif;
136
137 tif = TIFFClientOpen(name, mode, (thandle_t) fd,
138 _tiffReadProc, _tiffWriteProc, _tiffSeekProc, _tiffCloseProc,
139 _tiffSizeProc, _tiffMapProc, _tiffUnmapProc);
140 if (tif)
141 tif->tif_fd = fd;
142 return (tif);
143}
144
145/*
146 * Open a TIFF file for read/writing.
147 */
148TIFF*
149TIFFOpen(const char* name, const char* mode)
150{
151 static const char module[] = "TIFFOpen";
152 Str255 pname;
153 FInfo finfo;
154 short fref;
155 OSErr err;
156
157 strcpy((char*) pname, name);
158 CtoPstr((char*) pname);
159
160 switch (_TIFFgetMode(mode, module)) {
161 default:
162 return ((TIFF*) 0);
163 case O_RDWR | O_CREAT | O_TRUNC:
164 if (GetFInfo(pname, 0, &finfo) == noErr)
165 FSDelete(pname, 0);
166 /* fall through */
167 case O_RDWR | O_CREAT:
168 if ((err = GetFInfo(pname, 0, &finfo)) == fnfErr) {
169 if (Create(pname, 0, ' ', 'TIFF') != noErr)
170 goto badCreate;
171 if (FSOpen(pname, 0, &fref) != noErr)
172 goto badOpen;
173 } else if (err == noErr) {
174 if (FSOpen(pname, 0, &fref) != noErr)
175 goto badOpen;
176 } else
177 goto badOpen;
178 break;
179 case O_RDONLY:
180 case O_RDWR:
181 if (FSOpen(pname, 0, &fref) != noErr)
182 goto badOpen;
183 break;
184 }
185 return (TIFFFdOpen((int) fref, name, mode));
186badCreate:
187 TIFFError(module, "%s: Cannot create", name);
188 return ((TIFF*) 0);
189badOpen:
190 TIFFError(module, "%s: Cannot open", name);
191 return ((TIFF*) 0);
192}
193
194void
195_TIFFmemset(tdata_t p, int v, tsize_t c)
196{
197 memset(p, v, (size_t) c);
198}
199
200void
201_TIFFmemcpy(tdata_t d, const tdata_t s, tsize_t c)
202{
203 memcpy(d, s, (size_t) c);
204}
205
206int
207_TIFFmemcmp(const tdata_t p1, const tdata_t p2, tsize_t c)
208{
209 return (memcmp(p1, p2, (size_t) c));
210}
211
212tdata_t
213_TIFFmalloc(tsize_t s)
214{
215 return (NewPtr((size_t) s));
216}
217
218void
219_TIFFfree(tdata_t p)
220{
221 DisposePtr(p);
222}
223
224tdata_t
225_TIFFrealloc(tdata_t p, tsize_t s)
226{
227 Ptr n = p;
228
229 SetPtrSize(p, (size_t) s);
230 if (MemError() && (n = NewPtr((size_t) s)) != NULL) {
231 BlockMove(p, n, GetPtrSize(p));
232 DisposePtr(p);
233 }
234 return ((tdata_t) n);
235}
236
237static void
238appleWarningHandler(const char* module, const char* fmt, va_list ap)
239{
240 if (module != NULL)
241 fprintf(stderr, "%s: ", module);
242 fprintf(stderr, "Warning, ");
243 vfprintf(stderr, fmt, ap);
244 fprintf(stderr, ".\n");
245}
246TIFFErrorHandler _TIFFwarningHandler = appleWarningHandler;
247
248static void
249appleErrorHandler(const char* module, const char* fmt, va_list ap)
250{
251 if (module != NULL)
252 fprintf(stderr, "%s: ", module);
253 vfprintf(stderr, fmt, ap);
254 fprintf(stderr, ".\n");
255}
256TIFFErrorHandler _TIFFerrorHandler = appleErrorHandler;