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 | } |