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.
29 */
30#include "tiffiop.h"
31
32void
33TIFFClose(TIFF* tif)
34{
35    if (tif->tif_mode != O_RDONLY)
36        /*
37         * Flush buffered data and directory (if dirty).
38         */
39        TIFFFlush(tif);
40    (*tif->tif_cleanup)(tif);
41    TIFFFreeDirectory(tif);
42
43    if (tif->tif_dirlist)
44        _TIFFfree(tif->tif_dirlist);
45
46    /* Clean up client info links */
47    while( tif->tif_clientinfo )
48    {
49        TIFFClientInfoLink *link = tif->tif_clientinfo;
50
51        tif->tif_clientinfo = link->next;
52        _TIFFfree( link->name );
53        _TIFFfree( link );
54    }
55
56    if (tif->tif_rawdata && (tif->tif_flags&TIFF_MYBUFFER))
57        _TIFFfree(tif->tif_rawdata);
58    if (isMapped(tif))
59        TIFFUnmapFileContents(tif, tif->tif_base, tif->tif_size);
60    (void) TIFFCloseFile(tif);
61    if (tif->tif_nfields > 0)
62    {
63        int  i;
64
65        for (i = 0; i < tif->tif_nfields; i++)
66	{
67	    TIFFFieldInfo *fld = tif->tif_fieldinfo[i];
68 	    if (fld->field_bit == FIELD_CUSTOM &&
69		strncmp("Tag ", fld->field_name, 4) == 0)
70	    {
71                _TIFFfree(fld->field_name);
72                _TIFFfree(fld);
73	    }
74        }
75
76        _TIFFfree(tif->tif_fieldinfo);
77    }
78
79    _TIFFfree(tif);
80}
81