[unix-history] / usr / src / usr.bin / f77 / libU77 / gerror_.c

/*
char id_gerror[] = "@(#)gerror_.c	1.1";
 *
 * Return a standard error message in a character string.
 *
 * calling sequence:
 *	call gerror (string)
 * or
 *	character*20 gerror, string
 *	string = gerror()
 * where:
 *	'string' will receive the standard error message
 */

#include	<stdio.h>
#include	"../libI77/f_errno.h"

extern char *sys_errlist[];
extern int sys_nerr;
extern char *f_errlist[];
extern int f_nerr;

gerror_(s, len)
char *s; long len;
{
	char *mesg;

	if (errno >=0 && errno < sys_nerr)
		mesg = sys_errlist[errno];
	else if (errno >= F_ER && errno < (F_ER + f_nerr))
		mesg = f_errlist[errno - F_ER];
	else
		mesg = "unknown error number";
	b_char(mesg, s, len);
}
Commit	Line	Data
02b941ef DW	1	/*
	2	char id_gerror[] = "@(#)gerror_.c 1.1";
	3	*
	4	* Return a standard error message in a character string.
	5	*
	6	* calling sequence:
	7	* call gerror (string)
	8	* or
	9	* character*20 gerror, string
	10	* string = gerror()
	11	* where:
	12	* 'string' will receive the standard error message
	13	*/
	14
	15	#include <stdio.h>
	16	#include "../libI77/f_errno.h"
	17
	18	extern char *sys_errlist[];
	19	extern int sys_nerr;
	20	extern char *f_errlist[];
	21	extern int f_nerr;
	22
	23	gerror_(s, len)
	24	char *s; long len;
	25	{
	26	char *mesg;
	27
	28	if (errno >=0 && errno < sys_nerr)
	29	mesg = sys_errlist[errno];
	30	else if (errno >= F_ER && errno < (F_ER + f_nerr))
	31	mesg = f_errlist[errno - F_ER];
	32	else
	33	mesg = "unknown error number";
	34	b_char(mesg, s, len);
	35	}