home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / DOOG / CBASE09.ZIP / CBASE.ZIP / CBKEYPRE.C < prev    next >
Text File  |  1989-08-31  |  3KB  |  142 lines
  1. /*    Copyright (c) 1989 Citadel    */
  2. /*       All Rights Reserved        */
  3.  
  4. /* #ident    "cbkeypre.c    1.1 - 89/08/31" */
  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 a key cursor for cbase cbp by one.
  27.      The record cursor of cbp is positioned to the record associated with
  28.      that key.
  29.  
  30.      field is the field for which to retreat the key cursor.
  31.  
  32.      cbkeyprev will fail if one or more of the following is true:
  33.  
  34.      [EINVAL]       cbp is not a valid cbase pointer.
  35.      [EINVAL]       field is less than 1 or greater than
  36.                     the number of fields defined for cbp.
  37.      [CBELOCK]      cbp is not locked.
  38.      [CBENKEY]      field is not a key.
  39.      [CBENOPEN]     cbp is not open.
  40.  
  41. SEE ALSO
  42.      cbkcursor, cbkeyfirst, cbkeylast, cbkeynext, cbrecprev.
  43.  
  44. DIAGNOSTICS
  45.      Upon successful completion, a value of 0 is returned.  Otherwise, a
  46.      value of -1 is returned, and errno set to indicate the error.
  47.  
  48. ------------------------------------------------------------------------------*/
  49. int cbkeyprev(cbp, field)
  50. cbase_t * cbp;
  51. int       field;
  52. {
  53.     int        rs    = 0;
  54.     void *        buf    = NULL;
  55.     cbrpos_t    cbrpos    = 0;
  56.     lspos_t        lspos    = 0;
  57.  
  58.     errno = 0;
  59.  
  60.     /* validate arguments */
  61.     if (!cb_valid(cbp)) {
  62.         errno = EINVAL;
  63.         return -1;
  64.     }
  65.     if ((field < 1) || (field > cbp->fldcnt)) {
  66.         errno = EINVAL;
  67.         return -1;
  68.     }
  69.  
  70.     /* check if not open */
  71.     if (!(cbp->flags & CBOPEN)) {
  72.         errno = CBENOPEN;
  73.         return -1;
  74.     }
  75.  
  76.     /* check if field not a key */
  77.     if (!(cbp->fields[field - 1].flags & CBFKEY)) {
  78.         errno = CBENKEY;
  79.         return -1;
  80.     }
  81.  
  82.     /* check if not locked */
  83.     if (!(cbp->flags & CBLOCKS)) {
  84.         errno = CBELOCK;
  85.         return -1;
  86.     }
  87.  
  88.     /* set key cursor to previous key */
  89.     rs = btprev(cbp->btp[field - 1]);
  90.     if (rs == -1) {
  91.         CBEPRINT;
  92.         return -1;
  93.     }
  94.  
  95.     /* check if cursor is null */
  96.     if (btcursor(cbp->btp[field - 1]) == NULL) {
  97.         /* set record cursor to null */
  98.         rs = lssetcur(cbp->lsp, NULL);
  99.         if (rs == -1) {
  100.             CBEPRINT;
  101.             return -1;
  102.         }
  103.         errno = 0;
  104.         return 0;
  105.     }
  106.  
  107.     /* get record position */
  108.     if (btkeysize(cbp->btp[field - 1]) !=
  109.             (cbp->fields[field - 1].size + sizeof(cbrpos_t))) {
  110.         CBEPRINT;
  111.         errno = CBEPANIC;
  112.         return -1;
  113.     }
  114.     buf = calloc(1, btkeysize(cbp->btp[field - 1]));
  115.     if (buf == NULL) {
  116.         CBEPRINT;
  117.         errno = ENOMEM;
  118.         return -1;
  119.     }
  120.     rs = btgetk(cbp->btp[field - 1], buf);
  121.     if (rs == -1) {
  122.         CBEPRINT;
  123.         free(buf);
  124.         return -1;
  125.     }
  126.     memcpy((void *)&cbrpos, (void *)((char *)buf +
  127.                 cbp->fields[field - 1].size), sizeof(cbrpos));
  128.     free(buf);
  129.     buf = NULL;
  130.  
  131.     /* set record cursor */
  132.     lspos = cbrpos;
  133.     rs = lssetcur(cbp->lsp, &lspos);
  134.     if (rs == -1) {
  135.         CBEPRINT;
  136.         return -1;
  137.     }
  138.  
  139.     errno = 0;
  140.     return 0;
  141. }
  142.