* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
* Return a standard error message in a character string.
* character*20 gerror, string
* 'string' will receive the standard error message
#include "../libI77/f_errno.h"
extern char *sys_errlist
[];
extern char *f_errlist
[];
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
];
mesg
= "unknown error number";