home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / cbase.zip / CBASE10B.ZIP / CBASE.ZIP / CBSETKCU.C < prev    next >
Text File  |  1989-11-08  |  3KB  |  136 lines
  1. /*    Copyright (c) 1989 Citadel    */
  2. /*       All Rights Reserved        */
  3.  
  4. /* #ident    "cbsetkcu.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.      cbsetkcur - set cbase key cursor
  17.  
  18. SYNOPSIS
  19.      #include <cbase.h>
  20.  
  21.      int cbsetkcur(cbp, field, cbkpos_p)
  22.      cbase_t *cbp;
  23.      int field;
  24.      const cbkpos_t *cbkpos_p;
  25.  
  26. DESCRIPTION
  27.      The cbsetkcur function sets the position of a key cursor of the
  28.      specified field in cbase cbp to the value pointed to by cbkpos_p.
  29.      If cbkpos_p is the NULL pointer, the key cursor is set to null.
  30.      The record cursor of cbp is positioned to the record associated
  31.      with that key.  Other key cursors are not affected.
  32.  
  33.      cbsetkcur will fail if one or more of the following is true:
  34.  
  35.      [EINVAL]       cbp is not a valid cbase pointer.
  36.      [EINVAL]       field is not a valid field number for
  37.                     cbase cbp.
  38.      [CBELOCK]      cbp is not locked.
  39.      [CBENOPEN]     cbp is not open.
  40.  
  41. SEE ALSO
  42.      cbgetkcur, cbsetrcur.
  43.  
  44. DIAGNOSTICS
  45.      Upon successful completion, a value of 0 is returned.  Otherwise,
  46.      a value of -1 is returned, and errno set to indicate the error.
  47.  
  48. ------------------------------------------------------------------------------*/
  49. int cbsetkcur(cbp, field, cbkpos_p)
  50. cbase_t *cbp;
  51. int field;
  52. CONST cbkpos_t *cbkpos_p;
  53. {
  54.     void *buf = NULL;
  55.     cbrpos_t cbrpos = 0;
  56.     lspos_t lspos = 0;
  57.     btpos_t btpos;
  58.  
  59.     /* initialize storage */
  60.     memset(&btpos, 0, sizeof(btpos));
  61.  
  62.     /* validate arguments */
  63.     if (!cb_valid(cbp)) {
  64.         errno = EINVAL;
  65.         return -1;
  66.     }
  67.  
  68.     /* check if not open */
  69.     if (!(cbp->flags & CBOPEN)) {
  70.         errno = CBENOPEN;
  71.         return -1;
  72.     }
  73.  
  74.     /* validate arguments */
  75.     if ((field < 0) || (field >= cbp->fldc)) {
  76.         errno = EINVAL;
  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 position */
  87.     if (cbkpos_p == NULL) {
  88.         if (btsetcur(cbp->btpv[field], NULL) == -1) {
  89.             CBEPRINT;
  90.             return -1;
  91.         }
  92.     } else {
  93.         memcpy(&btpos, cbkpos_p, sizeof(btpos));
  94.         if (btsetcur(cbp->btpv[field], &btpos) == -1 ) {
  95.             CBEPRINT;
  96.             return -1;
  97.         }
  98.     }
  99.  
  100.     /* check if key cursor is null */
  101.     if (btcursor(cbp->btpv[field]) == NULL) {
  102.         if (lssetcur(cbp->lsp, NULL) == -1) {
  103.             CBEPRINT;
  104.             return -1;
  105.         }
  106.         errno = 0;
  107.         return 0;
  108.     }
  109.  
  110.     /* get record position */
  111.     buf = calloc((size_t)1, btkeysize(cbp->btpv[field]));
  112.     if (btgetk(cbp->btpv[field], buf) == -1) {
  113.         CBEPRINT;
  114.         free(buf);
  115.         return -1;
  116.     }
  117.     memcpy(&cbrpos, ((char *)buf + cbp->fldv[field].len), sizeof(cbrpos));
  118.     free(buf);
  119.     buf = NULL;
  120.  
  121.     /* set record cursor position */
  122.     lspos = cbrpos;
  123.     if (lspos == 0) {
  124.         CBEPRINT;
  125.         errno = CBEPANIC;
  126.         return -1;
  127.     }
  128.     if (lssetcur(cbp->lsp, &lspos) == -1) {
  129.         CBEPRINT;
  130.         return -1;
  131.     }
  132.  
  133.     errno = 0;
  134.     return 0;
  135. }
  136.