Upload

Digital Research

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

@@ -0,0 +1,50 @@
+/*************************************************************************
+*
+*			Channel Info Functions
+*			----------------------
+*	Copyright 1982,83 by Digital Reserach Inc.  All rights reserved.
+*
+*	"isatty(fd)" == TRUE iff the file on channel fd is a 'CON:' device.
+*	"isdev(fd)" == TRUE iff fd is 'CON:', 'LST:', 'AUX:'
+*
+*	Where:
+*		fd  = file descriptor returned by 'open'
+*
+**************************************************************************/
+#include "portab.h"
+#include "osif.h"
+
+BOOLEAN	isatty(fd)				/* CLEAR FUNCTION ***********/
+	WORD fd;				/* file des returned by open*/
+{						/****************************/
+	REG FD *fp;				/* ptr to ccb		    */
+	FD *_chkc();				/* validates fd, cvt to fp  */
+						/*			    */
+	if((fp=_chkc(fd)) == NULLFD)		/* make sure its open  MGL  */
+		return(FALSE);			/*   isno TTY ifnot open    */
+	return( (fp->flags & ISTTY) != 0 );	/* test this flag	    */
+}						/****************************/
+
+BOOLEAN	isdev(fd)				/* CLEAR FUNCTION ***********/
+	WORD fd;				/* file des returned by open*/
+{						/****************************/
+	REG FD *fp;				/* ptr to ccb		    */
+	FD *_chkc();				/* validates fd, cvt to fp  */
+						/*			    */
+	if((fp=_chkc(fd)) == NULLFD)		/* make sure its open  MGL  */
+		return(FALSE);			/*   isno TTY ifnot open    */
+	return(fp->flags&(ISTTY|ISLPT|ISAUX));	/* test these flags	    */
+}						/****************************/
+
+
+/* ttyname - find name of a terminal */
+/*	returns "CON:" if isatty, NULLPTR o.w., under CP/M */
+
+EXTERN	BYTE	__tname[];			/* CON: String		*/
+BYTE *	ttyname(fd)				/* CLEAR FUNCTION ***********/
+	WORD fd;
+{
+	if( isatty(fd) )
+		return(__tname);
+	return(NULLPTR);
+}