home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / cbase.zip / CBASE10B.ZIP / LSEQ10B.ZIP / LSCLOSE.C < prev    next >
Text File  |  1989-10-31  |  2KB  |  75 lines
  1. /*    Copyright (c) 1989 Citadel    */
  2. /*       All Rights Reserved        */
  3.  
  4. /* #ident    "lsclose.c    1.2 - 89/10/31" */
  5.  
  6. #include <blkio.h>
  7. #include <errno.h>
  8. /*#include <string.h>*/
  9. #include "lseq_.h"
  10.  
  11. /*man---------------------------------------------------------------------------
  12. NAME
  13.      lsclose - close lseq
  14.  
  15. SYNOPSIS
  16.      #include <lseq.h>
  17.  
  18.      int lsclose(lsp)
  19.      lseq_t *lsp;
  20.  
  21. DESCRIPTION
  22.      The lsclose function causes any buffered data for the named lseq
  23.      to be written out, the file unlocked, and the lseq closed.
  24.  
  25.      lsclose will fail if one or more of the following is true:
  26.  
  27.      [EINVAL]       lsp is not a valid lseq pointer.
  28.      [LSENOPEN]     lsp is not open.
  29.  
  30. SEE ALSO
  31.      lscreate, lslock, lsopen, lssync.
  32.  
  33. DIAGNOSTICS
  34.      Upon successful completion, a value of 0 is returned.  Otherwise,
  35.      a value of -1 is returned, and errno set to indicate the error.
  36.  
  37. ------------------------------------------------------------------------------*/
  38. int lsclose(lsp)
  39. lseq_t *lsp;
  40. {
  41.     /* validate arguments */
  42.     if (!ls_valid(lsp)) {
  43.         errno = EINVAL;
  44.         return -1;
  45.     }
  46.  
  47.     /* check if not open */
  48.     if (!(lsp->flags & LSOPEN)) {
  49.         errno = LSENOPEN;
  50.         return -1;
  51.     }
  52.  
  53.     /* synchronize file with buffers and unlock file */
  54.     if (lslock(lsp, LS_UNLCK) == -1) {
  55.         LSEPRINT;
  56.         return -1;
  57.     }
  58.  
  59.     /* free memory allocated for lsp */
  60.     ls_free(lsp);
  61.  
  62.     /* close lseq file */
  63.     if (bclose(lsp->bp) == -1) {
  64.         LSEPRINT;
  65.         return -1;
  66.     }
  67.  
  68.     /* scrub slot in lsb table then free it */
  69.     memset(lsp, 0, sizeof(*lsb));
  70.     lsp->flags = 0;
  71.  
  72.     errno = 0;
  73.     return 0;
  74. }
  75.