home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / msm-2 / iconc.sit / tivals.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-09-19  |  1.0 KB  |  53 lines  |  [TEXT/MPS ]
  1. /*
  2.  * tivals.c - routines for manipulating Icon values.
  3.  */
  4. #include <ctype.h>
  5. #include "::h:gsupport.h"
  6. #include "trans.h"
  7. #include "tsym.h"
  8. #include "tree.h"
  9. #include "tcode.h"
  10. #include "tproto.h"
  11. #include "globals.h"
  12.  
  13.  
  14. /*
  15.  * iconint - convert the string representation of an Icon integer to a C long. 
  16.  *   Return -1 if the number is too big and large integers are supported.
  17.  */
  18. long iconint(image)
  19. char *image;
  20.    {
  21.    register int c;
  22.    register int r;
  23.    register char *s;
  24.    long n, n1;
  25.    int overflow;
  26.  
  27.    s = image;
  28.    overflow = 0;
  29.    n = 0L;
  30.    while ((c = *s++) >= '0' && c <= '9') {
  31.       n1 = n * 10 + (c - '0');
  32.       if (n != n1 / 10)
  33.          overflow = 1;
  34.       n = n1;
  35.       }
  36.    if (c == 'r' || c == 'R') {
  37.       r = n;
  38.       n = 0L;
  39.       while ((c = *s++) != '\0') {
  40.          n1 = n * r + tonum(c);
  41.          if (n != n1 / r)
  42.             overflow = 1;
  43.          n = n1;
  44.          }
  45.       }
  46.    if (overflow)
  47.       if (largeints)
  48.          n = -1;
  49.       else
  50.          tfatal("large integer option required", image);
  51.    return n;
  52.    }
  53.