#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(), 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(), DECLARE_INTERFACE_(), die(), DisplayMessage(), doc_complex_write(), doflag(), CShellLink::DoOpen(), 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(), 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(), LoadAndPrintString(), logmsg(), MCI_GetString(), MCI_ParseOptArgs(), mciSendStringW(), ModuleMessage(), mp_clear_multi(), mp_init_multi(), msi_service_args_to_vector(), CBandProxy::NavigateToPIDL(), NdrAsyncClientCall(), NdrAsyncServerCall(), 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(), RegistryStatus(), 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(), string_error::string_error(), symbol_demangle(), T42_Face_Init(), test_commandline2argv(), test_disp(), test_Invoke(), test_invoke_func(), test_ShellExecute(), test_TypeInfo(), tokenizeCommand(), TRIO_VARGS2(), TRIO_VARGS3(), TRIO_VARGS4(), type_new_function(), UnderlinedResPrintf(), Unlink(), verify_mru_(), VfatPrint(), write_status(), WriteToLogPrintf(), wstring_sprintf(), 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]

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

Referenced by prbuf(), and prc().

◆ __PR() [2/7]

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

◆ __PR() [3/7]

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

◆ __PR() [4/7]

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

◆ __PR() [5/7]

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

◆ __PR() [6/7]

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

◆ __PR() [7/7]

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

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

Referenced by for().

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

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

Variable Documentation

◆ pad0

out __pad0__

Definition at line 1034 of file format.c.

◆ arglist

va_lists_t arglist[FMT_ARGMAX+1]

Definition at line 284 of file format.c.

Referenced by _beginthread(), _beginthreadex(), _CrtDbgReport(), _CrtDbgReportW(), _fmtarglist(), for(), TRIO_ARGS3(), TRIO_ARGS4(), TRIO_ARGS5(), TRIO_ARGS6(), and TRIO_VARGS3().

◆ 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.

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

◆ 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.

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

◆ 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.

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

◆ 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 257 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.

Referenced by deformat_component(), deformat_environment(), deformat_file(), deformat_index(), deformat_literal(), deformat_property(), deformat_string_internal(), dup_formstr(), for(), format_lex(), format_replace(), format_str_is_number(), free_stack(), get_formstr_data(), stack_find(), and stack_push().

◆ type

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().

◆ 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.

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

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