home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / rcs / sources / gdbmclos.c < prev    next >
C/C++ Source or Header  |  1991-05-23  |  2KB  |  59 lines
  1. /* gdbmclose.c - Close a previously opened dbm file. */
  2.  
  3. /*  This file is part of GDBM, the GNU data base manager, by Philip A. Nelson.
  4.     Copyright (C) 1990, 1991  Free Software Foundation, Inc.
  5.  
  6.     GDBM is free software; you can redistribute it and/or modify
  7.     it under the terms of the GNU General Public License as published by
  8.     the Free Software Foundation; either version 1, or (at your option)
  9.     any later version.
  10.  
  11.     GDBM is distributed in the hope that it will be useful,
  12.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14.     GNU General Public License for more details.
  15.  
  16.     You should have received a copy of the GNU General Public License
  17.     along with GDBM; see the file COPYING.  If not, write to
  18.     the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  19.  
  20.     You may contact the author by:
  21.        e-mail:  phil@cs.wwu.edu
  22.       us-mail:  Philip A. Nelson
  23.                 Computer Science Department
  24.                 Western Washington University
  25.                 Bellingham, WA 98226
  26.         phone:  (206) 676-3035
  27.  
  28. *************************************************************************/
  29.  
  30.  
  31.  
  32. #include "gdbmdefs.h"
  33.  
  34. /* Close the dbm file and free all memory associated with the file DBF.
  35.    Before freeing members of DBF, check and make sure that they were
  36.    allocated.  */
  37.  
  38. void
  39. gdbm_close (dbf)
  40.      gdbm_file_info *dbf;
  41. {
  42.   int index;        /* For freeing the bucket cache. */
  43.  
  44.   /* Close the file and free all malloced memory. */
  45.   UNLOCK_FILE(dbf);
  46.   close (dbf->desc);
  47.   free (dbf->name);
  48.   if (dbf->dir != NULL) free (dbf->dir);
  49.   for (index = 0; index < CACHE_SIZE; index++)
  50.     {
  51.       if (dbf->bucket_cache[index].ca_bucket != NULL)
  52.     free (dbf->bucket_cache[index].ca_bucket);
  53.       if (dbf->bucket_cache[index].ca_data.dptr != NULL)
  54.     free (dbf->bucket_cache[index].ca_data.dptr);
  55.     }
  56.   if ( dbf->header != NULL ) free (dbf->header);
  57.   free (dbf);
  58. }
  59.