home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / recio213.zip / rcbget.c < prev    next >
C/C++ Source or Header  |  1995-09-05  |  5KB  |  124 lines
  1. /*****************************************************************************
  2.    MODULE: rcbget.c
  3.   PURPOSE: recio column 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 rcol(rp) (rp->r_colno)
  26.  
  27. #define uint      unsigned int
  28. #define ulong     unsigned long
  29. #define UNSIGNED  0
  30. #define SIGNED    1
  31.  
  32. /****************************************************************************/
  33. static long                  /* return integral number                      */
  34.     _rcbgetl(                /* get integral number from col delim stream   */
  35.         REC *rp,             /* pointer to record stream                    */
  36.         size_t begcol,       /* field inclusive beginning column            */
  37.         size_t endcol,       /* field inclusive ending column               */
  38.         int base,            /* radix of number                             */
  39.         int sign,            /* signed number? (0=unsigned; !0=signed)      */
  40.         long min,            /* inclusive valid min value (0 if unsigned)   */
  41.         long max)            /* inclusive valid max value                   */
  42. /****************************************************************************/
  43. { 
  44.     long result=0L;          /* result to return */
  45.     long val;                /* conversion value */
  46.     char *fldptr;            /* pointer to field string */
  47.     char *endptr;            /* pointer to first invalid field char */
  48.     char *fldp;              /* another pointer to field string */
  49.  
  50.     if (_risready(rp, R_READ)) { 
  51.       if (!(base==0 || (base >= 2 && base <= 36))) {
  52.           rseterr(rp, R_EDOM);
  53.           goto done;
  54.       }
  55.       if (endcol >= begcol && begcol >= rbegcolno(rp)) { 
  56.         rcol(rp) = begcol - rbegcolno(rp); 
  57.         fldptr = _rfldstr(rp, endcol-begcol+1); 
  58.         if (fldptr) { 
  59.           for (;;) { 
  60.             for (fldp=fldptr; *fldp; fldp++) {if (!isspace(*fldp)) break;} 
  61.             if (*fldp) { 
  62.               endptr = fldptr; 
  63.               errno = 0; 
  64.               if (sign) {
  65.                 val = strtol(fldptr, &endptr, base); 
  66.               } else {
  67.                 val = str2ul(fldptr, &endptr, base); 
  68.               }
  69.               while (isspace(*endptr)) endptr++; 
  70.               if (errno==ERANGE || !*endptr) { 
  71.                 if (!errno) { 
  72.                   if (sign) {
  73.                     if (val >= min && val <= max) { 
  74.                       result = val; 
  75.                       goto done; 
  76.                     }
  77.                   } else {
  78.                     /* note: unsigned min always assumed to be zero */
  79.                     if ((ulong) val <= (ulong) max) {
  80.                       result = val; 
  81.                       goto done;
  82.                     }
  83.                   }
  84.                 } /* out of range */ 
  85.                 fldptr = _rerrs(rp, R_ERANGE); 
  86.                 if (fldptr) { continue; } else { goto done; } 
  87.               } /* invalid data */ 
  88.               fldptr = _rerrs(rp, R_EINVDAT); 
  89.               if (fldptr) { continue; } else { goto done; } 
  90.             } /* missing data */ 
  91.             fldptr = _rerrs(rp, R_EMISDAT); 
  92.             if (fldptr) { continue; } else { goto done; } 
  93.           } 
  94.         }
  95.       } /* arguments reversed or tried to start before first column*/ 
  96.       rseterr(rp, R_EINVAL); 
  97.     } 
  98. done: 
  99.     return result; 
  100. }
  101.  
  102. /****************************************************************************/
  103. /* column delimited integral number input functions                         */
  104. /****************************************************************************/
  105. int rcbgeti(REC *rp, size_t begcol, size_t endcol, int base)
  106. {
  107.     return (int) _rcbgetl(rp, begcol, endcol, base, SIGNED, INT_MIN, INT_MAX);
  108. }
  109.  
  110. unsigned int rcbgetui(REC *rp, size_t begcol, size_t endcol, int base)
  111. {
  112.     return (uint) _rcbgetl(rp, begcol, endcol, base, UNSIGNED, 0, UINT_MAX);
  113. }
  114.  
  115. long rcbgetl(REC *rp, size_t begcol, size_t endcol, int base)
  116. {
  117.     return _rcbgetl(rp, begcol, endcol, base, SIGNED, LONG_MIN, LONG_MAX);
  118. }
  119.  
  120. unsigned long rcbgetul(REC *rp, size_t begcol, size_t endcol, int base)
  121. {
  122.     return (ulong) _rcbgetl(rp, begcol, endcol, base, UNSIGNED, 0L, ULONG_MAX);
  123. }
  124.