format.c File Reference

#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:

Go to the source code of this file.

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

#define AF_LONG   1

Definition at line 1372 of file format.c.

Referenced by _fmtarglist().

#define AF_LONG_DOUBLE   4

Definition at line 1374 of file format.c.

Referenced by _fmtarglist().

#define AF_LONG_LONG   2

Definition at line 1373 of file format.c.

Referenced by _fmtarglist().

#define AF_NONE   0

Definition at line 1371 of file format.c.

Referenced by _fmtarglist().

#define AF_STAR   8

Definition at line 1375 of file format.c.

Referenced by _fmtarglist().

#define allmask

(

t

)

((unsigned t)~((unsigned t)0))

Definition at line 100 of file format.c.

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

Definition at line 166 of file format.c.

Referenced by for().

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

Definition at line 66 of file format.c.

Referenced by __report_error(), _mesa_debug(), _mesa_error(), _mesa_problem(), _mesa_snprintf(), _mesa_warning(), _scprintf(), _scwprintf(), _snprintf(), _texecl(), _texecle(), _texeclp(), _texeclpe(), _tspawnl(), _tspawnle(), _tspawnlp(), _tspawnlpe(), _tspawnv(), _tspawnve(), CRegistryTree::AddErrorDescription(), AddToSendBuffer(), asmparser_message(), AVISplitter_first_request(), BaseInputPinImpl_NewSegment(), call_varargs(), cmd_rename(), cmd_rmdir(), comerr(), comerrno(), CommandDelete(), ConMsgPrintf(), ConPrintf(), ConResMsgPrintf(), ConResMsgPrintfEx(), ConResPrintf(), ConResPrintfEx(), convert_old_args(), CreateSnapshotW(), CreateSubvolW(), DbgP(), DbgPrint(), DbgPrintEarly(), anonymous_namespace{mstscax.cpp}::dbgprintf(), debug_printf(), DebugFunction(), die(), DispCallFunc(), DisplayMessage(), doc_complex_write(), doflag(), 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(), glsl_blitter_get_program(), hlsl_message(), hlsl_report_message(), incomplete(), indent_printf(), InfoMessageBox(), init_arginfo(), Install(), install_wine_gecko(), invoke_procedure(), CShellLink::InvokeCommand(), ITERATE_StartService(), js_error(), js_fprintf(), js_printf(), js_snprintf(), LIBXML_ATTR_FORMAT(), LIBXSLT_ATTR_FORMAT(), Link(), LoadAndPrintString(), logmsg(), MCI_GetString(), MCI_ParseOptArgs(), mciSendStringW(), ModuleMessage(), mp_clear_multi(), mp_init_multi(), msi_service_args_to_vector(), CBandProxy::NavigateToPIDL(), NdrAsyncClientCall(), NdrClientCall2(), NdrMesProcEncodeDecode(), NdrStubCall2(), nfs41_delegation_recall(), notify_webbrowser_close(), Open(), parse_arguments(), parse_event_elem(), ParseNoTildeEffect(), ParseTildeEffect(), pdie(), PICE_sprintf(), picture_render(), populate_definition(), pp_add_macro(), print_error(), printf(), PRINTF_ATTR(), printk(), PrintkCallback(), PrintMessageAnsi(), PrintParserError(), ProcessCommandLine(), pSetupDebugPrint(), PullPin_NewSegment(), put_str(), RecvSubvolW(), ReflinkCopyW(), register_dlls_callback(), remglob(), Remove(), SendSubvolW(), SerenumInitMultiSzString(), CRegistryTree::SetError(), CardButton::SetText(), setup_arguments_object(), 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(), StartScrubW(), Stop(), StopScrubW(), str_printf(), string_buffer_sprintf(), symbol_demangle(), T42_Face_Init(), test_commandline2argv(), test_disp(), test_Invoke(), test_invoke_func(), test_ShellExecute(), test_TypeInfo(), TMStubImpl_Invoke(), tokenizeCommand(), TRIO_VARGS2(), TRIO_VARGS3(), TRIO_VARGS4(), type_new_function(), UnderlinedResPrintf(), Unlink(), verify_mru_(), VfatPrint(), write_status(), WriteToLogPrintf(), xcomerr(), xcomerrno(), xmlGenericErrorDefaultFunc(), and xmlStrPrintf().

#define AT_BOUNDS   14

Definition at line 1369 of file format.c.

Referenced by _fmtarglist().

#define AT_CHAR_PTR   7

Definition at line 1362 of file format.c.

Referenced by _fmtarglist().

#define AT_DOUBLE   4

Definition at line 1359 of file format.c.

Referenced by _fmtarglist().

#define AT_INT   1

Definition at line 1356 of file format.c.

Referenced by _fmtarglist().

#define AT_INT_PTR   9

Definition at line 1364 of file format.c.

Referenced by _fmtarglist().

#define AT_LONG   2

Definition at line 1357 of file format.c.

Referenced by _fmtarglist().

