home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MISC / GNU / GDBM14AS.ZIP / GDBMDELE.C < prev    next >
Encoding:
C/C++ Source or Header  |  1992-02-22  |  4.6 KB  |  144 lines
  1. /* gdbmdelete.c - Remove the key and its associated data from the database. */
  2.  
  3. /*  This file is part of GDBM, the GNU data base manager, by Philip A. Nelson.
  4.     Copyright (C) 1990  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@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.  * MS-DOS port (c) 1990 by Thorsten Ohl, ohl@gnu.ai.mit.edu
  32.  *
  33.  * To this port, the same copying conditions apply as to the
  34.  * original release.
  35.  *
  36.  * IMPORTANT:
  37.  * This file is not identical to the original GNU release!
  38.  * You should have received this code as patch to the official
  39.  * GNU release.
  40.  *
  41.  * MORE IMPORTANT:
  42.  * This port comes with ABSOLUTELY NO WARRANTY.
  43.  *
  44.  * $Header: e:/gnu/gdbm/RCS/gdbmdele.c'v 1.4.0.1 90/08/16 09:22:26 tho Exp $
  45.  */
  46.  
  47. #include <stdio.h>
  48. #include <sys/types.h>
  49. #ifndef MSDOS
  50. #include <sys/file.h>
  51. #endif /* not MSDOS */
  52. #include <sys/stat.h>
  53. #include "gdbmdefs.h"
  54. #include "systems.h"
  55. #include "gdbmerrno.h"
  56. extern gdbm_error gdbm_errno;
  57.  
  58. /* Remove the KEYed item and the KEY from the database DBF.  The file on disk
  59.    is updated to reflect the structure of the new database before returning
  60.    from this procedure.  */
  61.  
  62. int
  63. gdbm_delete (dbf, key)
  64.      gdbm_file_info *dbf;
  65.      datum key;
  66. {
  67.   int elem_loc;        /* The location in the current hash bucket. */
  68.   int last_loc;        /* Last location emptied by the delete.  */
  69.   int home;        /* Home position of an item. */
  70.   bucket_element elem;  /* The element to be deleted. */
  71.   char *find_data;    /* Return pointer from findkey. */
  72.   LONG  hash_val;    /* Returned by findkey. */
  73.   LONG  free_adr;       /* Temporary stroage for address and size. */
  74.   int   free_size;
  75.  
  76.   /* First check to make sure this guy is a writer. */
  77.   if (dbf->read_write != GDBM_WRITER)
  78.     {
  79.       gdbm_errno = GDBM_READER_CANT_DELETE;
  80.       return -1;
  81.     }
  82.  
  83.   /* Find the item. */
  84.   elem_loc = _gdbm_findkey (dbf, key, &find_data, &hash_val);
  85.   if (elem_loc == -1)
  86.     {
  87.       gdbm_errno = GDBM_ITEM_NOT_FOUND;
  88.       return -1;
  89.     }
  90.  
  91.   /* Save the element.  */
  92.   elem = dbf->bucket->h_table[elem_loc];
  93.  
  94.   /* Delete the element.  */
  95.   dbf->bucket->h_table[elem_loc].hash_value = -1;
  96.   dbf->bucket->count -= 1;
  97.  
  98.   /* Move other elements to guarantee that they can be found. */
  99.   last_loc = elem_loc;
  100.   elem_loc = (elem_loc + 1) % dbf->header->bucket_elems;
  101.   while (elem_loc != last_loc
  102.      && dbf->bucket->h_table[elem_loc].hash_value != -1)
  103.     {
  104. #ifdef MSDOS
  105.       home = (int) (dbf->bucket->h_table[elem_loc].hash_value
  106.             % dbf->header->bucket_elems);
  107. #else /* not MSDOS */
  108.       home = dbf->bucket->h_table[elem_loc].hash_value
  109.          % dbf->header->bucket_elems;
  110. #endif /* not MSDOS */
  111.       if ( (last_loc < elem_loc && (home <= last_loc || home > elem_loc))
  112.       || (last_loc > elem_loc && home <= last_loc && home > elem_loc))
  113.     
  114.     {
  115.       dbf->bucket->h_table[last_loc] = dbf->bucket->h_table[elem_loc];
  116.       dbf->bucket->h_table[elem_loc].hash_value = -1;
  117.       last_loc = elem_loc;
  118.     }
  119.       elem_loc = (elem_loc + 1) % dbf->header->bucket_elems;
  120.     }
  121.  
  122.   /* Free the file space. */
  123.   free_adr = elem.data_pointer;
  124.   free_size = elem.key_size + elem.data_size;
  125.   _gdbm_free (dbf, free_adr, free_size);
  126.  
  127.   /* Set the flags. */
  128.   dbf->bucket_changed = TRUE;
  129.  
  130.   /* Clear out the data cache for the current bucket. */
  131.   if (dbf->cache_entry->ca_data.dptr != NULL)
  132.     {
  133.       free (dbf->cache_entry->ca_data.dptr);
  134.       dbf->cache_entry->ca_data.dptr = NULL;
  135.     }
  136.   dbf->cache_entry->ca_data.hash_val = -1;
  137.   dbf->cache_entry->ca_data.key_size = 0;
  138.   dbf->cache_entry->ca_data.elem_loc = -1;
  139.  
  140.   /* Do the writes. */
  141.   _gdbm_end_update (dbf);
  142.   return 0;  
  143. }
  144.