]> pd.if.org Git - pdclib.old/blob - functions/_PDCLIB/strtox_prelim.c
Narrowed down to exclude KDevelop metadata.
[pdclib.old] / 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
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         }
27         else if ( *base == 0 )
28         {
29             *base = 8;
30         }
31         else
32         {
33             --p;
34         }
35     }
36     else if ( ! *base )
37     {
38         *base = 10;
39     }
40     return ( ( *base >= 2 ) && ( *base <= 36 ) ) ? p : NULL;
41 }
42
43 #ifdef TEST
44 #include <_PDCLIB_test.h>
45
46 int main( void )
47 {
48     int base = 0;
49     char sign = '\0';
50     char test1[] = "  123";
51     char test2[] = "\t+0123";
52     char test3[] = "\v-0x123";
53     TESTCASE( _PDCLIB_strtox_prelim( test1, &sign, &base ) == &test1[2] );
54     TESTCASE( sign == '+' );
55     TESTCASE( base == 10 );
56     base = 0;
57     sign = '\0';
58     TESTCASE( _PDCLIB_strtox_prelim( test2, &sign, &base ) == &test2[3] );
59     TESTCASE( sign == '+' );
60     TESTCASE( base == 8 );
61     base = 0;
62     sign = '\0';
63     TESTCASE( _PDCLIB_strtox_prelim( test3, &sign, &base ) == &test3[4] );
64     TESTCASE( sign == '-' );
65     TESTCASE( base == 16 );
66     base = 10;
67     sign = '\0';
68     TESTCASE( _PDCLIB_strtox_prelim( test3, &sign, &base ) == &test3[2] );
69     TESTCASE( sign == '-' );
70     TESTCASE( base == 10 );
71     base = 1;
72     TESTCASE( _PDCLIB_strtox_prelim( test3, &sign, &base ) == NULL );
73     base = 37;
74     TESTCASE( _PDCLIB_strtox_prelim( test3, &sign, &base ) == NULL );
75     return TEST_RESULTS;
76 }
77
78 #endif