#include <schily/mconfig.h>
#include <schily/varargs.h>
#include <schily/string.h>
#include <schily/stdlib.h>
#include <schily/standard.h>
#include <schily/utypes.h>
#include <schily/schily.h>

Include dependency graph for format.c:

Classes
struct	f_args

Macros
#define	USE_LONGLONG

#define	USE_NL_ARGS

#define	args fargs.ap /* Use working copy */

#define	CHECKFLAG()

#define	allmask(t) ((unsigned t)~((unsigned t)0))

#define	lowmask(t, x) ((unsigned t)~((unsigned t)((1 << (x))-1)))

#define	rshiftmask(t, s) ((allmask(t) & lowmask(t, s)) >> (s))

#define	CHARMASK makemask(char)

#define	SHORTMASK makemask(short)

#define	INTMASK makemask(int)

#define	LONGMASK makemask(long)

#define	divlbys(val, base) ((val)/(base))

#define	modlbys(val, base) ((val)%(base))

#define	is_dig(c) (((c) >= '0') && ((c) <= '9'))

#define	is_cap(c) ((c) >= 'A' && (c) <= 'Z')

#define	to_cap(c) (is_cap(c) ? c : c - 'a' + 'A')

#define	cap_ty(c) (is_cap(c) ? 'L' : 'I')

#define	MINUSFLG 1 /* '-' flag */

#define	PLUSFLG 2 /* '+' flag */

#define	SPACEFLG 4 /* ' ' flag */

#define	HASHFLG 8 /* '#' flag */

#define	APOFLG 16 /* '\'' flag */

#define	GOTDOT 32 /* '.' found */

#define	GOTSTAR 64 /* '' found /

#define	FMT_ARGMAX 30 /* Number of fast args */

#define	FORMAT_IMPL

#define	FORMAT_FUNC_NAME format

#define	FORMAT_FUNC_PARM

#define	FORMAT_FUNC_PROTO_DECL void (fun)(char, void ),

#define	FORMAT_FUNC_KR_DECL register void (*fun)();

#define	FORMAT_FUNC_KR_ARGS fun,

#define	ofun(c, fp) (*fun)(c, fp)

#define	FARG farg

#define	AT_NONE 0

#define	AT_INT 1

#define	AT_LONG 2

#define	AT_LONG_LONG 3

#define	AT_DOUBLE 4

#define	AT_LONG_DOUBLE 5

#define	AT_VOID_PTR 6

#define	AT_CHAR_PTR 7

#define	AT_SHORT_PTR 8

#define	AT_INT_PTR 9

#define	AT_LONG_PTR 10

#define	AT_LONG_LONG_PTR 11

#define	AT_R_FMT 12

#define	AT_R_VA_LIST 13

#define	AT_BOUNDS 14

#define	AF_NONE 0

#define	AF_LONG 1

#define	AF_LONG_LONG 2

#define	AF_LONG_DOUBLE 4

#define	AF_STAR 8

Typedefs
typedef struct f_args	f_args

Functions
char *gcvt	__PR ((double, int, char *))

LOCAL void prnum	__PR ((Ulong, unsigned, f_args *))

LOCAL void prdnum	__PR ((Ulong, f_args *))

LOCAL int prbuf	__PR ((const char , f_args ))

LOCAL int prc	__PR ((char, f_args *))

EXPORT void _fmtarglist	__PR ((const char *fmt, va_lists_t, va_lists_t arglist[]))

EXPORT void _fmtgetarg	__PR ((const char fmt, int num, va_lists_t ))

	va_copy (sargs.ap, oargs)

	for (; *fmt !='\0';fmt++)

LOCAL void	prnum (Ulong val, unsigned base, f_args *fa)

LOCAL void	prdnum (Ulong val, f_args *fa)

LOCAL void	pronum (Ulong val, f_args *fa)

LOCAL void	prxnum (Ulong val, f_args *fa)

LOCAL void	prXnum (Ulong val, f_args *fa)

LOCAL void	prlnum (Ullong val, unsigned base, f_args *fa)

LOCAL void	prldnum (Ullong val, f_args *fa)

LOCAL void	prlonum (Ullong val, f_args *fa)

LOCAL void	prlxnum (Ullong val, f_args *fa)

LOCAL void	prlXnum (Ullong val, f_args *fa)

LOCAL int	prbuf (const char s, f_args fa)

LOCAL int	prc (char c, f_args *fa)

LOCAL int	prstring (const char s, f_args fa)

EXPORT void	_fmtarglist (char *fmt, va_lists_t fargs, arglist) const

EXPORT void	_fmtgetarg (char fmt, int num, va_lists_t fargs) const

Variables
EXPORT int FORMAT_FUNC_KR_DECL register void *	farg = farg

register char *	fmt

va_list	oargs

const char *	sfmt

register int	unsflag

register long	val

register char	type

register char	mode

register char	c

int	count = 0

int	num

int	i

short	sh

const char *	str

double	dval

Llong	llval = 0

Ulong	res

char *	rfmt

f_args	fa

va_lists_t	fargs = sargs

va_lists_t	sargs

va_lists_t	arglist [FMT_ARGMAX+1]

const char *	ofmt = fmt

BOOL	didlist = FALSE

fa	outf = fun

out	__pad0__

LOCAL unsigned char	dtab [] = "0123456789abcdef"

LOCAL unsigned char	udtab [] = "0123456789ABCDEF"

static const char	skips [] = "+- #'.$h1234567890"

static const char *	digits = &skips[8]

Macro Definition Documentation

◆ AF_LONG

#define AF_LONG 1

Definition at line 1372 of file format.c.

◆ AF_LONG_DOUBLE

#define AF_LONG_DOUBLE 4

Definition at line 1374 of file format.c.

◆ AF_LONG_LONG

#define AF_LONG_LONG 2

Definition at line 1373 of file format.c.

◆ AF_NONE

#define AF_NONE 0

Definition at line 1371 of file format.c.

◆ AF_STAR

#define AF_STAR 8

Definition at line 1375 of file format.c.

◆ allmask

#define allmask ( t ) ((unsigned t)~((unsigned t)0))

Definition at line 100 of file format.c.

◆ APOFLG

#define APOFLG 16 /* '\'' flag */

Definition at line 166 of file format.c.

◆ args

FxRequestBuffer args fargs.ap /* Use working copy */

Definition at line 66 of file format.c.

