Allowed precision to be negative / ignored.

diff --git a/functions/_PDCLIB/print.c b/functions/_PDCLIB/print.c
index 9a30ca2446b0d332784fdecebfa7d12b0b55b94f..d2b5dbddc41c29dc895d4e3d17621df31c37fd05 100644 (file)
--- a/functions/_PDCLIB/print.c
+++ b/functions/_PDCLIB/print.c
@@ -61,6 +61,10 @@ do { \
 
 static void intformat( intmax_t value, struct _PDCLIB_status_t * status )
 {
 
 static void intformat( intmax_t value, struct _PDCLIB_status_t * status )
 {

+    if ( status->prec < 0 )
+    {
+        status->prec = 1;
+    }

     /* At worst, we need two prefix characters (hex prefix). */
     char preface[3] = "\0";
     size_t preidx = 0;
     /* At worst, we need two prefix characters (hex prefix). */
     char preface[3] = "\0";
     size_t preidx = 0;


@@ -91,18 +95,22 @@ static void intformat( intmax_t value, struct _PDCLIB_status_t * status )
         }
     }
     {
         }
     }
     {

-    size_t prec_pads = ( status->prec > status->current ) ? ( status->prec - status->current ) : 0;
+    /* At this point, status->current has the number of digits queued up.
+       Determine if we have a precision requirement to pad those.
+    */
+    size_t prec_pads = ( (_PDCLIB_size_t)status->prec > status->current ) ? ( (_PDCLIB_size_t)status->prec - status->current ) : 0;

     if ( ! ( status->flags & ( E_minus | E_zero ) ) )
     {
         /* Space padding is only done if no zero padding or left alignment
     if ( ! ( status->flags & ( E_minus | E_zero ) ) )
     {
         /* Space padding is only done if no zero padding or left alignment

-           is requested. Leave space for any prefixes determined above.
+           is requested. Calculate the number of characters that WILL be
+           printed, including any prefixes determined above.

         */
         /* The number of characters to be printed, plus prefixes if any. */
         /* This line contained probably the most stupid, time-wasting bug
            I've ever perpetrated. Greetings to Samface, DevL, and all
            sceners at Breakpoint 2006.
         */
         */
         /* The number of characters to be printed, plus prefixes if any. */
         /* This line contained probably the most stupid, time-wasting bug
            I've ever perpetrated. Greetings to Samface, DevL, and all
            sceners at Breakpoint 2006.
         */

-        size_t characters = preidx + ( ( status->current > status->prec ) ? status->current : status->prec );
+        size_t characters = preidx + ( ( status->current > (_PDCLIB_size_t)status->prec ) ? status->current : (_PDCLIB_size_t)status->prec );

         if ( status->width > characters )
         {
             for ( size_t i = 0; i < status->width - characters; ++i )
         if ( status->width > characters )
         {
             for ( size_t i = 0; i < status->width - characters; ++i )


@@ -119,6 +127,12 @@ static void intformat( intmax_t value, struct _PDCLIB_status_t * status )
         PUT( preface[ preidx++ ] );
         ++(status->current);
     }
         PUT( preface[ preidx++ ] );
         ++(status->current);
     }

+    /* Do the precision padding if necessary. */
+    while ( prec_pads-- > 0 )
+    {
+        PUT( '0' );
+        ++(status->current);
+    }

     if ( ( ! ( status->flags & E_minus ) ) && ( status->flags & E_zero ) )
     {
         /* If field is not left aligned, and zero padding is requested, do
     if ( ( ! ( status->flags & E_minus ) ) && ( status->flags & E_zero ) )
     {
         /* If field is not left aligned, and zero padding is requested, do


@@ -130,11 +144,6 @@ static void intformat( intmax_t value, struct _PDCLIB_status_t * status )
             ++(status->current);
         }
     }
             ++(status->current);
         }
     }

-    /* Do the precision padding if necessary. */
-    for ( size_t i = 0; i < prec_pads; ++i )
-    {
-        PUT( '0' );
-    }

     }
 }
 
     }
 }
 


@@ -203,7 +212,7 @@ const char * _PDCLIB_print( const char * spec, struct _PDCLIB_status_t * status
     status->base  = 0;
     status->current  = 0;
     status->width = 0;
     status->base  = 0;
     status->current  = 0;
     status->width = 0;

-    status->prec  = 0;
+    status->prec  = EOF;

 
     /* First come 0..n flags */
     do
 
     /* First come 0..n flags */
     do


@@ -278,6 +287,7 @@ const char * _PDCLIB_print( const char * spec, struct _PDCLIB_status_t * status
                EOF (negative), there is no need for testing for negative here.
             */
             status->prec = va_arg( status->arg, int );
                EOF (negative), there is no need for testing for negative here.
             */
             status->prec = va_arg( status->arg, int );

+            ++spec;

         }
         else
         {
         }
         else
         {


@@ -285,8 +295,8 @@ const char * _PDCLIB_print( const char * spec, struct _PDCLIB_status_t * status
             status->prec = (int)strtol( spec, &endptr, 10 );
             if ( spec == endptr )
             {
             status->prec = (int)strtol( spec, &endptr, 10 );
             if ( spec == endptr )
             {

-                /* Decimal point but no number - bad conversion specifier. */
-                return orig_spec;
+                /* Decimal point but no number - equals zero */
+                status->prec = 0;

             }
             spec = endptr;
         }
             }
             spec = endptr;
         }


@@ -448,10 +458,9 @@ const char * _PDCLIB_print( const char * spec, struct _PDCLIB_status_t * status
                     return NULL;
             }
             ++(status->current);
                     return NULL;
             }
             ++(status->current);

-            /* FIXME: The if clause means one-digit values do not get formatted */
-            /* Was introduced originally to get value to "safe" levels re. uintmax_t. */

             if ( ( value / status->base ) != 0 )
             {
             if ( ( value / status->base ) != 0 )
             {

+                /* Get value to "safe" levels re. uintmax_t. */

                 int2base( (intmax_t)(value / status->base), status );
             }
             else
                 int2base( (intmax_t)(value / status->base), status );
             }
             else

diff --git a/internals/_PDCLIB_int.h b/internals/_PDCLIB_int.h
index 5c9cce5bdf2ffbff565c54f6daf1c3c4dc18698d..0614deba1f32aaa7f350b958fe81badcc86f2c09 100644 (file)
--- a/internals/_PDCLIB_int.h
+++ b/internals/_PDCLIB_int.h
@@ -344,7 +344,7 @@ struct _PDCLIB_status_t
     char *           s;      /* *sprintf(): target buffer                    */
                              /* *sscanf():  source string                    */
     _PDCLIB_size_t   width;  /* specified field width                        */
     char *           s;      /* *sprintf(): target buffer                    */
                              /* *sscanf():  source string                    */
     _PDCLIB_size_t   width;  /* specified field width                        */

-    _PDCLIB_size_t   prec;   /* specified field precision                    */
+    int              prec;   /* specified field precision                    */

     struct _PDCLIB_file_t * stream; /* *fprintf() / *fscanf() stream         */
     _PDCLIB_va_list  arg;    /* argument stack                               */
 };
     struct _PDCLIB_file_t * stream; /* *fprintf() / *fscanf() stream         */
     _PDCLIB_va_list  arg;    /* argument stack                               */
 };