home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / cbase.zip / CBASE10B.ZIP / CBASE.ZIP / CBCLOSE.C < prev    next >
Text File  |  1989-11-08  |  2KB  |  88 lines
  1. /*    Copyright (c) 1989 Citadel    */
  2. /*       All Rights Reserved        */
  3.  
  4. /* #ident    "cbclose.c    1.2 - 89/11/08" */
  5.  
  6. #include <btree.h>
  7. #include <errno.h>
  8. #include <lseq.h>
  9. /*#include <string.h>*/
  10. #include "cbase_.h"
  11.  
  12. /*man---------------------------------------------------------------------------
  13. NAME
  14.      cbclose - close cbase
  15.  
  16. SYNOPSIS
  17.      #include <cbase.h>
  18.  
  19.      int cbclose(cbp)
  20.      cbase_t *cbp;
  21.  
  22. DESCRIPTION
  23.      The cbclose function causes any buffered data for cbase cbp to be
  24.      written out and the cbase to be unlocked and closed.
  25.  
  26.      cbclose will fail if one or more of the following is true:
  27.  
  28.      [EINVAL]       cbp is not a valid cbase pointer.
  29.      [CBENOPEN]     cbp is not open.
  30.  
  31. SEE ALSO
  32.      cbcreate, cbopen, cbsync.
  33.  
  34. DIAGNOSTICS
  35.      Upon successful completion, a value of 0 is returned.  Otherwise,
  36.      a value of -1 is returned, and errno set to indicate the error.
  37.  
  38. ------------------------------------------------------------------------------*/
  39. int cbclose(cbp)
  40. cbase_t *cbp;
  41. {
  42.     int i = 0;
  43.  
  44.     /* validate input parameters */
  45.     if (!cb_valid(cbp)) {
  46.         errno = EINVAL;
  47.         return -1;
  48.     }
  49.  
  50.     /* check if not open */
  51.     if (!(cbp->flags & CBOPEN)) {
  52.         errno = CBENOPEN;
  53.         return -1;
  54.     }
  55.  
  56.     /* flush buffers and unlock file */
  57.     if (cblock(cbp, CB_UNLCK) == -1) {
  58.         CBEPRINT;
  59.         return -1;
  60.     }
  61.  
  62.     /* close record file */
  63.     if (lsclose(cbp->lsp) == -1) {
  64.         CBEPRINT;
  65.         return -1;
  66.     }
  67.  
  68.     /* close key files */
  69.     for (i = 0; i < cbp->fldc; i++) {
  70.         if (cbp->fldv[i].flags & CB_FKEY) {
  71.             if (btclose(cbp->btpv[i]) == -1) {
  72.                 CBEPRINT;
  73.                 return -1;
  74.             }
  75.         }
  76.     }
  77.  
  78.     /* free memory allocated for cbase */
  79.     cb_free(cbp);
  80.  
  81.     /* scrub slot in cbb table then free it */
  82.     memset(cbp, 0, sizeof(*cbb));
  83.     cbp->flags = 0;
  84.  
  85.     errno = 0;
  86.     return 0;
  87. }
  88.