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

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