#define AT_LONG_DOUBLE   5

Definition at line 1360 of file format.c.

Referenced by _fmtarglist().

#define AT_LONG_LONG   3

Definition at line 1358 of file format.c.

Referenced by _fmtarglist().

#define AT_LONG_LONG_PTR   11

Definition at line 1366 of file format.c.

Referenced by _fmtarglist().

#define AT_LONG_PTR   10

Definition at line 1365 of file format.c.

Referenced by _fmtarglist().

#define AT_NONE   0

Definition at line 1355 of file format.c.

Referenced by _fmtarglist().

#define AT_R_FMT   12

Definition at line 1367 of file format.c.

Referenced by _fmtarglist().

#define AT_R_VA_LIST   13

Definition at line 1368 of file format.c.

Referenced by _fmtarglist().

#define AT_SHORT_PTR   8

Definition at line 1363 of file format.c.

Referenced by _fmtarglist().

#define AT_VOID_PTR   6

Definition at line 1361 of file format.c.

Referenced by _fmtarglist().

#define cap_ty

(

c

)

(is_cap(c) ? 'L' : 'I')

Definition at line 125 of file format.c.

Referenced by for().

#define CHARMASK   makemask(char)

Definition at line 104 of file format.c.

Referenced by for().

#define CHECKFLAG

(

)

Definition at line 81 of file format.c.

Referenced by for().

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

Definition at line 113 of file format.c.

Referenced by prdnum(), prlnum(), and prnum().

#define FARG   farg

Definition at line 240 of file format.c.

Referenced by for().

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

Definition at line 170 of file format.c.

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

#define FORMAT_FUNC_KR_ARGS   fun,

Definition at line 232 of file format.c.

Referenced by for().

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

Definition at line 231 of file format.c.

#define FORMAT_FUNC_NAME   format

Definition at line 227 of file format.c.

Referenced by for().

#define FORMAT_FUNC_PARM

Definition at line 228 of file format.c.

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

Definition at line 230 of file format.c.

#define FORMAT_IMPL

Definition at line 193 of file format.c.

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

Definition at line 167 of file format.c.

Referenced by for().

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

Definition at line 168 of file format.c.

Referenced by for().

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

Definition at line 165 of file format.c.

Referenced by for().

#define INTMASK   makemask(int)

Definition at line 106 of file format.c.

Referenced by for().

#define is_cap

(

c

)

((c) >= 'A' && (c) <= 'Z')

Definition at line 123 of file format.c.

#define is_dig

(

c

)

(((c) >= '0') && ((c) <= '9'))

Definition at line 122 of file format.c.

Referenced by _fmtarglist(), and for().

#define LONGMASK   makemask(long)

Definition at line 107 of file format.c.

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

Definition at line 101 of file format.c.

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

Definition at line 162 of file format.c.

Referenced by for().

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

Definition at line 114 of file format.c.

Referenced by prdnum(), prlnum(), and prnum().

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

Definition at line 234 of file format.c.

Referenced by for(), prbuf(), and prc().

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

Definition at line 163 of file format.c.

Referenced by for().

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

Definition at line 102 of file format.c.

Referenced by for().

#define SHORTMASK   makemask(short)

Definition at line 105 of file format.c.

Referenced by for().

#define SPACEFLG   4 /* ' ' flag */

Definition at line 164 of file format.c.

Referenced by for().

#define to_cap

(

c

)

(is_cap(c) ? c : c - 'a' + 'A')

Definition at line 124 of file format.c.

Referenced by for().

#define USE_LONGLONG

Definition at line 45 of file format.c.

#define USE_NL_ARGS

Definition at line 53 of file format.c.

Typedef Documentation

typedef struct f_args f_args

Function Documentation

char* gcvt __PR

(

(double, int, char *)

)

Referenced by prbuf(), and prc().

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 *)

)

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

Definition at line 1390 of file format.c.

Referenced by for().

{
    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;
        }
    }
}

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

Definition at line 1691 of file format.c.

Referenced by for().

{
    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);
}

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);
    }

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

Definition at line 1205 of file format.c.

Referenced by for(), and prstring().

{
    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);
}

LOCAL int prc	(	char	c,
		f_args *	fa
	)

Definition at line 1270 of file format.c.

Referenced by for().

{
    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);
}

LOCAL void prdnum	(	Ulong	val,
		f_args *	fa
	)

Definition at line 1060 of file format.c.

Referenced by for().

{
    register char *p = fa->bufp;

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

    fa->bufp = p;
}

LOCAL void prldnum	(	Ullong	val,
		f_args *	fa
	)

Definition at line 1140 of file format.c.

Referenced by for().

{
    register char *p = fa->bufp;

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

    fa->bufp = p;
}

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

Definition at line 1124 of file format.c.

Referenced by for().

{
    register char *p = fa->bufp;

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

    fa->bufp = p;
}

LOCAL void prlonum	(	Ullong	val,
		f_args *	fa
	)

Definition at line 1155 of file format.c.