Referenced by __report_error(), _scprintf(), _scwprintf(), _snprintf(), _texecl(), _texecle(), _texeclp(), _texeclpe(), _tspawnl(), _tspawnle(), _tspawnlp(), _tspawnlpe(), _tspawnv(), _tspawnve(), CRegistryTree::AddErrorDescription(), AddToSendBuffer(), ATL::CStringT< BaseType, StringTraits >::AppendFormat(), AVISplitter_first_request(), BaseInputPinImpl_NewSegment(), call_varargs(), check_record_(), cmd_rename(), cmd_rmdir(), comerr(), comerrno(), CommandDelete(), ConMsgPrintf(), ConPrintf(), ConResMsgPrintf(), ConResMsgPrintfEx(), ConResPrintf(), ConResPrintfEx(), convert_old_args(), DbgP(), DbgPrint(), DbgPrintEarly(), anonymous_namespace{mstscax.cpp}::dbgprintf(), debug_printf(), DebugFunction(), DECLARE_INTERFACE_(), die(), DisplayError(), DisplayMessage(), doc_complex_write(), doflag(), DoFormatDrive(), dosflags(), dprintf(), EfiPrintf(), eprintf(), errmsg(), errmsgno(), error(), ErrorMessageBox(), ErrorMsgBox(), expect_files(), ext3_warning(), find_arb_pshader(), find_arb_vshader(), find_glsl_domain_shader(), find_glsl_geometry_shader(), find_glsl_pshader(), find_glsl_vshader(), ATL::CStringT< BaseType, StringTraits >::Format(), FormatMessageA(), FormatMessageW(), FormatString(), FT_New_Face(), FT_New_Memory_Face(), get_template_name(), getallargs(), getargs(), getlallargs(), getlargs(), Global_InStr(), Global_InvokeEx(), HANDLE_CustomType23(), HANDLE_CustomType7(), indent_printf(), InfoMessageBox(), init_arginfo(), Install(), install_wine_gecko(), invoke_procedure(), ITERATE_StartService(), js_error(), js_fprintf(), js_printf(), js_snprintf(), LIBXML_ATTR_FORMAT(), LIBXSLT_ATTR_FORMAT(), Link(), MCI_GetString(), MCI_ParseOptArgs(), mciSendStringW(), ModuleMessage(), mp_clear_multi(), mp_init_multi(), msi_service_args_to_vector(), NdrAsyncClientCall(), NdrAsyncServerCall(), NdrClientCall2(), NdrMesProcEncodeDecode(), NdrStubCall2(), nfs41_delegation_recall(), notify_webbrowser_close(), Open(), parse_arguments(), parse_event_elem(), pdie(), picture_render(), pp_add_macro(), print_error(), printf(), PRINTF_ATTR(), PrintMessageAnsi(), PrintParserError(), PrintResourceString(), PrintString(), ProcessCommandLine(), pSetupDebugPrint(), PullPin_NewSegment(), put_str(), register_dlls_callback(), RegistryStatus(), remglob(), Remove(), ResourceMessageBox(), run_script(), SerenumInitMultiSzString(), CRegistryTree::SetError(), CardButton::SetText(), setup_arguments_object(), SetWindowResPrintfW(), shader_addline(), shader_arb_generate_pshader(), shader_arb_generate_vshader(), shader_glsl_find_ffp_fragment_shader(), shader_glsl_generate_domain_shader(), shader_glsl_generate_pshader(), shader_glsl_generate_vshader(), ShellMessageBoxA(), ShellMessageBoxW(), ShellMessageBoxWrapW(), SHPackDispParamsV(), sprintf(), SQLConfigDriver(), SQLConfigDriverW(), Stop(), str_printf(), string_buffer_sprintf(), SuccessMsgBox(), swprintf(), symbol_demangle(), T42_Face_Init(), test_commandline2argv(), test_disp(), test_Invoke(), test_invoke_func(), test_ShellExecute(), test_TypeInfo(), tokenizeCommand(), type_new_function(), UnderlinedResPrintf(), Unlink(), VfatPrint(), write_status(), WriteToLogPrintf(), xcomerr(), xcomerrno(), xmlGenericErrorDefaultFunc(), and xmlStrPrintf().

◆ AT_BOUNDS

#define AT_BOUNDS 14

Definition at line 1369 of file format.c.

◆ AT_CHAR_PTR

#define AT_CHAR_PTR 7

Definition at line 1362 of file format.c.

◆ AT_DOUBLE

#define AT_DOUBLE 4

Definition at line 1359 of file format.c.

◆ AT_INT

#define AT_INT 1

Definition at line 1356 of file format.c.

◆ AT_INT_PTR

#define AT_INT_PTR 9

Definition at line 1364 of file format.c.

◆ AT_LONG

#define AT_LONG 2

Definition at line 1357 of file format.c.

◆ AT_LONG_DOUBLE

#define AT_LONG_DOUBLE 5

Definition at line 1360 of file format.c.

◆ AT_LONG_LONG

#define AT_LONG_LONG 3

Definition at line 1358 of file format.c.

◆ AT_LONG_LONG_PTR

#define AT_LONG_LONG_PTR 11

Definition at line 1366 of file format.c.

◆ AT_LONG_PTR

#define AT_LONG_PTR 10

Definition at line 1365 of file format.c.

◆ AT_NONE

#define AT_NONE 0

Definition at line 1355 of file format.c.

◆ AT_R_FMT

#define AT_R_FMT 12

Definition at line 1367 of file format.c.

◆ AT_R_VA_LIST

#define AT_R_VA_LIST 13

Definition at line 1368 of file format.c.

◆ AT_SHORT_PTR

#define AT_SHORT_PTR 8

Definition at line 1363 of file format.c.

◆ AT_VOID_PTR

#define AT_VOID_PTR 6

Definition at line 1361 of file format.c.

◆ cap_ty

#define cap_ty ( c ) (is_cap(c) ? 'L' : 'I')

Definition at line 125 of file format.c.

◆ CHARMASK

#define CHARMASK makemask(char)

Definition at line 104 of file format.c.

◆ CHECKFLAG

#define CHECKFLAG ( )

Definition at line 81 of file format.c.

◆ divlbys

#define divlbys	(	val,
		base
	)	((val)/(base))

Definition at line 113 of file format.c.

◆ FARG

#define FARG farg

Definition at line 240 of file format.c.

◆ FMT_ARGMAX

#define FMT_ARGMAX 30 /* Number of fast args */

Definition at line 170 of file format.c.

◆ FORMAT_FUNC_KR_ARGS

#define FORMAT_FUNC_KR_ARGS fun,

Definition at line 232 of file format.c.

◆ FORMAT_FUNC_KR_DECL

#define FORMAT_FUNC_KR_DECL register void (*fun)();

Definition at line 231 of file format.c.

◆ FORMAT_FUNC_NAME

#define FORMAT_FUNC_NAME format

Definition at line 227 of file format.c.

◆ FORMAT_FUNC_PARM

#define FORMAT_FUNC_PARM

Definition at line 228 of file format.c.

◆ FORMAT_FUNC_PROTO_DECL

#define FORMAT_FUNC_PROTO_DECL void (*fun)(char, void *),

Definition at line 230 of file format.c.

◆ FORMAT_IMPL

#define FORMAT_IMPL

Definition at line 193 of file format.c.

◆ GOTDOT

#define GOTDOT 32 /* '.' found */

Definition at line 167 of file format.c.

◆ GOTSTAR

#define GOTSTAR 64 /* '*' found */

Definition at line 168 of file format.c.

◆ HASHFLG

#define HASHFLG 8 /* '#' flag */

Definition at line 165 of file format.c.

◆ INTMASK

#define INTMASK makemask(int)

Definition at line 106 of file format.c.

◆ is_cap

#define is_cap ( c ) ((c) >= 'A' && (c) <= 'Z')

Definition at line 123 of file format.c.

◆ is_dig

#define is_dig ( c ) (((c) >= '0') && ((c) <= '9'))

Definition at line 122 of file format.c.

◆ LONGMASK

#define LONGMASK makemask(long)

