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