home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / cbase.zip / CBASE10B.ZIP / CBASE.ZIP / CBDELCUR.C < prev    next >
Text File  |  1989-11-08  |  3KB  |  115 lines
  1. /*    Copyright (c) 1989 Citadel    */
  2. /*       All Rights Reserved        */
  3.  
  4. /* #ident    "cbdelcur.c    1.2 - 89/11/08" */
  5.  
  6. #include <errno.h>
  7. /*#include <stddef.h>*/
  8. /*#include <stdlib.h>*/
  9. /*#include <string.h>*/
  10. #include "cbase_.h"
  11.  
  12. /*man---------------------------------------------------------------------------
  13. NAME
  14.      cbdelcur - delete current cbase record
  15.  
  16. SYNOPSIS
  17.      #include <cbase.h>
  18.  
  19.      int cbdelcur(cbp)
  20.      cbase_t *cbp;
  21.  
  22. DESCRIPTION
  23.      The cbdelcur function deletes the current record of cbase cbp.
  24.      The record cursor is set to the record following the deleted
  25.      record.
  26.  
  27.      cbdelcur will fail if one or more of the following is true:
  28.  
  29.      [EINVAL]       cbp is not a valid cbase pointer.
  30.      [CBELOCK]      cbp is not write locked.
  31.      [CBENOPEN]     cbp is not open.
  32.      [CBENREC]      The record cursor of cbp is null.
  33.  
  34. SEE ALSO
  35.      cbinscur, cbrcursor.
  36.  
  37. DIAGNOSTICS
  38.      Upon successful completion, a value of 0 is returned.  Otherwise,
  39.      a value of -1 is returned, and errno set to indicate the error.
  40.  
  41. ------------------------------------------------------------------------------*/
  42. int cbdelcur(cbp)
  43. cbase_t * cbp;
  44. {
  45.     lspos_t lspos = 0;
  46.     cbrpos_t cbrpos = 0;
  47.     void *buf = NULL;
  48.     int i = 0;
  49.  
  50.     /* validate arguments */
  51.     if (!cb_valid(cbp)) {
  52.         errno = EINVAL;
  53.         return -1;
  54.     }
  55.  
  56.     /* check if not open */
  57.     if (!(cbp->flags & CBOPEN)) {
  58.         errno = CBENOPEN;
  59.         return -1;
  60.     }
  61.  
  62.     /* check if not write locked */
  63.     if (!(cbp->flags & CBWRLCK)) {
  64.         errno = CBELOCK;
  65.         return -1;
  66.     }
  67.  
  68.     /* check if record cursor is null */
  69.     if (lscursor(cbp->lsp) == NULL) {
  70.         errno = CBENREC;
  71.         return -1;
  72.     }
  73.  
  74.     /* get record position */
  75.     if (lsgetcur(cbp->lsp, &lspos) == -1) {
  76.         CBEPRINT;
  77.         return -1;
  78.     }
  79.     cbrpos = lspos;
  80.  
  81.     /* delete keys */
  82.     for (i = 0; i < cbp->fldc; i++) {
  83.         if (cbp->fldv[i].flags & CB_FKEY) {
  84.             buf = calloc((size_t)1, cbp->fldv[i].len + sizeof(cbrpos_t));
  85.             if (buf == NULL) {
  86.                 CBEPRINT;
  87.                 errno = ENOMEM;
  88.                 return -1;
  89.             }
  90.             if (lsgetrf(cbp->lsp, cbp->fldv[i].offset, buf, cbp->fldv[i].len) == -1) {
  91.                 CBEPRINT;
  92.                 free(buf);
  93.                 return -1;
  94.             }
  95.             memcpy(((char *)buf + cbp->fldv[i].len), &cbrpos, sizeof(cbrpos_t));
  96.             if (btdelete(cbp->btpv[i], buf) == -1) {
  97.                 CBEPRINT;
  98.                 free(buf);
  99.                 return -1;
  100.             }
  101.             free(buf);
  102.             buf = NULL;
  103.         }
  104.     }
  105.  
  106.     /* delete current record */
  107.     if (lsdelcur(cbp->lsp) == -1) {
  108.         CBEPRINT;
  109.         return -1;
  110.     }
  111.  
  112.     errno = 0;
  113.     return 0;
  114. }
  115.