Return to call_dbu.c CVS log

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

Annotation of 42BSD/ingres/source/decomp/call_dbu.c, revision 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  7.1     2/5/81)
        !            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.