1/* close.c - Close the "original" style database. */
2
3/*  This file is part of GDBM, the GNU data base manager, by Philip A. Nelson.
4    Copyright (C) 1993  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 2, 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 original 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
27    The author of this file is:
28       e-mail:  downsj@downsj.com
29
30*************************************************************************/
31
32
33/* include system configuration before all else. */
34#include "autoconf.h"
35
36#include "gdbmdefs.h"
37#include "extern.h"
38
39
40/* it's unclear whether dbmclose() is *always* a void function in old
41   C libraries. we use int, here. */
42
43int
44dbmclose()
45{
46  if (_gdbm_file != NULL)
47    {
48      gdbm_close (_gdbm_file);
49      _gdbm_file = NULL;
50      if (_gdbm_memory.dptr != NULL) free(_gdbm_memory.dptr);
51      _gdbm_memory.dptr = NULL;
52      _gdbm_memory.dsize = 0;
53    }
54  return (0);
55}
56