]> pd.if.org Git - pdclib.old/blob - functions/_PDCLIB/strtox_prelim.c
PDCLIB-18: Implement defect test cases
[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 #include <stddef.h>
11 #include <string.h>
12 #ifndef REGTEST
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             /* catching a border case here: "0x" followed by a non-digit should
29                be parsed as the unprefixed zero.
30                We have to "rewind" the parsing; having the base set to 16 if it
31                was zero previously does not hurt, as the result is zero anyway.
32             */
33             if ( memchr( _PDCLIB_digits, tolower(*p), *base ) == NULL )
34             {
35                 p -= 2;
36             }
37         }
38         else if ( *base == 0 )
39         {
40             *base = 8;
41         }
42         else
43         {
44             --p;
45         }
46     }
47     else if ( ! *base )
48     {
49         *base = 10;
50     }
51     return ( ( *base >= 2 ) && ( *base <= 36 ) ) ? p : NULL;
52 }
53 #endif
54
55 #ifdef TEST
56 #include <_PDCLIB_test.h>
57
58 int main( void )
59 {
60 #ifndef REGTEST
61     int base = 0;
62     char sign = '\0';
63     char test1[] = "  123";
64     char test2[] = "\t+0123";
65     char test3[] = "\v-0x123";
66     TESTCASE( _PDCLIB_strtox_prelim( test1, &sign, &base ) == &test1[2] );
67     TESTCASE( sign == '+' );
68     TESTCASE( base == 10 );
69     base = 0;
70     sign = '\0';
71     TESTCASE( _PDCLIB_strtox_prelim( test2, &sign, &base ) == &test2[3] );
72     TESTCASE( sign == '+' );
73     TESTCASE( base == 8 );
74     base = 0;
75     sign = '\0';
76     TESTCASE( _PDCLIB_strtox_prelim( test3, &sign, &base ) == &test3[4] );
77     TESTCASE( sign == '-' );
78     TESTCASE( base == 16 );
79     base = 10;
80     sign = '\0';
81     TESTCASE( _PDCLIB_strtox_prelim( test3, &sign, &base ) == &test3[2] );
82     TESTCASE( sign == '-' );
83     TESTCASE( base == 10 );
84     base = 1;
85     TESTCASE( _PDCLIB_strtox_prelim( test3, &sign, &base ) == NULL );
86     base = 37;
87     TESTCASE( _PDCLIB_strtox_prelim( test3, &sign, &base ) == NULL );
88 #endif
89     return TEST_RESULTS;
90 }
91
92 #endif