workbench/network/stacks/AROSTCP/netlib/_close.c

   1 /* $Id$
   2  *
   3  *      _close.c - close a file (SAS/C)
   4  *
   5  *      Copyright © 1994 AmiTCP/IP Group,
   6  *                       Network Solutions Development Inc.
   7  *                       All rights reserved.
   8  */
   9
  10 #include <ios1.h>
  11 #include <stdlib.h>
  12 #include <stdio.h>
  13 #include <dos.h>
  14 #include <proto/dos.h>
  15 #include <errno.h>
  16 #include <bsdsocket.h>
  17
  18 int
  19 __close(int fd)
  20 {
  21   struct UFB *ufb;
  22
  23   /*
  24    * Check for the break signals
  25    */
  26   __chkabort();
  27
  28   /*
  29    * Find the ufb *
  30    */
  31   if ((ufb = __chkufb(fd)) == NULL) {
  32     /* __chkufb sets the errno to EBADF */
  33     return -1;
  34   }
  35
  36   /*
  37    * Check if close is not needed
  38    */
  39   if ((ufb->ufbflg & (UFB_NC | UFB_CLO)) != UFB_NC) {
  40
  41     /*
  42      * Empty flags mean empty ufb
  43      */
  44     if (ufb->ufbflg == 0) {
  45       errno = EBADF;
  46       return -1;
  47     }
  48
  49     /*
  50      * Close the file
  51      */
  52     if (!(ufb->ufbflg & UFB_SOCK) && ufb->ufbfh != NULL) {
  53       Close(ufb->ufbfh);
  54
  55       /*
  56        * Remove the file if it was temporary
  57        */
  58       if (ufb->ufbflg & UFB_TEMP && ufb->ufbfn != NULL)
  59         remove(ufb->ufbfn);
  60     }
  61
  62   }
  63
  64   /*
  65    * Free the file name
  66    */
  67   if (ufb->ufbfn != NULL) {
  68     free(ufb->ufbfn);
  69     ufb->ufbfn = NULL;
  70   }
  71
  72   /*
  73    * Clear the flags to free this ufb
  74    */
  75   ufb->ufbflg = 0;
  76   ufb->ufbfh = NULL; /* just in case */
  77
  78   /*
  79    * closes the socket OR the file mark
  80    */
  81   CloseSocket(fd);
  82
  83   return 0;
  84 }
  85