Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/clib/xttyin.c

@@ -0,0 +1,94 @@
+/****************************************************************************/
+/*									    */
+/*			  _ t t y i n   F u n c t i o n			    */
+/*			  -----------------------------			    */
+/*	Copyright 1982 by Digital Research Inc.  All rights reserved.	    */
+/*									    */
+/*	Function "_ttyin" is used to read a line from the terminal.  	    */
+/*	It looks for the ISSPTTY flag set in the ccb: if set, it assumes    */
+/*	the fcb really contains sgttyb information (see <sgtty.h>), and	    */
+/*	behaves accordingly.						    */
+/*	Otherwise, it grabs a line at a time from the BDOS.		    */
+/*									    */
+/*	Calling Sequence:						    */
+/*		ret = _ttyin(fp,buffer,bytes);				    */
+/*	Where:								    */
+/*		fp	-> ccb pointer & channel info			    */
+/*		buffer	-> the user's input buffer			    */
+/*		bytes	=  the (maximum) number of bytes to read	    */
+/*		ret 	=  the number of bytes actually read		    */
+/*									    */
+/****************************************************************************/
+#include <portab.h>
+#include <cpm.h>
+#include <sgtty.h>
+#define Conin 0xFFL
+#define Constat 0xFEL
+
+WORD	_ttyin(fp,buff,bytes)			/****************************/
+REG	FD	*fp;				/* -> filedes		    */
+REG	BYTE	*buff;				/* -> user's buffer	    */
+REG	LONG	bytes;				/* =  requested byte count  */
+{						/****************************/
+LOCAL	BYTE	ttybuf[257];			/* Biggest line from tty    */
+REG	LONG	xbytes,				/* Returned byte count	    */
+		nbs;				/* Number to read	    */
+REG	BYTE	*p;				/* Temp pointer		    */
+LOCAL	struct sgttyb *tyb;			/* TTY info ptr (at fp->fcb)*/
+						/*			    */
+	if(fp->flags & ISSPTTY)			/* is this a special tty?   */
+	{					/****************************/
+		tyb = &(fp->fcb);		/* assume info stored here  */
+		if(tyb->sg_flags & RAW)		/* are we in raw mode?	    */
+		{				/*			    */
+		    *buff = __BDOS(CONIO,Conin);/* grab a char		    */
+		    return(1);			/* return number bytes read */
+		}				/*   ************************/
+		if(tyb->sg_flags & CBREAK)	/* are we half baked?	    */
+		{				/*			    */
+		    p = buff;			/* use ptr		    */
+		    *p = __BDOS(CONIO,Conin);	/* get char		    */
+		    if( *p == tyb->sg_kill )	/* kill char typed?	    */
+			exit(1);		/*  yes: DIE, PROGRAM!	    */
+		    if(tyb->sg_flags & LCASE)	/* they want lower case?    */
+			*p = (*p>='A'&& *p<='Z' /*			    */
+			    ? *p-'A'+'a' : *p);	/*  give them lower case    */
+		    if((tyb->sg_flags & CRMOD)	/* xlate returns?	    */
+		      && *p == '\r' )		/*			    */
+		    {				/*			    */
+			if(tyb->sg_flags & ECHO) /*			    */
+			    __BDOS(CONIO,(LONG)*p); /* out before xlate	    */
+			*p = '\n';		/*  yes, do xlation	    */
+		    }				/*			    */
+		    if(tyb->sg_flags & ECHO)	/* echo chars?		    */
+			__BDOS(CONIO,(LONG)*p);	/*			    */
+		    return(1);			/* return number read	    */
+		}				/*   ************************/
+						/* nothing really special...*/
+	}					/****************************/
+	nbs = bytes < 255 ? bytes : 255;	/* don't read more than they*/
+	ttybuf[0] = nbs;			/* asked for/we have room fr*/
+	__BDOS(CONBUF,&ttybuf[0]);		/* Read line from BDOS	    */
+						/****************************/
+	xbytes = ttybuf[1] & 0xffL;		/* # characters read	    */
+	if( xbytes<nbs )			/* # read < #asked for,assum*/
+		__BDOS(CONOUT,(LONG)'\n');	/*   CR/LF line terminated  */
+	p = &ttybuf[2];				/* p -> First character	    */
+	while( bytes > 0 && xbytes > 0)		/* 			    */
+	{					/* Copy 1 byte / time	    */
+		if(*p == EOFCHAR)		/* ^Z typed?		    */
+		{				/* Yes, 		    */
+		   fp->flags |= ATEOF;		/*	Mark with EOF	    */
+		   break;			/*	Exit now	    */
+		}				/****************************/
+		*buff++ = *p++;			/*			    */
+		bytes--;			/* Decrement request	    */
+		xbytes--;			/* Decrement bytes in buff  */
+	}					/****************************/
+	if(bytes > 0)				/* Terminate on count?	    */
+	{					/*			    */
+		*buff++ = '\n';			/* No, plug in newline	    */
+		p++;				/* Bump pointer		    */
+	}					/****************************/
+	return((WORD)(p-&ttybuf[2]));		/* Return # bytes moved	    */
+}						/****************************/