Definition at line 107 of file format.c.

◆ lowmask

#define lowmask	(	t,
		x
	)	((unsigned t)~((unsigned t)((1 << (x))-1)))

Definition at line 101 of file format.c.

◆ MINUSFLG

#define MINUSFLG 1 /* '-' flag */

Definition at line 162 of file format.c.

◆ modlbys

#define modlbys	(	val,
		base
	)	((val)%(base))

Definition at line 114 of file format.c.

◆ ofun

#define ofun	(	c,
		fp
	)	(*fun)(c, fp)

Definition at line 234 of file format.c.

◆ PLUSFLG

#define PLUSFLG 2 /* '+' flag */

Definition at line 163 of file format.c.

◆ rshiftmask

#define rshiftmask	(	t,
		s
	)	((allmask(t) & lowmask(t, s)) >> (s))

Definition at line 102 of file format.c.

◆ SHORTMASK

#define SHORTMASK makemask(short)

Definition at line 105 of file format.c.

◆ SPACEFLG

#define SPACEFLG 4 /* ' ' flag */

Definition at line 164 of file format.c.

◆ to_cap

#define to_cap ( c ) (is_cap(c) ? c : c - 'a' + 'A')

Definition at line 124 of file format.c.

◆ USE_LONGLONG

#define USE_LONGLONG

Definition at line 45 of file format.c.

◆ USE_NL_ARGS

#define USE_NL_ARGS

Definition at line 53 of file format.c.

Typedef Documentation

◆ f_args

typedef struct f_args f_args

Function Documentation

◆ __PR() [1/7]

LOCAL int prc __PR ( (char, f_args *) )

◆ __PR() [2/7]

LOCAL int prbuf __PR ( (const char *, f_args *) )

◆ __PR() [3/7]

EXPORT void _fmtgetarg __PR ( (const char *fmt, int num, va_lists_t *) )

◆ __PR() [4/7]

EXPORT void _fmtarglist __PR ( (const char *fmt, va_lists_t, va_lists_t arglist[]) )

◆ __PR() [5/7]

char *gcvt __PR ( (double, int, char *) )

◆ __PR() [6/7]

LOCAL void prdnum __PR ( (Ulong, f_args *) )

◆ __PR() [7/7]

LOCAL void prnum __PR ( (Ulong, unsigned, f_args *) )

◆ _fmtarglist()

EXPORT void _fmtarglist	(	char *	fmt,
		va_lists_t	fargs,
		arglist
	)		const

Definition at line 1390 of file format.c.

{
    int i;
    int argindex;
    int maxindex;
    int thistype;
    int thisflag;
    int argtypes[FMT_ARGMAX+1];
 
    for (i = 0; i < FMT_ARGMAX; i++)
        argtypes[i] = AT_NONE;
 
    maxindex = -1;
    argindex = 0;
    while ((fmt = strchr(fmt, '%')) != NULL) {
        fmt++;
        i = strspn(fmt, digits);
        if (fmt[i] == '$') {
            int c;
 
            argindex = *fmt++ - '0';
            while (c = *fmt, is_dig(c)) {
                argindex *= 10;
                argindex += c - '0';
                fmt++;
            }
            argindex -= 1;
        }
        thistype = AT_NONE;
        thisflag = AF_NONE;
    newarg:
        fmt += strspn(fmt, skips);
        switch (*fmt++) {
 
        case '%':       /* %% format no arg */
            continue;
 
        case 'l':
            if (thisflag & AF_LONG) {
                thisflag |= AF_LONG_LONG;
            } else {
                thisflag |= AF_LONG;
            }
            goto newarg;
        case 'j':       /* intmax_t for now is long long */
            thisflag |= AF_LONG_LONG;
            goto newarg;
        case 'z':       /* size_t */
#if SIZEOF_SIZE_T == SIZEOF_INT
            if (thistype == AT_NONE)
                thistype = AT_INT;
#else
#if SIZEOF_SIZE_T == SIZEOF_LONG_INT
            if (thistype == AT_NONE)
                thistype = AT_LONG;
#else
#if SIZEOF_SIZE_T == SIZEOF_LLONG
            if (thistype == AT_NONE)
                thistype = AT_LONG_LONG;
#else
error sizeof (size_t) is unknown
#endif
#endif
#endif
            goto newarg;
        case 't':       /* ptrdiff_t */
#if SIZEOF_PTRDIFF_T == SIZEOF_INT
            if (thistype == AT_NONE)
                thistype = AT_INT;
#else
#if SIZEOF_PTRDIFF_T == SIZEOF_LONG_INT
            if (thistype == AT_NONE)
                thistype = AT_LONG;
#else
#if SIZEOF_PTRDIFF_T == SIZEOF_LLONG
            if (thistype == AT_NONE)
                thistype = AT_LONG_LONG;
#else
error sizeof (ptrdiff_t) is unknown
#endif
#endif
#endif
            goto newarg;
#ifndef NO_UCSIL
            /*
             * Enhancements to K&R and ANSI:
             *
             * got a type specifyer
             *
             * XXX 'S' in C99 is %ls, 'S' should become 'H'
             */
        case 'U':
            if (!strchr("CSILZODX", *fmt)) {
                /*
                 * Got only 'U'nsigned specifyer,
                 * use default type and mode.
                 */
                thistype = AT_INT;
                break;
            }
            if (!strchr("CSIL", *fmt)) {
                /*
                 * Got 'U' and ZODX.
                 * no type, use default
                 */
                thistype = AT_INT;
                fmt++;  /* Skip ZODX */
                break;
            }
            fmt++;      /* Unsigned, skip 'U', get CSIL */
            /* FALLTHRU */
        case 'C':
        case 'S':
        case 'I':
        case 'L':
            fmt--;      /* Undo fmt++ from switch() */
            {
                /*
                 * got CSIL type
                 */
                int type = *fmt++;  /* Undo above fmt-- */
                int mode = *fmt;
                if (!strchr("ZODX", mode)) {
                    /*
                     * Check long double "Le", "Lf" or "Lg"
                     */
                    if (type == 'L' &&
                        (mode == 'e' ||
                        mode == 'f' ||
                        mode == 'g')) {
                        thisflag |= AF_LONG_DOUBLE;
                        goto newarg;
                    }
                } else {
                    fmt++;  /* Skip ZODX */
                }
                if (type == 'L')
                    thistype = AT_LONG;
                else
                    thistype = AT_INT;
            }
            break;
#else
        case 'L':
            thisflag |= AF_LONG_DOUBLE;
            goto newarg;
#endif
 
        case 'e':
        case 'E':
        case 'f':
        case 'F':
        case 'g':
        case 'G':
            if (thisflag & AF_LONG_DOUBLE)
                thistype = AT_LONG_DOUBLE;
            else
                thistype = AT_DOUBLE;
            break;
 
        case 'p':
            thistype = AT_VOID_PTR;
            break;
        case 's':
            thistype = AT_CHAR_PTR;
            break;
        case 'b':
            thistype = AT_BOUNDS;
            break;
        case 'n':
            if (thisflag & AF_LONG_LONG)
                thistype = AT_LONG_LONG_PTR;
            else if (thistype & AF_LONG)
                thistype = AT_LONG_PTR;
            else
                thistype = AT_INT_PTR;
            break;
        case 'r':
            thistype = AT_R_FMT;
            break;
        default:
            if (thistype == AT_NONE) {
                if (thisflag & AF_LONG_LONG)
                    thistype = AT_LONG_LONG;
                else if (thistype & AF_LONG)
                    thistype = AT_LONG;
                else
                    thistype = AT_INT;
            }
            break;
 
        case '*':
            if (is_dig(*fmt)) {
                int c;
                int starindex;
 
                starindex = *fmt++ - '0';
                while (c = *fmt, is_dig(c)) {
                    starindex *= 10;
                    starindex += c - '0';
                    fmt++;
                }
                starindex -= 1;
                if (starindex >= 0 && starindex < FMT_ARGMAX) {
                    argtypes[starindex] = AT_INT;
                    if (starindex > maxindex)
                        maxindex = starindex;
                }
                goto newarg;
            }
            thistype = AT_INT;
            thisflag |= AF_STAR; /* Make sure to rescan for type */
            break;
        }
        if (argindex >= 0 && argindex < FMT_ARGMAX) {
            argtypes[argindex] = thistype;
            if (thistype == AT_R_FMT)
                argtypes[++argindex] = AT_R_VA_LIST;
            else if (thistype == AT_BOUNDS)
                argtypes[++argindex] = AT_INT;
 
            if (argindex > maxindex)
                maxindex = argindex;
        }
        ++argindex;     /* Default to next arg in list */
        if (thisflag & AF_STAR) { /* Found '*', continue for type */
            thisflag &= ~AF_STAR;
            goto newarg;
        }
    }
 
    for (i = 0; i <= maxindex; i++) { /* Do not fetch more args than known */
        arglist[i] = fargs; /* Save state before fetching this */
 
        switch (argtypes[i]) {
 
        default:
            /* FALLTHRU */
        case AT_NONE:       /* This matches '*' args */
            /* FALLTHRU */
        case AT_INT:
            (void) va_arg(fargs.ap, int);
            break;
        case AT_LONG:
            (void) va_arg(fargs.ap, long);
            break;
        case AT_LONG_LONG:
            (void) va_arg(fargs.ap, Llong);
            break;
        case AT_DOUBLE:
            (void) va_arg(fargs.ap, double);
            break;
        case AT_LONG_DOUBLE:
#ifdef  HAVE_LONGDOUBLE
            (void) va_arg(fargs.ap, long double);
#endif
            break;
        case AT_VOID_PTR:
            (void) va_arg(fargs.ap, void *);
            break;
        case AT_CHAR_PTR:
            (void) va_arg(fargs.ap, char *);
            break;
        case AT_SHORT_PTR:
            (void) va_arg(fargs.ap, short *);
            break;
        case AT_INT_PTR:
            (void) va_arg(fargs.ap, int *);
            break;
        case AT_LONG_PTR:
            (void) va_arg(fargs.ap, long *);
            break;
        case AT_LONG_LONG_PTR:
            (void) va_arg(fargs.ap, Llong *);
            break;
        case AT_R_FMT:
            (void) va_arg(fargs.ap, char *);
            arglist[++i] = fargs;
            (void) __va_arg_list(fargs.ap);
            break;
        case AT_R_VA_LIST:
            break;
        case AT_BOUNDS:
            (void) va_arg(fargs.ap, char *);
            arglist[++i] = fargs;
            (void) va_arg(fargs.ap, int);
            break;
        }
    }
}

