]> pd.if.org Git - pdclib/blob - functions/_PDCLIB/strtox_prelim.c
6ff75c1282bf4021735e97e460e4f405d929d9cf
[pdclib] / functions / _PDCLIB / strtox_prelim.c
1 /* _PDCLIB_strtox_prelim( const char *, char *, int * )
2
3    This file is part of the Public Domain C Library (PDCLib).
4    Permission is granted to use, modify, and / or redistribute at will.
5 */
6
7 #include <ctype.h>
8 #include <stddef.h>
9 #include <string.h>
10
11 const char * _PDCLIB_strtox_prelim( const char * p, char * sign, int * base )
12 {
13     /* skipping leading whitespace */
14     while ( isspace( *p ) ) ++p;
15     /* determining / skipping sign */
16     if ( *p != '+' && *p != '-' ) *sign = '+';
17     else *sign = *(p++);
18     /* determining base */
19     if ( *p == '0' )
20     {
21         ++p;
22         if ( ( *base == 0 || *base == 16 ) && ( *p == 'x' || *p == 'X' ) )
23         {
24             *base = 16;
25             ++p;
26             /* catching a border case here: "0x" followed by a non-digit should
27                be parsed as the unprefixed zero.
28                We have to "rewind" the parsing; having the base set to 16 if it
29                was zero previously does not hurt, as the result is zero anyway.
30             */
31             if ( memchr( _PDCLIB_digits, tolower(*p), *base ) == NULL )
32             {
33                 p -= 2;
34             }
35         }
36         else if ( *base == 0 )
37         {
38             *base = 8;
39         }
40         else
41         {
42             --p;
43         }
44     }
45     else if ( ! *base )
46     {
47         *base = 10;
48     }
49     return ( ( *base >= 2 ) && ( *base <= 36 ) ) ? p : NULL;
50 }
51
52 #ifdef TEST
53 #include <_PDCLIB_test.h>
54
55 int main( void )
56 {
57     int base = 0;
58     char sign = '\0';
59     char test1[] = "  123";
60     char test2[] = "\t+0123";
61     char test3[] = "\v-0x123";
62     TESTCASE( _PDCLIB_strtox_prelim( test1, &sign, &base ) == &test1[2] );
63     TESTCASE( sign == '+' );
64     TESTCASE( base == 10 );
65     base = 0;
66     sign = '\0';
67     TESTCASE( _PDCLIB_strtox_prelim( test2, &sign, &base ) == &test2[3] );
68     TESTCASE( sign == '+' );
69     TESTCASE( base == 8 );
70     base = 0;
71     sign = '\0';
72     TESTCASE( _PDCLIB_strtox_prelim( test3, &sign, &base ) == &test3[4] );
73     TESTCASE( sign == '-' );
74     TESTCASE( base == 16 );
75     base = 10;
76     sign = '\0';
77     TESTCASE( _PDCLIB_strtox_prelim( test3, &sign, &base ) == &test3[2] );
78     TESTCASE( sign == '-' );
79     TESTCASE( base == 10 );
80     base = 1;
81     TESTCASE( _PDCLIB_strtox_prelim( test3, &sign, &base ) == NULL );
82     base = 37;
83     TESTCASE( _PDCLIB_strtox_prelim( test3, &sign, &base ) == NULL );
84     return TEST_RESULTS;
85 }
86
87 #endif