Return to IIp_err.c CVS log

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

Annotation of 42BSD/ingres/source/libq/IIp_err.c, revision 1.1

1.1     ! root        1: # include      <pipes.h>
        !             2: # include      <ingres.h>
        !             3: # include      <aux.h>
        !             4: # include      <version.h>
        !             5: # include      "IIglobals.h"
        !             6: # include      <sccs.h>
        !             7: 
        !             8: SCCSID(@(#)IIp_err.c   7.1     2/5/81)
        !             9: 
        !            10: 
        !            11: /*
        !            12: **  IIp_err 
        !            13: **
        !            14: **     This routine processes an IIerror call for printout.This involves doing
        !            15: **     a lookup in the .../files/error? files, where ? is the thous-
        !            16: **     ands digit of the error number.  The associated error message
        !            17: **     then goes through parameter substitution and is printed.
        !            18: **
        !            19: **     In the current version, the error message is just printed.
        !            20: */
        !            21: 
        !            22: IIp_err(err_num, argc, argv)
        !            23: int            err_num;
        !            24: int            argc;
        !            25: char           **argv;
        !            26: {
        !            27:        register char   *p;
        !            28:        char            buf[512];
        !            29:        int             i;
        !            30:        struct iob      iob;
        !            31:        register char   c;
        !            32:        extern char     *IIerrfilen();
        !            33:        extern char     *IIconcatv();
        !            34: 
        !            35:        /* IIfopen the appropriate error file */
        !            36:        p = buf;
        !            37:        IIerrfilen(err_num / 1000, p);
        !            38: 
        !            39: #      ifdef xETR2
        !            40:        if (IIdebug > 1)
        !            41:                printf("IIp_err : with IIerrfilen ret \"%s\"\n", p);
        !            42: #      endif
        !            43: 
        !            44:        if (IIfopen(p, &iob) < 0)
        !            45:                return (0);
        !            46: 
        !            47:        /* read in the code and check for correct */
        !            48:        for (;;)
        !            49:        {
        !            50:                p = buf;
        !            51:                while ((c = IIgetc(&iob)) != '\t')
        !            52:                {
        !            53:                        if (c <= 0)
        !            54:                        {
        !            55:                                if (IIclose(&iob) < 0)
        !            56:                                        IIsyserr("IIp_err: bad close 1");
        !            57:                                return (0);
        !            58:                        }
        !            59:                        *p++ = c;
        !            60:                }
        !            61:                *p = 0;
        !            62:                if (IIatoi(buf, &i))
        !            63:                        IIsyserr("IIp_err: bad error file %d\n%s",
        !            64:                                err_num, buf);
        !            65:                if (i != err_num)
        !            66:                {
        !            67:                        while ((c = IIgetc(&iob)) != ERRDELIM)
        !            68:                                if (c <= 0)
        !            69:                                        IIsyserr("IIp_err: format err %d", err_num);
        !            70:                        IIgetc(&iob);   /* throw out the newline */
        !            71:                        continue;
        !            72:                }
        !            73: 
        !            74:                /* got the correct line, print it doing parameter substitution */
        !            75:                printf("%d: ", err_num);
        !            76:                for (;;)
        !            77:                {
        !            78:                        c = IIgetc(&iob);
        !            79:                        if (c <= 0 || c == ERRDELIM)
        !            80:                        {
        !            81:                                printf("\n");
        !            82:                                 if (IIclose(&iob) < 0)
        !            83:                                        IIsyserr("IIp_err: bad close 2");
        !            84:                                return (1);
        !            85:                        }
        !            86:                        if (c == '%')
        !            87:                        {
        !            88:                                c = IIgetc(&iob);
        !            89:                                for (p = argv[c - '0']; c = *p; p++)
        !            90:                                {
        !            91:                                        if (c < 040 || c >= 0177)
        !            92:                                                printf("\\%o", c);
        !            93:                                        else
        !            94:                                                putchar(c);
        !            95:                                }
        !            96:                                continue;
        !            97:                        }
        !            98:                        putchar(c);
        !            99:                }
        !           100:        }
        !           101: }
        !           102: 
        !           103: /*
        !           104: ** IIerrfilen -- Returns the pathname where the error file can be found
        !           105: **     into "buf".
        !           106: **
        !           107: **     It is assumed that the error number cannot be more than 999.
        !           108: **     Returned is concat of : IIPathname, "/files/error", VERSION (w/o mod),
        !           109: **     "_num".
        !           110: */
        !           111: 
        !           112: char *
        !           113: IIerrfilen(num, buf)
        !           114: int    num;
        !           115: char   *buf;
        !           116: {
        !           117:        register char   *cp;
        !           118:        char            ver[12];
        !           119:        extern char     *IIconcatv();
        !           120: 
        !           121:        IIconcatv(ver, VERSION, 0);
        !           122: 
        !           123:        /* now insert the "_X" */
        !           124:        cp = &ver[IIlength(ver)];
        !           125:        *cp++ = '_';
        !           126:        *cp = '\0';
        !           127:        IIconcatv(ver, ver, IIitos(num), 0);
        !           128: 
        !           129: 
        !           130:        return (IIconcatv(buf, IIPathname, "/files/error", ver, 0));
        !           131: }

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