Referenced by for().

◆ _fmtgetarg()

EXPORT void _fmtgetarg	(	char *	fmt,
		int	num,
		va_lists_t *	fargs
	)		const

Definition at line 1691 of file format.c.

{
    const char  *sfmt = fmt;
    int     i;
 
    /*
     * Hacky preliminary support for all int type args bejond FMT_ARGMAX.
     */
    for (i = FMT_ARGMAX; i < num; i++)
        (void) va_arg((*fargs).ap, int);
}

Referenced by for().

◆ for()

for ( ; *fmt ! = '\0'; fmt++ )

Definition at line 315 of file format.c.

                                {
        c = *fmt;
        while (c != '%') {
            if (c == '\0')
                goto out;
            ofun(c, farg);
            c = *(++fmt);
            count++;
        }
 
        /*
         * We reached a '%' sign.
         */
        buf[0] = '\0';
        fa.buf = fa.bufp = buf;
        fa.minusflag = 0;
        fa.flags = 0;
        fa.fldwidth = 0;
        fa.signific = -1;
        fa.lzero = 0;
        fa.fillc = ' ';
        fa.prefixlen = 0;
        sfmt = fmt;
        unsflag = FALSE;
        type = '\0';
        mode = '\0';
        /*
         * %<flags>f.s<length-mod><conversion-spec>
         * %<flags>*.*<length-mod><conversion-spec>
         * %n$<flags>f.s<length-mod><conversion-spec>
         * %n$<flags>*n$.*n$<length-mod><conversion-spec>
         */
    newflag:
        switch (*(++fmt)) {
 
        case '+':
            CHECKFLAG();
            fa.flags |= PLUSFLG;
            goto newflag;
 
        case '-':
            CHECKFLAG();
            fa.minusflag++;
            fa.flags |= MINUSFLG;
            goto newflag;
 
        case ' ':
            CHECKFLAG();
            /*
             * If the space and the + flag are present,
             * the space flag will be ignored.
             */
            fa.flags |= SPACEFLG;
            goto newflag;
 
        case '#':
            CHECKFLAG();
            fa.flags |= HASHFLG;
            goto newflag;
 
        case '\'':
            CHECKFLAG();
            fa.flags |= APOFLG;
            goto newflag;
 
        case '.':
            fa.flags |= GOTDOT;
            fa.signific = 0;
            goto newflag;
 
        case '*':
            fa.flags |= GOTSTAR;
#ifdef  USE_NL_ARGS
            if (is_dig(fmt[1])) {   /* *n$ */
                fmt++;      /* Eat up '*' */
                goto dodig;
            }
#endif
            if (!(fa.flags & GOTDOT)) {
                fa.fldwidth = va_arg(args, int);
                /*
                 * A negative fieldwith is a minus flag with a
                 * positive fieldwidth.
                 */
                if (fa.fldwidth < 0) {
                    fa.fldwidth = -fa.fldwidth;
                    fa.minusflag = 1;
                }
            } else {
                /*
                 * A negative significance (precision) is taken
                 * as if the precision and '.' were omitted.
                 */
                fa.signific = va_arg(args, int);
                if (fa.signific < 0)
                    fa.signific = -1;
            }
            goto newflag;
 
        case '0':
            /*
             * '0' may be a flag.
             */
            if (!(fa.flags & (GOTDOT | GOTSTAR | MINUSFLG)))
                fa.fillc = '0';
            /* FALLTHRU */
        case '1': case '2': case '3': case '4':
        case '5': case '6': case '7': case '8': case '9':
#ifdef  USE_NL_ARGS
        dodig:
#endif
            num = *fmt++ - '0';
            while (c = *fmt, is_dig(c)) {
                num *= 10;
                num += c - '0';
                fmt++;
            }
#ifdef  USE_NL_ARGS
            if (c == '$')
                goto doarglist;
#endif
            fmt--;          /* backup to last digit */
            if (!(fa.flags & GOTDOT))
                fa.fldwidth = num;
            else
                fa.signific = num;
            goto newflag;
 
#ifdef  USE_NL_ARGS
        doarglist:
            {
            va_lists_t  tmp;    /* Temporary arg state */
            if (num <= 0)       /* Illegal arg offset */
                goto newflag;   /* Continue after '$' */
            if (!didlist) {     /* Need to init arglist */
                _fmtarglist(ofmt, sargs, arglist);
                didlist = TRUE;
            }
            if (num <= FMT_ARGMAX) {
                tmp = arglist[num-1];
            } else {
                tmp = arglist[FMT_ARGMAX-1];
                _fmtgetarg(ofmt, num, &tmp);
            }
            if (!(fa.flags & GOTSTAR)) {
                fargs = tmp;
            } else {
                if (!(fa.flags & GOTDOT)) {
                    fa.fldwidth = va_arg(tmp.ap, int);
                    /*
                     * A negative fieldwith is a minus flag
                     * with a positive fieldwidth.
                     */
                    if (fa.fldwidth < 0) {
                        fa.fldwidth = -fa.fldwidth;
                        fa.minusflag = 1;
                    }
                } else {
                    /*
                     * A negative significance (precision)
                     * is taken as if the precision and '.'
                     * were omitted.
                     */
                    fa.signific = va_arg(tmp.ap, int);
                    if (fa.signific < 0)
                        fa.signific = -1;
                }
            }
            goto newflag;
            }
#endif
 
#ifdef  USE_CHECKFLAG
        flagerror:
            fmt = ++sfmt;       /* Don't print '%'   */
            continue;
#endif
        }
 
        if (strchr("UCSIL", *fmt)) {
            /*
             * Enhancements to K&R and ANSI:
             *
             * got a type specifyer
             *
             * XXX 'S' in C99 is %ls, 'S' should become 'H'
             */
            if (*fmt == 'U') {
                fmt++;
                unsflag = TRUE;
            }
            if (!strchr("CSILZODX", *fmt)) {
                /*
                 * Got only 'U'nsigned specifyer,
                 * use default type and mode.
                 */
                type = 'I';
                mode = 'D';
                fmt--;
            } else if (!strchr("CSIL", *fmt)) {
                /*
                 * no type, use default
                 */
                type = 'I';
                mode = *fmt;
            } else {
                /*
                 * got CSIL type
                 */
                type = *fmt++;
                if (!strchr("ZODX", mode = *fmt)) {
                    /*
                     * Check long double "Le", "Lf" or "Lg"
                     */
                    if (type == 'L' &&
                        (mode == 'e' ||
                        mode == 'f' ||
                        mode == 'g'))
                        goto checkfmt;
                    fmt--;
                    mode = 'D'; /* default mode */
                }
            }
        } else {
    checkfmt:
        switch (*fmt) {
 
        case 'h':
            if (!type)
                type = 'H'; /* convert to short type */
            goto getmode;
 
        case 'l':
            if (!type)
                type = 'L'; /* convert to long type */
            goto getmode;
 
        case 'j':
            if (!type)
                type = 'J'; /* convert to intmax_t type */
            goto getmode;
 
        case 'z':           /* size_t */
#if SIZEOF_SIZE_T == SIZEOF_INT
            if (!type)
                type = 'I'; /* convert to int type */
#else
#if SIZEOF_SIZE_T == SIZEOF_LONG_INT
            if (!type)
                type = 'L'; /* convert to long type */
#else
#if SIZEOF_SIZE_T == SIZEOF_LLONG
            if (!type)
                type = 'Q'; /* convert to long long type */
#else
error sizeof (size_t) is unknown
#endif
#endif
#endif
            goto getmode;
 
        case 't':           /* ptrdiff_t */
#if SIZEOF_PTRDIFF_T == SIZEOF_INT
            if (!type)
                type = 'I'; /* convert to int type */
#else
#if SIZEOF_PTRDIFF_T == SIZEOF_LONG_INT
            if (!type)
                type = 'L'; /* convert to long type */
#else
#if SIZEOF_PTRDIFF_T == SIZEOF_LLONG
            if (!type)
                type = 'Q'; /* convert to long long type */
#else
error sizeof (ptrdiff_t) is unknown
#endif
#endif
#endif
        /*
         * XXX Future length modifiers:
         * XXX  'L' with double: long double
         */
 
        getmode:
            if (!strchr("udioxXn", *(++fmt))) {
                /*
                 * %hhd -> char in decimal
                 */
                if (type == 'H' && *fmt == 'h') {
                    type = 'C';
                    goto getmode;
                }
#ifdef  USE_LONGLONG
                if (type == 'L' && *fmt == 'l') {
                    type = 'Q';
                    goto getmode;
                }
#endif
                fmt--;
                mode = 'D';
            } else {        /* One of "udioxXn": */
                mode = *fmt;
                if (mode == 'n')
                    goto gotn;
                if (mode != 'x')
                    mode = to_cap(mode);
                if (mode == 'U')
                    unsflag = TRUE;
                else if (mode == 'I')   /* XXX */
                    mode = 'D';
            }
            break;
        case 'x':
            mode = 'x';
            goto havemode;
        case 'X':
            mode = 'X';
            type = 'I';
            goto havemode;
        case 'u':
            unsflag = TRUE;
        /*
         * XXX Need to remove uppercase letters for 'long'
         * XXX in future for POSIX/C99 compliance.
         */
            /* FALLTHRU */
        case 'o': case 'O':
        case 'd': case 'D':
        case 'i': case 'I':
        case 'Z':
            mode = to_cap(*fmt);
        havemode:
            if (!type)
                type = cap_ty(*fmt);
#ifdef  DEBUG
            dbg_print("*fmt: '%c' mode: '%c' type: '%c'\n",
                            *fmt, mode, type);
#endif
            if (mode == 'I')    /* XXX kann entfallen */
                mode = 'D'; /* wenn besseres uflg */
            break;
        case 'p':
            mode = 'P';
            type = 'L';
            break;
 
        case '%':
            count += prc('%', &fa);
            continue;
        case ' ':
            count += prbuf("", &fa);
            continue;
        case 'c':
            c = va_arg(args, int);
            count += prc(c, &fa);
            continue;
        case 's':
            str = va_arg(args, char *);
            count += prstring(str, &fa);
            continue;
        case 'b':
            str = va_arg(args, char *);
            fa.signific = va_arg(args, int);
            count += prstring(str, &fa);
            continue;
 
#ifndef NO_FLOATINGPOINT
        case 'e':
            if (fa.signific == -1)
                fa.signific = 6;
            if (type == 'L') {
#ifdef  HAVE_LONGDOUBLE
                long double ldval = va_arg(args, long double);
 
#if (defined(HAVE_QECVT) || defined(HAVE__LDECVT))
                qftoes(buf, ldval, 0, fa.signific);
                count += prbuf(buf, &fa);
                continue;
#else
                dval = ldval;
#endif
#endif
            }
            dval = va_arg(args, double);
            ftoes(buf, dval, 0, fa.signific);
            count += prbuf(buf, &fa);
            continue;
        case 'f':
            if (fa.signific == -1)
                fa.signific = 6;
            if (type == 'L') {
#ifdef  HAVE_LONGDOUBLE
                long double ldval = va_arg(args, long double);
 
#if (defined(HAVE_QFCVT) || defined(HAVE__LDFCVT))
                qftofs(buf, ldval, 0, fa.signific);
                count += prbuf(buf, &fa);
                continue;
#else
                dval = ldval;
#endif
#endif
            }
            dval = va_arg(args, double);
            ftofs(buf, dval, 0, fa.signific);
            count += prbuf(buf, &fa);
            continue;
        case 'g':
            if (fa.signific == -1)
                fa.signific = 6;
            if (fa.signific == 0)
                fa.signific = 1;
            if (type == 'L') {
#ifdef  HAVE_LONGDOUBLE
                long double ldval = va_arg(args, long double);
 
#if (defined(HAVE_QGCVT) || defined(HAVE__LDGCVT))
 
#ifdef  HAVE__LDGCVT
#define qgcvt(ld, n, b) _ldgcvt(*(long_double *)&ld, n, b)
#endif
                (void) qgcvt(ldval, fa.signific, buf);
                count += prbuf(buf, &fa);
                continue;
#else
                dval = ldval;
#endif
#endif
            }
            dval = va_arg(args, double);
            (void) gcvt(dval, fa.signific, buf);
            count += prbuf(buf, &fa);
            continue;
#else
#   ifdef   USE_FLOATINGARGS
        case 'e':
        case 'f':
        case 'g':
            dval = va_arg(args, double);
            continue;
#   endif
#endif
 
        case 'r':           /* recursive printf */
        case 'R':           /* recursive printf */
            rfmt  = va_arg(args, char *);
            /*
             * I don't know any portable way to get an arbitrary
             * C object from a var arg list so I use a
             * system-specific routine __va_arg_list() that knows
             * if 'va_list' is an array. You will not be able to
             * assign the value of __va_arg_list() but it works
             * to be used as an argument of a function.
             * It is a requirement for recursive printf to be able
             * to use this function argument. If your system
             * defines va_list to be an array you need to know this
             * via autoconf or another mechanism.
             * It would be nice to have something like
             * __va_arg_list() in stdarg.h
             */
            count += FORMAT_FUNC_NAME(FORMAT_FUNC_KR_ARGS
                    FARG, rfmt, __va_arg_list(args));
            continue;
 
        gotn:
        case 'n':
            switch (type) {
 
            case 'C': {
                signed char *cp = va_arg(args, signed char *);
 
                *cp = count;
                }
                continue;
            case 'H': {
                short   *sp = va_arg(args, short *);
 
                *sp = count;
                }
                continue;
            case 'L': {
                long    *lp = va_arg(args, long *);
 
                *lp = count;
                }
                continue;
#ifdef  USE_LONGLONG
            case 'J':       /* For now Intmax_t is Llong */
            case 'Q': {
                Llong *qp = va_arg(args, Llong *);
 
                *qp = count;
                }
                continue;
#endif
            default: {
                int *ip = va_arg(args, int *);
 
                *ip = count;
                }
                continue;
            }
 
        default:            /* Unknown '%' format */
            sfmt++;         /* Dont't print '%'   */
            count += fmt - sfmt;
            while (sfmt < fmt)
                ofun(*(sfmt++), farg);
            if (*fmt == '\0') {
                fmt--;
                continue;
            } else {
                ofun(*fmt, farg);
                count++;
                continue;
            }
        }
        }
        /*
         * print numbers:
         * first prepare type 'C'har, s'H'ort, 'I'nt, or 'L'ong
         * or 'Q'ad and 'J'==maxint_t
         */
        switch (type) {
 
        case 'C':
            c = va_arg(args, int);
            val = c;        /* extend sign here */
            if (unsflag || mode != 'D')
#ifdef  DO_MASK
                val &= CHARMASK;
#else
                val = (unsigned char)val;
#endif
            break;
        case 'H':
        case 'S':           /* XXX remove 'S' in future */
            sh = va_arg(args, int);
            val = sh;       /* extend sign here */
            if (unsflag || mode != 'D')
#ifdef  DO_MASK
                val &= SHORTMASK;
#else
                val = (unsigned short)val;
#endif
            break;
        case 'I':
        default:
            i = va_arg(args, int);
            val = i;        /* extend sign here */
            if (unsflag || mode != 'D')
#ifdef  DO_MASK
                val &= INTMASK;
#else
                val = (unsigned int)val;
#endif
            break;
        case 'P':
        case 'L':
            val = va_arg(args, long);
            break;
#ifdef  USE_LONGLONG
        case 'J':           /* For now Intmax_t is Llong */
            type = 'Q';     /* use 'Q' for processing    */
        case 'Q':
            llval = va_arg(args, Llong);
            val = llval != 0;
            break;
#endif
        }
 
        /*
         * Final print out, take care of mode:
         * mode is one of: 'O'ctal, 'D'ecimal, or he'X'
         * oder 'Z'weierdarstellung.
         */
        fa.bufp = &buf[sizeof (buf)-1];
        *--fa.bufp = '\0';
 
        if (val == 0 && mode != 'D') {
        printzero:
            /*
             * Printing '0' with fieldwidth 0 results in no chars.
             */
            fa.lzero = -1;
            if (fa.signific >= 0)
                fa.fillc = ' ';
            count += prstring("0", &fa);
            continue;
        } else switch (mode) {
 
        case 'D':
#ifdef  USE_LONGLONG
            if (type == 'Q') {
                if (!unsflag && llval < 0) {
                    fa.prefix = "-";
                    fa.prefixlen = 1;
                    llval = -llval;
                } else if (fa.flags & PLUSFLG) {
                    fa.prefix = "+";
                    fa.prefixlen = 1;
                } else if (fa.flags & SPACEFLG) {
                    fa.prefix = " ";
                    fa.prefixlen = 1;
                }
                if (llval == 0)
                    goto printzero;
                goto prunsigned;
            }
#endif
            if (!unsflag && val < 0) {
                fa.prefix = "-";
                fa.prefixlen = 1;
                val = -val;
            } else if (fa.flags & PLUSFLG) {
                fa.prefix = "+";
                fa.prefixlen = 1;
            } else if (fa.flags & SPACEFLG) {
                fa.prefix = " ";
                fa.prefixlen = 1;
            }
            if (val == 0)
                goto printzero;
            /* FALLTHRU */
        case 'U':
            /* output a long unsigned decimal number */
#ifdef  USE_LONGLONG
        prunsigned:
            if (type == 'Q')
                prldnum(llval, &fa);
            else
#endif
            prdnum(val, &fa);
            break;
        case 'O':
            /* output a long octal number */
            if (fa.flags & HASHFLG) {
                fa.prefix = "0";
                fa.prefixlen = 1;
            }
#ifdef  USE_LONGLONG
            if (type == 'Q') {
                prlonum(llval, &fa);
            } else
#endif
            {
                pronum(val & 07, &fa);
                if ((res = (val>>3) & rshiftmask(long, 3)) != 0)
                    pronum(res, &fa);
            }
            break;
        case 'p':
        case 'x':
            /* output a hex long */
            if (fa.flags & HASHFLG) {
                fa.prefix = "0x";
                fa.prefixlen = 2;
            }
#ifdef  USE_LONGLONG
            if (type == 'Q')
                prlxnum(llval, &fa);
            else
#endif
            {
                prxnum(val & 0xF, &fa);
                if ((res = (val>>4) & rshiftmask(long, 4)) != 0)
                    prxnum(res, &fa);
            }
            break;
        case 'P':
        case 'X':
            /* output a hex long */
            if (fa.flags & HASHFLG) {
                fa.prefix = "0X";
                fa.prefixlen = 2;
            }
#ifdef  USE_LONGLONG
            if (type == 'Q')
                prlXnum(llval, &fa);
            else
#endif
            {
                prXnum(val & 0xF, &fa);
                if ((res = (val>>4) & rshiftmask(long, 4)) != 0)
                    prXnum(res, &fa);
            }
            break;
        case 'Z':
            /* output a binary long */
#ifdef  USE_LONGLONG
            if (type == 'Q')
                prlnum(llval, 2, &fa);
            else
#endif
            {
                prnum(val & 0x1, 2, &fa);
                if ((res = (val>>1) & rshiftmask(long, 1)) != 0)
                    prnum(res, 2, &fa);
            }
        }
        fa.lzero = -1;
        /*
         * If a precision (fielwidth) is specified
         * on diouXx conversions, the '0' flag is ignored.
         */
        if (fa.signific >= 0)
            fa.fillc = ' ';
        count += prbuf(fa.bufp, &fa);
    }

