home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / cbase.zip / CBASE10B.ZIP / CBASE.ZIP / CBKEYPRE.C < prev    next >
Text File  |  1989-11-08  |  3KB  |  134 lines
  1. /*    Copyright (c) 1989 Citadel    */
  2. /*       All Rights Reserved        */
  3.  
  4. /* #ident    "cbkeypre.c    1.2 - 89/11/08" */
  5.  
  6. #include <blkio.h>
  7. #include <btree.h>
  8. #include <errno.h>
  9. #include <lseq.h>
  10. /*#include <stdlib.h>*/
  11. /*#include <string.h>*/
  12. #include "cbase_.h"
  13.  
  14. /*man---------------------------------------------------------------------------
  15. NAME
  16.      cbkeyprev - previous cbase key
  17.  
  18. SYNOPSIS
  19.      #include <cbase.h>
  20.  
  21.      int cbkeyprev(cbp, field)
  22.      cbase_t *cbp;
  23.      int field;
  24.  
  25. DESCRIPTION
  26.      The cbkeyprev function retreats the key cursor of the specified
  27.      field in cbase cbp by one.  The record cursor of cbp is
  28.      positioned to the record associated with that key.  Other key
  29.      cursors are not affected.
  30.  
  31.      cbkeyprev will fail if one or more of the following is true:
  32.  
  33.      [EINVAL]       cbp is not a valid cbase pointer.
  34.      [EINVAL]       field is not a valid field number for
  35.                     cbase cbp.
  36.      [CBELOCK]      cbp is not locked.
  37.      [CBENKEY]      field is not a key.
  38.      [CBENOPEN]     cbp is not open.
  39.  
  40. SEE ALSO
  41.      cbkcursor, cbkeyfirst, cbkeylast, cbkeynext, cbrecprev.
  42.  
  43. DIAGNOSTICS
  44.      Upon successful completion, a value of 0 is returned.  Otherwise,
  45.      a value of -1 is returned, and errno set to indicate the error.
  46.  
  47. ------------------------------------------------------------------------------*/
  48. int cbkeyprev(cbp, field)
  49. cbase_t *cbp;
  50. int field;
  51. {
  52.     void *buf = NULL;
  53.     cbrpos_t cbrpos = 0;
  54.     lspos_t lspos = 0;
  55.  
  56.     /* validate arguments */
  57.     if (!cb_valid(cbp)) {
  58.         errno = EINVAL;
  59.         return -1;
  60.     }
  61.  
  62.     /* check if not open */
  63.     if (!(cbp->flags & CBOPEN)) {
  64.         errno = CBENOPEN;
  65.         return -1;
  66.     }
  67.  
  68.     /* validate arguments */
  69.     if ((field < 0) || (field >= cbp->fldc)) {
  70.         errno = EINVAL;
  71.         return -1;
  72.     }
  73.  
  74.     /* check if field not a key */
  75.     if (!(cbp->fldv[field].flags & CB_FKEY)) {
  76.         errno = CBENKEY;
  77.         return -1;
  78.     }
  79.  
  80.     /* check if not locked */
  81.     if (!(cbp->flags & CBLOCKS)) {
  82.         errno = CBELOCK;
  83.         return -1;
  84.     }
  85.  
  86.     /* set key cursor to previous key */
  87.     if (btprev(cbp->btpv[field]) == -1) {
  88.         CBEPRINT;
  89.         return -1;
  90.     }
  91.  
  92.     /* check if cursor is null */
  93.     if (btcursor(cbp->btpv[field]) == NULL) {
  94.         /* set record cursor to null */
  95.         if (lssetcur(cbp->lsp, NULL) == -1) {
  96.             CBEPRINT;
  97.             return -1;
  98.         }
  99.         errno = 0;
  100.         return 0;
  101.     }
  102.  
  103.     /* get record position */
  104.     if (btkeysize(cbp->btpv[field]) != (cbp->fldv[field].len + sizeof(cbrpos_t))) {
  105.         CBEPRINT;
  106.         errno = CBEPANIC;
  107.         return -1;
  108.     }
  109.     buf = calloc((size_t)1, btkeysize(cbp->btpv[field]));
  110.     if (buf == NULL) {
  111.         CBEPRINT;
  112.         errno = ENOMEM;
  113.         return -1;
  114.     }
  115.     if (btgetk(cbp->btpv[field], buf) == -1) {
  116.         CBEPRINT;
  117.         free(buf);
  118.         return -1;
  119.     }
  120.     memcpy(&cbrpos, ((char *)buf + cbp->fldv[field].len), sizeof(cbrpos));
  121.     free(buf);
  122.     buf = NULL;
  123.  
  124.     /* set record cursor */
  125.     lspos = cbrpos;
  126.     if (lssetcur(cbp->lsp, &lspos) == -1) {
  127.         CBEPRINT;
  128.         return -1;
  129.     }
  130.  
  131.     errno = 0;
  132.     return 0;
  133. }
  134.