Return to IIerror.c CVS log

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

Annotation of 43BSD/ingres/source/libq/IIerror.c, revision 1.1.1.1

1.1       root        1: # include      <ingres.h>
                      2: # include      <symbol.h>
                      3: # include      "IIglobals.h"
                      4: # include      <sccs.h>
                      5: 
                      6: SCCSID(@(#)IIerror.c   8.1     12/31/84)
                      7: 
                      8: 
                      9: /*
                     10: **     IIerror -- std. equel error reporting routine.
                     11: **
                     12: **             IIerror is called either directly by a
                     13: **             routine detecting an error or by
                     14: **             IIrdpipe where INGRES returns an error.
                     15: **
                     16: **             In the case of an appropriate error, IIerrflag is set to
                     17: **             prevent the reading of the ovqp data pipe. This happens
                     18: **             on errors that happen during retrieves to C vars.
                     19: **
                     20: **             Errno is the error number: 1??? is an equel error
                     21: **             others are Ingres errors.
                     22: **
                     23: **             Argc and argv are structured as in Unix main program calls.
                     24: **
                     25: **             The error is printed if the call (*IIprint_err)()
                     26: **             returns > 0. Otherwise no error message is printed.
                     27: **             The error message that is printed is the one corresponding
                     28: **             to the number returned by (*IIprint_err)().
                     29: */
                     30: 
                     31: extern IIret_err();
                     32: int    (*IIprint_err)() =      IIret_err;
                     33: 
                     34: 
                     35: IIerror(errno, argc, argv)
                     36: int    errno, argc;
                     37: char   *argv [];
                     38: {
                     39:        register int            i;
                     40: 
                     41: #      ifdef xETR1
                     42:        if (IIdebug > 1)
                     43:                printf("ent IIerror : errno %d, argc %d\n", errno, argc);
                     44: #      endif
                     45: 
                     46:        IIerrflag = errno;
                     47:        if (!(errno = (*IIprint_err)(errno)))
                     48:        {
                     49: #              ifdef xETR2
                     50:                if (IIdebug > 1)
                     51:                        printf("IIerror : IIprint_err returned 0\n");
                     52: #              endif
                     53:                /* if must restore printing turned off in IIw_left()
                     54:                 * or IIw_right(), then do so.
                     55:                 */
                     56:                if (IIo_print)
                     57:                {
                     58:                        IIprint_err = IIo_print;
                     59:                        IIo_print = 0;
                     60:                }
                     61:                return;
                     62:        }
                     63: 
                     64:        if (errno > 2000)
                     65:                printf("INGRES ERROR: ");
                     66:        else
                     67:                printf("EQUEL ERROR: ");
                     68: 
                     69:        if (!IIp_err(errno, argc, argv))
                     70:        {
                     71:                /* couldn't process error in IIp_err() */
                     72:                printf(" %d with parameters:",errno);
                     73:                for (i = 0; i < argc; )
                     74:                        printf(" %s", argv [i++]);
                     75:                printf("\n");
                     76:        }
                     77:        if (IIproc_name)
                     78:                printf("On file %s line %d.\n", IIproc_name, IIline_no);
                     79: }
                     80: 
                     81: /*
                     82: **  IIret_err -- returns its single argument for IIerror.
                     83: **
                     84: */
                     85: 
                     86: IIret_err(err)
                     87: int    err;
                     88: {
                     89:        return (err);
                     90: }
                     91: 
                     92: /*
                     93: **  IIno_err -- returns 0. Called from IIerror
                     94: **             (through (*IIprint_err)())
                     95: **             to supress error message printing.
                     96: */
                     97: 
                     98: IIno_err(err)
                     99: int    err;
                    100: {
                    101:        return (0);
                    102: }

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