◆ prbuf()

LOCAL int prbuf	(	const char *	s,
		f_args *	fa
	)

Definition at line 1205 of file format.c.

{
    register int diff;
    register int rfillc;
    register void *arg              = fa->farg;
#ifdef  FORMAT_FUNC_PARM
    register void (*fun) __PR((char, void *))   = fa->outf;
#endif
    register int count;
    register int lzero = 0;
 
    count = strlen(s);
 
    /*
     * lzero becomes the number of left fill chars needed to reach signific
     */
    if (fa->lzero < 0 && count < fa->signific)
        lzero = fa->signific - count;
    count += lzero + fa->prefixlen;
    diff = fa->fldwidth - count;
    if (diff > 0)
        count += diff;
 
    if (fa->prefixlen && fa->fillc != ' ') {
        while (*fa->prefix != '\0')
            ofun(*fa->prefix++, arg);
    }
    if (!fa->minusflag) {
        rfillc = fa->fillc;
        while (--diff >= 0)
            ofun(rfillc, arg);
    }
    if (fa->prefixlen && fa->fillc == ' ') {
        while (*fa->prefix != '\0')
            ofun(*fa->prefix++, arg);
    }
    if (lzero > 0) {
        rfillc = '0';
        while (--lzero >= 0)
            ofun(rfillc, arg);
    }
    while (*s != '\0')
        ofun(*s++, arg);
    if (fa->minusflag) {
        rfillc = ' ';
        while (--diff >= 0)
            ofun(rfillc, arg);
    }
    return (count);
}

