Upload

Digital Research

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

@@ -0,0 +1,108 @@
+/***********************************************************************
+*
+*			p e r r o r   F u n c t i o n
+*			-----------------------------
+*	Copyright 1982 by Digital Research Inc.  All rights reserved.
+*
+*	"perror" produces a short error message on stderr describing
+*	the last error encountered during a call to the system.
+*	It assumes the variable "errno" contains this error.
+*	Note: "errno" is set when errors occur, but is not cleared.
+*	Note also that some of the UNIX errors are meaningless under 
+*	CP/M, and will print an undefined message (defined below).
+*	Finally, note that the defines in """errno.h""" will index 
+*	appropriately into the sys_errlist table, below.
+*
+*	Calling sequence:
+*		ret = perror(s)
+*	Where:
+*		ret = errno
+*		s   -> a string containing a message printed with
+*			the explanatory error message.
+*
+**************************************************************************/
+#include "portab.h"
+#include "osif.h"
+#include "osiferr.h"
+
+#define NUMERRS 37
+#define STDERR 2
+MLOCAL BYTE _undeferr[] = "Error undefined" ;
+WORD sys_nerr = NUMERRS;
+
+VOID	perror(str)				/* CLEAR FUNCTION ***********/
+	BYTE *str;
+{
+REG	BYTE *err;
+	BYTE lbuf[20], *buf, *_itoa();
+	EXTERN BYTE *sys_errlist[];
+
+	if( errno<0 || errno>=sys_nerr )
+		err = _undeferr;
+	else	err = sys_errlist[errno];
+	write(STDERR,str,strlen(str));
+	write(STDERR,": ",2);
+	write(STDERR,err,strlen(err));
+	write(STDERR," (",2);
+	buf = _itoa(errno,lbuf);
+	if( _errcpm != 0 )		/* assume this had something to do */
+	{
+		*buf++ = '.';
+		buf = _itoa(_errcpm,buf);
+	}
+	*buf++ = ')'; *buf++ = '\n'; *buf = NULL;
+	write(STDERR,lbuf,strlen(lbuf));
+	return(errno);
+}
+
+MLOCAL BYTE *_itoa(nm,bp)
+	WORD nm;
+REG	BYTE *bp;
+{
+	/* temporary... */
+	sprintf(bp,"%d",nm);
+	while(*bp) bp++;
+	return(bp);
+}
+
+
+BYTE *sys_errlist[NUMERRS] = {
+	_undeferr,			/* 0 */
+	_undeferr,			/* 1 */
+	"ENOENT No such file",		/* 2 */
+	_undeferr,			/* 3 */
+	_undeferr,			/* 4 */
+	"EIO I/O error",		/* 5 */
+	_undeferr,			/* 6 */
+	"E2BIG Arg list too long",	/* 7 */
+	_undeferr,			/* 8 */
+	"EBADF Bad file number",	/* 9 */
+	_undeferr,			/* 10 */
+	_undeferr,			/* 11 */
+	"ENOMEM Not enough core",	/* 12 */
+	"EACCES Permission denied",	/* 13 */
+	_undeferr,			/* 14 */
+	_undeferr,			/* 15 */
+	_undeferr,			/* 16 */
+	_undeferr,			/* 17 */
+	_undeferr,			/* 18 */
+	_undeferr,			/* 19 */
+	_undeferr,			/* 20 */
+	_undeferr,			/* 21 */
+	"EINVAL Invalid argument",	/* 22 */
+	"ENFILE File table overflow",	/* 23 */
+	"EMFILE Too many open files",	/* 24 */
+	"ENOTTY Not a typewriter",	/* 25 */
+	_undeferr,			/* 26 */
+	"EFBIG File too big",		/* 27 */
+	"ENOSPC No space left on device",/* 28 */
+	_undeferr,			/* 29 */
+	"EROFS Read-only file system",	/* 30 */
+	_undeferr,			/* 31 */
+	_undeferr,			/* 32 */
+	_undeferr,			/* 33 */
+	_undeferr,			/* 34 */
+/* end of UNIX v7, start of CPM specific      */
+	"ENODSPC No directory space",	/* 35 */
+	"ERENAME Can't rename file"	/* 36 */
+};