doprnt.c File Reference

#include <stdarg.h>

Include dependency graph for doprnt.c:

Go to the source code of this file.

Macros
#define	MAXSTR   80
#define	NULL   0
#define	PRECISION   6

Functions
void	_doprnt (char *fmt, va_list ap, int(*func)(int))
static void	_prtdbl (double num, int precision, char *str)
static void	_prtl10 (long num, char *str)
static void	_prtl16 (long num, char *str)
static void	_prtl2 (long num, char *str)
static void	_prtl8 (long num, char *str)
static void	_prtX16 (long num, char *str)

Macro Definition Documentation

MAXSTR

#define MAXSTR   80

Definition at line 5 of file doprnt.c.

Referenced by _doprnt().

NULL

#define NULL   0

Definition at line 6 of file doprnt.c.

Referenced by _doprnt().

PRECISION

#define PRECISION   6

Definition at line 7 of file doprnt.c.

Referenced by _doprnt().

Function Documentation

_doprnt()

void _doprnt	(	char *	fmt,
		va_list	ap,
		int(*)(int)	func
	)

Definition at line 22 of file doprnt.c.

References _prtdbl(), _prtl10(), _prtl16(), _prtl2(), _prtl8(), _prtX16(), MAXSTR, NULL, PRECISION, and va_arg.

{
    int c;
    int i;
    int f;                      /* The format character (comes after %) */
    char *str;                  /* Running pointer in string            */
    char string[20];            /* The string str points to this output */

    /*  from number conversion              */
    int length;                 /* Length of string "str"               */
    char fill;                  /* Fill character (' ' or '0')          */
    int leftjust;               /* 0 = right-justified, else left-just  */
    int fmax, fmin;             /* Field specifications % MIN . MAX s   */
    int leading;                /* No. of leading/trailing fill chars   */
    char sign;                  /* Set to '-' for negative decimals     */
    char digit1;                /* Offset to add to first numeric digit */
    long larg;
    double darg;

    for (;;)
    {
        /* Echo characters until '%' or end of fmt string */
        while ((c = *fmt++) != '%')
        {
            if (c == '\0')
            {
                return;
            }
            (*func) (c);
        }
        /* Echo "...%%..." as '%' */
        if (*fmt == '%')
        {
            (*func) (*fmt++);
            continue;
        }
        /* Check for "%-..." == Left-justified output */
        if ((leftjust = ((*fmt == '-')) ? 1 : 0))
        {
            fmt++;
        }
        /* Allow for zero-filled numeric outputs ("%0...") */
        fill = (*fmt == '0') ? *fmt++ : ' ';
        /* Allow for minimum field width specifier for %d,u,x,o,c,s */
        /* Also allow %* for variable width (%0* as well)       */
        fmin = 0;
        if (*fmt == '*')
        {
            fmin = va_arg(ap, int);

            ++fmt;
        }
        else
        {
            while ('0' <= *fmt && *fmt <= '9')
            {
                fmin = fmin * 10 + *fmt++ - '0';
            }
        }
        /* Allow for maximum string width for %s */
        fmax = 0;
        if (*fmt == '.')
        {
            if (*(++fmt) == '*')
            {
                fmax = va_arg(ap, int);
                ++fmt;
            }
            else
            {
                while ('0' <= *fmt && *fmt <= '9')
                {
                    fmax = fmax * 10 + *fmt++ - '0';
                }
            }
        }

        str = string;
        if ((f = *fmt++) == '\0')
        {
            (*func) ('%');
            return;
        }
        sign = '\0';            /* sign == '-' for negative decimal */

        switch (f)
        {
        case 'c':
            string[0] = va_arg(ap, int);
            string[1] = '\0';
            fmax = 0;
            fill = ' ';
            break;

        case 's':
            str = va_arg(ap, char *);

            if (NULL == str)
            {
                str = "(null)";
            }
            fill = ' ';
            break;

        case 'd':
            larg = va_arg(ap, long);

            if (larg < 0)
            {
                sign = '-';
            }
            _prtl10(larg, str);
            break;
            
        case 'f':
            darg = va_arg(ap, double);

            if (darg < 0)
            {
                sign = '-';
            }
            _prtdbl(darg, PRECISION, str);
            break;

        case 'u':
            digit1 = '\0';
            /* "negative" longs in unsigned format  */
            /* can't be computed with long division */
            /* convert *args to "positive", digit1  */
            /* = how much to add back afterwards    */
            larg = va_arg(ap, long);

            while (larg < 0)
            {
                larg -= 1000000000L;
                ++digit1;
            }
            _prtl10(larg, str);
            str[0] += digit1;
            fmax = 0;
            break;

        case 'o':
            larg = va_arg(ap, long);

            _prtl8(larg, str);
            fmax = 0;
            break;

        case 'X':
            larg = va_arg(ap, long);

            _prtX16(larg, str);
            fmax = 0;
            break;

        case 'x':
            larg = va_arg(ap, long);

            _prtl16(larg, str);
            fmax = 0;
            break;

        case 'H':
            larg = va_arg(ap, long);

            _prtX16(larg, str);

            larg = va_arg(ap, long);

            _prtX16(larg, str + 8);

            fmax = 0;
            break;

        case 'h':
            larg = va_arg(ap, long);

            _prtl16(larg, str);

            larg = va_arg(ap, long);

            _prtl16(larg, str + 8);

            fmax = 0;
            break;

        case 'b':
            larg = va_arg(ap, long);

            _prtl2(larg, str);
            fmax = 0;
            break;

        default:
            (*func) (f);
            break;
        }
        for (length = 0; str[length] != '\0'; length++)
        {;
        }
        if (fmin > MAXSTR || fmin < 0)
        {
            fmin = 0;
        }
        if (fmax > MAXSTR || fmax < 0)
        {
            fmax = 0;
        }
        leading = 0;
        if (fmax != 0 || fmin != 0)
        {
            if (fmax != 0)
            {
                if (length > fmax)
                {
                    length = fmax;
                }
            }
            if (fmin != 0)
            {
                leading = fmin - length;
            }
            if (sign == '-')
            {
                --leading;
            }
        }
        if (sign == '-' && fill == '0')
        {
            (*func) (sign);
        }
        if (leftjust == 0)
        {
            for (i = 0; i < leading; i++)
            {
                (*func) (fill);
            }
        }
        if (sign == '-' && fill == ' ')
        {
            (*func) (sign);
        }
        for (i = 0; i < length; i++)
        {
            (*func) (str[i]);
        }
        if (leftjust != 0)
        {
            for (i = 0; i < leading; i++)
                (*func) (fill);
        }
    }

}

