Return to IIn_ret.c CVS log

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

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

1.1     ! root        1: # include      <ingres.h>
        !             2: # include      <symbol.h>
        !             3: # include      "IIglobals.h"
        !             4: # include      <sccs.h>
        !             5: 
        !             6: SCCSID(@(#)IIn_ret.c   7.2     10/27/81)
        !             7: 
        !             8: 
        !             9: 
        !            10: /*
        !            11: **  IIn_ret -- get next domain in a retrieve
        !            12: **
        !            13: **     Gets the next domain in a retrieve from the data
        !            14: **     pipe. If an error occurred previously in the tuple,
        !            15: **     will not load the c-var with the value of the domain.
        !            16: **     Performs the conversion from the gotten type to
        !            17: **     the expected type.
        !            18: **
        !            19: **     Signals any errors and calls IIerror() accordingly.
        !            20: **
        !            21: **     Expects the type and length of the next data item in
        !            22: **     IIr_sym.
        !            23: **
        !            24: */
        !            25: 
        !            26: 
        !            27: 
        !            28: 
        !            29: IIn_ret(addr, type)
        !            30: char   *addr;
        !            31: int    type;
        !            32: {
        !            33:        char                    temp[256], *IIitos();
        !            34:        char                    *s;
        !            35:        register struct retsym  *ret;
        !            36:        register                length;
        !            37: 
        !            38: 
        !            39: 
        !            40:        if (IIerrflag && IIerrflag != 1001)
        !            41:                return;         /* error, no data will be coming, or
        !            42:                                 * the rest of the query should be
        !            43:                                 * skipped
        !            44:                                 */
        !            45: 
        !            46:         ret = &IIr_sym;
        !            47: 
        !            48:        if (ret->len &= 0377)
        !            49:                if (IIpb_get(&IIpb, temp, ret->len & 0377) != ret->len & 0377)
        !            50:                        IIsyserr("IIn_ret: bad pb_get-1 %d", ret->len & 0377);
        !            51: 
        !            52: 
        !            53: #      ifdef xETR1
        !            54:        if (IIdebug)
        !            55:        {
        !            56:                printf("%s ent ", IIproc_name ? IIproc_name: "");
        !            57:                printf("IIn_ret : addr 0%o type %d length %d type %d IIerrflag %d\n",
        !            58:                addr, type, ret->len & 0377, ret->type, IIerrflag);
        !            59:        }
        !            60: #      endif
        !            61: 
        !            62: 
        !            63:        IIdomains++;
        !            64:        switch (type)
        !            65:        {
        !            66: 
        !            67:          case opSHORT:
        !            68:                type = INT;
        !            69:                length = 2;
        !            70:                break;
        !            71: 
        !            72:          case opLONG:
        !            73:                type = INT;
        !            74:                length = 4;
        !            75:                break;
        !            76: 
        !            77:          case opFLOAT:
        !            78:                type = FLOAT;
        !            79:                length = 4;
        !            80:                break;
        !            81: 
        !            82:          case opDOUBLE:
        !            83:                type = FLOAT;
        !            84:                length = 8;
        !            85:                break;
        !            86: 
        !            87:          case opSTRING:
        !            88:                type = CHAR;
        !            89:                length = 255;   /* with the current implementation the length is not known */
        !            90:                break;
        !            91: 
        !            92:          default:
        !            93:                IIsyserr("IIn_ret:bad type %d", type);
        !            94:        }
        !            95: 
        !            96:        switch (ret->type)
        !            97:        {
        !            98: 
        !            99:          case INT:
        !           100:          case FLOAT:
        !           101:                if (type == CHAR)
        !           102:                {
        !           103:                        s = IIitos(IIdomains);
        !           104:                        IIerrflag = 1000;
        !           105:                        IIerror(1000, 1, &s);
        !           106:                        return (0);
        !           107:                }
        !           108:                if (IIconvert(temp, IIerrflag ? temp : addr,
        !           109:                   ret->type, ret->len & 0377, type, length) < 0)
        !           110:                {
        !           111:                                s = IIitos(IIdomains);
        !           112:                                IIerrflag = 1001;
        !           113:                                IIerror(1001, 1, &s);
        !           114:                }
        !           115:                break;
        !           116: 
        !           117:          case CHAR:
        !           118:                if (type != CHAR)
        !           119:                {
        !           120:                        s = IIitos(IIdomains);
        !           121:                        IIerrflag = 1002;
        !           122:                        IIerror(1002, 1, &s);
        !           123:                        return (0);
        !           124:                }
        !           125:                if (!IIerrflag)
        !           126:                {
        !           127:                        IIbmove(temp, addr, ret->len & 0377);
        !           128: 
        !           129:                        /* null terminate string */
        !           130:                        addr [ret->len & 0377] = '\0';  
        !           131:                }
        !           132:                break;
        !           133: 
        !           134:          default :
        !           135:                IIsyserr("IIn_ret bad gotten type %d",
        !           136:                ret->type);
        !           137:        }
        !           138: 
        !           139:        if (IIpb_get(&IIpb, ret, 2) != 2)
        !           140:                IIsyserr("IIn_ret : bad pb_get - 2");
        !           141: }

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