Referenced by for(), and prstring().

◆ prc()

LOCAL int prc	(	char	c,
		f_args *	fa
	)

Definition at line 1270 of file format.c.

{
    register int diff;
    register int rfillc;
    register void *arg              = fa->farg;
#ifdef  FORMAT_FUNC_PARM
    register void (*fun) __PR((char, void *))   = fa->outf;
#endif
    register int count;
 
    count = 1;
    diff = fa->fldwidth - 1;
    if (diff > 0)
        count += diff;
 
    if (!fa->minusflag) {
        rfillc = fa->fillc;
        while (--diff >= 0)
            ofun(rfillc, arg);
    }
    ofun(c, arg);
    if (fa->minusflag) {
        rfillc = ' ';
        while (--diff >= 0)
            ofun(rfillc, arg);
    }
    return (count);
}

◆ prdnum()

LOCAL void prdnum	(	Ulong	val,
		f_args *	fa
	)

Definition at line 1060 of file format.c.

{
    register char *p = fa->bufp;
 
    do {
        *--p = dtab[modlbys(val, (unsigned)10)];
        val = divlbys(val, (unsigned)10);
    } while (val > 0);
 
    fa->bufp = p;
}

Referenced by for().

◆ prldnum()

LOCAL void prldnum	(	Ullong	val,
		f_args *	fa
	)

