Return to call_dbu.c CVS log

Up to [CSRG BSD Unix] / 43BSD / ingres / source / decomp

Annotation of 43BSD/ingres/source/decomp/call_dbu.c, revision 1.1.1.1

1.1       root        1: # include      <ingres.h>
                      2: # include      <aux.h>
                      3: # include      <tree.h>
                      4: # include      <symbol.h>
                      5: # include      <pv.h>
                      6: # include      "globs.h"
                      7: # include      <sccs.h>
                      8: 
                      9: SCCSID(@(#)call_dbu.c  8.1     12/31/84)
                     10: 
                     11: int Synconly, Error_flag;
                     12: 
                     13: 
                     14: /*
                     15: **     Call the appropriate dbu with the arguments
                     16: **     given in the globals Pc and Pv. Code is a
                     17: **     number identifing which dbu to call. Errflag
                     18: **     indicates whether an error return from the dbu
                     19: **     is possibly expected.
                     20: **
                     21: **     If errflag is FALSE then call_dbu will syserr on an error
                     22: **     If errflag is TRUE then call_dbu will return error value
                     23: **
                     24: **     Trace Flags:
                     25: **             60
                     26: */
                     27: 
                     28: call_dbu(code, errflag)
                     29: int    code;
                     30: bool   errflag;
                     31: {
                     32: #      ifdef xDTR1
                     33:        if (tTf(60, 0))
                     34:                printf("Calling DBU %d\n", code);
                     35: #      endif
                     36: 
                     37:        Error_flag = 0;
                     38:        call(code, NULL);
                     39:        if (Error_flag != 0 && !errflag)
                     40:                syserr("call_dbu:%d,ret %d", code, Error_flag);
                     41:        return(Error_flag);
                     42: }
                     43: 
                     44: 
                     45: 
                     46: /*
                     47: **     Proc_error is called if an error
                     48: **     block is encountered.
                     49: **     Otherwise the error block(s) are passed on up.
                     50: */
                     51: 
                     52: /*ARGSUSED*/
                     53: catcherr(pc, pv)
                     54: int    pc;
                     55: PARM   *pv;
                     56: {
                     57:        extern int      Error_flag;
                     58: 
                     59:        Error_flag = pv[0].pv_val.pv_int;
                     60: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.