source: trunk/dll/commafmt.c@ 98

/***********************************************************************

  $Id: commafmt.c 98 2004-05-21 15:22:09Z root $

  Command formatting tools

  Copyright (c) 1993-98 M. Kimes
  Copyright (c) 2004 Steven H.Levine

  Revisions     06 Jan 04 SHL - Drop hundfmt, clean commafmt

***********************************************************************/

/*
**  COMMAFMT.C
**  Public domain by Bob Stout
**
**  Notes:  1. Use static buffer to eliminate error checks on buffer overflow
**             and reduce code size.
**          2. By making the numeric argument a long and prototyping it before
**             use, passed numeric arguments will be implicitly cast to longs
**             thereby avoiding int overflow.
**          3. Use the thousands grouping and thousands separator from the
**             ANSI locale to make this more robust.
*/

#pragma alloc_text(MISC8,commafmt,hundfmt)

#include <stdlib.h>
#include <stdio.h>
#include <string.h>

size_t commafmt(char   *buf,            /* Buffer for formatted string  */
                int     bufsize,        /* Size of buffer               */
                long    N)              /* Number to convert            */
{
        int len = 1;
        int posn = 1;
        int sign = 1;

        char *ptr = buf + bufsize - 1;

        if (bufsize < 2)
        {
ABORT:          *buf = 0;
                return 0;
        }

        *ptr-- = 0;
        --bufsize;
        if (N < 0)
        {
                sign = -1;
                N = -N;
        }

        for ( ; len <= bufsize; ++len, ++posn)
        {
                *ptr-- = (char)((N % 10L) + '0');
                N /= 10;
                if (!N)
                        break;
                if (posn % 3 == 0)
                {
                        *ptr-- = ',';
                        ++len;
                }
                if (len >= bufsize)
                        goto ABORT;
        }

        if (sign < 0)
        {
                if (bufsize == 0)
                        goto ABORT;
                *ptr-- = '-';
                ++len;
        }

        strcpy(buf, ++ptr);             // Left align
        return len;
}


#if 0 // fixme

size_t hundfmt (char *buf,int bufsize,unsigned long N) {

  char           tbuf[34];
  register char *pt,*p;
  register int   len;

  sprintf(tbuf,"%02lu",N);
  len = strlen(tbuf);
  pt = tbuf;
  p = buf;
  bufsize--;
  while(*pt && (p - buf) < bufsize) {
    if(len == 2) {
      *p = '.';
      p++;
    }
    *p = *pt;
    p++;
    pt++;
    len--;
  }
  *p = 0;
  return p - buf;
}

#endif 0 // fixme