mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 00:14:25 +00:00
70 lines
3.1 KiB
C
70 lines
3.1 KiB
C
/***************************************************************************
|
||
*
|
||
* C l o s e F u n c t i o n
|
||
* ---------------------------
|
||
* Copyright 1982 by Digital Research Inc. All rights reserved.
|
||
*
|
||
* The close function is used to terminate access to a file / device.
|
||
*
|
||
* Calling Sequence:
|
||
*
|
||
* ret = close(fd);
|
||
*
|
||
* Where "fd" is an open file descriptor to be CLOSEd.
|
||
*
|
||
* Modifications:
|
||
* 12/83: PC-DOS mods whf
|
||
* 10/83: changed user # handling whf
|
||
* 9/83: add steve's user # mods, change _chkc whf
|
||
* 8/83: improve error handling whf
|
||
****************************************************************************/
|
||
#include "portab.h"
|
||
#include "osif.h"
|
||
#include "osiferr.h"
|
||
#include "errno.h"
|
||
/****************************/
|
||
EXTERN BYTE __xeof; /* End of file for ASCII */
|
||
WORD close(fd) /* CLEAR FUNCTION ***********/
|
||
REG WORD fd; /* File descriptor to close */
|
||
{ /****************************/
|
||
EXTERN FD *_chkc(); /* fd -> fp conversion MGL */
|
||
REG FD *fp; /* file pointer Temporary */
|
||
REG WORD rv; /* return value */
|
||
REG WORD xuser; /* User number temporary */
|
||
/* */
|
||
if((fp=_chkc(fd)) == NULLFD) /* File Open? */
|
||
RETERR(FAILURE,EBADF); /* no, quit */
|
||
rv = SUCCESS; /* assume it will work */
|
||
if ((fp->flags & (ISTTY|ISLPT)) == 0) /* Character device? */
|
||
{ /* if not, handle file: *****/
|
||
#if CPM /*================================================================*/
|
||
if((fp->flags & ISASCII) != 0 && (fp->flags & ISREAD) == 0) /* */
|
||
{ /* ASCII file? not ReadOnly?*/
|
||
if( fp->offset < fp->hiwater ) /* Have we been seeking? */
|
||
lseek(fd,0L,2); /* Seek to EOF ifso */
|
||
write(fd,&__xeof,1); /* Write a ^Z character */
|
||
} /****************************/
|
||
if((fp->flags & DIRTY) != 0) /* Buffer dirty? */
|
||
if(_blkio(fp,fp->sector,fp->buffer,1L,B_WRITE) != 1)/* write it */
|
||
rv = FAILURE; /* can't */
|
||
xuser = _chkuser(fp->user); /* Check user # for change */
|
||
if((__OSIF(CLOSE,&(fp->fcb))&0xFF) == 0xFF)/* Close the fcb */
|
||
rv = FAILURE; /* */
|
||
_uchkuser(fp->user,xuser); /* Change user # if needed */
|
||
#endif /*================================================================*/
|
||
#if PCDOS /*================================================================*/
|
||
if((__OSIF(CLOSE,&(fp->fcb))&0xFF) == 0xFF)/* Close the fcb */
|
||
rv = FAILURE; /* */
|
||
#endif /*================================================================*/
|
||
} /* end of file handling *****/
|
||
__chinit(fd); /* Release the space */
|
||
_freec(fd); /* Release the channel */
|
||
if( rv == SUCCESS ) /* Was everything ok? */
|
||
return(rv); /* Yes, return Success */
|
||
else RETERR(FAILURE,EIO); /* else let them know */
|
||
} /****************************/
|
||
*/
|
||
} /****************************/
|
||
*/
|
||
} /****************************/
|