P8000/WEGA/contrib/ingres/dbs/src/iutil/proc_error.c

27 lines
505 B
C

# include <stdio.h>
# include "gen.h"
# include "../h/pipes.h"
/*
** DEFAULT PROC_ERROR ROUTINE
**
** This routine handles the processing of errors for a typical
** process. Please feel free to redefine it if you need other
** features.
*/
proc_error(s, fd)
register struct pipfrmt *s;
register int fd;
{
struct pipfrmt t;
if (fd != R_down)
AAsyserr(15027);
wrpipe(P_PRIME, &t, s->exec_id, (char *) 0, s->func_id);
t.err_id = s->err_id;
copypipes(s, fd, &t, W_up);
rdpipe(P_PRIME, s);
}