home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frostbyte's 1980s DOS Shareware Collection
/
floppyshareware.zip
/
floppyshareware
/
DOOG
/
CBASE09.ZIP
/
LSEQ.ZIP
/
LSNEXT.C
< prev
next >
Wrap
Text File
|
1989-08-30
|
2KB
|
85 lines
/* Copyright (c) 1989 Citadel */
/* All Rights Reserved */
/* #ident "lsnext.c 1.1 - 89/07/03" */
#include <errno.h>
#include "lseq_.h"
/*man---------------------------------------------------------------------------
NAME
lsnext - next lseq record
SYNOPSIS
#include <lseq.h>
int lsnext(lsp)
lseq_t *lsp;
DESCRIPTION
The lsnext function advances the cursor of lseq lsp to the next record.
If the cursor is currently null, it will be advanced to the first
record. If the cursor is currently on the last record, it will be
advanced to null. If lsp is empty, the cursor will remain set to null.
lsnext will fail if one or more of the following is true:
[EINVAL] lsp is not a valid lseq pointer.
[LSELOCK] lsp is not locked.
[LSENOPEN] lsp is not open.
SEE ALSO
lscursor, lsfirst, lslast, lsprev.
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 lsnext(lsp)
lseq_t *lsp;
{
int rs = 0;
errno = 0;
/* validate arguments */
if (!ls_valid(lsp)) {
errno = EINVAL;
return -1;
}
/* check if not open */
if (!(lsp->flags & LSOPEN)) {
errno = LSENOPEN;
return -1;
}
/* check if not locked */
if (!(lsp->flags & LSLOCKS)) {
errno = LSELOCK;
return -1;
}
/* advance cursor */
if (lsp->clspos == 0) {
lsp->clspos = lsp->lshdr.first;
} else {
lsp->clspos = lsp->clsrp->next;
}
/* read in new current record */
if (lsp->clspos == 0) {
ls_rcinit(lsp, lsp->clsrp);
} else {
rs = ls_rcget(lsp, lsp->clspos, lsp->clsrp);
if (rs == -1) {
LSEPRINT;
return -1;
}
}
errno = 0;
return 0;
}