Return to IIn_ret.c CVS log

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

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

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