text: /* $Header: /cvsroot/opencvlibrary/opencv/otherlibs/_graphics/src/libtiff/tif_close.c,v 1.1 2005/06/17 13:54:52 vp153 Exp $ */
  
  /*
   * Copyright (c) 1988-1997 Sam Leffler
   * Copyright (c) 1991-1997 Silicon Graphics, Inc.
   *
   * Permission to use, copy, modify, distribute, and sell this software and 
   * its documentation for any purpose is hereby granted without fee, provided
   * that (i) the above copyright notices and this permission notice appear in
   * all copies of the software and related documentation, and (ii) the names of
   * Sam Leffler and Silicon Graphics may not be used in any advertising or
   * publicity relating to the software without the specific, prior written
   * permission of Sam Leffler and Silicon Graphics.
   * 
   * THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND, 
   * EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY 
   * WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.  
   * 
   * IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR
   * ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
   * OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
   * WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF 
   * LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE 
   * OF THIS SOFTWARE.
   */
  
  /*
   * TIFF Library.
   */
  #include "tiffiop.h"
  
  /************************************************************************/
  /*                            TIFFCleanup()                             */
  /************************************************************************/
  
  /**
   * Auxiliary function to free the TIFF structure. Given structure will be
   * completetly freed, so you should save opened file handle and pointer
   * to the close procedure in external variables before calling
   * _TIFFCleanup(), if you will need these ones to close the file.
   * 
   * @param tif A TIFF pointer.
   */
  
  void
  TIFFCleanup(TIFF* tif)
  {
  	if (tif->tif_mode != O_RDONLY)
  	    /*
  	     * Flush buffered data and directory (if dirty).
  	     */
  	    TIFFFlush(tif);
  	(*tif->tif_cleanup)(tif);
  	TIFFFreeDirectory(tif);
  
  	if (tif->tif_dirlist)
  	    _TIFFfree(tif->tif_dirlist);
  	    
  	/* Clean up client info links */
  	while( tif->tif_clientinfo )
  	{
  	    TIFFClientInfoLink *link = tif->tif_clientinfo;
  
  	    tif->tif_clientinfo = link->next;
  	    _TIFFfree( link->name );
  	    _TIFFfree( link );
  	}
  
  	if (tif->tif_rawdata && (tif->tif_flags&TIFF_MYBUFFER))
  	    _TIFFfree(tif->tif_rawdata);
  	if (isMapped(tif))
  	    TIFFUnmapFileContents(tif, tif->tif_base, tif->tif_size);
  
  	/* Clean up custom fields */
  	if (tif->tif_nfields > 0) 
  	{
  	    int  i;
  
  	    for (i = 0; i < tif->tif_nfields; i++) 
  	    {
  		TIFFFieldInfo *fld = tif->tif_fieldinfo[i];
  		if (fld->field_bit == FIELD_CUSTOM && 
  		    strncmp("Tag ", fld->field_name, 4) == 0) 
  		{
  		    _TIFFfree(fld->field_name);
  		    _TIFFfree(fld);
  		}
  	    }   
  	  
  	    _TIFFfree(tif->tif_fieldinfo);
  	}
  
  	_TIFFfree(tif);
  }
  
  /************************************************************************/
  /*                            TIFFClose()                               */
  /************************************************************************/
  
  /**
   * Close a previously opened TIFF file.
   *
   * TIFFClose closes a file that was previously opened with TIFFOpen().
   * Any buffered data are flushed to the file, including the contents of
   * the current directory (if modified); and all resources are reclaimed.
   * 
   * @param tif A TIFF pointer.
   */
  
  void
  TIFFClose(TIFF* tif)
  {
  	TIFFCloseProc closeproc = tif->tif_closeproc;
  	thandle_t fd = tif->tif_clientdata;
  
  	TIFFCleanup(tif);
  	(void) (*closeproc)(fd);
  }
  
  