Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.2 SOURCE/6/WRITEASC.C

@@ -0,0 +1,145 @@
+/***************************************************************************
+ *									    
+ *			W r t a s c    F u n c t i o n			    
+ *			------------------------------			    
+ *									    
+ *	Function "_wrtasc" is called from "write" to handle writes to a     
+ *	file opend in ascii mode.					    
+ *									    
+ *	Calling sequence:						    
+ *		ret = _wrtasc(fp,buffer,bytes);				    
+ *									    
+ *	Where:								    
+ *		fp	Points to the affected ccb.			    
+ *		buffer	Is the buffer address				    
+ *		bytes	Is the number of bytes to write			    
+ *									    
+ *		ret	Is the number of bytes actually written		    
+ *									    
+ ****************************************************************************/
+
+#include "portab.h"
+#include "osif.h"
+#include "osiferr.h"
+#include "errno.h"
+
+#define OFFSECT   (fp->offset    & ~(SECSIZ-1))
+#define HIWSECT   (fp->hiwater-1 & ~(SECSIZ-1))
+
+
+UWORD	_wrtasc(fp,buff,bytes)			/****************************/
+						/*			    */
+	REG	FD	*fp;			/* -> CCB		    */
+	REG	BYTE	*buff;			/* -> User's buffer	    */
+	REG	UWORD	bytes;			/* # bytes to write	    */
+{						/****************************/
+#if PCDOS    /*=============================================================*/
+    UWORD ii, jj, kk;				/* Byte counters	    */
+    UWORD _pc_writeblk();			/* OS function Write Rnd Blk*/
+						/*			    */
+    for( jj=kk=0; jj<bytes; ) {			/* scan thru buff:	    */
+	for( ; kk<bytes && buff[kk] != '\n'; ++kk ) /* Scan buff	    */
+		;				/* for newline chars	    */
+	if( kk-jj > 0 ) {			/* something to write?	    */
+	    ii = _pc_writeblk(&(fp->fcb),fp->offset,buff+jj,kk-jj,1); /*     */
+	    fp->offset += ii;			/* Incr pos in file	    */
+	    if( ii==0 )				/* Problems?		    */
+		RETERR(FAILURE,EIO);		/* Tell them so		    */
+	    jj = kk;				/* advance this ptr	    */
+	} else {				/* It was a newline	    */
+	    kk++;				/* write it out next time   */
+	    ii = _pc_writeblk(&(fp->fcb),fp->offset,"\r",1,1); /*	    */
+	    fp->offset += ii;			/* Incr pos in file	    */
+	}					/****************************/
+    }						/* end FOR loop		    */
+    if( fp->offset > fp->hiwater )		/* Need to advance?	    */
+	fp->hiwater = fp->offset;		/*   then do so		    */
+    return jj;					/* Number written	    */
+}						/****************************/
+#endif       /*=============================================================*/
+
+#if CPM      /*=============================================================*/
+	REG	BYTE	*p1;			/* Temp buffer pointer	    */
+	REG	BYTE	cc;			/* character temp	    */
+	LOCAL	LONG	xsector;		/* Sector temp		    */
+	LOCAL	LONG	nsector;		/* Multi-sector count	    */
+	LOCAL	LONG	written;		/* # bytes to write	    */
+	LOCAL	LONG	xbytes;			/* Save byte count remaining*/
+						/****************************/
+	written = bytes;			/* Remember original request*/
+	cc = 0;					/* Init to garbage value    */
+						/*			    */
+while(bytes >0)					/* While more bytes to write*/
+{						/*			    */
+	xsector = fp->offset >> 7;		/* Compute beginning sector */
+						/*			    */
+	if(xsector != fp -> sector)		/* Have to read it first    */
+	{					/*			    */
+	  if((fp->flags & DIRTY) != 0)		/* Buffer has data?	    */
+	  {					/* Yes			    */
+	    if(_blkio(fp,fp->sector,		/*			    */
+		fp->buffer,1L,B_WRITE) != 1)	/* Try to write 	    */
+ 			RETERR(FAILURE,EIO);	/* Couldn't		    */
+	    fp->flags &= ~DIRTY;		/* Nice clean buffer now    */
+	  }					/****************************/
+						/*			    */
+	  if( OFFSECT <= HIWSECT)		/* and below hiwater mark   */
+	  {					/*			    */
+	      if(_blkio(fp,xsector,fp->buffer,	/*			    */
+		  1L,B_READ) != 1)		/* Now read the correct sec */
+			  RETERR(FAILURE,EIO);	/* Couldn't		    */
+	  }					/****************************/
+	  fp->sector = xsector;			/* Mark buffer correctly    */
+	}					/****************************/
+						/*			    */
+	p1 = &(fp->buffer[(int)fp->offset&(SECSIZ-1)]); /* 1st char to write*/
+						/*			    */
+	xbytes = bytes;				/* Save byte count remaining*/
+	while (p1 < &(fp->buffer[SECSIZ])	/* Until buffer is full	    */
+	     && (bytes > 0))			/* or until request done    */
+	{					/****************************/
+	  if(*buff == '\n' && cc != '\r')	/* need to insert C/R	    */
+	    cc = '\r';				/* 			    */
+	  else					/* Don't need to 	    */
+	  {					/*			    */
+	    cc = *buff++;			/*			    */
+	    bytes--;				/*			    */
+	  }					/****************************/
+	    *p1++ = cc;				/* Put char in buffer	    */
+	    fp->offset++;			/* Increment file offset    */
+	}					/****************************/
+	if(p1 >= &(fp->buffer[SECSIZ]))		/* Need to write buffer	    */
+	{					/*			    */
+	  if(_blkio(fp,xsector,fp->buffer,	/*			    */
+		1L,B_WRITE) !=1)		/* Try the write	    */
+	    return(written-xbytes);		/* return # actually written*/
+	}					/****************************/
+	else					/*			    */
+	  fp -> flags |= DIRTY;			/* Buffer dirty again	    */
+	if(bytes == 0)				/* If done,		    */
+	{					/* Check offset here	    */
+	    if(fp->offset > fp->hiwater)	/*			    */
+	      fp->hiwater = fp->offset;		/* Fix hiwater if necessary */
+	    return(written);			/*		return	    */
+	}					/*			    */
+}						/****************************/
+}
+
+MLOCAL _wrtclear(ptr,bytes)
+REG BYTE *ptr;
+REG WORD bytes;
+{
+  while (bytes-- > 0)
+    *ptr++ = 0;
+}
+#endif       /*=============================================================*/
+
+  while (bytes-- > 0)
+    *ptr++ = 0;
+}
+#endif       /*=============================================================*/
+
+  while (bytes-- > 0)
+    *ptr++ = 0;
+}
+#endif       /*=============================================================*/