]> pd.if.org Git - pdclib/blob - functions/_PDCLIB/strtox_prelim.c
Initial checkin.
[pdclib] / 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