home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MISC / GNU / GDBM14AS.ZIP / GDBMFETC.C < prev    next >
Encoding:
C/C++ Source or Header  |  1992-02-22  |  3.1 KB  |  94 lines
  1. /* gdbmfetch.c - Find a key and return the associated data.  */
  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/gdbmfetc.c'v 1.4.0.1 90/08/16 09:22:27 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. /* Look up a given KEY and return the information associated with that KEY.
  59.    The pointer in the structure that is  returned is a pointer to dynamically
  60.    allocated memory block.  */
  61.  
  62. datum
  63. gdbm_fetch (dbf, key)
  64.      gdbm_file_info *dbf;
  65.      datum key;
  66. {
  67.   datum  return_val;        /* The return value. */
  68.   int    elem_loc;        /* The location in the bucket. */
  69.   char  *find_data;        /* Returned from find_key. */
  70.   LONG     hash_val;        /* Returned from find_key. */
  71.  
  72.   /* Set the default return value. */
  73.   return_val.dptr = NULL;
  74.  
  75.   /* Find the key and return a pointer to the data. */
  76.   elem_loc = _gdbm_findkey (dbf, key, &find_data, &hash_val);
  77.  
  78.   /* Copy the data if the key was found.  */
  79.   if (elem_loc >= 0)
  80.     {
  81.       /* This is the item.  Return the associated data. */
  82.       return_val.dsize = dbf->bucket->h_table[elem_loc].data_size;
  83.       return_val.dptr = (char *) malloc (return_val.dsize);
  84.       if (return_val.dptr == NULL) _gdbm_fatal (dbf, "malloc error");
  85.       bcopy (find_data, return_val.dptr, return_val.dsize);
  86.     }
  87.  
  88.   /* Check for an error and return. */
  89.   if (return_val.dptr == NULL) gdbm_errno = GDBM_ITEM_NOT_FOUND;
  90.   return return_val;
  91. }
  92.  
  93.  
  94.