blob: a62a2f670b518cc76e10f8a8f80030ccf68bafd0 (
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
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#define import_spp
#define import_libc
#define import_xnames
#include <iraf.h>
/* C_ERRGET -- Get the error code and error message string of the most
** recent error.
*/
int
c_errget (
char *outstr, /* error message string */
int maxch /* max chars out, incl EOS */
)
{
XCHAR buf[SZ_LINE+1];
XINT szbuf = SZ_LINE;
int errcode;
errcode = (int) ERRGET (buf, &szbuf);
c_strpak (buf, outstr, maxch);
return (errcode);
}
|
