Update to 2.0.0 tree from current Fremantle build
[opencv] / 3rdparty / libtiff / tif_close.c
1 /* $Header: /home/vp/work/opencv-cvsbackup/opencv/3rdparty/libtiff/tif_close.c,v 1.1 2005-06-17 13:54:52 vp153 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.
29  */
30 #include "tiffiop.h"
31
32 /************************************************************************/
33 /*                            TIFFCleanup()                             */
34 /************************************************************************/
35
36 /**
37  * Auxiliary function to free the TIFF structure. Given structure will be
38  * completetly freed, so you should save opened file handle and pointer
39  * to the close procedure in external variables before calling
40  * _TIFFCleanup(), if you will need these ones to close the file.
41  * 
42  * @param tif A TIFF pointer.
43  */
44
45 void
46 TIFFCleanup(TIFF* tif)
47 {
48         if (tif->tif_mode != O_RDONLY)
49             /*
50              * Flush buffered data and directory (if dirty).
51              */
52             TIFFFlush(tif);
53         (*tif->tif_cleanup)(tif);
54         TIFFFreeDirectory(tif);
55
56         if (tif->tif_dirlist)
57             _TIFFfree(tif->tif_dirlist);
58             
59         /* Clean up client info links */
60         while( tif->tif_clientinfo )
61         {
62             TIFFClientInfoLink *link = tif->tif_clientinfo;
63
64             tif->tif_clientinfo = link->next;
65             _TIFFfree( link->name );
66             _TIFFfree( link );
67         }
68
69         if (tif->tif_rawdata && (tif->tif_flags&TIFF_MYBUFFER))
70             _TIFFfree(tif->tif_rawdata);
71         if (isMapped(tif))
72             TIFFUnmapFileContents(tif, tif->tif_base, tif->tif_size);
73
74         /* Clean up custom fields */
75         if (tif->tif_nfields > 0) 
76         {
77             int  i;
78
79             for (i = 0; i < tif->tif_nfields; i++) 
80             {
81                 TIFFFieldInfo *fld = tif->tif_fieldinfo[i];
82                 if (fld->field_bit == FIELD_CUSTOM && 
83                     strncmp("Tag ", fld->field_name, 4) == 0) 
84                 {
85                     _TIFFfree(fld->field_name);
86                     _TIFFfree(fld);
87                 }
88             }   
89           
90             _TIFFfree(tif->tif_fieldinfo);
91         }
92
93         _TIFFfree(tif);
94 }
95
96 /************************************************************************/
97 /*                            TIFFClose()                               */
98 /************************************************************************/
99
100 /**
101  * Close a previously opened TIFF file.
102  *
103  * TIFFClose closes a file that was previously opened with TIFFOpen().
104  * Any buffered data are flushed to the file, including the contents of
105  * the current directory (if modified); and all resources are reclaimed.
106  * 
107  * @param tif A TIFF pointer.
108  */
109
110 void
111 TIFFClose(TIFF* tif)
112 {
113         TIFFCloseProc closeproc = tif->tif_closeproc;
114         thandle_t fd = tif->tif_clientdata;
115
116         TIFFCleanup(tif);
117         (void) (*closeproc)(fd);
118 }
119