home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / recio213.zip / rbget.c < prev    next >
C/C++ Source or Header  |  1995-09-05  |  4KB  |  115 lines
  1. /*****************************************************************************
  2.    MODULE: rbget.c
  3.   PURPOSE: recio character delimited integral number input functions
  4. COPYRIGHT: (C) 1994-1995, William Pierpoint
  5.  COMPILER: Borland C Version 3.1
  6.        OS: MSDOS Version 6.2
  7.   VERSION: 2.13
  8.   RELEASE: September 4, 1995
  9. *****************************************************************************/
  10.  
  11. #include <ctype.h>
  12. #include <errno.h>
  13. #include <limits.h>
  14. #include <stdio.h>
  15. #include <stdlib.h>
  16. #include <string.h>
  17.  
  18. #include "recio.h"
  19.  
  20. extern int _risready(REC *rp, int mode);
  21. extern char *_rfldstr(REC *rp, size_t len);
  22. extern char *_rerrs(REC *rp, int errnum);
  23. extern unsigned long str2ul(const char *nptr, char **endptr, int base);
  24.  
  25. #define uint      unsigned int
  26. #define ulong     unsigned long
  27. #define UNSIGNED  0
  28. #define SIGNED    1
  29.  
  30. /****************************************************************************/
  31. static long                  /* return integral number                      */
  32.     _rbgetl(                 /* get integral number from record stream      */
  33.         REC *rp,             /* record pointer                              */
  34.         int base,            /* radix of number                             */
  35.         int sign,            /* signed number? (0=unsigned; !0=signed)      */
  36.         long min,            /* inclusive valid min value (0 if unsigned)   */
  37.         long max)            /* inclusive valid max value                   */
  38. /****************************************************************************/
  39. { 
  40.     long result=0L;          /* result to return */
  41.     long val;                /* conversion value */
  42.     char *fldptr;            /* pointer to field string */
  43.     char *endptr;            /* pointer to first invalid field char */
  44.  
  45.     if (_risready(rp, R_READ)) { 
  46.       if (!(base==0 || (base >= 2 && base <= 36))) {
  47.           rseterr(rp, R_EDOM);
  48.           goto done;
  49.       }
  50.       fldptr = _rfldstr(rp, 0); 
  51.       if (fldptr) {
  52.         strims(fldptr);
  53.         for (;;) { 
  54.           if (*fldptr != '\0') { 
  55.             endptr = fldptr; 
  56.             errno = 0; 
  57.             if (sign) {
  58.               val = strtol(fldptr, &endptr, base); 
  59.             } else {
  60.               val = str2ul(fldptr, &endptr, base); 
  61.             }
  62.             while (isspace(*endptr)) endptr++; 
  63.             if (errno==ERANGE || !*endptr) { 
  64.               if (!errno) { 
  65.                 if (sign) {
  66.                   if (val >= min && val <= max) { 
  67.                     result = val; 
  68.                     goto done; 
  69.                   }
  70.                 } else {
  71.                   /* note: unsigned min always assumed to be zero */
  72.                   if ((ulong) val <= (ulong) max) {
  73.                     result = val; 
  74.                     goto done;
  75.                   }
  76.                 }
  77.               } /* data out of range */ 
  78.               fldptr = _rerrs(rp, R_ERANGE); 
  79.               if (fldptr) { continue; } else { goto done; } 
  80.             } /* invalid data */ 
  81.             fldptr = _rerrs(rp, R_EINVDAT); 
  82.             if (fldptr) { continue; } else { goto done; } 
  83.           } /* missing data */ 
  84.           fldptr = _rerrs(rp, R_EMISDAT); 
  85.           if (fldptr) { continue; } else { goto done; } 
  86.         } 
  87.       }
  88.     }
  89. done:
  90.     return result;
  91. }
  92.  
  93. /****************************************************************************/
  94. /* character delimited integral number input functions                      */
  95. /****************************************************************************/
  96. int rbgeti(REC *rp, int base)
  97. {
  98.     return (int) _rbgetl(rp, base, SIGNED, INT_MIN, INT_MAX);
  99. }
  100.  
  101. unsigned int rbgetui(REC *rp, int base)
  102. {
  103.     return (uint) _rbgetl(rp, base, UNSIGNED, 0, UINT_MAX);
  104. }
  105.  
  106. long rbgetl(REC *rp, int base)
  107. {
  108.     return _rbgetl(rp, base, SIGNED, LONG_MIN, LONG_MAX);
  109. }
  110.  
  111. unsigned long rbgetul(REC *rp, int base)
  112. {
  113.     return (ulong) _rbgetl(rp, base, UNSIGNED, 0L, ULONG_MAX);
  114. }
  115.