Return to startovqp.c CVS log

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

Annotation of 43BSD/ingres/source/ovqp/startovqp.c, revision 1.1.1.1

1.1       root        1: # include      <ingres.h>
                      2: # include      <symbol.h>
                      3: # include      <tree.h>
                      4: # include      <aux.h>
                      5: # include      "../decomp/globs.h"
                      6: # include      "../ctlmod/pipes.h"
                      7: # include      <signal.h>
                      8: # include      <sccs.h>
                      9: # include      <errors.h>
                     10: # include      <math.h>
                     11: # include      <errno.h>
                     12: 
                     13: SCCSID(@(#)startovqp.c 8.3     1/31/86)
                     14: 
                     15: /*
                     16: **     startovqp is called at the beginning of
                     17: **     the execution of ovqp.
                     18: */
                     19: 
                     20: 
                     21: startovqp()
                     22: {
                     23:        extern  flptexcep();
                     24: 
                     25:        if (Equel)
                     26:                startequel();
                     27: 
                     28:        De.ov_tupsfound = 0;    /* counts the number of tuples which sat the qual */
                     29:        De.ov_retrieve = De.ov_bopen = FALSE;
                     30:        /* catch floating point signals */
                     31:        signal(SIGFPE, (int) flptexcep);
                     32: }
                     33: 
                     34: /*
                     35: **     Give a user error for a floating point exceptions
                     36: */
                     37: flptexcep()
                     38: {
                     39:        ov_err(FLOATEXCEP);
                     40: }
                     41: 
                     42: /* Someone here in Berkeley thinks this is a good idea. */
                     43: /* See 4.3 man 3m intro */
                     44: double
                     45: infnan(arg)
                     46: register arg;
                     47: {
                     48:        extern int      errno;
                     49: 
                     50:        switch (arg)
                     51:        {
                     52:          case ERANGE:
                     53:                errno = ERANGE;
                     54:                return(HUGE);
                     55:          case -ERANGE:
                     56:                errno = EDOM;
                     57:                return(-HUGE);
                     58:          case EDOM:
                     59:                errno = EDOM;
                     60:                return(0.0);
                     61:        }
                     62: }

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