blob: 53aa923ad348a3a5c4fb4f0c57cd7a0c237cbec4 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#define import_spp
#define import_xnames
#define import_stdio
#define import_libc
#include <iraf.h>
#define SZ_OSERRMSG 80
int sys_nerr; /* UNIX standard */
char *sys_errlist[1]; /* UNIX standard */
int u_oserrcode;
char u_oserrmsg[SZ_OSERRMSG+1];
/* PERROR -- Print a short error message on the standard output describing
** the last system error (e.g., exception). The prefix string supplied
** as the argument is first printed, followed by an ":", followed by the
** system dependent error message describing the error.
*/
void
perror (
char *prefix /* prefix string */
)
{
u_oserrcode = c_errget (u_oserrmsg, SZ_OSERRMSG);
sys_nerr = 0;
sys_errlist[0] = u_oserrmsg;
fputs (prefix, stderr);
fputs (": ", stderr);
fputs (u_oserrmsg, stderr);
fputc ('\n', stderr);
}
|