Definition at line 1140 of file format.c.

{
    register char *p = fa->bufp;
 
    do {
        *--p = dtab[val % (unsigned)10];
        val = val / (unsigned)10;
    } while (val > 0);
 
    fa->bufp = p;
}

Referenced by for().

◆ prlnum()

LOCAL void prlnum	(	Ullong	val,
		unsigned	base,
		f_args *	fa
	)

Definition at line 1124 of file format.c.

{
    register char *p = fa->bufp;
 
    do {
        *--p = dtab[modlbys(val, base)];
        val = divlbys(val, base);
    } while (val > 0);
 
    fa->bufp = p;
}

Referenced by for().

◆ prlonum()

LOCAL void prlonum	(	Ullong	val,
		f_args *	fa
	)

Definition at line 1155 of file format.c.

{
    register char *p = fa->bufp;
 
    do {
        *--p = dtab[val & 7];
        val >>= 3;
    } while (val > 0);
 
    fa->bufp = p;
}

Referenced by for().

◆ prlxnum()

LOCAL void prlxnum	(	Ullong	val,
		f_args *	fa
	)

Definition at line 1170 of file format.c.

{
    register char *p = fa->bufp;
 
    do {
        *--p = dtab[val & 15];
        val >>= 4;
    } while (val > 0);
 
    fa->bufp = p;
}

Referenced by for().

◆ prlXnum()

LOCAL void prlXnum	(	Ullong	val,
		f_args *	fa
	)

Definition at line 1185 of file format.c.

{
    register char *p = fa->bufp;
 
    do {
        *--p = udtab[val & 15];
        val >>= 4;
    } while (val > 0);
 
    fa->bufp = p;
}

Referenced by for().

◆ prnum()

LOCAL void prnum	(	Ulong	val,
		unsigned	base,
		f_args *	fa
	)

Definition at line 1044 of file format.c.

{
    register char *p = fa->bufp;
 
    do {
        *--p = dtab[modlbys(val, base)];
        val = divlbys(val, base);
    } while (val > 0);
 
    fa->bufp = p;
}

Referenced by for().

◆ pronum()

LOCAL void pronum	(	Ulong	val,
		f_args *	fa
	)

Definition at line 1078 of file format.c.

{
    register char *p = fa->bufp;
 
    do {
        *--p = dtab[val & 7];
        val >>= 3;
    } while (val > 0);
 
    fa->bufp = p;
}

Referenced by for().

◆ prstring()

LOCAL int prstring	(	const char *	s,
		f_args *	fa
	)

Definition at line 1308 of file format.c.

{
    register char   *bp;
    register int    signific;
 
    if (s == NULL)
        return (prbuf("(NULL POINTER)", fa));
 
    if (fa->signific < 0)
        return (prbuf(s, fa));
 
    bp = fa->buf;
    signific = fa->signific;
 
    while (--signific >= 0 && *s != '\0')
        *bp++ = *s++;
    *bp = '\0';
 
    return (prbuf(fa->buf, fa));
}

