ucw/strtonum.c

   1 /*
   2  *      UCW Library -- Conversions of Strings to Numbers
   3  *
   4  *      (c) 2010 Daniel Fiala <danfiala@ucw.cz>
   5  *
   6  *      This software may be freely distributed and used according to the terms
   7  *      of the GNU Lesser General Public License.
   8  */
   9
  10 #include "ucw/lib.h"
  11 #include "ucw/string.h"
  12 #include "ucw/chartype.h"
  13 #include "ucw/strtonum.h"
  14
  15 static uns detect_base(const char **pp, const uns flags)
  16 {
  17   if ((flags & STN_BASES0) && **pp == '0')
  18     {
  19       switch ( (*pp)[1] )
  20         {
  21           case 'x':
  22           case 'X':
  23             if (flags & STN_HEX)
  24               {
  25                 *pp += 2;
  26                 return 16;
  27               }
  28             break;
  29
  30           case 'b':
  31           case 'B':
  32             if (flags & STN_BIN)
  33               {
  34                 *pp += 2;
  35                 return 2;
  36               }
  37             break;
  38
  39           case 'o':
  40           case 'O':
  41             if (flags & STN_OCT)
  42               {
  43                 *pp += 2;
  44                 return 8;
  45               }
  46             break;
  47
  48           case '0'...'7':
  49             if (flags & STN_OCT0)
  50               {
  51                 (*pp)++;
  52                 return 8;
  53               }
  54             break;
  55         }
  56     }
  57
  58   return 0;
  59 }
  60
  61 static const char *str_to_num_init(const char **pp, const uns flags, uns *sign, uns *base)
  62 {
  63   ASSERT(*pp);
  64
  65   const char *err = NULL;
  66   const char *p = *pp;
  67
  68   // Parse sign
  69   *sign = 0;
  70   if (flags & (STN_SIGNS))
  71     {
  72       if (*p == '-' && (flags & STN_MINUS))
  73         {
  74           *sign = 1;
  75           p++;
  76         }
  77       else if (*p == '+' && (flags & STN_PLUS))
  78         p++;
  79     }
  80
  81   *base = detect_base(&p, flags) ? : flags & STN_DBASES_MASK;
  82
  83   *pp = p;
  84   return err;
  85 }
  86
  87 static inline uns get_digit(const uns c)
  88 {
  89   if (c <= '9')
  90     return c - '0';
  91   else
  92     {
  93       const int a = c & 0xDF;
  94       unsigned d = a - 'A';
  95       d &= 0xFF;
  96       d += 10;
  97       return d;
  98     }
  99 }
 100
 101 #define STN_TYPE uns
 102 #define STN_SUFFIX uns
 103 #include "ucw/strtonum-gen.h"
 104
 105 #define STN_TYPE uintmax_t
 106 #define STN_SUFFIX uintmax
 107 #include "ucw/strtonum-gen.h"