2 * Copyright (c) 1988-1997 Sam Leffler
3 * Copyright (c) 1991-1997 Silicon Graphics, Inc.
5 * Permission to use, copy, modify, distribute, and sell this software and
6 * its documentation for any purpose is hereby granted without fee, provided
7 * that (i) the above copyright notices and this permission notice appear in
8 * all copies of the software and related documentation, and (ii) the names of
9 * Sam Leffler and Silicon Graphics may not be used in any advertising or
10 * publicity relating to the software without the specific, prior written
11 * permission of Sam Leffler and Silicon Graphics.
13 * THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND,
14 * EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY
15 * WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
17 * IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR
18 * ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
19 * OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
20 * WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF
21 * LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
31 /************************************************************************/
33 /************************************************************************/
36 * Auxiliary function to free the TIFF structure. Given structure will be
37 * completely freed, so you should save opened file handle and pointer
38 * to the close procedure in external variables before calling
39 * _TIFFCleanup(), if you will need these ones to close the file.
41 * @param tif A TIFF pointer.
45 TIFFCleanup(TIFF
* tif
)
48 * Flush buffered data and directory (if dirty).
50 if (tif
->tif_mode
!= O_RDONLY
)
52 (*tif
->tif_cleanup
)(tif
);
53 TIFFFreeDirectory(tif
);
56 _TIFFfree(tif
->tif_dirlist
);
59 * Clean up client info links.
61 while( tif
->tif_clientinfo
)
63 TIFFClientInfoLink
*psLink
= tif
->tif_clientinfo
;
65 tif
->tif_clientinfo
= psLink
->next
;
66 _TIFFfree( psLink
->name
);
70 if (tif
->tif_rawdata
&& (tif
->tif_flags
&TIFF_MYBUFFER
))
71 _TIFFfree(tif
->tif_rawdata
);
73 TIFFUnmapFileContents(tif
, tif
->tif_base
, (toff_t
)tif
->tif_size
);
76 * Clean up custom fields.
78 if (tif
->tif_fields
&& tif
->tif_nfields
> 0) {
81 for (i
= 0; i
< tif
->tif_nfields
; i
++) {
82 TIFFField
*fld
= tif
->tif_fields
[i
];
83 if (fld
->field_bit
== FIELD_CUSTOM
&&
84 strncmp("Tag ", fld
->field_name
, 4) == 0) {
85 _TIFFfree(fld
->field_name
);
90 _TIFFfree(tif
->tif_fields
);
93 if (tif
->tif_nfieldscompat
> 0) {
96 for (i
= 0; i
< tif
->tif_nfieldscompat
; i
++) {
97 if (tif
->tif_fieldscompat
[i
].allocated_size
)
98 _TIFFfree(tif
->tif_fieldscompat
[i
].fields
);
100 _TIFFfree(tif
->tif_fieldscompat
);
106 /************************************************************************/
108 /************************************************************************/
111 * Close a previously opened TIFF file.
113 * TIFFClose closes a file that was previously opened with TIFFOpen().
114 * Any buffered data are flushed to the file, including the contents of
115 * the current directory (if modified); and all resources are reclaimed.
117 * @param tif A TIFF pointer.
123 TIFFCloseProc closeproc
= tif
->tif_closeproc
;
124 thandle_t fd
= tif
->tif_clientdata
;
127 (void) (*closeproc
)(fd
);
130 /* vim: set ts=8 sts=8 sw=8 noet: */