Return to cvint.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / rt

Annotation of 43BSD/contrib/icon/rt/cvint.c, revision 1.1.1.1

1.1       root        1: #include "../h/rt.h"
                      2: 
                      3: /*
                      4:  * cvint - convert the value represented by d into an integer and write
                      5:  *  the value into the location referenced by i.  cvint returns one of
                      6:  *  T_INTEGER, T_LONGINT, and NULL depending on the outcome of the conversion.
                      7:  */
                      8: 
                      9: cvint(d, i)
                     10: register struct descrip *d;
                     11: long *i;
                     12:    {
                     13:    DclSave
                     14:    union numeric result;
                     15: 
                     16:    /*
                     17:     * Use cvnum to attempt the conversion into "result".
                     18:     */
                     19:    switch (cvnum(d, &result)) {
                     20:       case T_LONGINT:
                     21:          /*
                     22:           * The value converted into an integer.  Assign the value to *i.
                     23:           *  On systems with longs, distinguish between integer and long
                     24:           *  integer results via the return value.
                     25:           */
                     26:          *i = result.integer;
                     27: #ifdef LONGS
                     28:          if (*i < (long)(int)MINSHORT || *i > (long)(int)MAXSHORT)
                     29:             return (T_LONGINT);
                     30: #endif LONGS
                     31:          return (T_INTEGER);
                     32: 
                     33:       case T_REAL:
                     34:          /*
                     35:           * The value converted into a real number.  If it's not in the
                     36:           *  range of an integer, return a 0, otherwise convert the
                     37:           *  real value into an integer.  As before, distinguish between
                     38:           *  integers and long integers if necessary.
                     39:           */
                     40:          if (result.real > MAXLONG || result.real < MINLONG)
                     41:             return (NULL);
                     42:          *i = (long)result.real;
                     43: #ifdef LONGS
                     44:          if (*i < MINSHORT || *i > MAXSHORT)
                     45:             return (T_LONGINT);
                     46: #endif LONGS
                     47:          return (T_INTEGER);
                     48: 
                     49:       default:
                     50:          return (NULL);
                     51:       }
                     52:    }

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