Here is the call graph for this function:

_prtdbl()

static void _prtdbl ( double  num, int  precision, char *  str  )

static

Definition at line 413 of file doprnt.c.

References _prtl10().

Referenced by _doprnt().

{
    int i,mp;
    long w,p;
 
    for(i = 0, mp = 1; i < precision; i++, mp *= 10);
    
    num = ((num<0) ? -(num) : (num));
    w = (long)(num);
    p = (long)(num * mp) - (long)(w * mp);
    
    _prtl10(w, str);
    while(*str != '\0') { str++; }
    *str++ = '.';
    _prtl10(p, str);
}

Here is the call graph for this function:

Here is the caller graph for this function:

_prtl10()

static void _prtl10 ( long  num, char *  str  )

static

Definition at line 286 of file doprnt.c.

Referenced by _doprnt(), and _prtdbl().

{
    int i;
    char temp[11];

    temp[0] = '\0';
    temp[1] = ((num<0) ? -(num%10) : (num%10)) + '0';
    num /= (num<0) ? -10 : 10;
    for (i = 2; i <= 10; i++) {
        temp[i] = num % 10 + '0';
        num /= 10;
    }
    for (i = 10; temp[i] == '0'; i--);
    if (i == 0)
        i++;
    while (i >= 0)
        *str++ = temp[i--];
}

Here is the caller graph for this function:

_prtl16()

static void _prtl16 ( long  num, char *  str  )

static

Definition at line 338 of file doprnt.c.

Referenced by _doprnt().

{
    int i;
    char temp[9];

    temp[0] = '\0';
    for (i = 1; i <= 8; i++)
    {
        temp[i] = "0123456789abcdef"[num & 0x0F];
        num = num >> 4;
    }
    for (i = 8; temp[i] == '0'; i--);
    if (i == 0)
        i++;
    while (i >= 0)
        *str++ = temp[i--];
}

Here is the caller graph for this function:

_prtl2()

static void _prtl2 ( long  num, char *  str  )

static

Definition at line 388 of file doprnt.c.

Referenced by _doprnt().

{
    int i;
    char temp[35];

    temp[0] = '\0';
    for (i = 1; i <= 32; i++)
    {
        temp[i] = ((num % 2) == 0) ? '0' : '1';
        num = num >> 1;
    }
    for (i = 32; temp[i] == '0'; i--);
    if (i == 0)
        i++;
    while (i >= 0)
        *str++ = temp[i--];
}

Here is the caller graph for this function:

_prtl8()

static void _prtl8 ( long  num, char *  str  )

static

Definition at line 312 of file doprnt.c.

Referenced by _doprnt().

{
    int i;
    char temp[12];

    temp[0] = '\0';
    for (i = 1; i <= 11; i++)
    {
        temp[i] = (num & 07) + '0';
        num = num >> 3;
    }
    temp[11] &= '3';
    for (i = 11; temp[i] == '0'; i--);
    if (i == 0)
        i++;
    while (i >= 0)
        *str++ = temp[i--];
}

Here is the caller graph for this function:

_prtX16()

static void _prtX16 ( long  num, char *  str  )

static

Definition at line 363 of file doprnt.c.

Referenced by _doprnt().

{
    int i;
    char temp[9];

    temp[0] = '\0';
    for (i = 1; i <= 8; i++)
    {
        temp[i] = "0123456789ABCDEF"[num & 0x0F];
        num = num >> 4;
    }
    for (i = 8; temp[i] == '0'; i--);
    if (i == 0)
        i++;
    while (i >= 0)
        *str++ = temp[i--];
}

Here is the caller graph for this function: