pd.if.org Git - pdclib/blob - functions/_PDCLIB/strtox_prelim.c

   1 /* $Id$ */
   2
   3 /* Release $Name$ */
   4
   5 /* _PDCLIB_strtox_prelim( const char *, char *, int * )
   6
   7    This file is part of the Public Domain C Library (PDCLib).
   8    Permission is granted to use, modify, and / or redistribute at will.
   9 */
  10
  11 #include <ctype.h>
  12
  13 const char * _PDCLIB_strtox_prelim( const char * p, char * sign, int * base )
  14 {
  15     /* skipping leading whitespace */
  16     while ( isspace( *p ) ) ++p;
  17     /* determining / skipping sign */
  18     if ( *p != '+' && *p != '-' ) *sign = '+';
  19     else *sign = *(p++);
  20     /* determining base */
  21     if ( *p == '0' )
  22     {
  23         ++p;
  24         if ( ( *base == 0 || *base == 16 ) && ( *p == 'x' || *p == 'X' ) )
  25         {
  26             *base = 16;
  27             ++p;
  28         }
  29         else if ( *base == 0 )
  30         {
  31             *base = 8;
  32         }
  33         else
  34         {
  35             --p;
  36         }
  37     }
  38     else if ( ! *base )
  39     {
  40         *base = 10;
  41     }
  42     return p;
  43 }
  44
  45 #ifdef TEST
  46 #include <_PDCLIB_test.h>
  47
  48 int main()
  49 {
  50     int base = 0;
  51     char sign = '\0';
  52     char test1[] = "  123";
  53     char test2[] = "\t+0123";
  54     char test3[] = "\v-0x123";
  55     BEGIN_TESTS;
  56     TESTCASE( _PDCLIB_strtox_prelim( test1, &sign, &base ) == &test1[2] );
  57     TESTCASE( sign == '+' );
  58     TESTCASE( base == 10 );
  59     base = 0;
  60     sign = '\0';
  61     TESTCASE( _PDCLIB_strtox_prelim( test2, &sign, &base ) == &test2[3] );
  62     TESTCASE( sign == '+' );
  63     TESTCASE( base == 8 );
  64     base = 0;
  65     sign = '\0';
  66     TESTCASE( _PDCLIB_strtox_prelim( test3, &sign, &base ) == &test3[4] );
  67     TESTCASE( sign == '-' );
  68     TESTCASE( base == 16 );
  69     base = 10;
  70     sign = '\0';
  71     TESTCASE( _PDCLIB_strtox_prelim( test3, &sign, &base ) == &test3[2] );
  72     TESTCASE( sign == '-' );
  73     TESTCASE( base == 10 );
  74     return TEST_RESULTS;
  75 }
  76
  77 #endif