#include <ctype.h>
#include <assert.h>
#include <string.h>
+#include <limits.h>
#undef TEST
#include </home/solar/src/pdclib/functions/_PDCLIB/digits.c>
struct status_t
{
- int base; /* base to which the value shall be converted */
- int flags; /* flags and length modifiers */
- size_t n; /* maximum number of characters to be written */
- size_t i; /* number of characters already written */
- size_t this; /* number of output chars in the current conversion */
- char * s; /* target buffer */
- size_t width; /* width of current field */
- int prec; /* precision of current field */
+ int base; /* base to which the value shall be converted */
+ int_fast16_t flags; /* flags and length modifiers */
+ size_t n; /* maximum number of characters to be written */
+ size_t i; /* number of characters already written */
+ size_t this; /* number of output chars in the current conversion */
+ char * s; /* target buffer */
+ size_t width; /* width of current field */
+ size_t prec; /* precision of current field */
};
/* x - the character to be delivered
s - the buffer into which the character shall be delivered
TODO: Overruns.
*/
-#define DELIVER( x ) if ( status->i < status->n ) status->s[status->i] = x; ++(status->i)
+#define DELIVER( x ) do { if ( status->i < status->n ) status->s[status->i] = x; ++(status->i); } while ( 0 )
-/* TODO: Left / right alignment - requires track-keeping of width and printed chars.
- "Father function", die für right alignment "tail recursive" gerufen wird, und
- "after" für left alignment? Parameter als struct?
-*/
-
-static void int2base( int value, struct status_t * status )
+static void int2base( intmax_t value, struct status_t * status )
{
++(status->this);
if ( ( value / status->base ) != 0 )
}
}
}
- if ( value < 0 )
{
- value *= -1;
+ int digit = value % status->base;
+ if ( digit < 0 )
+ {
+ digit *= -1;
}
if ( status->flags & E_lower )
{
- DELIVER( _PDCLIB_digits[ value % status->base ] );
+ DELIVER( _PDCLIB_digits[ digit ] );
}
else
{
- DELIVER( toupper( _PDCLIB_digits[ value % status->base ] ) );
+ DELIVER( toupper( _PDCLIB_digits[ digit ] ) );
+ }
}
}
-static void padwrap( int value, struct status_t * status )
+static void padwrap( intmax_t value, struct status_t * status )
{
int2base( value, status );
if ( status->flags & E_minus )
++(status->this);
}
}
- if ( status->i == status->n )
+ if ( status->i >= status->n )
{
- status->s[status->i] = '\0';
+ status->s[status->n - 1] = '\0';
+ }
+}
+
+static void upadwrap( uintmax_t value, struct status_t * status )
+{
+ ++(status->this);
+ if ( ( value / status->base ) != 0 )
+ {
+ int2base( value / status->base, status );
+ }
+ int digit = value % status->base;
+ if ( digit < 0 )
+ {
+ digit *= -1;
+ }
+ if ( status->flags & E_lower )
+ {
+ DELIVER( _PDCLIB_digits[ digit ] );
+ }
+ else
+ {
+ DELIVER( toupper( _PDCLIB_digits[ digit ] ) );
+ }
+ if ( status->flags & E_minus )
+ {
+ while ( status->this < status->width )
+ {
+ DELIVER( ' ' );
+ ++(status->this);
+ }
+ }
+ if ( status->i >= status->n )
+ {
+ status->s[status->n - 1] = '\0';
}
}
}
}
-/*
-static void int2base( int value, int base, struct status_t * status )
-
-#define E_minus 1<<0
-#define E_plus 1<<1
-#define E_alt 1<<2
-#define E_space 1<<3
-#define E_zero 1<<4
-#define E_done 1<<5
-#define E_char 1<<6
-#define E_short 1<<7
-#define E_long 1<<8
-#define E_llong 1<<9
-#define E_intmax 1<<10
-#define E_size 1<<11
-#define E_ptrdiff 1<<12
-#define E_double 1<<13
-#define E_lower 1<<14
-
- struct status_t
-{
- int flags;
- size_t n;
- size_t i;
- char * s;
- size_t width;
- size_t prec;
-};
-*/
-
#define TESTCASE( _flags, _n, _width, _prec, _value, _base, _expect ) \
status.flags = _flags | E_term; \
status.n = _n; \
status.prec = _prec; \
status.base = _base; \
status.this = 0; \
- memset( status.s, '\0', 20 ); \
+ memset( status.s, '\0', 50 ); \
padwrap( _value, &status ); \
- printf( "Output '%s', RC %d \t- ", status.s, status.i ); \
rc = snprintf( buffer, _n, _expect, _value ); \
- printf( "Expect '%s', RC %d\n", buffer, rc );
+ if ( ( strcmp( status.s, buffer ) != 0 ) || ( status.i != rc ) ) \
+ { \
+ printf( "Output '%s', RC %d\nExpect '%s', RC %d\n\n", status.s, status.i, buffer, rc ); \
+ } \
+
+#define UTESTCASE( _flags, _n, _width, _prec, _value, _base, _expect ) \
+ status.flags = _flags | E_term; \
+ status.n = _n; \
+ status.i = 0; \
+ status.width = _width; \
+ status.prec = _prec; \
+ status.base = _base; \
+ status.this = 0; \
+ memset( status.s, '\0', 50 ); \
+ upadwrap( _value, &status ); \
+ rc = snprintf( buffer, _n, _expect, _value ); \
+ if ( ( strcmp( status.s, buffer ) != 0 ) || ( status.i != rc ) ) \
+{ \
+ printf( "Output '%s', RC %d\nExpect '%s', RC %d\n\n", status.s, status.i, buffer, rc ); \
+} \
int main()
{
struct status_t status;
int rc;
- char * buffer = malloc( 20 );
- status.s = malloc( 20 );
+ int tmp;
+ char * buffer = malloc( 50 );
+ status.s = malloc( 50 );
+#if 0
TESTCASE( E_plus, 5, 0, 0, 1234, 10, "%+d" );
TESTCASE( E_space, 3, 0, 0, 1234, 10, "% d" );
TESTCASE( E_space, 3, 0, 0, -1234, 10, "% d" );
TESTCASE( E_minus, 6, 2, 0, 1234, 10, "%-2d" );
TESTCASE( E_done, 6, 2, 0, 1234, 10, "%2d" );
TESTCASE( E_zero, 6, 6, 0, -1234, 10, "%06d" );
+ /* TODO: These two are *unsigned* conversions! */
TESTCASE( E_zero, 7, 7, 0, -65535, 16, "%07X" );
+ TESTCASE( E_zero, 7, 7, 0, -65535, 10, "%07u" );
+
TESTCASE( E_zero | E_minus, 6, 6, 0, 1234, 10, "%-06d" );
TESTCASE( E_plus, 6, 6, 0, 1234, 10, "%+6d" );
TESTCASE( E_space, 6, 6, 0, 1234, 10, "% 6d" );
TESTCASE( E_space, 6, 6, 0, -1234, 10, "% 6d" );
TESTCASE( E_space | E_minus, 6, 6, 0, -1234, 10, "%- 6d" );
+#endif
+ puts( "--- Serious Tests ---\n" );
+ puts( "- Signed min / max -\n" );
+ TESTCASE( E_done, SIZE_MAX, 0, 0, CHAR_MIN, 10, "%hhd" );
+ TESTCASE( E_done, SIZE_MAX, 0, 0, CHAR_MAX, 10, "%hhd" );
+ TESTCASE( E_done, SIZE_MAX, 0, 0, 0, 10, "%hhd" );
+ TESTCASE( E_done, SIZE_MAX, 0, 0, SHRT_MIN, 10, "%hd" );
+ TESTCASE( E_done, SIZE_MAX, 0, 0, SHRT_MAX, 10, "%hd" );
+ TESTCASE( E_done, SIZE_MAX, 0, 0, 0, 10, "%hd" );
+ TESTCASE( E_done, SIZE_MAX, 0, 0, INT_MIN, 10, "%d" );
+ TESTCASE( E_done, SIZE_MAX, 0, 0, INT_MAX, 10, "%d" );
+ TESTCASE( E_done, SIZE_MAX, 0, 0, 0, 10, "%d" );
+ TESTCASE( E_done, SIZE_MAX, 0, 0, LONG_MIN, 10, "%ld" );
+ TESTCASE( E_done, SIZE_MAX, 0, 0, LONG_MAX, 10, "%ld" );
+ TESTCASE( E_done, SIZE_MAX, 0, 0, 0l, 10, "%ld" );
+ TESTCASE( E_done, SIZE_MAX, 0, 0, LLONG_MIN, 10, "%lld" );
+ TESTCASE( E_done, SIZE_MAX, 0, 0, LLONG_MAX, 10, "%lld" );
+ TESTCASE( E_done, SIZE_MAX, 0, 0, 0ll, 10, "%lld" );
+ puts( "- Unsigned min / max -\n" );
+ UTESTCASE( E_done, SIZE_MAX, 0, 0, UCHAR_MAX, 10, "%hhu" );
+ UTESTCASE( E_done, SIZE_MAX, 0, 0, -1, 10, "%hhu" );
+ UTESTCASE( E_done, SIZE_MAX, 0, 0, USHRT_MAX, 10, "%hu" );
+ UTESTCASE( E_done, SIZE_MAX, 0, 0, -1, 10, "%hu" );
+ UTESTCASE( E_done, SIZE_MAX, 0, 0, UINT_MAX, 10, "%u" );
+ UTESTCASE( E_done, SIZE_MAX, 0, 0, -1, 10, "%u" );
+ UTESTCASE( E_done, SIZE_MAX, 0, 0, ULONG_MAX, 10, "%lu" );
+ UTESTCASE( E_done, SIZE_MAX, 0, 0, -1l, 10, "%lu" );
+ UTESTCASE( E_done, SIZE_MAX, 0, 0, ULLONG_MAX, 10, "%llu" );
+ UTESTCASE( E_done, SIZE_MAX, 0, 0, -1ll, 10, "%llu" );
return 0;
}
projects / pdclib.old / blobdiff