Return to IIw_left.c CVS log

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

Annotation of 43BSD/ingres/source/libq/IIw_left.c, revision 1.1.1.1

1.1       root        1: # include      <ingres.h>
                      2: # undef MAXNAME
                      3: # include      "../equel/constants.h"
                      4: # include      "IIglobals.h"
                      5: # include      <sccs.h>
                      6: # include      <errors.h>
                      7: 
                      8: SCCSID(@(#)IIw_left.c  8.2     2/8/85)
                      9: 
                     10: /*
                     11: **     IIw_left -- writes down a "tupret's" target list.
                     12: **             
                     13: **     Parameters:
                     14: **             string -- a char * to a string containing everything
                     15: **                     inside the equivalent "retrieve" statement,
                     16: **                     but instead of result domain names, the string
                     17: **                     should have '%<ingres_type>', where <ingres_type>
                     18: **                     is the ingres type of the resulting C variable.
                     19: **                     To escape a '%' use 2 ("%%").
                     20: **                     'String' is left unchanged after the call.
                     21: **             argv -- a vector of pointers to the 
                     22: **                     corresponding C variables.
                     23: **
                     24: **     Usage:
                     25: **             argv [0] = &double_var;
                     26: **             argv [1] = &int_var;
                     27: **             IIw_left("%f8 = i.double, %i2=i.ifield", argv);
                     28: **
                     29: **     Required by:
                     30: **             parametrized retrieves without a target relation
                     31: **
                     32: **     Requires:
                     33: **             Uses the ret_sym array IIretsym, and the old equel
                     34: **             method for doing tuprets. NOTE that this does not
                     35: **             allow dynamic (before each tuple) resolution of 
                     36: **             the result C variables as does the new tupret method.
                     37: **
                     38: **     Error numbers:
                     39: **             1003 -- 1 parameter, the erroneous string.
                     40: **                     "Bad format for a domain in a param retrieve
                     41: **                     without a result relation"
                     42: */
                     43: 
                     44: 
                     45: IIw_left(string, argv)
                     46: char   *string;
                     47: char   **argv;
                     48: {
                     49:        register char   *b_st, *e_st;
                     50:        register char   **av;
                     51:        int             type;
                     52:        char            *IIitos();
                     53: 
                     54:        if (IIdebug)
                     55:                printf("ent IIw_left : string \"%s\"\n",
                     56:                string);
                     57:        av = argv;
                     58:        for (b_st = e_st = string; *e_st; )
                     59:        {
                     60:                if (*e_st != '%')
                     61:                {
                     62:                        e_st++;
                     63:                        continue;
                     64:                }
                     65: 
                     66:                /* provide escape method */
                     67:                if (e_st [1] == '%')
                     68:                {
                     69:                        e_st [1] = '\0';
                     70:                        IIwrite(b_st);
                     71:                        /* leave string intact */
                     72:                        e_st [1] = '%';
                     73:                        b_st = e_st = &e_st [2];
                     74:                        continue;
                     75:                }
                     76:                *e_st = '\0';
                     77:                IIwrite(b_st);
                     78:                *e_st++ = '%';
                     79:                IIwrite(" RET_VAR ");
                     80: 
                     81:                switch (*e_st)
                     82:                {
                     83: 
                     84:                  case 'f' :
                     85:                        switch (*++e_st)
                     86:                        {
                     87: 
                     88:                          case '8' :
                     89:                                type = opDOUBLE;
                     90:                                break;
                     91: 
                     92:                          case '4' :
                     93:                                type = opFLOAT;
                     94:                                break;
                     95: 
                     96:                          default :
                     97:                                goto error_label;
                     98:                        }
                     99:                        break;
                    100: 
                    101:                  case 'i' :
                    102:                        switch (*++e_st)
                    103:                        {
                    104: 
                    105:                          case '4' :
                    106:                                type = opLONG;
                    107:                                break;
                    108: 
                    109:                          case '2' :
                    110:                                type = opSHORT;
                    111:                                break;
                    112: 
                    113:                          default :
                    114:                                goto error_label;
                    115:                        }
                    116:                        break;
                    117: 
                    118:                  case 'c' :
                    119:                        type = opSTRING;
                    120:                        break;
                    121:                }
                    122:                IIretrieve(*av++, type);
                    123:                b_st = ++e_st;
                    124:        }
                    125:        IIwrite(b_st);
                    126:        return;
                    127: 
                    128: 
                    129: error_label :
                    130:        IIerror(BADRET, 1, &string); 
                    131:        IIerrflag = 1003;
                    132:        /* make sure that part already written down will
                    133:         * cause an error, and ignore that error
                    134:         */
                    135:        IIwrite(",");
                    136:        IIo_print = IIprint_err;
                    137:        IIprint_err = IIno_err;
                    138: }

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