3rdparty/libjpeg/jmemmac.c

/*
 * jmemmac.c
 *
 * Copyright (C) 1992-1997, Thomas G. Lane.
 * This file is part of the Independent JPEG Group's software.
 * For conditions of distribution and use, see the accompanying README file.
 *
 * jmemmac.c provides an Apple Macintosh implementation of the system-
 * dependent portion of the JPEG memory manager.
 *
 * If you use jmemmac.c, then you must define USE_MAC_MEMMGR in the
 * JPEG_INTERNALS part of jconfig.h.
 *
 * jmemmac.c uses the Macintosh toolbox routines NewPtr and DisposePtr
 * instead of malloc and free.  It accurately determines the amount of
 * memory available by using CompactMem.  Notice that if left to its
 * own devices, this code can chew up all available space in the
 * application's zone, with the exception of the rather small "slop"
 * factor computed in jpeg_mem_available().  The application can ensure
 * that more space is left over by reducing max_memory_to_use.
 *
 * Large images are swapped to disk using temporary files and System 7.0+'s
 * temporary folder functionality.
 *
 * Note that jmemmac.c depends on two features of MacOS that were first
 * introduced in System 7: FindFolder and the FSSpec-based calls.
 * If your application uses jmemmac.c and is run under System 6 or earlier,
 * and the jpeg library decides it needs a temporary file, it will abort,
 * printing error messages about requiring System 7.  (If no temporary files
 * are created, it will run fine.)
 *
 * If you want to use jmemmac.c in an application that might be used with
 * System 6 or earlier, then you should remove dependencies on FindFolder
 * and the FSSpec calls.  You will need to replace FindFolder with some
 * other mechanism for finding a place to put temporary files, and you
 * should replace the FSSpec calls with their HFS equivalents:
 *
 *     FSpDelete     ->  HDelete
 *     FSpGetFInfo   ->  HGetFInfo
 *     FSpCreate     ->  HCreate
 *     FSpOpenDF     ->  HOpen      *** Note: not HOpenDF ***
 *     FSMakeFSSpec  ->  (fill in spec by hand.)
 *
 * (Use HOpen instead of HOpenDF.  HOpen is just a glue-interface to PBHOpen,
 * which is on all HFS macs.  HOpenDF is a System 7 addition which avoids the
 * ages-old problem of names starting with a period.)
 *
 * Contributed by Sam Bushell (jsam@iagu.on.net) and
 * Dan Gildor (gyld@in-touch.com).
 */

#define JPEG_INTERNALS
#include "jinclude.h"
#include "jpeglib.h"
#include "jmemsys.h"    /* import the system-dependent declarations */

#ifndef USE_MAC_MEMMGR  /* make sure user got configuration right */
  You forgot to define USE_MAC_MEMMGR in jconfig.h. /* deliberate syntax error */
#endif

#include <Memory.h>     /* we use the MacOS memory manager */
#include <Files.h>      /* we use the MacOS File stuff */
#include <Folders.h>    /* we use the MacOS HFS stuff */
#include <Script.h>     /* for smSystemScript */
#include <Gestalt.h>    /* we use Gestalt to test for specific functionality */

#ifndef TEMP_FILE_NAME          /* can override from jconfig.h or Makefile */
#define TEMP_FILE_NAME  "JPG%03d.TMP"
#endif

static int next_file_num;       /* to distinguish among several temp files */


/*
 * Memory allocation and freeing are controlled by the MacOS library
 * routines NewPtr() and DisposePtr(), which allocate fixed-address
 * storage.  Unfortunately, the IJG library isn't smart enough to cope
 * with relocatable storage.
 */

GLOBAL(void *)
jpeg_get_small (j_common_ptr cinfo, size_t sizeofobject)
{
  return (void *) NewPtr(sizeofobject);
}

GLOBAL(void)
jpeg_free_small (j_common_ptr cinfo, void * object, size_t sizeofobject)
{
  DisposePtr((Ptr) object);
}


/*
 * "Large" objects are treated the same as "small" ones.
 * NB: we include FAR keywords in the routine declarations simply for
 * consistency with the rest of the IJG code; FAR should expand to empty
 * on rational architectures like the Mac.
 */

GLOBAL(void FAR *)
jpeg_get_large (j_common_ptr cinfo, size_t sizeofobject)
{
  return (void FAR *) NewPtr(sizeofobject);
}

GLOBAL(void)
jpeg_free_large (j_common_ptr cinfo, void FAR * object, size_t sizeofobject)
{
  DisposePtr((Ptr) object);
}


