Return to IIcvar.c CVS log

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

Annotation of 43BSD/ingres/source/libq/IIcvar.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(@(#)IIcvar.c    8.2     2/10/86)
                      7: 
                      8: 
                      9: /*
                     10: **     IIcvar -- write C variable values to parser
                     11: **
                     12: **
                     13: **             IIcvar is used to write the contents
                     14: **             of a C-variable to the quel parser.
                     15: **
                     16: **             Floats are converted to doubles first.
                     17: **
                     18: */
                     19: 
                     20: IIcvar(obj, type, len)
                     21: char   *obj;
                     22: int    type;
                     23: int    len;
                     24: {
                     25:        register int            length;
                     26:        register ANYTYPE        *addr;
                     27:        char                    t;
                     28:        double                  d;
                     29: 
                     30:        t = type;       /* copy type of symbol */
                     31:        length = len;   /* and its length */
                     32:        addr = (ANYTYPE *) obj; /* and a pointer to it */
                     33: 
                     34:        switch (t)
                     35:        {
                     36: 
                     37:          case opFLOAT:
                     38:                /* convert from f4 to f8 */
                     39:                d = addr->f4type;
                     40:                addr = (ANYTYPE *) &d;
                     41:                length = sizeof d;
                     42:                t = opDOUBLE;
                     43:                break;
                     44: 
                     45:          case opSTRING:
                     46:                length = IIlength(addr) + 1;    /* length includes null byte at end */
                     47: 
                     48:          case opSHORT:
                     49:          case opLONG:
                     50:          case opDOUBLE:
                     51:                break;
                     52: 
                     53:          default:
                     54:                IIsyserr("IIcvar:bad type %d", t);
                     55:        }
                     56: 
                     57: 
                     58: #      ifdef xETR1
                     59:        if (IIdebug)
                     60:                printf("IIcvar:type %d, length %d\n", t, length);
                     61: #      endif
                     62: 
                     63:        IIpb_put(&t, 1, &IIpb);
                     64:        IIpb_put(addr, length, &IIpb);
                     65: }

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