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 >
Text File  |  1989-08-30  |  2KB  |  85 lines
  1. /*    Copyright (c) 1989 Citadel    */
  2. /*       All Rights Reserved        */
  3.  
  4. /* #ident    "lsnext.c    1.1 - 89/07/03" */
  5.  
  6. #include <errno.h>
  7. #include "lseq_.h"
  8.  
  9. /*man---------------------------------------------------------------------------
  10. NAME
  11.      lsnext - next lseq record
  12.  
  13. SYNOPSIS
  14.      #include <lseq.h>
  15.  
  16.      int lsnext(lsp)
  17.      lseq_t *lsp;
  18.  
  19. DESCRIPTION
  20.      The lsnext function advances the cursor of lseq lsp to the next record.
  21.      If the cursor is currently null, it will be advanced to the first
  22.      record.  If the cursor is currently on the last record, it will be
  23.      advanced to null.  If lsp is empty, the cursor will remain set to null.
  24.  
  25.      lsnext will fail if one or more of the following is true:
  26.  
  27.      [EINVAL]       lsp is not a valid lseq pointer.
  28.      [LSELOCK]      lsp is not locked.
  29.      [LSENOPEN]     lsp is not open.
  30.  
  31. SEE ALSO
  32.      lscursor, lsfirst, lslast, lsprev.
  33.  
  34. DIAGNOSTICS
  35.      Upon successful completion, a value of 0 is returned.  Otherwise, a
  36.      value of -1 is returned, and errno set to indicate the error.
  37.  
  38. ------------------------------------------------------------------------------*/
  39. int lsnext(lsp)
  40. lseq_t *lsp;
  41. {
  42.     int rs = 0;
  43.  
  44.     errno = 0;
  45.  
  46.     /* validate arguments */
  47.     if (!ls_valid(lsp)) {
  48.         errno = EINVAL;
  49.         return -1;
  50.     }
  51.  
  52.     /* check if not open */
  53.     if (!(lsp->flags & LSOPEN)) {
  54.         errno = LSENOPEN;
  55.         return -1;
  56.     }
  57.  
  58.     /* check if not locked */
  59.     if (!(lsp->flags & LSLOCKS)) {
  60.         errno = LSELOCK;
  61.         return -1;
  62.     }
  63.  
  64.     /* advance cursor */
  65.     if (lsp->clspos == 0) {
  66.         lsp->clspos = lsp->lshdr.first;
  67.     } else {
  68.         lsp->clspos = lsp->clsrp->next;
  69.     }
  70.  
  71.     /* read in new current record */
  72.     if (lsp->clspos == 0) {
  73.         ls_rcinit(lsp, lsp->clsrp);
  74.     } else {
  75.         rs = ls_rcget(lsp, lsp->clspos, lsp->clsrp);
  76.         if (rs == -1) {
  77.             LSEPRINT;
  78.             return -1;
  79.         }
  80.     }
  81.  
  82.     errno = 0;
  83.     return 0;
  84. }
  85.