/*
 * This routine computes the total memory space available for allocation.
 */

GLOBAL(long)
jpeg_mem_available (j_common_ptr cinfo, long min_bytes_needed,
                    long max_bytes_needed, long already_allocated)
{
  long limit = cinfo->mem->max_memory_to_use - already_allocated;
  long slop, mem;

  /* Don't ask for more than what application has told us we may use */
  if (max_bytes_needed > limit && limit > 0)
    max_bytes_needed = limit;
  /* Find whether there's a big enough free block in the heap.
   * CompactMem tries to create a contiguous block of the requested size,
   * and then returns the size of the largest free block (which could be
   * much more or much less than we asked for).
   * We add some slop to ensure we don't use up all available memory.
   */
  slop = max_bytes_needed / 16 + 32768L;
  mem = CompactMem(max_bytes_needed + slop) - slop;
  if (mem < 0)
    mem = 0;                    /* sigh, couldn't even get the slop */
  /* Don't take more than the application says we can have */
  if (mem > limit && limit > 0)
    mem = limit;
  return mem;
}


/*
 * Backing store (temporary file) management.
 * Backing store objects are only used when the value returned by
 * jpeg_mem_available is less than the total space needed.  You can dispense
 * with these routines if you have plenty of virtual memory; see jmemnobs.c.
 */


METHODDEF(void)
read_backing_store (j_common_ptr cinfo, backing_store_ptr info,
                    void FAR * buffer_address,
                    long file_offset, long byte_count)
{
  long bytes = byte_count;
  long retVal;

  if ( SetFPos ( info->temp_file, fsFromStart, file_offset ) != noErr )
    ERREXIT(cinfo, JERR_TFILE_SEEK);

  retVal = FSRead ( info->temp_file, &bytes,
                    (unsigned char *) buffer_address );
  if ( retVal != noErr || bytes != byte_count )
    ERREXIT(cinfo, JERR_TFILE_READ);
}


METHODDEF(void)
write_backing_store (j_common_ptr cinfo, backing_store_ptr info,
                     void FAR * buffer_address,
                     long file_offset, long byte_count)
{
  long bytes = byte_count;
  long retVal;

  if ( SetFPos ( info->temp_file, fsFromStart, file_offset ) != noErr )
    ERREXIT(cinfo, JERR_TFILE_SEEK);

  retVal = FSWrite ( info->temp_file, &bytes,
                     (unsigned char *) buffer_address );
  if ( retVal != noErr || bytes != byte_count )
    ERREXIT(cinfo, JERR_TFILE_WRITE);
}


METHODDEF(void)
close_backing_store (j_common_ptr cinfo, backing_store_ptr info)
{
  FSClose ( info->temp_file );
  FSpDelete ( &(info->tempSpec) );
}


/*
 * Initial opening of a backing-store object.
 *
 * This version uses FindFolder to find the Temporary Items folder,
 * and puts the temporary file in there.
 */

GLOBAL(void)
jpeg_open_backing_store (j_common_ptr cinfo, backing_store_ptr info,
                         long total_bytes_needed)
{
  short         tmpRef, vRefNum;
  long          dirID;
  FInfo         finderInfo;
  FSSpec        theSpec;
  Str255        fName;
  OSErr         osErr;
  long          gestaltResponse = 0;

  /* Check that FSSpec calls are available. */
  osErr = Gestalt( gestaltFSAttr, &gestaltResponse );
  if ( ( osErr != noErr )
       || !( gestaltResponse & (1<<gestaltHasFSSpecCalls) ) )
    ERREXITS(cinfo, JERR_TFILE_CREATE, "- System 7.0 or later required");
  /* TO DO: add a proper error message to jerror.h. */

  /* Check that FindFolder is available. */
  osErr = Gestalt( gestaltFindFolderAttr, &gestaltResponse );
  if ( ( osErr != noErr )
       || !( gestaltResponse & (1<<gestaltFindFolderPresent) ) )
    ERREXITS(cinfo, JERR_TFILE_CREATE, "- System 7.0 or later required.");
  /* TO DO: add a proper error message to jerror.h. */

  osErr = FindFolder ( kOnSystemDisk, kTemporaryFolderType, kCreateFolder,
                       &vRefNum, &dirID );
  if ( osErr != noErr )
    ERREXITS(cinfo, JERR_TFILE_CREATE, "- temporary items folder unavailable");
  /* TO DO: Try putting the temp files somewhere else. */

  /* Keep generating file names till we find one that's not in use */
  for (;;) {
    next_file_num++;            /* advance counter */

    sprintf(info->temp_name, TEMP_FILE_NAME, next_file_num);
    strcpy ( (Ptr)fName+1, info->temp_name );
    *fName = strlen (info->temp_name);
    osErr = FSMakeFSSpec ( vRefNum, dirID, fName, &theSpec );

    if ( (osErr = FSpGetFInfo ( &theSpec, &finderInfo ) ) != noErr )
      break;
  }

  osErr = FSpCreate ( &theSpec, '????', '????', smSystemScript );
  if ( osErr != noErr )
    ERREXITS(cinfo, JERR_TFILE_CREATE, info->temp_name);

  osErr = FSpOpenDF ( &theSpec, fsRdWrPerm, &(info->temp_file) );
  if ( osErr != noErr )
    ERREXITS(cinfo, JERR_TFILE_CREATE, info->temp_name);

  info->tempSpec = theSpec;

  info->read_backing_store = read_backing_store;
  info->write_backing_store = write_backing_store;
  info->close_backing_store = close_backing_store;
  TRACEMSS(cinfo, 1, JTRC_TFILE_OPEN, info->temp_name);
}