Referenced by for().

{
    register char *p = fa->bufp;

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

    fa->bufp = p;
}

LOCAL void prlxnum	(	Ullong	val,
		f_args *	fa
	)

Definition at line 1170 of file format.c.

Referenced by for().

{
    register char *p = fa->bufp;

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

    fa->bufp = p;
}

LOCAL void prlXnum	(	Ullong	val,
		f_args *	fa
	)

Definition at line 1185 of file format.c.

Referenced by for().

{
    register char *p = fa->bufp;

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

    fa->bufp = p;
}

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

Definition at line 1044 of file format.c.

Referenced by for().

{
    register char *p = fa->bufp;

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

    fa->bufp = p;
}

LOCAL void pronum	(	Ulong	val,
		f_args *	fa
	)

Definition at line 1078 of file format.c.

Referenced by for().

{
    register char *p = fa->bufp;

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

    fa->bufp = p;
}

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

Definition at line 1308 of file format.c.

Referenced by for().

{
    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));
}

LOCAL void prxnum	(	Ulong	val,
		f_args *	fa
	)

Definition at line 1093 of file format.c.

Referenced by for().

{
    register char *p = fa->bufp;

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

    fa->bufp = p;
}

LOCAL void prXnum	(	Ulong	val,
		f_args *	fa
	)

Definition at line 1108 of file format.c.

Referenced by for().

{
    register char *p = fa->bufp;

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

    fa->bufp = p;
}

va_copy	(	sargs.	ap,
		oargs
	)

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

Variable Documentation

out __pad0__

Definition at line 1034 of file format.c.

va_lists_t arglist[FMT_ARGMAX+1]

Definition at line 284 of file format.c.

Referenced by _beginthread(), and TRIO_VARGS3().

register char c

Definition at line 268 of file format.c.

Referenced by _fmtarglist(), and for().

count = 0

Definition at line 269 of file format.c.

Referenced by build_default_format(), conv_s16_to_u16(), conv_s32_to_u32(), for(), prbuf(), and prc().

BOOL didlist = FALSE

Definition at line 286 of file format.c.

const char* digits = &skips[8]

static

Definition at line 1378 of file format.c.

LOCAL unsigned char dtab[] = "0123456789abcdef"

Definition at line 1040 of file format.c.

double dval

Definition at line 274 of file format.c.

f_args fa

Definition at line 280 of file format.c.

Referenced by dummy_enum_func(), file_get_Attributes(), main(), NetFwAuthorizedApplication_create(), NetFwAuthorizedApplications_create(), and test_GetFile().

fa farg = farg

Definition at line 253 of file format.c.

fargs = sargs

Definition at line 282 of file format.c.

Referenced by _fmtarglist().

register char* fmt

Definition at line 254 of file format.c.

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

int i

Definition at line 271 of file format.c.

Referenced by _fmtarglist(), _fmtgetarg(), acmFormatTagEnumW(), build_default_format(), cap_fit(), conv_s16_to_f32(), conv_s16_to_s32(), conv_s16_to_u16(), conv_s32_to_u32(), enc2num(), for(), freq_fit(), good_enc(), MSACM_FillFormatTagsCB(), MSACM_FormatEnumHelper(), MSI_FormatRecordW(), ParseCommandLine(), and rate2num().

Llong llval = 0

Definition at line 276 of file format.c.

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

register char mode

Definition at line 267 of file format.c.

int num

Definition at line 270 of file format.c.

Referenced by _fmtgetarg(), and for().

va_list oargs

Definition at line 255 of file format.c.

Referenced by compound_encode_send_decode().

const char* ofmt = fmt

Definition at line 285 of file format.c.

Referenced by optend().

fa outf = fun

Definition at line 301 of file format.c.

Ulong res

Definition at line 278 of file format.c.

Referenced by helper_createpackage(), package_from_db(), and test_createpackage().

char* rfmt

Definition at line 279 of file format.c.

va_lists_t sargs

Definition at line 283 of file format.c.

const char* sfmt

Initial value:

{



    char buf[8192]

Definition at line 257 of file format.c.

Referenced by doflag(), and for().

short sh

Definition at line 272 of file format.c.

Referenced by DlgMainProc(), DumpIdList(), for(), gid_to_sid(), NdisIBugcheckCallback(), sid_to_uid(), test_popup(), and uid_to_sid().

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

static

Definition at line 1377 of file format.c.

const char* str

Definition at line 273 of file format.c.

Referenced by deformat_string_internal(), format_lex(), format_replace(), free_stack(), and stack_find().

register char type

Definition at line 266 of file format.c.

Referenced by deformat_string_internal(), format_lex(), format_replace(), replace_stack(), and replace_stack_prop().

LOCAL unsigned char udtab[] = "0123456789ABCDEF"

Definition at line 1041 of file format.c.

register int unsflag

Definition at line 264 of file format.c.

register long val

Definition at line 265 of file format.c.

Referenced by deformat_index(), dup_formstr(), and for().