Return to IIgettup.c CVS log

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

Annotation of 43BSD/ingres/source/libq/IIgettup.c, revision 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(@(#)IIgettup.c  8.2     2/8/85)
        !             8: 
        !             9: 
        !            10: /*
        !            11: **     IIgettup is called to retrieve one instance
        !            12: **     of the target list into the c-variables.
        !            13: **
        !            14: **     Integers and Floating point numbers can be converted
        !            15: **     to other numbers.
        !            16: **
        !            17: **     Characters fields must match other character fields.
        !            18: */
        !            19: 
        !            20: IIgettup(file_name, line_no)
        !            21: char   *file_name;
        !            22: int    line_no;
        !            23: {
        !            24:        register int            length, domain;
        !            25:        register struct retsym  *ret;
        !            26:        struct retsym           sym;
        !            27:        char                    temp[256], *IIitos(), *s;
        !            28: 
        !            29: 
        !            30: 
        !            31:        if (IIproc_name = file_name)
        !            32:                IIline_no = line_no;
        !            33: 
        !            34:        if (IIerrflag)
        !            35:                return (0);     /* error. no data will be coming */
        !            36: 
        !            37:        ret = IIretsym;
        !            38:        domain = 0;
        !            39: 
        !            40:        for (;;)
        !            41:        {
        !            42:                if (IIpb_get(&IIpb, &sym, 2) != 2)
        !            43:                        IIsyserr("IIgettup bad rdpipe 1");
        !            44:                if (length = sym.len & 0377)
        !            45:                        if (IIpb_get(&IIpb, temp, length) != length)
        !            46:                                IIsyserr("IIgettup bad rdpipe-2 %d", length);
        !            47: #              ifdef xETR1
        !            48:                if (IIdebug)
        !            49:                {
        !            50:                        printf("%s ent ", IIproc_name ? IIproc_name : "");
        !            51:                        printf("gettup type %d len %d\n", sym.type, length);
        !            52:                }
        !            53: #              endif
        !            54:                domain++;
        !            55:                switch (sym.type)
        !            56:                {
        !            57: 
        !            58:                  case INT:
        !            59:                  case FLOAT:
        !            60:                        if (ret->type == CHAR)
        !            61:                        {
        !            62:                                s = IIitos(domain);
        !            63:                                IIerror(NUMINTOCHAR, 1, &s);
        !            64:                                return (0);
        !            65:                        }
        !            66:                        if (IIconvert(temp, ret->addr, sym.type, length, ret->type, ret->len & 0377) < 0)
        !            67:                        {
        !            68:                                        s = IIitos(domain);
        !            69:                                        IIerror(NUMOVFLO, 1, &s);
        !            70:                        }
        !            71:                        break;
        !            72: 
        !            73:                  case CHAR:
        !            74:                        if (ret->type != CHAR)
        !            75:                        {
        !            76:                                s = IIitos(domain);
        !            77:                                IIerror(CHARINTONUM, 1, &s);
        !            78:                                return (0);
        !            79:                        }
        !            80:                        IIbmove(temp, ret->addr, length);
        !            81:                        ret->addr[length] = '\0';       /* null terminate string */
        !            82:                        break;
        !            83: 
        !            84:                  case EOTUP:
        !            85:                        return (1);
        !            86: 
        !            87:                  case EXIT:
        !            88:                        return (0);
        !            89:                }
        !            90:                ret++;
        !            91:        }
        !            92: }

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