/*
 * These routines take care of any system-dependent initialization and
 * cleanup required.
 */

GLOBAL(long)
jpeg_mem_init (j_common_ptr cinfo)
{
  next_file_num = 0;

  /* max_memory_to_use will be initialized to FreeMem()'s result;
   * the calling application might later reduce it, for example
   * to leave room to invoke multiple JPEG objects.
   * Note that FreeMem returns the total number of free bytes;
   * it may not be possible to allocate a single block of this size.
   */
  return FreeMem();
}

GLOBAL(void)
jpeg_mem_term (j_common_ptr cinfo)
{
  /* no work */
}
1	/*
2	* jmemmac.c
3	*
4	* Copyright (C) 1992-1997, Thomas G. Lane.
5	* This file is part of the Independent JPEG Group's software.
6	* For conditions of distribution and use, see the accompanying README file.
7	*
8	* jmemmac.c provides an Apple Macintosh implementation of the system-
9	* dependent portion of the JPEG memory manager.
10	*
11	* If you use jmemmac.c, then you must define USE_MAC_MEMMGR in the
12	* JPEG_INTERNALS part of jconfig.h.
13	*
14	* jmemmac.c uses the Macintosh toolbox routines NewPtr and DisposePtr
15	* instead of malloc and free. It accurately determines the amount of
16	* memory available by using CompactMem. Notice that if left to its
17	* own devices, this code can chew up all available space in the
18	* application's zone, with the exception of the rather small "slop"
19	* factor computed in jpeg_mem_available(). The application can ensure
20	* that more space is left over by reducing max_memory_to_use.
21	*
22	* Large images are swapped to disk using temporary files and System 7.0+'s
23	* temporary folder functionality.
24	*
25	* Note that jmemmac.c depends on two features of MacOS that were first
26	* introduced in System 7: FindFolder and the FSSpec-based calls.
27	* If your application uses jmemmac.c and is run under System 6 or earlier,
28	* and the jpeg library decides it needs a temporary file, it will abort,
29	* printing error messages about requiring System 7. (If no temporary files
30	* are created, it will run fine.)
31	*
32	* If you want to use jmemmac.c in an application that might be used with
33	* System 6 or earlier, then you should remove dependencies on FindFolder
34	* and the FSSpec calls. You will need to replace FindFolder with some
35	* other mechanism for finding a place to put temporary files, and you
36	* should replace the FSSpec calls with their HFS equivalents:
37	*
38	* FSpDelete -> HDelete
39	* FSpGetFInfo -> HGetFInfo
40	* FSpCreate -> HCreate
41	* FSpOpenDF -> HOpen * Note: not HOpenDF *
42	* FSMakeFSSpec -> (fill in spec by hand.)
43	*
44	* (Use HOpen instead of HOpenDF. HOpen is just a glue-interface to PBHOpen,
45	* which is on all HFS macs. HOpenDF is a System 7 addition which avoids the
46	* ages-old problem of names starting with a period.)
47	*
48	* Contributed by Sam Bushell (jsam@iagu.on.net) and
49	* Dan Gildor (gyld@in-touch.com).
50	*/
51
52	#define JPEG_INTERNALS
53	#include "jinclude.h"
54	#include "jpeglib.h"
55	#include "jmemsys.h" /* import the system-dependent declarations */
56
57	#ifndef USE_MAC_MEMMGR /* make sure user got configuration right */
58	You forgot to define USE_MAC_MEMMGR in jconfig.h. /* deliberate syntax error */
59	#endif
60
61	#include <Memory.h> /* we use the MacOS memory manager */
62	#include <Files.h> /* we use the MacOS File stuff */
63	#include <Folders.h> /* we use the MacOS HFS stuff */
64	#include <Script.h> /* for smSystemScript */
65	#include <Gestalt.h> /* we use Gestalt to test for specific functionality */
66
67	#ifndef TEMP_FILE_NAME /* can override from jconfig.h or Makefile */
68	#define TEMP_FILE_NAME "JPG%03d.TMP"
69	#endif
70
71	static int next_file_num; /* to distinguish among several temp files */
72
73
74	/*
75	* Memory allocation and freeing are controlled by the MacOS library
76	* routines NewPtr() and DisposePtr(), which allocate fixed-address
77	* storage. Unfortunately, the IJG library isn't smart enough to cope
78	* with relocatable storage.
79	*/
80
81	GLOBAL(void *)
82	jpeg_get_small (j_common_ptr cinfo, size_t sizeofobject)
83	{
84	return (void *) NewPtr(sizeofobject);
85	}
86
87	GLOBAL(void)
88	jpeg_free_small (j_common_ptr cinfo, void * object, size_t sizeofobject)
89	{
90	DisposePtr((Ptr) object);
91	}
92
93
94	/*
95	* "Large" objects are treated the same as "small" ones.
96	* NB: we include FAR keywords in the routine declarations simply for
97	* consistency with the rest of the IJG code; FAR should expand to empty
98	* on rational architectures like the Mac.
99	*/
100
101	GLOBAL(void FAR *)
102	jpeg_get_large (j_common_ptr cinfo, size_t sizeofobject)
103	{
104	return (void FAR *) NewPtr(sizeofobject);
105	}
106
107	GLOBAL(void)
108	jpeg_free_large (j_common_ptr cinfo, void FAR * object, size_t sizeofobject)
109	{
110	DisposePtr((Ptr) object);
111	}
112
113
114	/*
115	* This routine computes the total memory space available for allocation.
116	*/
117
118	GLOBAL(long)
119	jpeg_mem_available (j_common_ptr cinfo, long min_bytes_needed,
120	long max_bytes_needed, long already_allocated)
121	{
122	long limit = cinfo->mem->max_memory_to_use - already_allocated;
123	long slop, mem;
124
125	/* Don't ask for more than what application has told us we may use */
126	if (max_bytes_needed > limit && limit > 0)
127	max_bytes_needed = limit;
128	/* Find whether there's a big enough free block in the heap.
129	* CompactMem tries to create a contiguous block of the requested size,
130	* and then returns the size of the largest free block (which could be
131	* much more or much less than we asked for).
132	* We add some slop to ensure we don't use up all available memory.
133	*/
134	slop = max_bytes_needed / 16 + 32768L;
135	mem = CompactMem(max_bytes_needed + slop) - slop;
136	if (mem < 0)
137	mem = 0; /* sigh, couldn't even get the slop */
138	/* Don't take more than the application says we can have */
139	if (mem > limit && limit > 0)
140	mem = limit;
141	return mem;
142	}
143
144
145	/*
146	* Backing store (temporary file) management.
147	* Backing store objects are only used when the value returned by
148	* jpeg_mem_available is less than the total space needed. You can dispense
149	* with these routines if you have plenty of virtual memory; see jmemnobs.c.
150	*/
151
152
153	METHODDEF(void)
154	read_backing_store (j_common_ptr cinfo, backing_store_ptr info,
155	void FAR * buffer_address,
156	long file_offset, long byte_count)
157	{
158	long bytes = byte_count;
159	long retVal;
160
161	if ( SetFPos ( info->temp_file, fsFromStart, file_offset ) != noErr )
162	ERREXIT(cinfo, JERR_TFILE_SEEK);
163
164	retVal = FSRead ( info->temp_file, &bytes,
165	(unsigned char *) buffer_address );
166	if ( retVal != noErr \|\| bytes != byte_count )
167	ERREXIT(cinfo, JERR_TFILE_READ);
168	}
169
170
171	METHODDEF(void)
172	write_backing_store (j_common_ptr cinfo, backing_store_ptr info,
173	void FAR * buffer_address,
174	long file_offset, long byte_count)
175	{
176	long bytes = byte_count;
177	long retVal;
178
179	if ( SetFPos ( info->temp_file, fsFromStart, file_offset ) != noErr )
180	ERREXIT(cinfo, JERR_TFILE_SEEK);
181
182	retVal = FSWrite ( info->temp_file, &bytes,
183	(unsigned char *) buffer_address );
184	if ( retVal != noErr \|\| bytes != byte_count )
185	ERREXIT(cinfo, JERR_TFILE_WRITE);
186	}
187
188
189	METHODDEF(void)
190	close_backing_store (j_common_ptr cinfo, backing_store_ptr info)
191	{
192	FSClose ( info->temp_file );
193	FSpDelete ( &(info->tempSpec) );
194	}
195
196
197	/*
198	* Initial opening of a backing-store object.
199	*
200	* This version uses FindFolder to find the Temporary Items folder,
201	* and puts the temporary file in there.
202	*/
203
204	GLOBAL(void)
205	jpeg_open_backing_store (j_common_ptr cinfo, backing_store_ptr info,
206	long total_bytes_needed)
207	{
208	short tmpRef, vRefNum;
209	long dirID;
210	FInfo finderInfo;
211	FSSpec theSpec;
212	Str255 fName;
213	OSErr osErr;
214	long gestaltResponse = 0;
215
216	/* Check that FSSpec calls are available. */
217	osErr = Gestalt( gestaltFSAttr, &gestaltResponse );
218	if ( ( osErr != noErr )
219	\|\| !( gestaltResponse & (1<<gestaltHasFSSpecCalls) ) )
220	ERREXITS(cinfo, JERR_TFILE_CREATE, "- System 7.0 or later required");
221	/* TO DO: add a proper error message to jerror.h. */
222
223	/* Check that FindFolder is available. */
224	osErr = Gestalt( gestaltFindFolderAttr, &gestaltResponse );
225	if ( ( osErr != noErr )
226	\|\| !( gestaltResponse & (1<<gestaltFindFolderPresent) ) )
227	ERREXITS(cinfo, JERR_TFILE_CREATE, "- System 7.0 or later required.");
228	/* TO DO: add a proper error message to jerror.h. */
229
230	osErr = FindFolder ( kOnSystemDisk, kTemporaryFolderType, kCreateFolder,
231	&vRefNum, &dirID );
232	if ( osErr != noErr )
233	ERREXITS(cinfo, JERR_TFILE_CREATE, "- temporary items folder unavailable");
234	/* TO DO: Try putting the temp files somewhere else. */
235
236	/* Keep generating file names till we find one that's not in use */
237	for (;;) {
238	next_file_num++; /* advance counter */
239
240	sprintf(info->temp_name, TEMP_FILE_NAME, next_file_num);
241	strcpy ( (Ptr)fName+1, info->temp_name );
242	*fName = strlen (info->temp_name);
243	osErr = FSMakeFSSpec ( vRefNum, dirID, fName, &theSpec );
244
245	if ( (osErr = FSpGetFInfo ( &theSpec, &finderInfo ) ) != noErr )
246	break;
247	}
248
249	osErr = FSpCreate ( &theSpec, '????', '????', smSystemScript );
250	if ( osErr != noErr )
251	ERREXITS(cinfo, JERR_TFILE_CREATE, info->temp_name);
252
253	osErr = FSpOpenDF ( &theSpec, fsRdWrPerm, &(info->temp_file) );
254	if ( osErr != noErr )
255	ERREXITS(cinfo, JERR_TFILE_CREATE, info->temp_name);
256
257	info->tempSpec = theSpec;
258
259	info->read_backing_store = read_backing_store;
260	info->write_backing_store = write_backing_store;
261	info->close_backing_store = close_backing_store;
262	TRACEMSS(cinfo, 1, JTRC_TFILE_OPEN, info->temp_name);
263	}
264
265
266	/*
267	* These routines take care of any system-dependent initialization and
268	* cleanup required.
269	*/
270
271	GLOBAL(long)
272	jpeg_mem_init (j_common_ptr cinfo)
273	{
274	next_file_num = 0;
275
276	/* max_memory_to_use will be initialized to FreeMem()'s result;
277	* the calling application might later reduce it, for example
278	* to leave room to invoke multiple JPEG objects.
279	* Note that FreeMem returns the total number of free bytes;
280	* it may not be possible to allocate a single block of this size.
281	*/
282	return FreeMem();
283	}
284
285	GLOBAL(void)
286	jpeg_mem_term (j_common_ptr cinfo)
287	{
288	/* no work */
289	}