home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / cbase.zip / CBASE10B.ZIP / CBASE.ZIP / CBKEYALI.C < prev    next >
Text File  |  1989-11-08  |  3KB  |  146 lines
  1. /*    Copyright (c) 1989 Citadel    */
  2. /*       All Rights Reserved        */
  3.  
  4. /* #ident    "cbkeyali.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.      cbkeyalign - align cbase key cursor
  17.  
  18. SYNOPSIS
  19.      #include <cbase.h>
  20.  
  21.      int cbkeyalign(cbp, field)
  22.      cbase_t *cbp;
  23.      int field;
  24.  
  25. DESCRIPTION
  26.      The cbkeyalign function aligns a key cursor in cbase cbp with the
  27.      record cursor.  The key cursor is positioned to the key
  28.      associated with the current record.  Other cursors are not
  29.      affected.
  30.  
  31.      cbkeyalign 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.      cbkeyfirst, cbkeylast, cbkeynext, cbkeyprev, cbkeysrch.
  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 cbkeyalign(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.     int found = 0;
  56.  
  57.     /* validate arguments */
  58.     if (!cb_valid(cbp)) {
  59.         errno = EINVAL;
  60.         return -1;
  61.     }
  62.  
  63.     /* check if not open */
  64.     if (!(cbp->flags & CBOPEN)) {
  65.         errno = CBENOPEN;
  66.         return -1;
  67.     }
  68.  
  69.     /* validate arguments */
  70.     if ((field < 0) || (field >= cbp->fldc)) {
  71.         errno = EINVAL;
  72.         return -1;
  73.     }
  74.  
  75.     /* check if field not a key */
  76.     if (!(cbp->fldv[field].flags & CB_FKEY)) {
  77.         errno = CBENKEY;
  78.         return -1;
  79.     }
  80.  
  81.     /* check if not locked */
  82.     if (!(cbp->flags & CBLOCKS)) {
  83.         errno = CBELOCK;
  84.         return -1;
  85.     }
  86.  
  87.     /* check if record cursor is null */
  88.     if (lscursor(cbp->lsp) == NULL) {
  89.         /* set key cursor to null */
  90.         if (btsetcur(cbp->btpv[field], NULL) == -1) {
  91.             CBEPRINT;
  92.             return -1;
  93.         }
  94.         errno = 0;
  95.         return 0;
  96.     }
  97.  
  98.     /* allocate storage for key */
  99.     if (btkeysize(cbp->btpv[field]) != (cbp->fldv[field].len + sizeof(cbrpos_t))) {
  100.         CBEPRINT;
  101.         errno = CBEPANIC;
  102.         return -1;
  103.     }
  104.     buf = calloc((size_t)1, btkeysize(cbp->btpv[field]));
  105.     if (buf == NULL) {
  106.         CBEPRINT;
  107.         errno = ENOMEM;
  108.         return -1;
  109.     }
  110.  
  111.     /* get record field */
  112.     if (cbgetrf(cbp, field, buf) == -1) {
  113.         CBEPRINT;
  114.         free(buf);
  115.         return -1;
  116.     }
  117.  
  118.     /* get record position and place in key */
  119.     if (lsgetcur(cbp->lsp, &lspos) == -1) {
  120.         CBEPRINT;
  121.         free(buf);
  122.         return -1;
  123.     }
  124.     cbrpos = lspos;
  125.     memcpy(((char *)buf + cbp->fldv[field].len), &cbrpos, sizeof(cbrpos_t));
  126.  
  127.     /* position key cursor */
  128.     found = btsearch(cbp->btpv[field], buf);
  129.     if (found == -1) {
  130.         CBEPRINT;
  131.         free(buf);
  132.         return -1;
  133.     }
  134.     if (found == 0) {
  135.         free(buf);
  136.         errno = CBECORRUPT;
  137.         return -1;
  138.     }
  139.  
  140.     free(buf);
  141.     buf = NULL;
  142.  
  143.     errno = 0;
  144.     return 0;
  145. }
  146.