Referenced by for().

◆ prxnum()

LOCAL void prxnum	(	Ulong	val,
		f_args *	fa
	)

Definition at line 1093 of file format.c.

{
    register char *p = fa->bufp;
 
    do {
        *--p = dtab[val & 15];
        val >>= 4;
    } while (val > 0);
 
    fa->bufp = p;
}

Referenced by for().

◆ prXnum()

LOCAL void prXnum	(	Ulong	val,
		f_args *	fa
	)

Definition at line 1108 of file format.c.

{
    register char *p = fa->bufp;
 
    do {
        *--p = udtab[val & 15];
        val >>= 4;
    } while (val > 0);
 
    fa->bufp = p;
}

Referenced by for().

◆ va_copy()

va_copy	(	sargs.	ap,
		oargs
	)

Variable Documentation

◆ pad0

out __pad0__

Definition at line 1024 of file format.c.

◆ arglist

va_lists_t arglist[FMT_ARGMAX+1]

Definition at line 284 of file format.c.

Referenced by __mingw_vsprintf(), _beginthread(), _beginthreadex(), _CrtDbgReport(), _CrtDbgReportV(), _CrtDbgReportW(), _CrtDbgReportWV(), _fmtarglist(), _VCrtDbgReportA(), _VCrtDbgReportW(), and for().

◆ c

register char c

Definition at line 268 of file format.c.

Referenced by _fmtarglist(), and for().

◆ count

count = 0

Definition at line 269 of file format.c.

◆ didlist

BOOL didlist = FALSE

Definition at line 286 of file format.c.

Referenced by for().

◆ digits

const char* digits = &skips[8]

static

Definition at line 1378 of file format.c.

Referenced by _fmtarglist().

◆ dtab

LOCAL unsigned char dtab[] = "0123456789abcdef"

Definition at line 1040 of file format.c.

Referenced by prdnum(), prldnum(), prlnum(), prlonum(), prlxnum(), prnum(), pronum(), and prxnum().

◆ dval

double dval

Definition at line 274 of file format.c.

Referenced by for(), and tinyxml2::XMLElement::QueryDoubleText().

◆ fa

f_args fa

Definition at line 280 of file format.c.

Referenced by file_get_Attributes(), for(), main(), NetFwAuthorizedApplication_create(), NetFwAuthorizedApplications_create(), prbuf(), prc(), prdnum(), prldnum(), prlnum(), prlonum(), prlxnum(), prlXnum(), prnum(), pronum(), prstring(), prxnum(), prXnum(), and test_GetFile().

◆ farg

fa farg = farg

Definition at line 253 of file format.c.

Referenced by for().

◆ fargs

fargs = sargs

Definition at line 282 of file format.c.

Referenced by _fmtarglist(), and for().

◆ fmt

register char* fmt

Definition at line 254 of file format.c.

Referenced by _fmtarglist(), _fmtgetarg(), and for().

◆ i

int i

Definition at line 271 of file format.c.

◆ llval

Llong llval = 0

Definition at line 276 of file format.c.

Referenced by doflag(), for(), and test_intconversions().

◆ mode

register char mode

Definition at line 267 of file format.c.

◆ num

int num

Definition at line 270 of file format.c.

Referenced by _fmtgetarg(), and for().

◆ oargs

va_list oargs

Definition at line 255 of file format.c.

Referenced by compound_encode_send_decode(), doflag(), and dosflags().

◆ ofmt

const char* ofmt = fmt

Definition at line 285 of file format.c.

Referenced by for(), and optend().

◆ outf

fa outf = fun

Definition at line 301 of file format.c.

Referenced by printline(), and proclog().

◆ res

Ulong res

Definition at line 278 of file format.c.

◆ rfmt

char* rfmt

Definition at line 279 of file format.c.

Referenced by for().

◆ sargs

va_lists_t sargs

Definition at line 283 of file format.c.

Referenced by for().

◆ sfmt

const char* sfmt

Initial value:

{
 
    char buf[8192]

Definition at line 263 of file format.c.

Referenced by _fmtgetarg(), doflag(), and for().

◆ sh

short sh

Definition at line 272 of file format.c.

Referenced by bitBltClip(), DlgMainProc(), for(), GetSectionHdrByName(), gid_to_sid(), NdisIBugcheckCallback(), PidlToSicIndex(), SHMapPIDLToSystemImageListIndex(), sid_to_uid(), test_popup(), and uid_to_sid().

◆ skips

const char skips[] = "+- #'.$h1234567890"

static

Definition at line 1377 of file format.c.

Referenced by _fmtarglist().

◆ str

const char* str

Definition at line 273 of file format.c.

◆ type

register char type

Definition at line 266 of file format.c.

◆ udtab

LOCAL unsigned char udtab[] = "0123456789ABCDEF"

Definition at line 1041 of file format.c.

Referenced by prlXnum(), and prXnum().

◆ unsflag

register int unsflag

Definition at line 264 of file format.c.

Referenced by for().

◆ val

register long val

Definition at line 265 of file format.c.

Classes

Macros

Typedefs

Functions

Variables

Macro Definition Documentation

◆ AF_LONG

◆ AF_LONG_DOUBLE

◆ AF_LONG_LONG

◆ AF_NONE

◆ AF_STAR

◆ allmask

◆ APOFLG

◆ args

◆ AT_BOUNDS

◆ AT_CHAR_PTR

◆ AT_DOUBLE

◆ AT_INT

◆ AT_INT_PTR

◆ AT_LONG

◆ AT_LONG_DOUBLE

◆ AT_LONG_LONG

◆ AT_LONG_LONG_PTR

◆ AT_LONG_PTR

◆ AT_NONE

◆ AT_R_FMT

◆ AT_R_VA_LIST

◆ AT_SHORT_PTR

◆ AT_VOID_PTR

◆ cap_ty

◆ CHARMASK

◆ CHECKFLAG

◆ divlbys

◆ FARG

◆ FMT_ARGMAX

◆ FORMAT_FUNC_KR_ARGS

◆ FORMAT_FUNC_KR_DECL

◆ FORMAT_FUNC_NAME

◆ FORMAT_FUNC_PARM

◆ FORMAT_FUNC_PROTO_DECL

◆ FORMAT_IMPL

◆ GOTDOT

◆ GOTSTAR

◆ HASHFLG

◆ INTMASK

◆ is_cap

◆ is_dig

◆ LONGMASK

◆ lowmask

◆ MINUSFLG

◆ modlbys

◆ ofun

◆ PLUSFLG

◆ rshiftmask

◆ SHORTMASK

◆ SPACEFLG

◆ to_cap

◆ USE_LONGLONG

◆ USE_NL_ARGS

Typedef Documentation

◆ f_args

Function Documentation

◆ __PR() [1/7]

◆ __PR() [2/7]

◆ __PR() [3/7]

◆ __PR() [4/7]

◆ __PR() [5/7]

◆ __PR() [6/7]

◆ __PR() [7/7]

◆ _fmtarglist()

◆ _fmtgetarg()

◆ for()

◆ prbuf()

◆ prc()

◆ prdnum()

◆ prldnum()

◆ prlnum()

◆ prlonum()

◆ prlxnum()

◆ prlXnum()

◆ pad0