Upload

Digital Research
2025-10-23 08:24:18 +00:00 · 2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions
--- a/SOURCES/v102a/clib/close.c
+++ b/SOURCES/v102a/clib/close.c
@@ -0,0 +1,65 @@
+/***************************************************************************
+ *									    
+ *			  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 	    */
+}						/****************************/