home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frostbyte's 1980s DOS Shareware Collection
/
floppyshareware.zip
/
floppyshareware
/
DOOG
/
CBASE09.ZIP
/
CBASE.ZIP
/
CBKEYALI.C
< prev
next >
Wrap
Text File
|
1989-08-31
|
3KB
|
151 lines
/* Copyright (c) 1989 Citadel */
/* All Rights Reserved */
/* #ident "cbkeyali.c 1.1 - 89/08/31" */
#include <blkio.h>
#include <btree.h>
#include <errno.h>
#include <lseq.h>
/* #include <stdlib.h> */
/* #include <string.h> */
#include "cbase_.h"
/*man---------------------------------------------------------------------------
NAME
cbkeyalign - align cbase key cursor
SYNOPSIS
#include <cbase.h>
int cbkeyalign(cbp, field)
cbase_t *cbp;
int field;
DESCRIPTION
The cbkeyalign function aligns a key cursor with the record cursor. The
key cursor is positioned to the key associated with the current record.
field is the field for which to align the key cursor.
cbkeyalign will fail if one or more of the following is true:
[EINVAL] cbp is not a valid cbase pointer.
[EINVAL] field is less than 1 or greater than
the number of fields defined for cbp.
[CBELOCK] cbp is not locked.
[CBENKEY] field is not a key.
[CBENOPEN] cbp is not open.
SEE ALSO
cbkeyfirst, cbkeylast, cbkeynext, cbkeyprev, cbkeysrch.
DIAGNOSTICS
Upon successful completion, a value of 0 is returned. Otherwise, a
value of -1 is returned, and errno set to indicate the error.
------------------------------------------------------------------------------*/
int cbkeyalign(cbp, field)
cbase_t * cbp;
int field;
{
int rs = 0;
void * buf = NULL;
cbrpos_t cbrpos = 0;
lspos_t lspos = 0;
errno = 0;
/* validate arguments */
if (!cb_valid(cbp)) {
errno = EINVAL;
return -1;
}
if ((field < 1) || (field > cbp->fldcnt)) {
errno = EINVAL;
return -1;
}
/* check if not open */
if (!(cbp->flags & CBOPEN)) {
errno = CBENOPEN;
return -1;
}
/* check if field not a key */
if (!(cbp->fields[field - 1].flags & CBFKEY)) {
errno = CBENKEY;
return -1;
}
/* check if not locked */
if (!(cbp->flags & CBLOCKS)) {
errno = CBELOCK;
return -1;
}
/* check if record cursor is null */
if (lscursor(cbp->lsp) == NULL) {
/* set key cursor to null */
rs = btsetcur(cbp->btp[field - 1], NULL);
if (rs == -1) {
CBEPRINT;
return -1;
}
errno = 0;
return 0;
}
/* allocate storage for key */
if (btkeysize(cbp->btp[field - 1]) !=
(cbp->fields[field - 1].size + sizeof(cbrpos_t))) {
CBEPRINT;
errno = CBEPANIC;
return -1;
}
buf = calloc(1, btkeysize(cbp->btp[field - 1]));
if (buf == NULL) {
CBEPRINT;
errno = ENOMEM;
return -1;
}
/* get record field */
rs = cbgetrf(cbp, field, buf);
if (rs == -1) {
CBEPRINT;
free(buf);
return -1;
}
/* get record position and place in key */
rs = lsgetcur(cbp->lsp, &lspos);
if (rs == -1) {
CBEPRINT;
free(buf);
return -1;
}
cbrpos = lspos;
memcpy((void *)((char *)buf + cbp->fields[field - 1].size),
(void *)&cbrpos, sizeof(cbrpos_t));
/* position key cursor */
rs = btsearch(cbp->btp[field - 1], buf);
if (rs == -1) {
CBEPRINT;
free(buf);
return -1;
}
if (rs == 0) {
free(buf);
errno = CBECORRUPT;
return -1;
}
free(buf);
buf = NULL;
errno = 0;
return 0;
}