int _lwarn(int errn, ...) { va_list args; /* Variable argument list */ #ifdef _CRAY if (_numargs() < 1) return(-1); #endif if (((errn < BASE) || (errn > (BASE+999))) && ((errn < FDC_ERRB) || (errn > (FDC_ERRB+999)))) return(-2); va_start(args, errn); _lmessage(errn, "WARNING", args); va_end(args); return(0); }
void _lerror(int hndlcode, int errn, ...) { va_list args; /* Variable argument list */ #ifdef _CRAY if (_numargs() < 1) (void) abort(); #endif if (hndlcode >= _LELVL_MSG && errn != 0) { va_start(args, errn); _lmessage(errn, NULL, args); /* Print error message */ va_end(args); } if (hndlcode >= _LELVL_ABORT) { (void) abort(); /* abort causes traceback on CX/CEA */ } if (hndlcode >= _LELVL_EXIT) (void) exit(1); }